Campbell-scientific AVW200-series Vibrating Wire Interfaces Manuel d'utilisateur télécharger pdf (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

1 2 ... 89 90 91 92 93 94 95 96 97 98 99 ... 111 112

Commentaires sur ces manuels

Pas de commentaire

Campbell-scientific AVW200-series Vibrating Wire Interfaces Manuel d'utilisateur Page 94

Commentaires sur ces manuels

Produits connexes et manuels pour Instruments de mesure Campbell-scientific AVW200-series Vibrating Wire Interfaces