Campbell CS15-L, Инструкция по эксплуатации

Страница: 7 / 10

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=mV^2
Offset=mV
Next
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
3