Xcos examples from textbooks and for blocksHEADmaster

1 files changed, 26 insertions, 0 deletions

diff --git a/Working_Examples/215/CH11/EX11.8/ex11_8.sce b/Working_Examples/215/CH11/EX11.8/ex11_8.sce
new file mode 100755
index 0000000..4e38138
--- /dev/null
+++ b/Working_Examples/215/CH11/EX11.8/ex11_8.sce
@@ -0,0 +1,26 @@
+clc

+//Example 11.8

+//Calculate average power, power supplied by source and the power factor

+printf("Given")

+disp('Voltage source is 60 V,Load values are 2-i ohm and 1+5i ohm')

+Vamp=60;Vang=0;

+//Let Z be the cobined resistance

+Z=2-%i+1+5*%i

+[Zmag Zph]=polar(Z)

+Isamp=Vamp/Zmag;

+Isang=Vang-Zph;

+printf("Ieff=%3.0f A rms and angle of Is is %3.2f degree\n",Isamp,(Isang*180)/%pi);

+//Let Pupper be the power delievered to the upper load

+Rtop=2;

+Pupper=Isamp^2*Rtop

+printf("Average Power delievered to the top load=%3.0f W \n",Pupper)

+//Let Plower be the power delievered to the lower load

+Rright=1;

+Plower=Isamp^2*Rright

+printf("Average Power delievered to the right load=%3.0f W \n",Plower)

+//Let Papp be the apparent power

+Papp=Vamp*Isamp

+printf("Apparent Power =%3.0f VA \n",Papp)

+//Let pf be the power factor

+pf=(Pupper+Plower)/Papp

+printf("power factor=%3.1f lag \n",pf)
\ No newline at end of file