哪位朋友可以帮忙指点一下：
ASAP宏语言中，#后面加数字（比如#0）是什么意思？如下面
程序中黄色背景部分语言。谢谢~
o[KZm 17 +j F |8 SYSTEM NEW
@ :CM< + RESET
#Swc >jYc ^cPVnl $IO LIBRARY
LCD !! ASSIGNS LCD.LIB AS THE LIBRARY FILE
=TEe: %mN h9m|f|cH ARROWS OFF
;0m J4G UNITS MM
9Cd/SlNV2 tik*[1it WAVELENGTHS 450 550 633 NM
Peph..8 Z T5}3Y3G,6 MEDIA
-E6av|c,F 1.5 1.5 1.5 'GLASS'
>H;m [ 46)[F0,$r COATING PROPERTIES
-6-rX D !! wavelength1 R T wavelength2 R T wavelength3 R T 'name'
) q'D9x9 1 0 1 0 1 0 'REFLECT'
nHbi{, 3 0 1 0 1 0 1 'TRANSMIT'
wxK71OH 0 1 1 0 1 0 'SPLITTER1'
%Bm{ctf#) 0 0 1 0 0 1 'SPLITTER2'
+-;v+{ 1 0 0 1 0 1 'SPLITTER3'
.?g=mh79( 0 1 0 1 1 0 'SPLITTER4'
"2C}Pr ,p8 d_$0 !! GEOMETRY CONSTRUCTION
Lct_6?
[>GblL DEL=10 !! DISTANCE BETWEEN THE LCD AND LENSES
f2gh|p` nT=%3_. !!___________________________________________________
%KO8 i)n !! PARABOLIC REFLECTOR
~ u1~% {~51h}>b# RAD=12.5 !! RADIUS OF CURVATURE OF PARABOLIC REFLECTOR
]!S#[Wt {k XAPE=60 !! FULL APERTURE IN X-DIRECTION
0&NM=~ YAPE=60 !! FULL APERTURE IN Y-DIRECTION
y~]D402Cx ZPOS=-12.5/2-50 !! Z-AXIS POSITION OF THE REFLECTOR
r,IekFBs YPOS=0 !! Y-AXIS POSITION OF THE REFLECTOR
y'2w*? YY tVp_) SURFACE
2l V`UIa OPTICAL Z 0 (RAD) -1 ELLIPSE (XAPE/2) (YAPE/2)
@+M1M 2@Xz OBJECT 'LAMP_REFLECTOR'
+|S)Mm8- INTERFACE COAT REFLECT AIR AIR
:n~Mg{j3 SHIFT 0 (YPOS) (ZPOS)
DC>?e[oOz I&15[:b=- !!___________________________________________________
em JZ+:% !! LENS ARRAY
`R
(N3 !! ASSUME FIVE BY FIVE ARRAY OF IDEAL LENSES
In%FOPO [?<v |k
LXAPE=10 !! LENSLET X-DIRECTION FULL APERTURE
YSB> WBS-< LYAPE=10 !! LENSLET X-DIRECTION FULL APERTURE
n=d#Fm0< FLA1=50 !! LENSLET FOCAL LENGTH
3_;=y\F ZPOS=0
{c?{M.R YPOS=0
zBTxM h){ #dU+& !! USE THE MACRO LANGUAGE TO CREATE 25 IDEAL LENSLETS.
?S=y>b9R !! CREATE the lenses as individual objects within a
X0ugnQ6 !! nested $DO loop. The only way to nest $DO loops in
*j,noHUT~> !! ASAP is to place the inner loop in a macro, and call
"S{GjOlEDF !! that macro from the outer loop.
&=%M("IlD T<nK/lp1t LENSROW {
^o Ds*F $DO 1 5
!T)_(}|6} { LENSES
' '9K(p6 IDEAL Z 0 (LXAPE/2)
ixM#|Yq 1 0 -1/(FLA1) 1
rFC9y o OBJECT 'LENSLET.?.#1' h 8M}} SHIFT (LXAPE*(?-1)) (LYAPE*(#1-1)) 0
Tp~Qg{%Og RETURN }
4s>L]!
W$8 }
JT6Be8
&?@U_emLi $DO 1 5
4M>]0%3.D $LENSROW ?
kW%wt1", (NnE\2 GROUP -25
)<'2 vpz SHIFT (-2*LXAPE) (-2*LYAPE+YPOS) (ZPOS)
