Any Ocean scripts available for calculating eye opening?

Is there any Ocean scripts available for calculating eye opening?
Thanks!

Tao

 

Since no answer, I wrote one. Let me know if you find any bugs.

procedure( eyeOpening(wf startTime stopTime cycleLength timeStep)
; eye-openning calculation.
; T. Chen, 03/21/2007

let( (maxFinal minFinal maxValue minValue tCycle tp pt)
maxFinal=-1M
minFinal=1M

tCycle=timeStep
while( (tCycle<cycleLength)
maxValue=1M
minValue=-1M
tp=startTime+tCycle
while( (tp<=stopTime)
pt=value(wf, tp)
if(pt>0.0 then
when(pt<maxValue maxValue=pt)
else
when(pt>minValue minValue=pt)
)
tp=tp+cycleLength
)

if(maxFinal<maxValue then
maxFinal=maxValue
)
if(minFinal>minValue then
minFinal=minValue
)

tCycle=tCycle+timeStep
)

maxFinal-minFinal
); let
); procedure

 

In IC610, the eyeDiagram calculator function has an ?advOptions (advance
options) which allows the horizontal or vertical eye opening to be calculated.
See the Wavescan User Guide and the OCEAN Reference for more details.

Regards,

Andrew.