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

CLOSE WINDOW Oc~<
`C~  
DELETEMFO ALL 9XUYy2{G  
W = 5 r,|}^u8`  
K= 20 z xgDaT  
sample = 80 e}gGl<((g  
SYSP 11, W*6   U0|wC,7"  
SYSP 12, 1 Cjt].XR@  
apod_factor =1/POWER((1/3),1) mr>E'd.'  
SYSP 13, apod_factor 9-#=xE9'U  
FOR I, 1, sample+1, 1 DbI)tDi5D  
INSERTMFO I JWM4S4yZHR  
SETOPERAND I, 11, “REAY” U2Siw  
SETOPERAND I, 9, 1 UM1h[#?&V)  
norm_pupil_coord = I/sample \Pfm
>$Ib=  
X= norm_ pupil_coord*W*3 j0cB#M44  
# Un-normilized pupil coordinate $W;r S7b  
S= K*SQRT(1-EXPE(-2*POWER(X,2)/POWER(W,2))) kt
Y  
#same as the final equation in the article c[6<UkH7  
SETOPERAND I, 8, -S _B&;z $  
# set target. Positive input #coordinatehas negative ?S)Pv53>}  
# output coordinate (positive lens) thusthe negative sign nFwg pT  
SETOPERAND I, 7, norm_pupil_coord w$qdV,s 7  
# Set Py column of the operand BMzS3;1_  
SETOPERAND I, 2, NSUR()  fs
KZ  
# specify the image surface for the REAYvalue calculation !':y8(Ou  
NEXT MA=gCG/JD  
OPTIMIZE )x,-O#"A  
UPDATE ALL # Update all windows y7b>>|C  
END