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

Displacement1i=PolyCoef13*i-2*Digits^2 + PolyCoef13*i-1*Digits+ PolyCoef23*i

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 95 highlights

Appendix H. Additional Programming Examples 'Assign coeficients listed in CoefString2 to individual variables For i = 1 To 16 SplitStr (PolyCoef2(3*i-2),CoefString2(i),",",3,5) Next i Scan (2,Min,0,0) PanelTemp (PTemp,250) Battery (Batt_volt) AVW200(VWResults(1),ComRS232,0,15,Mux1(1,1),1,1,16,1000,2500,2,_60Hz,1,0) For i = 1 To 16 Amp1(i) = Mux1(i,2) Therm1(i) = Mux1(i,6) VWFreq1(i) = Mux1(i,1) Sig2Noise1(i) = Mux1(i,3) DecayRatio1(i) = Mux1(i,5) FreqOfNoise1(i) = Mux1(i,4) Digits = (VWFreq1(i)/1000)^2 * 1000 'Convert frequency to Digits 'Convert resistance to temp F. Temp1(i) = (1/(A + B*LN(Therm1(i)) +C*(LN(Therm1(i)))^3)-273.15)*1.8+32 'Calculate displacement (inches) from Digits and calibration polynomial Displacement1(i)=PolyCoef1(3*i-2)*Digits^2 + PolyCoef1(3*i-1)*Digits+ PolyCoef2(3*i) Next i AVW200(VWResults(2),ComRS232,0,15,Mux2(1,1),2,1,8,1000,2500,2,_60Hz,1, 0) AVW200(VWResults(2),ComRS232,0,15,Mux2(9,1),2,9,8,450,6500,2,_60Hz,1,0) For i = 1 To 16 Amp2(i) = Mux1(i,2) Therm2(i) = Mux1(i,6) VWFreq2(i) = Mux1(i,1) Sig2Noise2(i) = Mux1(i,3) DecayRatio2(i) = Mux1(i,5) FreqOfNoise2(i) = Mux1(i,4) Digits = (VWFreq2(i)/1000)^2 * 1000 'Convert frequency to Digits 'Calculate displacement (inches) from Digits and calibration ploynomial Displacement2(i)=PolyCoef2(3*i-2)*Digits^2 + PolyCoef2(3*i-1)*Digits + PolyCoef2(3*i) 'Convert resistance to temp F. Temp2(i) = (1/(A + B*LN(Therm2(i)) + C*(LN(Therm2(i)))^3)-273.15)*1.8+32 Next i CallTable MuxExample NextScan EndProg H-3

  • 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
'Assign coeficients listed in CoefString2 to individual variables
For i = 1 To 16
SplitStr (PolyCoef2(3*i-2),CoefString2(i),",",3,5)
Next i
Scan (2,Min,0,0)
PanelTemp (PTemp,250)
Battery (Batt_volt)
AVW200(VWResults(1),ComRS232,0,15,Mux1(1,1),1,1,16,1000,2500,2,_60Hz,1,0)
For i = 1 To 16
Amp1(i)
= Mux1(i,2)
Therm1(i)
= Mux1(i,6)
VWFreq1(i)
= Mux1(i,1)
Sig2Noise1(i)
= Mux1(i,3)
DecayRatio1(i)
= Mux1(i,5)
FreqOfNoise1(i) = Mux1(i,4)
Digits = (VWFreq1(i)/1000)^2 * 1000
'Convert frequency to Digits
'Convert resistance to temp F.
Temp1(i) = (1/(A + B*LN(Therm1(i)) +C*(LN(Therm1(i)))^3)-273.15)*1.8+32
'Calculate displacement (inches) from Digits and calibration polynomial
Displacement1(i)=PolyCoef1(3*i-2)*Digits^2 + PolyCoef1(3*i-1)*Digits+ PolyCoef2(3*i)
Next i
AVW200(VWResults(2),ComRS232,0,15,Mux2(1,1),2,1,8,1000,2500,2,_60Hz,1, 0)
AVW200(VWResults(2),ComRS232,0,15,Mux2(9,1),2,9,8,450,6500,2,_60Hz,1,0)
For i = 1 To 16
Amp2(i)
= Mux1(i,2)
Therm2(i)
= Mux1(i,6)
VWFreq2(i)
= Mux1(i,1)
Sig2Noise2(i)
= Mux1(i,3)
DecayRatio2(i)
= Mux1(i,5)
FreqOfNoise2(i) = Mux1(i,4)
Digits = (VWFreq2(i)/1000)^2 * 1000
'Convert frequency to Digits
'Calculate displacement (inches) from Digits and calibration ploynomial
Displacement2(i)=PolyCoef2(3*i-2)*Digits^2 + PolyCoef2(3*i-1)*Digits + PolyCoef2(3*i)
'Convert resistance to temp F.
Temp2(i) = (1/(A + B*LN(Therm2(i)) + C*(LN(Therm2(i)))^3)-273.15)*1.8+32
Next i
CallTable MuxExample
NextScan
EndProg
H-3