Campbell CDM-VW300 Series, Руководство пользователя

Страница: 105 / 118

Appendix G. CRBasic Program Library
G-15
'Use a multiplier of 0.001 to divide by 1000 and get digits, then scale further to get Strain.
Dim Mult(2) = { 0.001*GaugeFactor*NomBatchFactor, 0.001*GaugeFactor*NomBatchFactor} 'Digits
(Hz^2/1000) times G times B results in strain
Dim Off(2) = { 0.0, 0.0}
'Use Steinhart-Hart coefficients To get Thermistor output in DegC
Dim SteinA(2) = {1.4051E-3, 1.4051E-3}
Dim SteinB(2) = { 2.369E-4, 2.369E-4}
Dim SteinC(2) = { 1.019E-7, 1.019E-7}
Dim RFMB(2) As Long = { 20, 20}
Dim RFAB(2) As Long = { 20, 20}
Dim RFLL(2) = { 400.0, 400.0}
Dim RFHL(2) = {4000.0,4000.0}
Dim RFHY(2) = { 0.005, 0.005}
Dim RFOF(2) As Long = { 100, 100}
CDM_VW300Config (0,CPI_ADDR,0,Enable(),Max_AMP(),F_Low(),F_High(), _
OutForm(),Mult(),Off(), SteinA(),SteinB(),SteinC(), _
RFMB(),RFAB(),RFLL(),RFHL(),RFHY(),RFOF())
DataTable (static,true,-1)
Sample (2,StaticStrain(),IEEE4)
Sample (2,Temp(),IEEE4)
Sample (2,StrainStdDev(),IEEE4)
EndTable
DataTable (slow,true,-1)
DataInterval (0,1,Min,10)
Average (2,StaticStrain(),IEEE4,False)
Average (2,Temp(),IEEE4,False)
Average (2,StrainStdDev(),IEEE4,False)
Average (2,ExciteStr(),IEEE4,False)
Sample (2,LowAmpCount(),UINT2)
Sample (2,HighAmpCount(),UINT2)
Sample (2,LowFreqCount(),UINT2)
Sample (2,HighFreqCount(),UINT2)
EndTable
DataTable (dynamic,true,-1)
Sample (2,Strain(),IEEE4)
Sample (2,DCode(),IEEE4)
Sample (2,ExciteStr(),IEEE4)
EndTable
DataTable(CalHist,NewFieldCal,-1)
SampleFieldCal
EndTable
BeginProg
'50 Hz/20msec scan rate
Scan (20,msec,500,0)
CDM_VW300Dynamic (CPI_ADDR,Strain(),DCode()) 'Get unshifted strain
'Now shift the given Strain using the Baseline/Offset value
Strain(1) = Strain(1) + StrainBL(1) : Strain(2) = Strain(2) + StrainBL(2)
'Zeroing calibration for Geokon 4000 Vibrating Wire Strain Gauge
'Strain offset and Temperature baseline readings
FieldCal(0,Strain(),2,0,StrainBL(),ZeroMode,0,1,100) 'Calibrate for 2 seconds
FieldCal(4,Temp(),2,0,TempBL(),ZeroMode,0,1,100)
'Process the Diagnostic codes to keep an eye on the health of the monitored date
ExciteStr(1) = ( DCode(1) AND 255) * VoltFactor : ExciteStr(2) = ( DCode(2) AND 255) * _
VoltFactor
If (DCode(1) AND 256) Then LowAmpCount(1) + = 1
If (DCode(2) AND 256) Then LowAmpCount(2) + = 1
If (DCode(1) AND 512) Then HighAmpCount(1) + = 1
If (DCode(2) AND 512) Then HighAmpCount(2) + = 1
If (DCode(1) AND 1024) Then LowFreqCount(1) + = 1
If (DCode(2) AND 1024) Then LowFreqCount(2) + = 1
If (DCode(1) AND 2048) Then LowFreqCount(1) + = 1
If (DCode(2) AND 2048) Then LowFreqCount(2) + = 1
If ResetCounts Then
LowAmpCount(1) = 0 : LowAmpCount(2) = 0
HighAmpCount(1) = 0 : HighAmpCount(2) = 0
LowFreqCount(1) = 0 : LowFreqCount(2) = 0
HighFreqCount(1) = 0 : HighFreqCount(2) = 0
ResetCounts = False
EndIf
CallTable dynamic
CallTable CalHist
CallTable slow