Appendix G. CRBasic Program Library
G-6
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}
'Shared rainflow configuration (not used, but required as configuration arguments)
Dim RFMB(8) As Long = { 20, 20, 20, 20, 20, 20, 20, 20}
Dim RFAB(8) As Long = { 20, 20, 20, 20, 20, 20, 20, 20}
Dim RFLL(8) = { 400.0, 400.0, 400.0, 400.0, 400.0, 400.0, 400.0, 400.0}
Dim RFHL(8) = {4000.0,4000.0,4000.0,4000.0,4000.0,4000.0,4000.0,4000.0}
Dim RFHY(8) = { 0.005, 0.005, 0.005, 0.005, 0.005, 0.005, 0.005, 0.005}
Dim RFOF(8) As Long = { 100, 100, 100, 100, 100, 100, 100, 100}
'Configure First Device
CDM_VW300Config(1,CPI_ADDR1,0,Enable1(),Max_AMP1(),F_Low1(),F_High1(), _
OutForm1(),Mult1(),Off1(), SteinA1(),SteinB1(),SteinC1(), _
RFMB(),RFAB(),RFLL(),RFHL(),RFHY(),RFOF())
'Configure Second Device
CDM_VW300Config(1,CPI_ADDR2,0,Enable2(),Max_AMP2(),F_Low2(),F_High2(), _
OutForm2(),Mult2(),Off2(), SteinA2(),SteinB2(),SteinC2(), _
RFMB(),RFAB(),RFLL(),RFHL(),RFHY(),RFOF())
'Configure Third Device
CDM_VW300Config(1,CPI_ADDR3,0,Enable3(),Max_AMP3(),F_Low3(),F_High3(), _
OutForm3(),Mult3(),Off3(), SteinA3(),SteinB3(),SteinC3(), _
RFMB(),RFAB(),RFLL(),RFHL(),RFHY(),RFOF())
'Configure Fourth Device
CDM_VW300Config(1,CPI_ADDR4,0,Enable4(),Max_AMP4(),F_Low4(),F_High4(), _
OutForm4(),Mult4(),Off4(), SteinA4(),SteinB4(),SteinC4(), _
RFMB(),RFAB(),RFLL(),RFHL(),RFHY(),RFOF())
'Configure Fifth Device
CDM_VW300Config(1,CPI_ADDR5,0,Enable5(),Max_AMP5(),F_Low5(),F_High5(), _
OutForm5(),Mult5(),Off5(), SteinA5(),SteinB5(),SteinC5(), _
RFMB(),RFAB(),RFLL(),RFHL(),RFHY(),RFOF())
'Configure Sixth Device
CDM_VW300Config(1,CPI_ADDR6,0,Enable6(),Max_AMP6(),F_Low6(),F _High6(), _
OutForm6(),Mult6(),Off6(), SteinA6(),SteinB6(),SteinC6(), _
RFMB(),RFAB(),RFLL(),RFHL(),RFHY(),RFOF())
DataTable (static,true,-1)
Sample (8,StaticFreq1(),IEEE4)
Sample (8,Therm1(),IEEE4)
Sample (8,DynStdDev1(),IEEE4)
Sample (8,StaticFreq2(),IEEE4)
Sample (8,Therm2(),IEEE4)
Sample (8,DynStdDev2(),IEEE4)
Sample (8,StaticFreq3(),IEEE4)
Sample (8,Therm3(),IEEE4)