Campbell Scientific AVW200 AVW200-series Vibrating Wire Interfaces - Page 94

Appendix H., Additional Programming Examples, Sample 16, Sig2Noise2, FP2

Get Campbell Scientific AVW200 PDF manuals and user guides View all Campbell Scientific AVW200 manuals
Add to My Manuals
Save this manual to your list of manuals

Page 94 highlights

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) coeficients listed in CoefString1 to individual variables Next i 'Assign H-2

  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10
  • 11
  • 12
  • 13
  • 14
  • 15
  • 16
  • 17
  • 18
  • 19
  • 20
  • 21
  • 22
  • 23
  • 24
  • 25
  • 26
  • 27
  • 28
  • 29
  • 30
  • 31
  • 32
  • 33
  • 34
  • 35
  • 36
  • 37
  • 38
  • 39
  • 40
  • 41
  • 42
  • 43
  • 44
  • 45
  • 46
  • 47
  • 48
  • 49
  • 50
  • 51
  • 52
  • 53
  • 54
  • 55
  • 56
  • 57
  • 58
  • 59
  • 60
  • 61
  • 62
  • 63
  • 64
  • 65
  • 66
  • 67
  • 68
  • 69
  • 70
  • 71
  • 72
  • 73
  • 74
  • 75
  • 76
  • 77
  • 78
  • 79
  • 80
  • 81
  • 82
  • 83
  • 84
  • 85
  • 86
  • 87
  • 88
  • 89
  • 90
  • 91
  • 92
  • 93
  • 94
  • 95
  • 96
  • 97
  • 98
  • 99
  • 100
  • 101
  • 102
  • 103
  • 104
  • 105
  • 106
  • 107
  • 108
  • 109
  • 110
  • 111
  • 112
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