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

CLOSE WINDOW wq72%e  
DELETEMFO ALL \{PNwF?  
W = 5 Hq xK\m%,.  
K= 20 [b`6v`x  
sample = 80 &(O06QL  
SYSP 11, W*6   8wF#e\Va0  
SYSP 12, 1 elbG\qXBp  
apod_factor =1/POWER((1/3),1) 1!/-)1t  
SYSP 13, apod_factor u@D.i4U  
FOR I, 1, sample+1, 1 %ejeyc  
INSERTMFO I H~m]nV,r  
SETOPERAND I, 11, “REAY” #pu}y,QN$  
SETOPERAND I, 9, 1 7c::Qf[|  
norm_pupil_coord = I/sample EUwQIA2c8N  
X= norm_ pupil_coord*W*3 ,h!X k  
# Un-normilized pupil coordinate $^Ca:duk  
S= K*SQRT(1-EXPE(-2*POWER(X,2)/POWER(W,2))) sx-F8:Qa  
#same as the final equation in the article BLW]|p|1:  
SETOPERAND I, 8, -S .Z5[_'T
  
# set target. Positive input #coordinatehas negative UB&2f>  
# output coordinate (positive lens) thusthe negative sign +k rFB?>`  
SETOPERAND I, 7, norm_pupil_coord oEAfowXSqk  
# Set Py column of the operand ^K*-G@B  
SETOPERAND I, 2, NSUR() $,P\)</VR  
# specify the image surface for the REAYvalue calculation ]<X2AO1  
NEXT 46dc.Yi  
OPTIMIZE l;5`0N?QO  
UPDATE ALL # Update all windows Mdky^;qq3;  
END