Campbell Scientific AVW200 AVW200-series Vibrating Wire Interfaces - Page 98
Temp1i = 1/A + B*LNTherm1i + C*LNTherm1i^3-273.15*1.8+32
View all Campbell Scientific AVW200 manuals
Add to My Manuals
Save this manual to your list of manuals |
Page 98 highlights
Appendix H. Additional Programming Examples Scan (2,Min,0,0) PanelTemp (PTemp,250) Battery (Batt_volt) AVW200(VWResults(1),ComME,0,20,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 'Sensors 1-8 are excited over the freq range of 1000 - 2500 AVW200(VWResults(2),ComME,0,20,Mux2(1,1),2,1,8,1000,2500,2,_60Hz,1,0) 'Sensors 9-16 are excited over the freq range of 450 - 6500 AVW200(VWResults(2),ComME,0,20,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 polynomial 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-6