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

CLOSE WINDOW $qR@;=  
DELETEMFO ALL Q$Sp'  
W = 5 G4\|bwh  
K= 20 l,UOP[j  
sample = 80 E<@N4%K_Q  
SYSP 11, W*6   R}D[ z7  
SYSP 12, 1 ]\/"-Y#4Q  
apod_factor =1/POWER((1/3),1) n.G.fbO  
SYSP 13, apod_factor qCF&o7*oN  
FOR I, 1, sample+1, 1 Tsdgg?#  
INSERTMFO I
{f;DhB-jj  
SETOPERAND I, 11, “REAY” mH)8A+us  
SETOPERAND I, 9, 1 UMK9[Iy$<M  
norm_pupil_coord = I/sample Bc'Mj=>;  
X= norm_ pupil_coord*W*3 xZVZYvC,t  
# Un-normilized pupil coordinate i*T -9IP  
S= K*SQRT(1-EXPE(-2*POWER(X,2)/POWER(W,2))) ^-"tK:{  
#same as the final equation in the article SErh"~[  
SETOPERAND I, 8, -S NIp]n[=.q  
# set target. Positive input #coordinatehas negative tY#Zl 54~{  
# output coordinate (positive lens) thusthe negative sign ^E".`~R  
SETOPERAND I, 7, norm_pupil_coord >1` '5A}s  
# Set Py column of the operand E,Xl8rC  
SETOPERAND I, 2, NSUR() ('o}EoXS  
# specify the image surface for the REAYvalue calculation w
U"
w  
NEXT b)r;a5"<5  
OPTIMIZE n"@){:{4?  
UPDATE ALL # Update all windows @S6@pMo,  
END