Campbell Scientific AVW200 AVW200-series Vibrating Wire Interfaces - Page 103

Displacement4i = Coef43*i-2*Digits^2 + Coef43*i-1*Digits + Coef43*i, Sig2Noise4i = Mux3

Get Campbell Scientific AVW200 PDF manuals and user guides View all Campbell Scientific AVW200 manuals
Add to My Manuals
Save this manual to your list of manuals

Page 103 highlights

Appendix H. Additional Programming Examples PortSet(7,1) 'Enable Mux4 For i = 1 To 32 'Do the following for each of 32 sensors: PulsePort(8,1000) 'Provide pulse to advance to next channel on Mux4 AVW200(VWResults,ComRS232,0,15,Mux(1),1,1,1,2500,3500,2,_60Hz,1,0) 'Make VW measurement VWFreq4(i) = Mux(1) 'Assign vw frequency to the VWFreq2 variable Amp4(i) = Mux(2) 'Assign signal amplitude to Amp2 variable Sig2Noise4(i) = Mux(3) 'Assign signal to noise ratio to Sig2Noise2 variable FreqOfNoise4(i) = Mux(4) 'Assign frequency of competing noise to FreqOfNoise2 variable DecayRatio4(i) = Mux(5) 'Assign signal decay ratio to DecayRatio2 variable Digits = (VWFreq4(i)/1000)^2*1000 'Convert frequency to Digits 'Calculate displacement (inches) from Digits and calibration ploynomial Displacement4(i) = Coef4(3*i-2)*Digits^2 + Coef4(3*i-1)*Digits + Coef4(3*i) Next i PortSet(7,0) 'Reset and disable Mux4 CallTable MuxExample NextScan EndProg H-11

  • 1
  • 2
  • 3
  • 4
  • 5
  • 6
  • 7
  • 8
  • 9
  • 10
  • 11
  • 12
  • 13
  • 14
  • 15
  • 16
  • 17
  • 18
  • 19
  • 20
  • 21
  • 22
  • 23
  • 24
  • 25
  • 26
  • 27
  • 28
  • 29
  • 30
  • 31
  • 32
  • 33
  • 34
  • 35
  • 36
  • 37
  • 38
  • 39
  • 40
  • 41
  • 42
  • 43
  • 44
  • 45
  • 46
  • 47
  • 48
  • 49
  • 50
  • 51
  • 52
  • 53
  • 54
  • 55
  • 56
  • 57
  • 58
  • 59
  • 60
  • 61
  • 62
  • 63
  • 64
  • 65
  • 66
  • 67
  • 68
  • 69
  • 70
  • 71
  • 72
  • 73
  • 74
  • 75
  • 76
  • 77
  • 78
  • 79
  • 80
  • 81
  • 82
  • 83
  • 84
  • 85
  • 86
  • 87
  • 88
  • 89
  • 90
  • 91
  • 92
  • 93
  • 94
  • 95
  • 96
  • 97
  • 98
  • 99
  • 100
  • 101
  • 102
  • 103
  • 104
  • 105
  • 106
  • 107
  • 108
  • 109
  • 110
  • 111
  • 112
Appendix H.
Additional Programming Examples
PortSet(7,1)
'Enable Mux4
For i = 1 To 32
'Do the following for each of 32 sensors:
PulsePort(8,1000)
'Provide pulse to advance to next channel on Mux4
AVW200(VWResults,ComRS232,0,15,Mux(1),1,1,1,2500,3500,2,_60Hz,1,0)
'Make VW measurement
VWFreq4(i) = Mux(1)
'Assign vw frequency to the VWFreq2 variable
Amp4(i) = Mux(2)
'Assign signal amplitude to Amp2 variable
Sig2Noise4(i) = Mux(3)
'Assign signal to noise ratio to Sig2Noise2 variable
FreqOfNoise4(i) = Mux(4)
'Assign frequency of competing noise to FreqOfNoise2 variable
DecayRatio4(i) = Mux(5)
'Assign signal decay ratio to DecayRatio2 variable
Digits = (VWFreq4(i)/1000)^2*1000
'Convert frequency to Digits
'Calculate displacement (inches) from Digits and calibration ploynomial
Displacement4(i) = Coef4(3*i-2)*Digits^2 + Coef4(3*i-1)*Digits + Coef4(3*i)
Next i
PortSet(7,0)
'Reset and disable Mux4
CallTable MuxExample
NextScan
EndProg
H-11