summaryrefslogtreecommitdiff
path: root/3793/CH3/EX3.9/exp_3_9.sce
blob: 35dd1bca88e6a053a5a50d14224708dde9ee0f18 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
clear;
clc;
Hr1y=15.93;
Hyb1=12.65;
Hbr1=15.93;
Hrr1=18.93;
Hyy1=12;
Hbb1=12;
Deq=4;
Cb=(2*%pi*(8.854*10^(-12)));

cb1=log(Deq/.02);
cb2=log(((Hr1y*Hyb1*Hbr1)^(1/3))/((Hrr1*Hyy1*Hbb1)^(1/3)));
Cn=(Cb/(cb1-cb2));

Cln=Cn*100*10^(9);
I=((2*%pi*50*Cln*(10^(-3))*220)/sqrt(3));
mprintf("line capacitance to neutral = %.3f microF\n",Cln);
mprintf("line current = %.3f A",I);