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

CLOSE WINDOW or qL0i  
DELETEMFO ALL XVfw0-O  
W = 5 B{tROuN<  
K= 20 *8Kx y@  
sample = 80 7R7e3p,K  
SYSP 11, W*6   y2M]z:Y U  
SYSP 12, 1 up!54}
qy  
apod_factor =1/POWER((1/3),1) A4{p(MS5  
SYSP 13, apod_factor OPuty/^!Gw  
FOR I, 1, sample+1, 1 KX
f(v4  
INSERTMFO I Zg&o][T  
SETOPERAND I, 11, “REAY” jB"IJ$cD  
SETOPERAND I, 9, 1 hX)PdRk#  
norm_pupil_coord = I/sample V\nj7Gr:sF  
X= norm_ pupil_coord*W*3 t2LX@Q"  
# Un-normilized pupil coordinate -P:o ^_)g  
S= K*SQRT(1-EXPE(-2*POWER(X,2)/POWER(W,2))) XGb*LY+Db6  
#same as the final equation in the article Tf40lv+{  
SETOPERAND I, 8, -S BZOB\Ym  
# set target. Positive input #coordinatehas negative z'01V8e  
# output coordinate (positive lens) thusthe negative sign :|%1i>O  
SETOPERAND I, 7, norm_pupil_coord 6L<QKE=  
# Set Py column of the operand /hS
Em.<  
SETOPERAND I, 2, NSUR() 1|dXbyUd  
# specify the image surface for the REAYvalue calculation \7PC2IsT3  
NEXT @]YEOk-  
OPTIMIZE 
F4]=(T  
UPDATE ALL # Update all windows B|K^:LUk9  
END