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

CLOSE WINDOW SQt4v"  
DELETEMFO ALL
=P #]  
W = 5 {o`]I>gb  
K= 20 #"iu|D  
sample = 80 gQ1;],_  
SYSP 11, W*6   ]y
PqLJ  
SYSP 12, 1 ZSd4z:/  
apod_factor =1/POWER((1/3),1) XFV!S#yEZ  
SYSP 13, apod_factor $43qME  
FOR I, 1, sample+1, 1 HBx=\%;n  
INSERTMFO I .z}~4BY  
SETOPERAND I, 11, “REAY” >>fH{/l  
SETOPERAND I, 9, 1 ><HE;cVg?  
norm_pupil_coord = I/sample **gXvTqI  
X= norm_ pupil_coord*W*3 IG9VdDj  
# Un-normilized pupil coordinate %UCr;H/  
S= K*SQRT(1-EXPE(-2*POWER(X,2)/POWER(W,2))) zi*R`;_`,  
#same as the final equation in the article v^iL5y!  
SETOPERAND I, 8, -S 'qX|jtdM  
# set target. Positive input #coordinatehas negative H@8sNV/u  
# output coordinate (positive lens) thusthe negative sign "y/?WQ>,3  
SETOPERAND I, 7, norm_pupil_coord PQ$%H>{  
# Set Py column of the operand ?|B&M\}g  
SETOPERAND I, 2, NSUR() N7 $I^?<  
# specify the image surface for the REAYvalue calculation 2Gaa(rJ5o  
NEXT JKGe"  
OPTIMIZE R2]Z kg  
UPDATE ALL # Update all windows ocS5SB]8  
END