哪位朋友可以帮忙指点一下：
ASAP宏语言中，#后面加数字（比如#0）是什么意思？如下面
程序中黄色背景部分语言。谢谢~
+z D'r5 6g"<i}_| SYSTEM NEW
>1~`tP RESET
h]Oplp4 \W ?8, N4T0) $IO LIBRARY
LCD !! ASSIGNS LCD.LIB AS THE LIBRARY FILE
cLU*Tx\ -$)Et | ARROWS OFF
if}]8 UNITS MM
*i{.@RX? zrew:5*uZ WAVELENGTHS 450 550 633 NM
U9 5 9=e cA%U MEDIA
VjqdKQeVq 1.5 1.5 1.5 'GLASS'
BLH=:zb5 U(N$ 6{i_ COATING PROPERTIES
8e@JvAaa$ !! wavelength1 R T wavelength2 R T wavelength3 R T 'name'
Qyjuzfmz 1 0 1 0 1 0 'REFLECT'
5l xq-E3 0 1 0 1 0 1 'TRANSMIT'
+=h!?<*C8 0 1 1 0 1 0 'SPLITTER1'
G z XP 0 0 1 0 0 1 'SPLITTER2'
%~ 5Q^3$O 1 0 0 1 0 1 'SPLITTER3'
`fkri k 0 1 0 1 1 0 'SPLITTER4'
t lERis V
3]p3 !! GEOMETRY CONSTRUCTION
3=l-jGJk qE72(#:R* DEL=10 !! DISTANCE BETWEEN THE LCD AND LENSES
erP>P &i Otw0E !!___________________________________________________
(<C%5xk !! PARABOLIC REFLECTOR
vEe E
E|zY% RAD=12.5 !! RADIUS OF CURVATURE OF PARABOLIC REFLECTOR
_~nex,;r XAPE=60 !! FULL APERTURE IN X-DIRECTION
k6-n.Rl01 YAPE=60 !! FULL APERTURE IN Y-DIRECTION
4@e!D Du ZPOS=-12.5/2-50 !! Z-AXIS POSITION OF THE REFLECTOR
];d:z[\P YPOS=0 !! Y-AXIS POSITION OF THE REFLECTOR
N#)VD\m $ l;tP SURFACE
7=.Vq C^ OPTICAL Z 0 (RAD) -1 ELLIPSE (XAPE/2) (YAPE/2)
j& o+ KV OBJECT 'LAMP_REFLECTOR'
ePpK+E[0Z INTERFACE COAT REFLECT AIR AIR
;]M67ma7C SHIFT 0 (YPOS) (ZPOS)
thPH_DW>eb px>> ]>ZMH !!___________________________________________________
JGDUC b~ !! LENS ARRAY
=Xjuz:9D~ !! ASSUME FIVE BY FIVE ARRAY OF IDEAL LENSES
'HWgvmw( !(_xu{(DL LXAPE=10 !! LENSLET X-DIRECTION FULL APERTURE
H8BO*8} LYAPE=10 !! LENSLET X-DIRECTION FULL APERTURE
j' *p FLA1=50 !! LENSLET FOCAL LENGTH
K^vp(2 ZPOS=0
Kc[u}
. U YPOS=0
'}`hY1v 0*;9CH=BE !! USE THE MACRO LANGUAGE TO CREATE 25 IDEAL LENSLETS.
:
|*,Lwvd !! CREATE the lenses as individual objects within a
P>T*:!s ; !! nested $DO loop. The only way to nest $DO loops in
@!a]qAt !! ASAP is to place the inner loop in a macro, and call
/ N ]Ow !! that macro from the outer loop.
Mr NOcx& 5652'p LENSROW {
inv{dg/2 $DO 1 5
+Q!xEfpO; { LENSES
y[WYH5 &DJ IDEAL Z 0 (LXAPE/2)
TnBG MI,g' 1 0 -1/(FLA1) 1
vx5o
k1UY OBJECT 'LENSLET.?.#1' txfwLqx SHIFT (LXAPE*(?-1)) (LYAPE*(#1-1)) 0
)]b@eGNGj RETURN }
`? o1cf A
}
mz VuQ y5Wqu9C\Io $DO 1 5
ckjVa\ $LENSROW ?
;Q>3N ( 7YXXkdgbd GROUP -25
?tC}M;~ SHIFT (-2*LXAPE) (-2*LYAPE+YPOS) (ZPOS)
