Manual

P ART T WO : COMMANDS
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