哪位朋友可以帮忙指点一下：
ASAP宏语言中，#后面加数字（比如#0）是什么意思？如下面
程序中黄色背景部分语言。谢谢~
d ^zuo CNhLp# SYSTEM NEW
6G }4KGQc RESET
.*X= ["
F =pTTXo $IO LIBRARY
LCD !! ASSIGNS LCD.LIB AS THE LIBRARY FILE
2dK:VC4U dpX Fx"4A ARROWS OFF
y7R=zkd
C9 UNITS MM
\c f'Hj}
FsQ oQ#* WAVELENGTHS 450 550 633 NM
t<j_` %`8 4Xww(5?3 MEDIA
(;H % r & 1.5 1.5 1.5 'GLASS'
M?o_J4 n&D BMU COATING PROPERTIES
z`NJelcuz\ !! wavelength1 R T wavelength2 R T wavelength3 R T 'name'
H/.UD z 1 0 1 0 1 0 'REFLECT'
6urU[t1 0 1 0 1 0 1 'TRANSMIT'
w9mAeGyE 0 1 1 0 1 0 'SPLITTER1'
AX
Q.E$1g 0 0 1 0 0 1 'SPLITTER2'
\Lg4 Cx 1 0 0 1 0 1 'SPLITTER3'
WJ LqH< 0 1 0 1 1 0 'SPLITTER4'
b`% !\I j(}pUV B !! GEOMETRY CONSTRUCTION
iX WB TA qX
f_ DEL=10 !! DISTANCE BETWEEN THE LCD AND LENSES
mx}4iO:Xp L"NfOST3'R !!___________________________________________________
l;&kX6 w !! PARABOLIC REFLECTOR
) jt?X} kP5G}Bp RAD=12.5 !! RADIUS OF CURVATURE OF PARABOLIC REFLECTOR
cV_-Bcb XAPE=60 !! FULL APERTURE IN X-DIRECTION
x34GRe !! YAPE=60 !! FULL APERTURE IN Y-DIRECTION
Jr= fc*f ZPOS=-12.5/2-50 !! Z-AXIS POSITION OF THE REFLECTOR
^~6gk S
} YPOS=0 !! Y-AXIS POSITION OF THE REFLECTOR
Koj9]2<0 ^FVmP d*1 SURFACE
#{^qBP[ OPTICAL Z 0 (RAD) -1 ELLIPSE (XAPE/2) (YAPE/2)
uBn35% OBJECT 'LAMP_REFLECTOR'
M{jq6c INTERFACE COAT REFLECT AIR AIR
\=` j o$S SHIFT 0 (YPOS) (ZPOS)
,oPxt pf+VYZ#) !!___________________________________________________
4sW ~7:vU !! LENS ARRAY
da_0{ ;wR !! ASSUME FIVE BY FIVE ARRAY OF IDEAL LENSES
CS5[E-%}T= OVc)PMp LXAPE=10 !! LENSLET X-DIRECTION FULL APERTURE
ls7P$qq LYAPE=10 !! LENSLET X-DIRECTION FULL APERTURE
}' s W[?ik FLA1=50 !! LENSLET FOCAL LENGTH
N9y+P sh ZPOS=0
n3q Rt YPOS=0
*"4l}& ~jmI`X/ !! USE THE MACRO LANGUAGE TO CREATE 25 IDEAL LENSLETS.
{ E7STLQ_% !! CREATE the lenses as individual objects within a
F%af05L[ !! nested $DO loop. The only way to nest $DO loops in
x8~*+ j !! ASAP is to place the inner loop in a macro, and call
q_mxZM
-> !! that macro from the outer loop.
0&b;!N!vJ KmM:V2@A$ LENSROW {
TIR Is1 $DO 1 5
O6ugN-d> { LENSES
+Z86Qz_ IDEAL Z 0 (LXAPE/2)
{MTtj4$ 1 0 -1/(FLA1) 1
};EB[n OBJECT 'LENSLET.?.#1' {^^LeUd#V SHIFT (LXAPE*(?-1)) (LYAPE*(#1-1)) 0
8.7q
-<Q RETURN }
jU gx
;= }
e$JCak= C5$?Y8B3 $DO 1 5
6Z2|j~ $LENSROW ?
5zkj ;?s xU}J6 Tv GROUP -25
(/!@
-]1 SHIFT (-2*LXAPE) (-2*LYAPE+YPOS) (ZPOS)
