RainFlowSample (Store CDM_VW300RainFlow Sample)

The following portion of code can be used in the datalogger program to help set up the arrays for the instruction.

Const MBINS = 20
Const ABINS = 20

Public RF1(MBINS,ABINS)
Public RF2(MBINS,ABINS)
Public RF3(MBINS,ABINS)
Public RF4(MBINS,ABINS)
Public RF5(MBINS,ABINS)
Public RF6(MBINS,ABINS)
Public RF7(MBINS,ABINS)
Public RF8(MBINS,ABINS)

The following is a sample CR6 program showing the use of the CDM_VW300Rainflow instruction.

'Rainflow Histogram Output Example for the VWIRE or CDM-VW300 series
'50Hz sampled data from one VWIRE 305 or CDM-VW305 device (8 channels)

'Make sure the CPI address given here
'matches what is shown in Device Configuration Utility or DVW Toolbox
'for the intended VWIRE 305 or CDM-VW300 series device
Const CPI_ADDR = 5 

Public Freq(8)
Public Diag(8) As Long
Public StaticFreq(8)
Public Therm(8)
Public DynStdDev(8)

'Rainflow : Mean Bins and Amplitude Bins dimensions
Const MBINS = 10
Const ABINS = 10
'Rainflow Histogram Outputs - 2 dimensional arrays
Public RF1(MBINS,ABINS)
Public RF2(MBINS,ABINS)
Public RF3(MBINS,ABINS)
Public RF4(MBINS,ABINS)
Public RF5(MBINS,ABINS)
Public RF6(MBINS,ABINS)
Public RF7(MBINS,ABINS)
Public RF8(MBINS,ABINS)

Dim Enable(8) As Long =       {     1,     1,     1,     1,     1,     1,     1,     1}
Dim Max_AMP(8) =              { 0.002, 0.002, 0.002, 0.002, 0.002, 0.002, 0.002, 0.002}
Dim F_Low(8) =                {   300,   300,   300,   300,   300,   300,   300,   300}
Dim F_High(8) =               {  6000,  6000,  6000,  6000,  6000,  6000,  6000,  6000}
Dim OutForm(8) As Long =      {     0,     0,     0,     0,     0,     0,     0,     0}
Dim Mult(8) =                 {   1.0,   1.0,   1.0,   1.0,   1.0,   1.0,   1.0,   1.0}
Dim Off(8) =                  {   0.0,   0.0,   0.0,   0.0,   0.0,   0.0,   0.0,   0.0}
Dim SteinA(8) =               {   0.0,   0.0,   0.0,   0.0,   0.0,   0.0,   0.0,   0.0}
Dim SteinB(8) =               {   0.0,   0.0,   0.0,   0.0,   0.0,   0.0,   0.0,   0.0}
Dim SteinC(8) =               {   0.0,   0.0,   0.0,   0.0,   0.0,   0.0,   0.0,   0.0}

'Rainflow Histogram configuration
Dim RF_mean_bins(8) As Long = { MBINS, MBINS, MBINS, MBINS, MBINS, MBINS, MBINS, MBINS} 'Mean Bins
Dim RF_amp_bins(8) As Long =  { ABINS, ABINS, ABINS, ABINS, ABINS, ABINS, ABINS, ABINS} 'Amplitude Bins
Dim RF_Lo_lim(8) =            { 400.0, 400.0, 400.0, 400.0, 400.0, 400.0, 400.0, 400.0} 'Low Limit
Dim RF_Hi_lim(8) =            {4000.0,4000.0,4000.0,4000.0,4000.0,4000.0,4000.0,4000.0} 'High Limit
Dim RF_Hyst(8) =              { 0.005, 0.005, 0.005, 0.005, 0.005, 0.005, 0.005, 0.005} 'Hysteresis

'Output format consists of three digits ABC, that can be either 1 or 0
Dim RF_OutForm(8) As Long =   {   110,   110,   110,   110,   110,   110,   110,   110}

'RF Histogram Digit Code         Histogram output result
'-----------------------         ------------------------
'A = 0                           Reset histogram after each output.
'A = 1                           Do not reset histogram.
'B = 0                           Divide bins by total count.
'B = 1                           Output total in each bin.
'C = 0                           Open form. Include outside range values in end bins.
'C = 1                           Closed form. Exclude values outside range.

CDM_VW300Config(1,CPI_ADDR,0,Enable(),Max_AMP(),F_Low(),F_High(), _
OutForm(),Mult(),Off(), SteinA(),SteinB(),SteinC(), _
RF_mean_bins(),RF_amp_bins(),RF_Lo_lim(), _
RF_Hi_lim(),RF_Hyst(),RF_OutForm())

DataTable (static,true,-1)
  Sample (8,StaticFreq(),IEEE4)
  Sample (8,Therm(),IEEE4)
  Sample (8,DynStdDev(),IEEE4) 
EndTable

DataTable (dynamic,true,-1)
  Sample (8,Freq(),IEEE4)
  Sample (8,Diag(),IEEE4)
EndTable

'Store Rainflow Histogram Output
DataTable (rainflhist,true,-1)
  RainflowSample(RF1(),IEEE4)
  RainflowSample(RF2(),IEEE4)
  RainflowSample(RF3(),IEEE4)
  RainflowSample(RF4(),IEEE4)
  RainflowSample(RF5(),IEEE4)
  RainflowSample(RF6(),IEEE4)
  RainflowSample(RF7(),IEEE4)
  RainflowSample(RF8(),IEEE4)
EndTable

BeginProg

  '50 Hz/20msec scan rate
  Scan(20,msec,500,0)

    CDM_VW300Dynamic(CPI_ADDR,Freq(),Diag())
    CallTable dynamic
    If TimeIntoInterval (0,1,Sec) Then
      CDM_VW300Static(CPI_ADDR,StaticFreq(),Therm(),DynStdDev())
      CallTable static 
    EndIf 

  NextScan

SlowSequence
  Scan(5,sec,10,0)
      'Rainflow Histogram call must be in a slow sequence scan   
      CDM_VW300Rainflow(CPI_ADDR,RF1(),RF2(),RF3(),RF4(),RF5(),RF6(),RF7(),RF8())
      CallTable rainflhist
  NextScan 

EndProg