diff options
Diffstat (limited to 'Working_Examples/154/DEPENDENCIES/ch11_11.sce')
-rwxr-xr-x | Working_Examples/154/DEPENDENCIES/ch11_11.sce | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/Working_Examples/154/DEPENDENCIES/ch11_11.sce b/Working_Examples/154/DEPENDENCIES/ch11_11.sce new file mode 100755 index 0000000..143b3cf --- /dev/null +++ b/Working_Examples/154/DEPENDENCIES/ch11_11.sce @@ -0,0 +1,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)
+
|