哪位朋友可以帮忙指点一下：
ASAP宏语言中，#后面加数字（比如#0）是什么意思？如下面
程序中黄色背景部分语言。谢谢~
!G\1$"T$ 5 Nl>4d` SYSTEM NEW
5uDQ* nJ| RESET
S_?}H He#+zE ; $IO LIBRARY
LCD !! ASSIGNS LCD.LIB AS THE LIBRARY FILE
zXcSE" ((.PPOdJV ARROWS OFF
LYWQqxB UNITS MM
s4~c>voQB 14oD^`-t WAVELENGTHS 450 550 633 NM
(5km]`7z {y<_S]0 MEDIA
eWwSD#N# 1.5 1.5 1.5 'GLASS'
f$2lq4P{ ),M8W15 COATING PROPERTIES
zc/S !! wavelength1 R T wavelength2 R T wavelength3 R T 'name'
^4s#nf:} 1 0 1 0 1 0 'REFLECT'
ReSP)%oW 0 1 0 1 0 1 'TRANSMIT'
50_%Tl[ 0 1 1 0 1 0 'SPLITTER1'
q#OLb"bTr 0 0 1 0 0 1 'SPLITTER2'
NKGo E/ 1 0 0 1 0 1 'SPLITTER3'
(B$2)yZY 0 1 0 1 1 0 'SPLITTER4'
AqN(htGvx _;'}P2&Q !! GEOMETRY CONSTRUCTION
1ed#nB % _9L2JN$R6 DEL=10 !! DISTANCE BETWEEN THE LCD AND LENSES
vja^ O
x!I7vs~~zW !!___________________________________________________
ge[\% !! PARABOLIC REFLECTOR
vtL) $Q47>/CUc^ RAD=12.5 !! RADIUS OF CURVATURE OF PARABOLIC REFLECTOR
bzUc;&WDz XAPE=60 !! FULL APERTURE IN X-DIRECTION
PicO3m YAPE=60 !! FULL APERTURE IN Y-DIRECTION
q/4PX ZPOS=-12.5/2-50 !! Z-AXIS POSITION OF THE REFLECTOR
c!kbHZ<Z YPOS=0 !! Y-AXIS POSITION OF THE REFLECTOR
X_%78$N-a` g{<3*, SURFACE
|W#^L`!G OPTICAL Z 0 (RAD) -1 ELLIPSE (XAPE/2) (YAPE/2)
oxGOn(' OBJECT 'LAMP_REFLECTOR'
Ma{|+\Q.Z INTERFACE COAT REFLECT AIR AIR
pdtK3Pf SHIFT 0 (YPOS) (ZPOS)
WBC' ~ h<@ B623B HwS !!___________________________________________________
w7dG=a& !! LENS ARRAY
DbOWnXV "o !! ASSUME FIVE BY FIVE ARRAY OF IDEAL LENSES
,j5fzA :=~([oSNW" LXAPE=10 !! LENSLET X-DIRECTION FULL APERTURE
?+5K2Zk LYAPE=10 !! LENSLET X-DIRECTION FULL APERTURE
u !g <y FLA1=50 !! LENSLET FOCAL LENGTH
J+z0,N[ ZPOS=0
8 dL(c C YPOS=0
H 5sj%
v { 0Leua !! USE THE MACRO LANGUAGE TO CREATE 25 IDEAL LENSLETS.
g VZ~OcB!W !! CREATE the lenses as individual objects within a
)0UQy#r !! nested $DO loop. The only way to nest $DO loops in
["@K~my~D* !! ASAP is to place the inner loop in a macro, and call
Rjh/M`| !! that macro from the outer loop.
Rl 6E Gc
SX5c LENSROW {
rJ<v1Yb $DO 1 5
L#NPt4Sz+ { LENSES
uV%7 |/fD IDEAL Z 0 (LXAPE/2)
$e<3z6 1 0 -1/(FLA1) 1
r--"JO%2 OBJECT 'LENSLET.?.#1' ;itz` 9T SHIFT (LXAPE*(?-1)) (LYAPE*(#1-1)) 0
jfgAI7;b RETURN }
g{a_ {P }
>TtkG|/U-T #kV= ;(lq $DO 1 5
jUjQ{eT $LENSROW ?
K3\U'bRO ii~~xt1 GROUP -25
r! #a. SHIFT (-2*LXAPE) (-2*LYAPE+YPOS) (ZPOS)
