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

CLOSE WINDOW 8<X#f !  
DELETEMFO ALL '~5LY!H(pT  
W = 5 r+A{JHnN  
K= 20 4w*Skl=F}  
sample = 80 <^&ehy:7y  
SYSP 11, W*6   GzhYY"iif#  
SYSP 12, 1 i6^twK)j  
apod_factor =1/POWER((1/3),1) `#rL*;\uV  
SYSP 13, apod_factor
zwhe  
FOR I, 1, sample+1, 1 k Z?=AXu  
INSERTMFO I abuh
`H#  
SETOPERAND I, 11, “REAY” N(;1o.~  
SETOPERAND I, 9, 1 HJ9Kz^TnC  
norm_pupil_coord = I/sample m4**~xfC  
X= norm_ pupil_coord*W*3 \d6C%S!  
# Un-normilized pupil coordinate v&9y4\j  
S= K*SQRT(1-EXPE(-2*POWER(X,2)/POWER(W,2))) vmU@^2JSJ  
#same as the final equation in the article )F}F_Y  
SETOPERAND I, 8, -S Dt}JG6S  
# set target. Positive input #coordinatehas negative `tBgH_$M  
# output coordinate (positive lens) thusthe negative sign FEW14U'O  
SETOPERAND I, 7, norm_pupil_coord qU+t/C.  
# Set Py column of the operand N@2dA*T,  
SETOPERAND I, 2, NSUR() +NeOSQSj  
# specify the image surface for the REAYvalue calculation (jnQ -  
NEXT X.OD`.!>  
OPTIMIZE {>}!+k -`  
UPDATE ALL # Update all windows B~6&{7xc%  
END