blob: 143b3cfc17bbb461e0409cd176005ced8a34d53f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
clc
disp("Problem 11.11")
printf("\n")
printf("Given")
disp("v=42.5*cos(1000*t+30 deg)V Z=3+i4 ohm")
Vmag=42.5;
Z=3+%i*4;
R=sqrt(3^2+4^2)
Theta=atan(4/3)*(180/%pi)
Veffm=Vmag/sqrt(2)
Veffph=30
Ieffm=Veffm/R
Ieffph=30-Theta
Smag=Veffm*Ieffm
Sph=Veffph-Ieffph
x=Smag*cos((Sph*%pi)/180)
y=Smag*sin((Sph*%pi)/180)
z=complex(x,y)
pf=cos((Theta*%pi)/180);
printf("Real Power is %fW\n",x)
printf("Reactive Power is %fvar(inductive)\n",y)
printf("Complex Power is %fVA\n",Smag)
printf("Power factor is %3.1f(lag)\n",pf)
|
