哪位朋友可以帮忙指点一下：
ASAP宏语言中，#后面加数字（比如#0）是什么意思？如下面
程序中黄色背景部分语言。谢谢~
eD G=-a4 D`iWf3a. SYSTEM NEW
))u$j4 V RESET
}i ?P(
Au 2uV=kq nO $IO LIBRARY
LCD !! ASSIGNS LCD.LIB AS THE LIBRARY FILE
I C 7n;n9 6]na#< ARROWS OFF
h1J-AfV UNITS MM
,8@@r7 #kk_iS>8 WAVELENGTHS 450 550 633 NM
BYP,}yzA *9* 6n\~aI MEDIA
-H {c@hl 1.5 1.5 1.5 'GLASS'
m&b!\"0
Ws}u4t COATING PROPERTIES
DH @*Oz- !! wavelength1 R T wavelength2 R T wavelength3 R T 'name'
R>#T {<<L 1 0 1 0 1 0 'REFLECT'
( ]'4_~e 0 1 0 1 0 1 'TRANSMIT'
v||8Q\d 0 1 1 0 1 0 'SPLITTER1'
QZ%_hvY[%> 0 0 1 0 0 1 'SPLITTER2'
IN),Lu0K 1 0 0 1 0 1 'SPLITTER3'
kVZ>Dc2M 0 1 0 1 1 0 'SPLITTER4'
B
+_D*a ^i #F+Q`1 !! GEOMETRY CONSTRUCTION
XA>@0E>1r oQFpIX;\m DEL=10 !! DISTANCE BETWEEN THE LCD AND LENSES
j =[Td 4LKOBiEM !!___________________________________________________
G$Z8k,g+<7 !! PARABOLIC REFLECTOR
N!^U{;X7/ .#EmE'IP* RAD=12.5 !! RADIUS OF CURVATURE OF PARABOLIC REFLECTOR
Qq^>7OU>Co XAPE=60 !! FULL APERTURE IN X-DIRECTION
866n{lyL YAPE=60 !! FULL APERTURE IN Y-DIRECTION
M {_`X ZPOS=-12.5/2-50 !! Z-AXIS POSITION OF THE REFLECTOR
: !J!l u YPOS=0 !! Y-AXIS POSITION OF THE REFLECTOR
e>y"V; Mj 7J7uHl`yq` SURFACE
W/xb[w9v OPTICAL Z 0 (RAD) -1 ELLIPSE (XAPE/2) (YAPE/2)
? ZE1>L7e OBJECT 'LAMP_REFLECTOR'
N^CD4l INTERFACE COAT REFLECT AIR AIR
/k(0}g=\ SHIFT 0 (YPOS) (ZPOS)
cMI QbBM E.4`aJ@>d !!___________________________________________________
[u =b [( !! LENS ARRAY
-.i1l/FzP !! ASSUME FIVE BY FIVE ARRAY OF IDEAL LENSES
9Jaek_A` i{!i %`" LXAPE=10 !! LENSLET X-DIRECTION FULL APERTURE
w~X1Il7A LYAPE=10 !! LENSLET X-DIRECTION FULL APERTURE
"~N#Jqzr: FLA1=50 !! LENSLET FOCAL LENGTH
Z_ cTuu0' ZPOS=0
)# M*@e$k YPOS=0
0 B>{ 31) jvCk+n[ !! USE THE MACRO LANGUAGE TO CREATE 25 IDEAL LENSLETS.
.pr- ^ !! CREATE the lenses as individual objects within a
3Q Z w !! nested $DO loop. The only way to nest $DO loops in
Dm"GCV !! ASAP is to place the inner loop in a macro, and call
Hq< Vk.Nk !! that macro from the outer loop.
Ri " 3o ]7fqVOi Ou LENSROW {
N@)tU;U3O $DO 1 5
% )?$82=2 { LENSES
^+Ec}+ Q IDEAL Z 0 (LXAPE/2)
gNo.&G [ 1 0 -1/(FLA1) 1
gBf %9F OBJECT 'LENSLET.?.#1' *GTCV xu SHIFT (LXAPE*(?-1)) (LYAPE*(#1-1)) 0
TCv}N0 RETURN }
5! NK }
jx+%X\zokA uJ {N? $DO 1 5
Q Y/36gK $LENSROW ?
+ }J2\!Jw Y_xPr%%A GROUP -25
-{-w5_B$ SHIFT (-2*LXAPE) (-2*LYAPE+YPOS) (ZPOS)
