Campbell TDR100 Instruction Manual - page 45
Appendix B. Example Program
B-3
If Flag(1)=High Then
'*************************************
SW12 (1)
'Turn on 12V Power to TDR100 & SDMX50
'Note: Wire TDR100 & SDM8X50 12V power leads to CR1000 SW12 Terminal
Delay (1,2,Sec)
'pause 2 sec to allow power supply voltage to settle
'
'Measure La/L on SDMX50 channel #1 thru channel#8 & convert to VWC using Topp Eq.
TDR100 (LaL(1),0,0,1001,4,1.0,251,9.5,5.0,0.3,0.085,1,0)
TDR100 (LaL(2),0,0,2001,4,1.0,251,9.0,5.0,0.3,0.085,1,0)
TDR100 (LaL(3),0,0,3001,4,1.0,251,8.5,5.0,0.3,0.085,1,0)
TDR100 (LaL(4),0,0,4001,4,1.0,251,9.5,5.0,0.3,0.085,1,0)
TDR100 (LaL(5),0,0,5001,4,1.0,251,7.0,5.0,0.3,0.085,1,0)
TDR100 (LaL(6),0,0,6001,4,1.0,251,10.5,5.0,0.3,0.085,1,0)
TDR100 (LaL(7),0,0,7001,4,1.0,251,11.5,5.0,0.3,0.085,1,0)
TDR100 (LaL(8),0,0,8001,4,1.0,251,9.5,5.0,0.3,0.085,1,0)
For I=1 to 8
LaL2(I) = LaL(I)^2
'Apparent Dielectric Constant K = (La/L)^2
Next I
'Topp Conversion from Dielectric Constant to Volumetric Water Content (VWC)
For I=1 to 8
ToppVWC(I)=a0 + a1*LaL2(I) + a2*LaL2(I)^2 + a3*LaL2(I)^3
Next I
'
'Measure La/L on SDM8X50 channel #1 thru channel#8 & convert to VWC using Ledieu Eq.
'Note: Reps (i.e. "1008") assume all cables are the same length!!!
TDR100 (LedieuVWC(),0,0,1008,4,1.0,251,9.5,5.0,0.3,0.085,.1138,-0.1758)
'
CallTable Data_TDR
Flag(1)=0
'reset state of Flag 1
SW12 (0 )
'Switched 12V Low
endif
'EndIf for Flag 1 ***********************
If Flag(2)=High Then
'*************************************
SW12 (1)
'Turn on 12V Power to TDR100 & SDMX50
Delay (0,2,Sec)
'pause 2 sec to allow power supply voltage to settle out
'
MuxChan=1001
'store the SDM8X50 channel in variable "MuxChan"
TDR100 (WavePT(),0,1,1001,4,1.0,251,9.5,5.0,0.3,0.085,1,0)
CallTable TDR_Wave()
'
MuxChan=2001
'store the SDM8X50 channel in variable "MuxChan"
TDR100 (WavePT(),0,1,2001,4,1.0,251,9.5,5.0,0.3,0.085,1,0)
CallTable TDR_Wave()
'
MuxChan=3001
TDR100 (WavePT(),0,1,3001,4,1.0,251,9.5,5.0,0.3,0.085,1,0)
CallTable TDR_Wave()
'
MuxChan=4001
TDR100 (WavePT(),0,1,4001,4,1.0,251,9.5,5.0,0.3,0.085,1,0)
CallTable TDR_Wave()
'
MuxChan=5001
TDR100 (WavePT(),0,1,5001,4,1.0,251,9.5,5.0,0.3,0.085,1,0)
CallTable TDR_Wave()
'
MuxChan=6001
TDR100 (WavePT(),0,1,6001,4,1.0,251,9.5,5.0,0.3,0.085,1,0)
CallTable TDR_Wave()
'
MuxChan=7001
TDR100 (WavePT(),0,1,7001,4,1.0,251,9.5,5.0,0.3,0.085,1,0)
CallTable TDR_Wave()
'
MuxChan=8001
TDR100 (WavePT(),0,1,8001,4,1.0,251,9.5,5.0,0.3,0.085,1,0)
CallTable TDR_Wave()
'