ZPL中引用OPT操作数

这是自己本身在学习过程中遇到问题的一些解决办法的总结，主要是记录在ZPL的Marco中引用OPT的操作数，使之可以在Marco的运算框内查看对比数据。

这样的迭代引用，比较容易看出一些不好设置，不好界定的OPT中的评价函数；尤其是需要设定密集数据采样的时候。

先PO代码

!
!   使用Marco对系统某个面型的的入射角进行分析
!   需要输入面型的序号
!   Jerome  25/07/2018
!

print ""
Surf_num = NSUR()
wave = PWAV()
format 6.5
print "系统共有 ", Surf_num, " 个面；"
print "系统的主波长为 ", WAVL(PWAV()), " um"

label 1
input "请输入需要查看第几个面的光线入射角 ", I

label 2
sample = 10

if I > NSUR() THEN GOTO 1

for X, 1, sample, 1 
    py = X / sample
    RAYTRACE 0, 0, 0, py
    C = OCOD("RAID")
    Angle_in = OPEV(C, I, wave, 0, 0, 0, py)
    print "归一化孔径下，孔径为", py, "时，入射角为", Angle_in
NEXT

for X, 1, sample, 1 
    hy = X / sample
    RAYTRACE 0, hy, 0, 0
    C = OCOD("RAID")
    Angle_in = OPEV(C, I, wave, 0, 0, 0, py)
    print "归一化视场角下，视场角为", hy, "时，入射角为", Angle_in
NEXT

print "ALL DONE!!!"
END

这个当中主要引用到的ZPL的函数是OCOD和OPEV
OCOD主要是用来引入ZEMAX的OPT函数进入Marco，作为桥梁的作用。

OCOD：
Any string variable or literal that is the name of a Optic Studio optimization operand;
The optimization operand code number used by the OPEV function.

OCOD的用法是OCOD(OPT)

OPEV主要是用来进行OPT在Marco中的计算，作为计算主体。

OPEV
Code is the optimization operand code (see function OCOD), and int1-int2, and data1-data4 are the defining values for the operand. See “Optimization operands”.

Computes the same value as any optimization operand would, without the need to add the operand to the merit function. This is useful for computing numbers already available from the optimization operands. For example, to compute the EFL from the EFFL operand use this code:
C = OCOD("EFFL")
E = OPEV(C, 0, 1, 0, 0, 0, 0)
这段代码的意思是，计算EFFL，在第0个面，第1个波长，Hx，Hy，Px，Py都是0.
See also OPER, OCOD,MFCN and keyword SETOPERAND.
Some optimization operands, such as OPGT, only make sense when taken in the context of other operands.
OPEV will only work for operands that do not depend upon the presence of prior operands. See also OPEW below.

OPEV的用法是： OPEV(code, int1, int2, data1, data2, data3, data4)

使用OCOD及OPEV可以完美实现Macro中调用OPT函数。

转载请联系作者。