LeCroy WaveMaster 8600A

X-Stream Operator’s Manual
WM-OM-E Rev I 285
' InResult.DataArray(False) provides
' integer data from -32768 to 32767.
' InResult.DataArray(True) provides real data
' in the same physical unit as the vertical scale of the input trace.
ScaleFactor = 1.0 / 32768 ' to make the trace fill the screen.
For i = 0 To LastPoint
newArray(i) = ScaleFactor * (unscaledData(i)) ^ 2
Next
OutResult.DataArray(False) = newArray ' signed long integer data output
Example Parameter Function Script: RMS of a waveform
' Example script to produce a parameter.
' This script calculates the root mean square
' of the input waveform.
' Note that a trace of nominal length 1000 has data from
' 0 to 1001. The 1001st point is not visible, so you
' normally use points 0 to 1000,
' giving 1001 points and 1000 intervals between points.
startData = 0
endData = InResult.Samples
LastPoint = endData - 1 ' because the last point is invisible.
ReDim newArray(InResult.Samples) ' to store the results
unscaledData = InResult.DataArray(True)
' InResult.DataArray(False) provides
' integer data from -32768 to 32767.
' InResult.DataArray(True) provides real data
' in the same unit as the vertical scale of the trace.
Total = 0
For i = 0 To LastPoint
Total = Total + (unscaledData(i)) ^ 2
Next
NewArray(0) = Sqr (Total / (LastPoint + 1)) Place the result in the zeroth