blob: 40ab2377fc105b45f9368682ebddd7f3a62f1679 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
clc
p=10000 //Assigning values to parameters
t=acos(0.6)
vl=440
vph=vl
il=p/(sqrt(3)*vl*cos(t))
iph=il/sqrt(3)
zph=vph/iph
zph1=20.9-%i*27.87
[res]=real(zph1)
[xc]=abs(imag(zph1))
q=sqrt(3)*vl*il*sin(t)
disp("ohms",res,"The resistance value of circuit element is")
disp("ohms",xc,"The capacitive value of circuit element is")
disp("VAR",q,"The reactive volt-ampere")
|
