diff options
Diffstat (limited to 'Working_Examples/215/CH11/EX11.2')
-rwxr-xr-x | Working_Examples/215/CH11/EX11.2/Figure11_21.jpg | bin | 0 -> 50085 bytes | |||
-rwxr-xr-x | Working_Examples/215/CH11/EX11.2/Figure11_22.jpg | bin | 0 -> 65046 bytes | |||
-rwxr-xr-x | Working_Examples/215/CH11/EX11.2/ex11_2.sce | 29 |
3 files changed, 29 insertions, 0 deletions
diff --git a/Working_Examples/215/CH11/EX11.2/Figure11_21.jpg b/Working_Examples/215/CH11/EX11.2/Figure11_21.jpg Binary files differnew file mode 100755 index 0000000..9d428ea --- /dev/null +++ b/Working_Examples/215/CH11/EX11.2/Figure11_21.jpg diff --git a/Working_Examples/215/CH11/EX11.2/Figure11_22.jpg b/Working_Examples/215/CH11/EX11.2/Figure11_22.jpg Binary files differnew file mode 100755 index 0000000..64962b8 --- /dev/null +++ b/Working_Examples/215/CH11/EX11.2/Figure11_22.jpg diff --git a/Working_Examples/215/CH11/EX11.2/ex11_2.sce b/Working_Examples/215/CH11/EX11.2/ex11_2.sce new file mode 100755 index 0000000..d9afdb0 --- /dev/null +++ b/Working_Examples/215/CH11/EX11.2/ex11_2.sce @@ -0,0 +1,29 @@ +clc
+//Example 11.2
+//Calculate the average power
+printf("Given")
+disp('v=4*cos(%pi/6*t), V=4(0 deg), Z=2(60 deg)')
+Vamp=4;Vang=0;Zamp=2;Zang=60;
+//Let I be the phasor current
+Iamp=Vamp/Zamp
+Iang=Vang-Zang
+P=0.5*Vamp*Zamp*cos((Zang*%pi)/180)
+printf("P=%d W \n",P);
+t=-1:1:15
+t1=-3:1:12
+v=Vamp*cos(%pi/6*t)
+//i=2*cos((%pi/6)*t-(%pi/3))
+i=Iamp*cos(%pi/6*t+((Iang*%pi)/180))
+figure
+a= gca ();
+plot (t,v,t,i)
+xtitle ('v,i vs t' ,'t' ,'v,i');
+a. thickness = 2;
+//Instantaneous power p=v*i
+//On solving
+p=2+4*cos(%pi/3*t+((Iang*%pi)/180))
+figure
+a= gca ();
+plot (t,p)
+xtitle ('p vs t' ,'t' ,'p');
+a. thickness = 2;
|