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

CLOSE WINDOW _D1Uc|  
DELETEMFO ALL )\s{\u \  
W = 5 x"9`w42\r  
K= 20 s!:'3[7+  
sample = 80 "oz : & #+  
SYSP 11, W*6   ]0p] u d&  
SYSP 12, 1
J$F 1sy  
apod_factor =1/POWER((1/3),1) 5Tag-+  
SYSP 13, apod_factor WWhAm{m  
FOR I, 1, sample+1, 1 84j6.\,  
INSERTMFO I 3q:U0&F  
SETOPERAND I, 11, “REAY” ^hr^f;N  
SETOPERAND I, 9, 1 "Rr)1x7  
norm_pupil_coord = I/sample 4 3V{q  
X= norm_ pupil_coord*W*3 {e~#6.$:  
# Un-normilized pupil coordinate Y&!-VW  
S= K*SQRT(1-EXPE(-2*POWER(X,2)/POWER(W,2))) Rsd~t_a1  
#same as the final equation in the article ~Ap.#VIc'  
SETOPERAND I, 8, -S ^ >JAl<k  
# set target. Positive input #coordinatehas negative td JA?  
# output coordinate (positive lens) thusthe negative sign )
l
g>'O  
SETOPERAND I, 7, norm_pupil_coord /*Iq,"kGz  
# Set Py column of the operand f@yInIzRJ  
SETOPERAND I, 2, NSUR() QiC}hj$  
# specify the image surface for the REAYvalue calculation ##!idcC  
NEXT {P')$f)  
OPTIMIZE yw
Q[>itMa  
UPDATE ALL # Update all windows o|(Ivt7jk  
END