哪位朋友可以帮忙指点一下：
ASAP宏语言中，#后面加数字（比如#0）是什么意思？如下面
程序中黄色背景部分语言。谢谢~
$qx&\@O BI\+ NGrB SYSTEM NEW
Q l$t RESET
DJ9;{,gm O&:0mpRZ $IO LIBRARY
LCD !! ASSIGNS LCD.LIB AS THE LIBRARY FILE
G D$jP? #89h}mp' ARROWS OFF
| @-%x.y UNITS MM
; YaR|)B Rro{A+[,X WAVELENGTHS 450 550 633 NM
&E{5k{Y @x@w<e% MEDIA
sX&M+'h 1.5 1.5 1.5 'GLASS'
5g- apod w jmZ`UMz COATING PROPERTIES
_e.b #{=9 !! wavelength1 R T wavelength2 R T wavelength3 R T 'name'
.'SXRrn&:C 1 0 1 0 1 0 'REFLECT'
t#y 0 1 0 1 0 1 'TRANSMIT'
afEp4(X~ 0 1 1 0 1 0 'SPLITTER1'
j}R4m h 0 0 1 0 0 1 'SPLITTER2'
{ /BEO=8q2 1 0 0 1 0 1 'SPLITTER3'
bH 41#B 0 1 0 1 1 0 'SPLITTER4'
>5Zp x8W K)qbd~<\ !! GEOMETRY CONSTRUCTION
oT5xe[{yj lO9{S=N DEL=10 !! DISTANCE BETWEEN THE LCD AND LENSES
,h2q 37 tji,by#E/% !!___________________________________________________
r1FE$ R~C= !! PARABOLIC REFLECTOR
s\&_Kbw] c Yf:utCvv RAD=12.5 !! RADIUS OF CURVATURE OF PARABOLIC REFLECTOR
lq@Vb{Z XAPE=60 !! FULL APERTURE IN X-DIRECTION
skcMGEB YAPE=60 !! FULL APERTURE IN Y-DIRECTION
HHZ!mYr ZPOS=-12.5/2-50 !! Z-AXIS POSITION OF THE REFLECTOR
Vk_*]wU YPOS=0 !! Y-AXIS POSITION OF THE REFLECTOR
'w%N(N tq ,l<-*yMD SURFACE
u,F d[[t OPTICAL Z 0 (RAD) -1 ELLIPSE (XAPE/2) (YAPE/2)
^BM /K&7^ OBJECT 'LAMP_REFLECTOR'
i&,U);T INTERFACE COAT REFLECT AIR AIR
Ut-6!kAm SHIFT 0 (YPOS) (ZPOS)
#|XEBOmsQ V 8&/O)} o !!___________________________________________________
K23_1-mbe !! LENS ARRAY
5?kA)!|UB !! ASSUME FIVE BY FIVE ARRAY OF IDEAL LENSES
!BEOeq@2. [Pp#l* LXAPE=10 !! LENSLET X-DIRECTION FULL APERTURE
)O - x1U LYAPE=10 !! LENSLET X-DIRECTION FULL APERTURE
-R'p ^cMA FLA1=50 !! LENSLET FOCAL LENGTH
UK K}$B ZPOS=0
QBsDO].J< YPOS=0
X y*X4JJh^ >2syF{`j !! USE THE MACRO LANGUAGE TO CREATE 25 IDEAL LENSLETS.
%Y Rg1UKY !! CREATE the lenses as individual objects within a
`A
<yDy !! nested $DO loop. The only way to nest $DO loops in
<(p1
j0_Q !! ASAP is to place the inner loop in a macro, and call
[bPE?_a, !! that macro from the outer loop.
N/?Ms rZw ,f?#i%EF& LENSROW {
0K3FH&.% $DO 1 5
\wRr6-!_ { LENSES
0 v7;Z xD IDEAL Z 0 (LXAPE/2)
h.=B!wKK 1 0 -1/(FLA1) 1
lIjHd#q-C OBJECT 'LENSLET.?.#1' 9jPb-I- SHIFT (LXAPE*(?-1)) (LYAPE*(#1-1)) 0
>!)VkDAG RETURN }
deTbvl }
gy =`c MS@ [ !R%yD; $DO 1 5
,t+ATaOF $LENSROW ?
Zc4hjg _ Mt:^H}Sy GROUP -25
f,L
SHIFT (-2*LXAPE) (-2*LYAPE+YPOS) (ZPOS)
