beautypg.com

5 cr1000 with multiplexer sample program, 6 cr10x with multiplexer sample program, Cr1000 with multiplexer sample program – Campbell Scientific CS11-L Current Transformer User Manual

Page 24: Example cr1000 program reading 32 cs11-l current, Tranformers, Cr10x with multiplexer sample program

background image

CS11-L Current Transformer

6.5 CR1000 with Multiplexer Sample Program

This program uses the CR1000 and an AM16/32-series multiplexer to read 32
CS11-L Current Transformers.

6.5.1 Example CR1000 program reading 32 CS11-L Current Tranformers

'CR1000 program to measure rms current
PipeLineMode

'must be pipeline mode

Const num_samples = 100

'6 waveforms for 60 Hz, 5 waveforms for 50 Hz

Const NumSensors=32

'Number of Sensors on the Mux MUX in 2X32 Mode *****

'Sensor wired to Low on each of the 32 channels.

'Odd Low on Mux wired to SE2 on Datalogger

Public Amps(NumSensors), i, Batt_Volt 'the line current
Public Amp_mult, TempAmps
Dim i_sig (num_samples)

'to hold the burst measurements, each 100 samples long

PreserveVariables

'to store values between power cycles


DataTable (AmpTable,True,-1)
DataInterval

(0,1,Min,10)

Maximum

(NumSensors,Amps,IEEE4,False,False)

Average

(NumSensors,Amps,FP2,False)

EndTable

BeginProg

Amp_mult = 0.2

'0.2 multiplier for the CS11-L

Scan

(10,Sec,0,0)

Battery

(Batt_volt)

'Turn

AM16/32

Multiplexor

On

PortSet(4,1)

i=0

SubScan(0,uSec,NumSensors)
'Switch

to

next

AM16/32

Multiplexer

Channel

PulsePort(5,10000)
i=i+1

VoltSe (i_sig (1), num_samples, mV2500,-2, True, 1000, 0, 1.0, 0)

StdDevSpa (Amps(i), num_samples, i_sig (1))

Amps(i) = Amps(i) * Amp_mult

'put in amps

If Amps(i) <= 0.15 Then Amps(i) = 0

NextSubScan
'Turn

AM16/32

Multiplexer

Off

PortSet(4,0)
CallTable

(AmpTable)

NextScan
EndProg

6.6 CR10X with Multiplexer Sample Program

This program uses the CR10X and an AM16/32-series multiplexer to read 32
CS11-L current transformers.

18