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

CLOSE WINDOW u y13SkW  
DELETEMFO ALL 50Ov>(f@7  
W = 5 nCLEAe$W\=  
K= 20 WS\Ir-B  
sample = 80 L1MG("R  
SYSP 11, W*6   D0X!j,Kc  
SYSP 12, 1 6&"GTK  
apod_factor =1/POWER((1/3),1) I(qFIV+HR  
SYSP 13, apod_factor whQJWi=ck  
FOR I, 1, sample+1, 1 :;w#l"e7<  
INSERTMFO I .|KBQMI  
SETOPERAND I, 11, “REAY” $OaxetPH  
SETOPERAND I, 9, 1 Wfsd$kN6{  
norm_pupil_coord = I/sample d*LW32B@  
X= norm_ pupil_coord*W*3 !{b4+!@p  
# Un-normilized pupil coordinate ;esOe\zjE  
S= K*SQRT(1-EXPE(-2*POWER(X,2)/POWER(W,2))) |}o3EX  
#same as the final equation in the article Upz?x{>x  
SETOPERAND I, 8, -S Oh,]"(+  
# set target. Positive input #coordinatehas negative }`+9ie7]/  
# output coordinate (positive lens) thusthe negative sign ZDmY${J  
SETOPERAND I, 7, norm_pupil_coord :c9 H2  
# Set Py column of the operand 4i+H(d n  
SETOPERAND I, 2, NSUR() m-<m[49  
# specify the image surface for the REAYvalue calculation pz

eCdHF  
NEXT !9_'_8  
OPTIMIZE 2u(G:cR  
UPDATE ALL # Update all windows vywpX^KPv  
END