blob: 24451208cfa6c3a570614de374ef5bde6c52b218 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
clc
p=100000 //Assigning values to parameters
il=80
vl=1100
f=50
vph=vl/sqrt(3)
iph=il
zph=vph/iph
t=acosd(p/(sqrt(3)*vl*il))
zph1=5.21-%i*6
[r]=real(zph1)
[xc]=abs(imag(zph1))
c=1/(2*%pi*f*xc)
disp("ohms",r,"The resistive circuit constant is")
disp("ohms",xc,"The capacitive circuit constant is")
disp("farads",c,"The capacitance is")
|
