Campbell CS15-L Manual de usuario descargar pdf (Pagina 7)

CS15-L Current Transformer

Public Crnt_A

Public N

Dim Offset

Dim SumSqr

Dim mV

Dim I

Units Crnt_A = Amps

‘Main Program

BeginProg

N = 48

Scan (1,Sec)

‘CS15 Current Transformer measurement CS15_L:

Excitev (Ex1,mV2500)

Offset=0

SumSqr=Offset

For I=1 to N

VoltSe (mV,1,1,1.0,0)

SumSqr=SumSqr+mV^2

Offset=Offset+mV

ExciteV (Ex1,0)

Crnt_A=SQR ((SumSqr – (Offset^2/N))/N) *0.2

If Crnt_A<0.2 then Crnt_A=0

‘Call Output Tables to store data

NextScan

EndProg

1 2 3 4 5 6 7 8 9 10

Sin comentarios

Campbell CS15-L Manual de usuario Pagina 7