哪位朋友可以帮忙指点一下：
ASAP宏语言中，#后面加数字（比如#0）是什么意思？如下面
程序中黄色背景部分语言。谢谢~
6^z \;,p g,GbaaXH SYSTEM NEW
"!_
4%z- RESET
^TCJh^4na S&))
0d $IO LIBRARY
LCD !! ASSIGNS LCD.LIB AS THE LIBRARY FILE
;
K
6Fe) g: 3'x/a1 ARROWS OFF
1&dsQ, VDl UNITS MM
G]NtX4' 4 UC
LjR<} WAVELENGTHS 450 550 633 NM
UEYM;$_@4o {uQ )p= MEDIA
SAxa7B/U2 1.5 1.5 1.5 'GLASS'
sz2 SWk^& I3rnCd( COATING PROPERTIES
: R*^Izs= !! wavelength1 R T wavelength2 R T wavelength3 R T 'name'
';CuJ XAj 1 0 1 0 1 0 'REFLECT'
)D-.7m.v] 0 1 0 1 0 1 'TRANSMIT'
6Cv2>'{S 0 1 1 0 1 0 'SPLITTER1'
ZT6X4 Z 0 0 1 0 0 1 'SPLITTER2'
MHT,rqG 1 0 0 1 0 1 'SPLITTER3'
2Q'XB 0 1 0 1 1 0 'SPLITTER4'
{ )GEgC Y 1ilH-8 !! GEOMETRY CONSTRUCTION
~m09yc d< HtXBaIl\ DEL=10 !! DISTANCE BETWEEN THE LCD AND LENSES
5Z1Do^ iYQy#kO !!___________________________________________________
mW(_FS2%, !! PARABOLIC REFLECTOR
]Q_G /e [W|7r
n,q RAD=12.5 !! RADIUS OF CURVATURE OF PARABOLIC REFLECTOR
EKS<s82hF& XAPE=60 !! FULL APERTURE IN X-DIRECTION
j[Zni D YAPE=60 !! FULL APERTURE IN Y-DIRECTION
{S: 3
FI ZPOS=-12.5/2-50 !! Z-AXIS POSITION OF THE REFLECTOR
6l]?%0[* YPOS=0 !! Y-AXIS POSITION OF THE REFLECTOR
8\V>6^3CD$ +FKP5L} SURFACE
JO6vzoS3 OPTICAL Z 0 (RAD) -1 ELLIPSE (XAPE/2) (YAPE/2)
Gv
nclnG OBJECT 'LAMP_REFLECTOR'
@`+$d=rO` INTERFACE COAT REFLECT AIR AIR
|iJZC SHIFT 0 (YPOS) (ZPOS)
h
_7;UQH ?$&rC0 t !!___________________________________________________
e%0#"6} !! LENS ARRAY
l
)V 43 !! ASSUME FIVE BY FIVE ARRAY OF IDEAL LENSES
nu%Nt"~[% wQuaB6E LXAPE=10 !! LENSLET X-DIRECTION FULL APERTURE
#_L& LYAPE=10 !! LENSLET X-DIRECTION FULL APERTURE
pC. 4AkEO FLA1=50 !! LENSLET FOCAL LENGTH
,) jB<` ZPOS=0
<m gTWv YPOS=0
j L) .B& Y},GZ ^zqy !! USE THE MACRO LANGUAGE TO CREATE 25 IDEAL LENSLETS.
*rKv`nva5 !! CREATE the lenses as individual objects within a
Q
pc^qP^- !! nested $DO loop. The only way to nest $DO loops in
T q; "_s !! ASAP is to place the inner loop in a macro, and call
%f(.OR)6{ !! that macro from the outer loop.
Nl)jQ x[@3;_'K LENSROW {
@O0 vh$3t0 $DO 1 5
iKH T { LENSES
c Yn}we}7 IDEAL Z 0 (LXAPE/2)
@z JZoJL]J 1 0 -1/(FLA1) 1
ea}KxLC` , OBJECT 'LENSLET.?.#1' <).qe Z SHIFT (LXAPE*(?-1)) (LYAPE*(#1-1)) 0
e[& 3K< RETURN }
~e~Mx=FT0 }
A8/4:>Is OL"5A18;M $DO 1 5
/Z _ [)PTH $LENSROW ?
\~j(ui | $
r nr;V GROUP -25
QD VA*6F SHIFT (-2*LXAPE) (-2*LYAPE+YPOS) (ZPOS)
