
RST Flexi-Mux Instruction Manual
ELM0029B
RST Instruments Ltd.
Page 21
sr_com_error(p,j) += 1
'increment error counter if exit
condition not met
Next k
ipi_A(p,j) = parse(1)
ipi_B(p,j) = parse(2)
ipi_temperature(p,j) = parse(3)
EndIf
Next j
SerialClose (ComC3)
SW12 (SW12_1,0)
'turn off IPI
Next p
If n_ipi_strings <=5 Then
' to clock through rest of the mux -- for 1
MUX
For p = 1 To (6-n_ipi_strings)
PulsePort (C1,5000)
'Clock
Delay (0,200,mSec)
Next p
EndIf
PortSet (C2,0)
'Reset
CallTable IPI_String1
CallTable IPI_String2
CallTable IPI_String3
CallTable IPI_String4
EndIf
If TimeIntoInterval (0,30,Min) Then
'Enter loop every 30mins
PortSet (U2,1)
'Reset
Delay(0,100,mSec)
For i=1 To 10
PulsePort (U1,5000)
'Clock
Delay(0,100,mSec)
VibratingWire (VW(i,1),1,U3,1500,3500,1,0.05,"",60,A,B,C)
Htz(i)=VW(i,1)
'frequency
Amp(i)=VW(i,2)
'amplitude
S2N(i)=VW(i,3)
'signal to noise ratio
NF(i)=VW(i,4)
'noise frequency
DR(i)=VW(i,5)
'decay ratio
Bunits(i) = (VW(i,1)^2)/1000
'Convert to B Units
VW_Temp(i)= VW(i,6)
'Temperature
Next i
PortSet (U2,0)
CallTable VWire
EndIf
NextScan
EndProg
b
IPI27050 Series
Refer to Figure 5-6.
Const nVW = 10
Const A=1.40503E-03
'log poly coefficients 3K therm
Const B=2.36939E-04
Const C=1.01266E-07
Public n_ipi = 5
Public ipi_sn(5,5)