哪位朋友可以帮忙指点一下：
ASAP宏语言中，#后面加数字（比如#0）是什么意思？如下面
程序中黄色背景部分语言。谢谢~
:(p
rx
6Vzc:8o> SYSTEM NEW
f vM3.P RESET
molowPI : RO:k|g $IO LIBRARY
LCD !! ASSIGNS LCD.LIB AS THE LIBRARY FILE
1V3J:W#; Xl+a@Ggtq ARROWS OFF
_po 4(U& UNITS MM
>T^v4A ZWW8Hr WAVELENGTHS 450 550 633 NM
Msu2OF *x <~X6D? MEDIA
cH- Zj 1.5 1.5 1.5 'GLASS'
P W<wjf,rQ 1p<?S}zg@ COATING PROPERTIES
sx^? Iw,N' !! wavelength1 R T wavelength2 R T wavelength3 R T 'name'
D"f(nVEr 1 0 1 0 1 0 'REFLECT'
5nq-b@?L 0 1 0 1 0 1 'TRANSMIT'
gpvj'Ri7V 0 1 1 0 1 0 'SPLITTER1'
_NnO mwK7 0 0 1 0 0 1 'SPLITTER2'
}t-|^mY> 1 0 0 1 0 1 'SPLITTER3'
+i!M[ 0 1 0 1 1 0 'SPLITTER4'
@N{Ht)1r Qu\l$/ !! GEOMETRY CONSTRUCTION
1O7ss_E kj=2+)!E7 DEL=10 !! DISTANCE BETWEEN THE LCD AND LENSES
L [M8[~Hy WA5kX SdIb !!___________________________________________________
3'e 4{ !! PARABOLIC REFLECTOR
=xet+;~ji &Q+V I/p RAD=12.5 !! RADIUS OF CURVATURE OF PARABOLIC REFLECTOR
%9Fg1LH42r XAPE=60 !! FULL APERTURE IN X-DIRECTION
1 AV1W_" YAPE=60 !! FULL APERTURE IN Y-DIRECTION
6lAo`S\)eX ZPOS=-12.5/2-50 !! Z-AXIS POSITION OF THE REFLECTOR
l>?vjy65 YPOS=0 !! Y-AXIS POSITION OF THE REFLECTOR
]LOtwY .T-p]9*p SURFACE
j5^b~F% OPTICAL Z 0 (RAD) -1 ELLIPSE (XAPE/2) (YAPE/2)
]qHO{b4k OBJECT 'LAMP_REFLECTOR'
6e| 5qKr INTERFACE COAT REFLECT AIR AIR
R0d|j#vP SHIFT 0 (YPOS) (ZPOS)
ve^MqW &S X}Z%@ tL !!___________________________________________________
2`m _"y
!! LENS ARRAY
o:\a !! ASSUME FIVE BY FIVE ARRAY OF IDEAL LENSES
P`"DepeD ]m>MB )9 LXAPE=10 !! LENSLET X-DIRECTION FULL APERTURE
^v|!(h\Z C LYAPE=10 !! LENSLET X-DIRECTION FULL APERTURE
3*JybMo" FLA1=50 !! LENSLET FOCAL LENGTH
(Fd4Gw<sq ZPOS=0
5&@ U T YPOS=0
4344PBj p<19 Jw< !! USE THE MACRO LANGUAGE TO CREATE 25 IDEAL LENSLETS.
FCJ(D! !! CREATE the lenses as individual objects within a
L"/ato !! nested $DO loop. The only way to nest $DO loops in
m:Abq`C !! ASAP is to place the inner loop in a macro, and call
:|3 C-+[ !! that macro from the outer loop.
$?{zV$r1 %BLKB%5 LENSROW {
Qj U"|$ $DO 1 5
j=S"KVp9NF { LENSES
0pOha(,~ IDEAL Z 0 (LXAPE/2)
n #/m7 1 0 -1/(FLA1) 1
\ y",Qq? OBJECT 'LENSLET.?.#1' 1<|I[EI SHIFT (LXAPE*(?-1)) (LYAPE*(#1-1)) 0
P'~3WL4MKs RETURN }
7HFO-r118 }
X5[sw;rk rRel\8 $DO 1 5
&,7(Wab $LENSROW ?
N *>; ' _Y {g5t GROUP -25
,u2<()` 8D SHIFT (-2*LXAPE) (-2*LYAPE+YPOS) (ZPOS)
