哪位朋友可以帮忙指点一下：
ASAP宏语言中，#后面加数字（比如#0）是什么意思？如下面
程序中黄色背景部分语言。谢谢~
l_y:IY$" 3@*J=LGhKc SYSTEM NEW
znzh$9tH RESET
kcVEE)zb 1RZhy_$\. $IO LIBRARY
LCD !! ASSIGNS LCD.LIB AS THE LIBRARY FILE
m@R !o {A2(a7v V ARROWS OFF
&aqF ||v%) UNITS MM
7 /w)^&8 9"K EHf! WAVELENGTHS 450 550 633 NM
r'#5ncB kqYWa`eE MEDIA
o
nt8q8 1.5 1.5 1.5 'GLASS'
,8nu%zcVn !v;N@C3C COATING PROPERTIES
$a>,sL&; !! wavelength1 R T wavelength2 R T wavelength3 R T 'name'
j{U ?kW{o 1 0 1 0 1 0 'REFLECT'
a.#`> 0 1 0 1 0 1 'TRANSMIT'
+hI:5( _ 0 1 1 0 1 0 'SPLITTER1'
Q\z6/1:9Z 0 0 1 0 0 1 'SPLITTER2'
/qa{*"2Qo 1 0 0 1 0 1 'SPLITTER3'
Tz[ck 'k 0 1 0 1 1 0 'SPLITTER4'
\3LP@;Phn {b6| wQ\ !! GEOMETRY CONSTRUCTION
z^j7wMQ D]\of#%T DEL=10 !! DISTANCE BETWEEN THE LCD AND LENSES
;fw }<M!6 (-viP !!___________________________________________________
xr}3vJ7 !! PARABOLIC REFLECTOR
O%L]*vIr ?55t0 RAD=12.5 !! RADIUS OF CURVATURE OF PARABOLIC REFLECTOR
@&p:J0hbp XAPE=60 !! FULL APERTURE IN X-DIRECTION
byoP1F% YAPE=60 !! FULL APERTURE IN Y-DIRECTION
@&#k[ 'c
ZPOS=-12.5/2-50 !! Z-AXIS POSITION OF THE REFLECTOR
M?l/_!QB YPOS=0 !! Y-AXIS POSITION OF THE REFLECTOR
+e}v) N p'{B|ujj6 SURFACE
lZ|+.T!g? OPTICAL Z 0 (RAD) -1 ELLIPSE (XAPE/2) (YAPE/2)
GdHFgx I OBJECT 'LAMP_REFLECTOR'
jD1/`g% INTERFACE COAT REFLECT AIR AIR
2CcUClP$ SHIFT 0 (YPOS) (ZPOS)
`Y>'*4a\ Z0HfrK#oU !!___________________________________________________
blO( Th& !! LENS ARRAY
R8LJC]6Bh !! ASSUME FIVE BY FIVE ARRAY OF IDEAL LENSES
,Ta k', -5vg"|ia, LXAPE=10 !! LENSLET X-DIRECTION FULL APERTURE
n-zAkKM LYAPE=10 !! LENSLET X-DIRECTION FULL APERTURE
Od_xH FLA1=50 !! LENSLET FOCAL LENGTH
q@k/"ee*? ZPOS=0
}huj%Pnk ) YPOS=0
)`
~"o *M czNi )4x !! USE THE MACRO LANGUAGE TO CREATE 25 IDEAL LENSLETS.
ac !! CREATE the lenses as individual objects within a
>NLG"[\ !! nested $DO loop. The only way to nest $DO loops in
3v\69 s !! ASAP is to place the inner loop in a macro, and call
a',6WugIP !! that macro from the outer loop.
_y:-_q kjAARW LENSROW {
Z~R7 G $DO 1 5
S 7pf
QF { LENSES
pmda9V4 IDEAL Z 0 (LXAPE/2)
\Lu a I 1 0 -1/(FLA1) 1
%Q,6 sH# OBJECT 'LENSLET.?.#1' R !&9RvNw SHIFT (LXAPE*(?-1)) (LYAPE*(#1-1)) 0
XZ%3PM q RETURN }
3yGo{uW }
0 O>T{< 6%yt"XmT $DO 1 5
hTfq>jIB_ $LENSROW ?
/q1k)4?E F* u"LTH GROUP -25
( KG2X SHIFT (-2*LXAPE) (-2*LYAPE+YPOS) (ZPOS)
