Teledyne LeCroy X-STREAM OSCILLOSCOPES Remote Control - Manual (Page 200)

P A R T T W O : C O M M A N D S
194
ISSUED: February 2005 WM-RCM-E Rev D
EXAMPLE RESPONSE to PACU? 1 where Parameter 1 is a script –
PACU 1,PARAMSCRIPT,C1,VBSCRIPT,FUNCTION UPDATE()
TRACELENGTH = INRESULT.SAMPLES
INDATA = INRESULT.DATAARRAY
YTOTAL = 0
XYTOTAL = 0
FOR K = 0 TO TRACELENGTH - 1
Y = INDATA(K) : YY = Y * Y
YTOTAL = YTOTAL + YY
XYTOTAL = XYTOTAL + K * YY
NEXT
OUTRESULT.VALUE = XYTOTAL / YTOTAL
END FUNCTION