哪位朋友可以帮忙指点一下：
ASAP宏语言中，#后面加数字（比如#0）是什么意思？如下面
程序中黄色背景部分语言。谢谢~
l gq=GHW d0UZ+ RR# SYSTEM NEW
d]B= *7] RESET
)2j:z#'> "dCzWFet $IO LIBRARY
LCD !! ASSIGNS LCD.LIB AS THE LIBRARY FILE
&^QPkX@p 9%,;XQ ARROWS OFF
L]-w;ll- UNITS MM
*8A6 Q9YT W
kkxU.xXE WAVELENGTHS 450 550 633 NM
Y`li> .\ *@M3p}', M MEDIA
McP.9v}H0_ 1.5 1.5 1.5 'GLASS'
s (PY/{8 aj7dH5SZl COATING PROPERTIES
_/x& <,3 !! wavelength1 R T wavelength2 R T wavelength3 R T 'name'
8F6h#%9 1 0 1 0 1 0 'REFLECT'
tbur$ 00 0 1 0 1 0 1 'TRANSMIT'
K8Zt:yP 0 1 1 0 1 0 'SPLITTER1'
r_o<SH 0 0 1 0 0 1 'SPLITTER2'
i Ci>zJ 1 0 0 1 0 1 'SPLITTER3'
~[18q+, 0 1 0 1 1 0 'SPLITTER4'
esq<xuZM4 >4)g4 ~'n! !! GEOMETRY CONSTRUCTION
)/Y~6A9> $h[ Yz l DEL=10 !! DISTANCE BETWEEN THE LCD AND LENSES
5'
\)` 5 si}i'in !!___________________________________________________
zO.6WJ !! PARABOLIC REFLECTOR
eE3-t/= [thboP.? RAD=12.5 !! RADIUS OF CURVATURE OF PARABOLIC REFLECTOR
azGn P3_ XAPE=60 !! FULL APERTURE IN X-DIRECTION
*x,HnHT YAPE=60 !! FULL APERTURE IN Y-DIRECTION
kK?zVH-! ZPOS=-12.5/2-50 !! Z-AXIS POSITION OF THE REFLECTOR
[j0w \{ YPOS=0 !! Y-AXIS POSITION OF THE REFLECTOR
^ KO zCLC *{[d%B<lp SURFACE
fValSQc!U OPTICAL Z 0 (RAD) -1 ELLIPSE (XAPE/2) (YAPE/2)
^, wnp@ OBJECT 'LAMP_REFLECTOR'
%V_eJC""? INTERFACE COAT REFLECT AIR AIR
wRbw SHIFT 0 (YPOS) (ZPOS)
CA^.?&CH^O fN[n>%)VO< !!___________________________________________________
VO -784I !! LENS ARRAY
=J3`@ 9; !! ASSUME FIVE BY FIVE ARRAY OF IDEAL LENSES
_S5gcPcF" G8P+A1
f/> LXAPE=10 !! LENSLET X-DIRECTION FULL APERTURE
K%2I LYAPE=10 !! LENSLET X-DIRECTION FULL APERTURE
w2Kq(^? FLA1=50 !! LENSLET FOCAL LENGTH
Xw(3j )xQ ZPOS=0
/0\QL+^! YPOS=0
BE4\U_]a3 rw*M&qg!z !! USE THE MACRO LANGUAGE TO CREATE 25 IDEAL LENSLETS.
Czh8zB+r !! CREATE the lenses as individual objects within a
C'<'7g4 !! nested $DO loop. The only way to nest $DO loops in
) E~mJln !! ASAP is to place the inner loop in a macro, and call
Q
X):T#^V !! that macro from the outer loop.
gz\j(' ~-D 3 2y [ LENSROW {
=ZMF ]| $DO 1 5
|_I[1%&`N { LENSES
}200g_^ IDEAL Z 0 (LXAPE/2)
BHclUwj 1 0 -1/(FLA1) 1
2}!R
T OBJECT 'LENSLET.?.#1' d+1x*`U| SHIFT (LXAPE*(?-1)) (LYAPE*(#1-1)) 0
ybYXD? RETURN }
Nh :4ys!P }
Nuq(4Yf1W *h])mqhB $DO 1 5
$Q ffrU' $LENSROW ?
p XNtN5@FQ lb95!.av+I GROUP -25
FvA|1c SHIFT (-2*LXAPE) (-2*LYAPE+YPOS) (ZPOS)
