Campbell Scientific TDR Probes CS605, CS610, CS630, CS635, CS640, CS645 - Manual (Page 24)

Appendix B. Correcting Electrical Conductivity Measurements for System Losses
B.2.4 CR1000 Program for Collecting ρ
open
and ρ
shorted
Values
'This example program is written for 4 TDR probes connected to
'a single multiplexer. It will be necessary to add instructions in
'subroutine TDR if more probes are used.
'CR1000 Series Datalogger
'Declare Public & Dim Variables
Public wave(30), vector(20)
Public rho(2)
Public channel as long
Public Open as boolean
Public Shorted as boolean
Public SDMports as boolean
Public WriteToOutput as boolean
Dim I
'Declare Constants
'Flag logic constants
const high = true
const low = false
'Define Data Tables
DataTable (rhoTable,1,-1)
Sample(1,channel,Long)
Sample (2,rho(),IEEE4)
EndTable
‘
sub TDR
'set multiplexer address code for specific system
Select Case channel
Case 1
TDR100 (wave(),0,1,1001,4,1.0,20,200,1.0,0.075,0.0,1,0)
Case 2
TDR100 (wave(),0,1,2001,4,1.0,20,200,1.0,0.075,0.0,1,0)
Case 3
TDR100 (wave(),0,1,3001,4,1.0,20,200,1.0,0.075,0.0,1,0)
Case 4
TDR100 (wave(),0,1,4001,4,1.0,20,200,1.0,0.075,0.0,1,0)
EndSelect
endsub
'Main Program
BeginProg
Scan (5,sec,0,0)
if Open=high then
TDR
For I=1 To 20
vector(I)=wave(I+9)
Next
AvgSpa (rho(1),20,vector(1))
Open=low
endif
if Shorted=high then
TDR
For I=1 To 20
vector(I)=wave(I+9)
Next
AvgSpa (rho(2),20,vector(1))
Shorted=low
endif
'write results to output storage
If WriteToOutput=high Then
CallTable rhoTable
WriteToOutput=low
EndIf
B-4