Campbell-scientific AVW200-series Vibrating Wire Interfaces Manuale Utente Scaricare il pdf (Pagina 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

Commenti su questo manuale

Nessun commento

Campbell-scientific AVW200-series Vibrating Wire Interfaces Manuale Utente Pagina 94

Commenti su questo manuale

Prodotti e manuali riguardandi Strumenti di misura Campbell-scientific AVW200-series Vibrating Wire Interfaces