
RST Flexi-Mux Instruction Manual
ELM0029B
RST Instruments Ltd.
Page 16
EndIf
NextScan
EndProg
A-2.
4-W
IRE
S
ERIAL
S
WITCHING
Refer to Figure 5-4.
Const nVW = 5
Const A=1.40503E-03
'log poly coefficients 3K therm
Const B=2.36939E-04
Const C=1.01266E-07
'\\\\\\\\\\\\\\\\\\\\\\\\\ DECLARATIONS /////////////////////////
Public Result,Bunits(nVW),VW_Temp(nVW)
Public VW(nVW,6)
Public Htz(nVW),Amp(nVW),S2N(nVW),NF(nVW),DR(nVW),Res(nVW)
Public LnRTH
' global vars from Sub SH
Public Bat_V
Public Int_Temp
Public kPa(nVW)
Public i
Units Bunits()=Bunits
Units VW_Temp()= °C
Units Int_Temp = °C
Units Bat_V = Vdc
Units kPa() = kPa
Units Res() =
Ω
Units Htz() = Hz
'VWP Table
DataTable (VWP_Table,1,-1 )
Sample (1,Bat_V,IEEE4)
Sample (1,Int_Temp,IEEE4)
FieldNames("Panel_Temp")
Sample (nVW,Bunits(),IEEE4)
Sample (nVW,kPa(),IEEE4)
Sample (nVW,VW_Temp(),IEEE4)
EndTable
'\\\\\\\\\\\\\\\\\\\\\\\\\ SUBROUTINES //////////////////////////
Sub SH3k(resist,VW_DegC)
' returns C from AVW200 resistance measurement
If resist <10 Then resist=10
If resist >1000000 Then resist =1000000
'set upper and lower limits
LnRTH=LN(resist)
' pre-evaluate transcendental for efficiency
VW_DegC=1/(A+B*LnRTH+C*LnRTH*LnRTH*LnRTH)-273.15
'VW KPA & MPA PRESSURE
TABLE
EndSub
EncryptExempt (200,200)
'To Allow AVW200 to communicate to the CR300 (AVW
does not work with PakBus encryption key)
'Main Program
BeginProg
Scan (1,Min,0,0)
PanelTemp (Int_Temp,60)
Battery (Bat_V)