请问这是一段在zemax环境下写的宏程序吗？

CLOSE WINDOW c2b6B.4  
DELETEMFO ALL &|z544  
W = 5 J%r7<y\  
K= 20 >_#)3K1y8  
sample = 80 _O52ai><b  
SYSP 11, W*6   x*mc -&N  
SYSP 12, 1 T8q[7Zn  
apod_factor =1/POWER((1/3),1) Z% Z"VoxH  
SYSP 13, apod_factor 8xo;E=`   
FOR I, 1, sample+1, 1 O
LFt;h  
INSERTMFO I @aB9%An1  
SETOPERAND I, 11, “REAY” $
5/\Z  
SETOPERAND I, 9, 1 n2na9dX)w  
norm_pupil_coord = I/sample
T{ nQjYb?  
X= norm_ pupil_coord*W*3 %<S7  
# Un-normilized pupil coordinate XIN5a~[z*  
S= K*SQRT(1-EXPE(-2*POWER(X,2)/POWER(W,2))) FH -p!4+]  
#same as the final equation in the article tMG@K  
SETOPERAND I, 8, -S lQr6;D}+  
# set target. Positive input #coordinatehas negative b3^R,6]x&  
# output coordinate (positive lens) thusthe negative sign B?TpBd  
SETOPERAND I, 7, norm_pupil_coord El1:?4;  
# Set Py column of the operand le2/Zs$  
SETOPERAND I, 2, NSUR() 8DL hk  
# specify the image surface for the REAYvalue calculation I3ho(Kdi
  
NEXT 6BPAux.]  
OPTIMIZE F(G<*lA  
UPDATE ALL # Update all windows T:@7S  
END