Campbell Scientific AVW200-series Vibrating Wire Interfaces - Manual (Page 94)

Appendix H. Additional Programming Examples
Sample (16,Displacement2(),FP2)
Sample (16,VWfreq2(),FP2)
Sample (16,Temp2(),FP2)
Sample (16,Amp2(),FP2)
Sample (16,Sig2Noise2(),FP2)
Sample (16,FreqOfNoise2(),FP2)
Sample (16,DecayRatio2(),FP2)
EndTable
BeginProg
SerialOpen (COMRS232,38400,0,0,10000)
'Enter the 3 Polynomial Gage Factors for each sensor as listed on each Calibration Report
CoefString1(1) = "2.49866e-10, 8.716e-5, -0.20003"
CoefString1(2) = "2.56640e-10, 8.762e-5, -0.20437"
CoefString1(3) = "2.93650e-10, 8.715e-5, -0.19679"
CoefString1(4) = "1.99647e-10, 8.868e-5, -0.19430"
CoefString1(5) = "3.41276e-10, 8.777e-5, -0.19042"
CoefString1(6) = "2.30397e-10, 8.720e-5, -0.19085"
Coefstring1(7) = "2.54131e-10, 8.743e-5, -0.19218"
CoefString1(8) = "2.21677e-10, 8.832e-5, -0.20539"
CoefString1(9) = "2.85034e-10, 8.734e-5, -0.19341"
CoefString1(10) = "2.42310e-10, 8.808e-5, -0.19576"
CoefString1(11) = "2.52871e-10, 8.804e-5, -0.19232"
CoefString1(12) = "2.27416e-10, 8.797e-5, -0.19552"
CoefString1(13) = "2.27264e-10, 8.798e-5, -0.19522"
CoefString1(14) = "2.87777e-10, 8.682e-5, -0.20353"
CoefString1(15) = "2.81051e-10, 8.767e-5, -0.19691"
CoefString1(16) = "2.41462e-10, 8.747e-5, -0.19481"
CoefString2(1) = "2.73949e-10, 8.726e-5, -0.20799"
CoefString2(2) = "2.91941e-10, 8.722e-5, -0.20443"
CoefString2(3) = "2.32081e-10, 8.789e-5, -0.20064"
CoefString2(4) = "3.17163e-10, 8.741e-5, -0.19108"
CoefString2(5) = "2.66284e-10, 8.810e-5, -0.19411"
CoefString2(6) = "2.7768e-10, 8.756e-5, -0.19630"
CoefString2(7) = "2.06552e-10, 8.866e-5, -0.20578"
CoefString2(8) = "2.22761e-10, 8.848e-5, -0.20013"
CoefString2(9) = "2.31843e-10, 8.880e-5, -0.19643"
CoefString2(10) = "2.42310e-10, 8.808e-5, -0.19576"
CoefString2(11) = "1.99647e-10, 8.868e-5, -0.19430"
CoefString2(12) = "2.56640e-10, 8.762e-5, -0.20437"
CoefString2(13) = "2.81051e-10, 8.767e-5, -0.19691"
CoefString2(14) = "2.81051e-10, 8.767e-5, -0.19691"
CoefString2(15) = "2.49866e-10, 8.716e-5, -0.20003"
CoefString2(16) = "2.27264e-10, 8.798e-5, -0.19522"
For i = 1 To 16
SplitStr (PolyCoef1(3*i-2),CoefString1(i),",",3,5) 'Assign
coeficients listed in CoefString1 to individual variables
Next i
H-2