哪位朋友可以帮忙指点一下：
ASAP宏语言中，#后面加数字（比如#0）是什么意思？如下面
程序中黄色背景部分语言。谢谢~
(S xR`QP?, BZud) l24 SYSTEM NEW
58%#DX34M RESET
>=UF-xk ; si&S% 4( $IO LIBRARY
LCD !! ASSIGNS LCD.LIB AS THE LIBRARY FILE
Zm=(+
f C OTp ARROWS OFF
356>QW'm UNITS MM
{]E+~%Va FDVcow*] n WAVELENGTHS 450 550 633 NM
Jrg2/ee,* (q{Ck#+ MEDIA
6)vSG7Ise 1.5 1.5 1.5 'GLASS'
9uRF nzJVx PQK(0iCo4 COATING PROPERTIES
]4R[<<hd !! wavelength1 R T wavelength2 R T wavelength3 R T 'name'
\[gReaI 1 0 1 0 1 0 'REFLECT'
QmLF[\Oo_ 0 1 0 1 0 1 'TRANSMIT'
F1jglH/MF) 0 1 1 0 1 0 'SPLITTER1'
GP&vLt51 0 0 1 0 0 1 'SPLITTER2'
r *$Ner 1 0 0 1 0 1 'SPLITTER3'
Z^]|o<.<I 0 1 0 1 1 0 'SPLITTER4'
$aN-Y?U% *uo'VJI7_, !! GEOMETRY CONSTRUCTION
= M]iIWQ@` g.'yZvaP DEL=10 !! DISTANCE BETWEEN THE LCD AND LENSES
n| b5? 3 z)z{3rR|PW !!___________________________________________________
5aln>1x>hn !! PARABOLIC REFLECTOR
$BFvF
,n Q$:! [}[( RAD=12.5 !! RADIUS OF CURVATURE OF PARABOLIC REFLECTOR
EL8NZ%:v: XAPE=60 !! FULL APERTURE IN X-DIRECTION
&v"3*.org@ YAPE=60 !! FULL APERTURE IN Y-DIRECTION
G:pEE:W[ ZPOS=-12.5/2-50 !! Z-AXIS POSITION OF THE REFLECTOR
W
D
T]! YPOS=0 !! Y-AXIS POSITION OF THE REFLECTOR
:WSDf VX tID%}Z v SURFACE
u%]shm OPTICAL Z 0 (RAD) -1 ELLIPSE (XAPE/2) (YAPE/2)
c)A {p OBJECT 'LAMP_REFLECTOR'
W?eu!wL#p INTERFACE COAT REFLECT AIR AIR
rg{ 9UVj SHIFT 0 (YPOS) (ZPOS)
={5#fgK> rA s ,X !!___________________________________________________
%H]lGN) !! LENS ARRAY
Q %w Y !! ASSUME FIVE BY FIVE ARRAY OF IDEAL LENSES
vfl5Mx4 6_d.Yfbq LXAPE=10 !! LENSLET X-DIRECTION FULL APERTURE
e.@uhB. LYAPE=10 !! LENSLET X-DIRECTION FULL APERTURE
7UL qo>j FLA1=50 !! LENSLET FOCAL LENGTH
yv\#8I:qh ZPOS=0
Ux#x#N YPOS=0
e|&6$A>4] ]~6_ WE8L !! USE THE MACRO LANGUAGE TO CREATE 25 IDEAL LENSLETS.
-s|}Rh?Y !! CREATE the lenses as individual objects within a
)u/H>;L P !! nested $DO loop. The only way to nest $DO loops in
u`olW%C/T !! ASAP is to place the inner loop in a macro, and call
- !>}_AH !! that macro from the outer loop.
4<cz--g -0_ d/'d LENSROW {
j6 $DO 1 5
+ J{0 E { LENSES
Hew d4k IDEAL Z 0 (LXAPE/2)
FJ % 1 0 -1/(FLA1) 1
f{"8g"[[)( OBJECT 'LENSLET.?.#1' KAsS [ SHIFT (LXAPE*(?-1)) (LYAPE*(#1-1)) 0
&q`q4g&7 RETURN }
2MATpV#BT }
{0;3W7 w,O,W[C $DO 1 5
s TOa $LENSROW ?
Z0`T\ay +uBLk0/)> GROUP -25
P\]B< SHIFT (-2*LXAPE) (-2*LYAPE+YPOS) (ZPOS)
