blob: 01587bfa69b7166eb5c6f380865b12233be141c0 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
clc
f=50 //Assigning values to parameters
vl=440
p=1500
t=acos(0.2)
vph=vl/sqrt(3)
il=p/(sqrt(3)*vl*p*cos(t))
iph=il
zph=vph/iph
zph1=5.17+%i*25.3
[res]=real(zph1)
[xl]=imag(zph1)
l=xl/(2*%pi*f)
disp("ohms",res,"The resistive circuit constant is")
disp("ohms",l,"The inductive circuit constant is")
|
