WR6K-OM-E Rev A
ISSUED: October 2003
263
endData = OutResult.Samples
LastPoint = endData - 1 ' because the last point is invisible.
ReDim newArray(OutResult.Samples) ' to store the results
unscaledData = InResult.DataArray(False)
' 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
Summary of Contents for 6000 SERIES
Page 65: ...WR6K OM E Rev A ISSUED October 2003 63 Proper Orientation of Drive ...
Page 131: ...WR6K OM E Rev A ISSUED October 2003 129 Example ...
Page 141: ...WR6K OM E Rev A ISSUED October 2003 139 ...
Page 236: ...Operator s Manual 234 ISSUED October 2003 WR6K OM E Rev A Example 6 ...
Page 261: ...WR6K OM E Rev A ISSUED October 2003 259 ...
Page 286: ...Operator s Manual 284 ISSUED October 2003 WR6K OM E Rev A ...
Page 304: ...Operator s Manual 302 ISSUED October 2003 WR6K OM E Rev A ...
Page 307: ...WR6K OM E Rev A ISSUED October 2003 305 Convolve two signals ...
Page 348: ...Operator s Manual 346 ISSUED October 2003 WR6K OM E Rev A ...
Page 402: ...Operator s Manual 400 ISSUED October 2003 WR6K OM E Rev A ...