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

CLOSE WINDOW k]?M^jrm  
DELETEMFO ALL GO0Spf_Gh  
W = 5 ['~j1!/;6  
K= 20 `2`Nu:r^  
sample = 80 Rj6:.KEJ  
SYSP 11, W*6   tVVnQX  
SYSP 12, 1 v0hr~1  
apod_factor =1/POWER((1/3),1) <q|IP_  
SYSP 13, apod_factor ]4~- z3=y  
FOR I, 1, sample+1, 1 ,Fo7E  
INSERTMFO I X{KWBk.1  
SETOPERAND I, 11, “REAY” !_0kn6S5  
SETOPERAND I, 9, 1 /xf4*zr  
norm_pupil_coord = I/sample m| 8%%E}d  
X= norm_ pupil_coord*W*3 4bXAA9"  
# Un-normilized pupil coordinate BMPLL2I  
S= K*SQRT(1-EXPE(-2*POWER(X,2)/POWER(W,2))) `~|8eKFq!  
#same as the final equation in the article HgL*/d  
SETOPERAND I, 8, -S 0w^\sf%s  
# set target. Positive input #coordinatehas negative \;AW/&Ea  
# output coordinate (positive lens) thusthe negative sign n.zVCKNH  
SETOPERAND I, 7, norm_pupil_coord !#cZ!  
# Set Py column of the operand xHEkmL`)4  
SETOPERAND I, 2, NSUR() Y^5X>  
# specify the image surface for the REAYvalue calculation 2_Me 4  
NEXT d.y2`w
T  
OPTIMIZE r"#h6lYK&  
UPDATE ALL # Update all windows Q|eRek  
END