哪位朋友可以帮忙指点一下：
ASAP宏语言中，#后面加数字（比如#0）是什么意思？如下面
程序中黄色背景部分语言。谢谢~
H-9% /e eoS8e$} SYSTEM NEW
IQS:tL/ RESET
}/yhwijg ov= [g l $IO LIBRARY
LCD !! ASSIGNS LCD.LIB AS THE LIBRARY FILE
d (F b_ ?dukK3 u ARROWS OFF
-|M eC UNITS MM
K.Tfu"6 8xQ5[Ov WAVELENGTHS 450 550 633 NM
9 ZL3p! g3%Xh0007{ MEDIA
!79^M 1.5 1.5 1.5 'GLASS'
LFCcV<~ IRem F @ COATING PROPERTIES
- ;TqdL@ !! wavelength1 R T wavelength2 R T wavelength3 R T 'name'
gL(ny/Ob9 1 0 1 0 1 0 'REFLECT'
BpL,<r, 0 1 0 1 0 1 'TRANSMIT'
lCDu,r;\ 0 1 1 0 1 0 'SPLITTER1'
G SXe =? 0 0 1 0 0 1 'SPLITTER2'
z O 1 0 0 1 0 1 'SPLITTER3'
-v4kW0G 0 1 0 1 1 0 'SPLITTER4'
!e ?GS"L~ GNzk Vy:u !! GEOMETRY CONSTRUCTION
YK/?~p9: Jp EE'#r| DEL=10 !! DISTANCE BETWEEN THE LCD AND LENSES
Vf#X[$pc/ nk,X6o9% !!___________________________________________________
]A:n]mL !! PARABOLIC REFLECTOR
bb# F2r4 8,p nm RAD=12.5 !! RADIUS OF CURVATURE OF PARABOLIC REFLECTOR
ty|E[Ez1 XAPE=60 !! FULL APERTURE IN X-DIRECTION
{(@M0? YAPE=60 !! FULL APERTURE IN Y-DIRECTION
.(OFYK< ZPOS=-12.5/2-50 !! Z-AXIS POSITION OF THE REFLECTOR
c(. 2D YPOS=0 !! Y-AXIS POSITION OF THE REFLECTOR
c
rP Er 05mj V6j7m SURFACE
>(s)S[\ OPTICAL Z 0 (RAD) -1 ELLIPSE (XAPE/2) (YAPE/2)
N/QTf1$ OBJECT 'LAMP_REFLECTOR'
vT V'D&x2 INTERFACE COAT REFLECT AIR AIR
Y
'&&1 R SHIFT 0 (YPOS) (ZPOS)
C9[Jr)QX {
as#lHn !!___________________________________________________
*p}b_A}D !! LENS ARRAY
@vdBA hXk !! ASSUME FIVE BY FIVE ARRAY OF IDEAL LENSES
=EI>@Y" GsG.9nd LXAPE=10 !! LENSLET X-DIRECTION FULL APERTURE
Z,%^BAJ LYAPE=10 !! LENSLET X-DIRECTION FULL APERTURE
D<5;4Mb FLA1=50 !! LENSLET FOCAL LENGTH
5F{NPKa Q ZPOS=0
")MjR1p YPOS=0
i>YD_#w M=$
qus !! USE THE MACRO LANGUAGE TO CREATE 25 IDEAL LENSLETS.
+:3K ?G - !! CREATE the lenses as individual objects within a
o(GXv3L !! nested $DO loop. The only way to nest $DO loops in
?IR]y-r !! ASAP is to place the inner loop in a macro, and call
>J+'hm@ !! that macro from the outer loop.
ezn%*X
y, Tf/jd 3> LENSROW {
F+mn d,3 $DO 1 5
9MQ!5 Zn { LENSES
&~ of]A IDEAL Z 0 (LXAPE/2)
N t]YhO 1 0 -1/(FLA1) 1
r >4HF"Nm OBJECT 'LENSLET.?.#1' YqhZndktX SHIFT (LXAPE*(?-1)) (LYAPE*(#1-1)) 0
SJb+ :L> RETURN }
]n9o=^q/ }
pvdM3+6 EkotVzR5 $DO 1 5
6%bZZTP` $LENSROW ?
v?e@`;-
< .?T ,>#R GROUP -25
yd#SB) & SHIFT (-2*LXAPE) (-2*LYAPE+YPOS) (ZPOS)
