哪位朋友可以帮忙指点一下：
ASAP宏语言中，#后面加数字（比如#0）是什么意思？如下面
程序中黄色背景部分语言。谢谢~
M059"X=" "g;}B"rG SYSTEM NEW
u@[JX1&3"n RESET
llBW* 4' AUkePp78 $IO LIBRARY
LCD !! ASSIGNS LCD.LIB AS THE LIBRARY FILE
z6Yx
)qBE< /kd6Yq(y ARROWS OFF
0R?LWm
j UNITS MM
2`/p V0 M}F )
P&Y WAVELENGTHS 450 550 633 NM
=g^JJpS PHn3f ;I MEDIA
c f1GA 1.5 1.5 1.5 'GLASS'
ApAHa]Ccp <NX6m|DD COATING PROPERTIES
e~BUAz !! wavelength1 R T wavelength2 R T wavelength3 R T 'name'
%MUwd@,
1 0 1 0 1 0 'REFLECT'
T
.L>PL ?= 0 1 0 1 0 1 'TRANSMIT'
}#f~" -O 0 1 1 0 1 0 'SPLITTER1'
7(= 09z 0 0 1 0 0 1 'SPLITTER2'
6m{ 1im= 1 0 0 1 0 1 'SPLITTER3'
pSJc.j 0 1 0 1 1 0 'SPLITTER4'
ob.=QQQs
7j L.\O !! GEOMETRY CONSTRUCTION
s3l: S T 8(A+"H( DEL=10 !! DISTANCE BETWEEN THE LCD AND LENSES
nqyB,vv0 0V:PRq;v0 !!___________________________________________________
V2|XcR !! PARABOLIC REFLECTOR
vb Mv8Nk T]Eg9Y:+v RAD=12.5 !! RADIUS OF CURVATURE OF PARABOLIC REFLECTOR
6>B_ojj: XAPE=60 !! FULL APERTURE IN X-DIRECTION
|d8x55dk YAPE=60 !! FULL APERTURE IN Y-DIRECTION
;7 Y4 v`m ZPOS=-12.5/2-50 !! Z-AXIS POSITION OF THE REFLECTOR
R k).D 6 YPOS=0 !! Y-AXIS POSITION OF THE REFLECTOR
UDz#?ZWnd J'>i3e Lq SURFACE
OmX(3>:9 OPTICAL Z 0 (RAD) -1 ELLIPSE (XAPE/2) (YAPE/2)
aC2\C=ru_ OBJECT 'LAMP_REFLECTOR'
g!`$bF =e INTERFACE COAT REFLECT AIR AIR
{m+(j (6- SHIFT 0 (YPOS) (ZPOS)
<U()
*0
${F] N } !!___________________________________________________
PxHH h{y%c !! LENS ARRAY
gNG_,+=! !! ASSUME FIVE BY FIVE ARRAY OF IDEAL LENSES
YAf`Fn mw mxV0"$'Fm LXAPE=10 !! LENSLET X-DIRECTION FULL APERTURE
@eGJ_ J LYAPE=10 !! LENSLET X-DIRECTION FULL APERTURE
]2P*Z6Az FLA1=50 !! LENSLET FOCAL LENGTH
u`vOKajpH$ ZPOS=0
7R=cxD& YPOS=0
k/ 9S
nZ 0rxx[V? !! USE THE MACRO LANGUAGE TO CREATE 25 IDEAL LENSLETS.
)N4_SA !! CREATE the lenses as individual objects within a
>1Y',0 v !! nested $DO loop. The only way to nest $DO loops in
do1aH$Iw !! ASAP is to place the inner loop in a macro, and call
n^ AQ !wC !! that macro from the outer loop.
^l4=/=RR eD4o8[s LENSROW {
[nam H a $DO 1 5
}QL 2#R { LENSES
jLs- v IDEAL Z 0 (LXAPE/2)
(0T6kD 1 0 -1/(FLA1) 1
'bXm,Ed OBJECT 'LENSLET.?.#1' Sp=6%3fZ]m SHIFT (LXAPE*(?-1)) (LYAPE*(#1-1)) 0
}qf)L . RETURN }
QM
}TPE }
67/&.d! ,wN>,( $DO 1 5
Wm/0Y'$r&k $LENSROW ?
q >|:mXR 2 R !1Vl GROUP -25
;U=RV& SHIFT (-2*LXAPE) (-2*LYAPE+YPOS) (ZPOS)
