哪位朋友可以帮忙指点一下：
ASAP宏语言中，#后面加数字（比如#0）是什么意思？如下面
程序中黄色背景部分语言。谢谢~
ZYC<Wb)I o!)3 ? SYSTEM NEW
)c `7( nY RESET
@`gk|W3 ?Y@N` S $IO LIBRARY
LCD !! ASSIGNS LCD.LIB AS THE LIBRARY FILE
r z t Ru Av fNwE ARROWS OFF
oH_;4QU4y UNITS MM
|UX(+; n
G K7![p WAVELENGTHS 450 550 633 NM
Mnscb HSc~* Q MEDIA
9jw\s P@ 1.5 1.5 1.5 'GLASS'
thI
F& u: =7l COATING PROPERTIES
B] Thn !! wavelength1 R T wavelength2 R T wavelength3 R T 'name'
)c)vTZy 1 0 1 0 1 0 'REFLECT'
>k (C 0 1 0 1 0 1 'TRANSMIT'
cLLbZ=` 0 1 1 0 1 0 'SPLITTER1'
x^y'P<y pw 0 0 1 0 0 1 'SPLITTER2'
,%M$0poKM 1 0 0 1 0 1 'SPLITTER3'
tNbN7y I 0 1 0 1 1 0 'SPLITTER4'
v_De dVhe / G7vwC !! GEOMETRY CONSTRUCTION
s+<Yg$) 8|\8O@ DEL=10 !! DISTANCE BETWEEN THE LCD AND LENSES
Sy0$z3 9 K1M%!JKh)x !!___________________________________________________
0 eDHu !! PARABOLIC REFLECTOR
,^\2P$rT =`H@% RAD=12.5 !! RADIUS OF CURVATURE OF PARABOLIC REFLECTOR
67Th;h*sh XAPE=60 !! FULL APERTURE IN X-DIRECTION
(&F
,AY3A YAPE=60 !! FULL APERTURE IN Y-DIRECTION
R8a3
1& ZPOS=-12.5/2-50 !! Z-AXIS POSITION OF THE REFLECTOR
~ v|>xqWV YPOS=0 !! Y-AXIS POSITION OF THE REFLECTOR
woK&q 7Vn G$F<$ SURFACE
q1d}{DU OPTICAL Z 0 (RAD) -1 ELLIPSE (XAPE/2) (YAPE/2)
;z $(nhJ OBJECT 'LAMP_REFLECTOR'
!
t? iXZ INTERFACE COAT REFLECT AIR AIR
m c? Vq SHIFT 0 (YPOS) (ZPOS)
?i Wi n<z [J=I !!___________________________________________________
9
a!$z!. !! LENS ARRAY
|}Nn!Sj>#; !! ASSUME FIVE BY FIVE ARRAY OF IDEAL LENSES
:LW4E9O=H + |n*b LXAPE=10 !! LENSLET X-DIRECTION FULL APERTURE
?kbiMs1;u LYAPE=10 !! LENSLET X-DIRECTION FULL APERTURE
KUlp"{a`,K FLA1=50 !! LENSLET FOCAL LENGTH
f'EuY17 w ZPOS=0
Lr~=^{ YPOS=0
a%/9v"} 42$Vh dG !! USE THE MACRO LANGUAGE TO CREATE 25 IDEAL LENSLETS.
K;?m';z0 !! CREATE the lenses as individual objects within a
0=2@ !! nested $DO loop. The only way to nest $DO loops in
,9zjFI !! ASAP is to place the inner loop in a macro, and call
3q\,$*D. !! that macro from the outer loop.
5K>3My# uKUiV%p! LENSROW {
"K6&d k jY $DO 1 5
4;yKOQD| { LENSES
!Prg_6
` IDEAL Z 0 (LXAPE/2)
&8Cu#^3
1 0 -1/(FLA1) 1
oAODp!_c OBJECT 'LENSLET.?.#1' hK L4cpK4 SHIFT (LXAPE*(?-1)) (LYAPE*(#1-1)) 0
yerg=,$_i RETURN }
5\:^ y'g[ }
IP xiV]c `{3<{ wgw $DO 1 5
CQ F:Rnb $LENSROW ?
;g+N&)n "O3tq =Q GROUP -25
Lo{
E:5q SHIFT (-2*LXAPE) (-2*LYAPE+YPOS) (ZPOS)
