Campbell Scientific CDM-VW300 Series Dynamic Vibrating-Wire Analyzer System - Manual (Page 98)

Appendix G. CRBasic Program Library
Public DynStdDev1(8), DynStdDev2(8), DynStdDev3(8) 'Dynamic standard deviations
Public DynStdDev4(8), DynStdDev5(8), DynStdDev6(8)
'Setup for First Device
' CH1 CH2 CH3 CH4 CH5 CH6 CH7 CH8
' --- --- --- --- --- --- --- ---
Dim Enable1(8) As Long = { 1, 1, 1, 1, 1, 1, 1, 1}
Dim Max_AMP1(8) = { 0.002, 0.002, 0.002, 0.002, 0.002, 0.002, 0.002, 0.002}
Dim F_Low1(8) = { 300, 300, 300, 300, 300, 300, 300, 300}
Dim F_High1(8) = { 6000, 6000, 6000, 6000, 6000, 6000, 6000, 6000}
Dim OutForm1(8) As Long = { 0, 0, 0, 0, 0, 0, 0, 0}
Dim Mult1(8) = { 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0}
Dim Off1(8) = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0}
Dim SteinA1(8) = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0}
Dim SteinB1(8) = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0}
Dim SteinC1(8) = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0}
'Setup for Second Device
Dim Enable2(8) As Long = { 1, 1, 1, 1, 1, 1, 1, 1}
Dim Max_AMP2(8) = { 0.002, 0.002, 0.002, 0.002, 0.002, 0.002, 0.002, 0.002}
Dim F_Low2(8) = { 300, 300, 300, 300, 300, 300, 300, 300}
Dim F_High2(8) = { 6000, 6000, 6000, 6000, 6000, 6000, 6000, 6000}
Dim OutForm2(8) As Long = { 0, 0, 0, 0, 0, 0, 0, 0}
Dim Mult2(8) = { 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0}
Dim Off2(8) = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0}
Dim SteinA2(8) = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0}
Dim SteinB2(8) = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0}
Dim SteinC2(8) = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0}
'Setup for Third Device
Dim Enable3(8) As Long = { 1, 1, 1, 1, 1, 1, 1, 1}
Dim Max_AMP3(8) = { 0.002, 0.002, 0.002, 0.002, 0.002, 0.002, 0.002, 0.002}
Dim F_Low3(8) = { 300, 300, 300, 300, 300, 300, 300, 300}
Dim F_High3(8) = { 6000, 6000, 6000, 6000, 6000, 6000, 6000, 6000}
Dim OutForm3(8) As Long = { 0, 0, 0, 0, 0, 0, 0, 0}
Dim Mult3(8) = { 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0}
Dim Off3(8) = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0}
Dim SteinA3(8) = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0}
Dim SteinB3(8) = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0}
Dim SteinC3(8) = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0}
'Setup for Fourth Device
Dim Enable4(8) As Long = { 1, 1, 1, 1, 1, 1, 1, 1}
Dim Max_AMP4(8) = { 0.002, 0.002, 0.002, 0.002, 0.002, 0.002, 0.002, 0.002}
Dim F_Low4(8) = { 300, 300, 300, 300, 300, 300, 300, 300}
Dim F_High4(8) = { 6000, 6000, 6000, 6000, 6000, 6000, 6000, 6000}
Dim OutForm4(8) As Long = { 0, 0, 0, 0, 0, 0, 0, 0}
Dim Mult4(8) = { 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0}
Dim Off4(8) = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0}
Dim SteinA4(8) = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0}
Dim SteinB4(8) = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0}
Dim SteinC4(8) = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0}
'Setup for Fifth Device
Dim Enable5(8) As Long = { 1, 1, 1, 1, 1, 1, 1, 1}
Dim Max_AMP5(8) = { 0.002, 0.002, 0.002, 0.002, 0.002, 0.002, 0.002, 0.002}
Dim F_Low5(8) = { 300, 300, 300, 300, 300, 300, 300, 300}
Dim F_High5(8) = { 6000, 6000, 6000, 6000, 6000, 6000, 6000, 6000}
Dim OutForm5(8) As Long = { 0, 0, 0, 0, 0, 0, 0, 0}
Dim Mult5(8) = { 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0}
Dim Off5(8) = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0}
Dim SteinA5(8) = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0}
Dim SteinB5(8) = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0}
Dim SteinC5(8) = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0}
'Setup for Sixth Device
Dim Enable6(8) As Long = { 1, 1, 1, 1, 1, 1, 1, 1}
Dim Max_AMP6(8) = { 0.002, 0.002, 0.002, 0.002, 0.002, 0.002, 0.002, 0.002}
Dim F_Low6(8) = { 300, 300, 300, 300, 300, 300, 300, 300}
Dim F_High6(8) = { 6000, 6000, 6000, 6000, 6000, 6000, 6000, 6000}
Dim OutForm6(8) As Long = { 0, 0, 0, 0, 0, 0, 0, 0}
Dim Mult6(8) = { 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0, 1.0}
Dim Off6(8) = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0}
Dim SteinA6(8) = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0}
Dim SteinB6(8) = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0}
Dim SteinC6(8) = { 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0}
G-6