initial commit / add all books

1 files changed, 54 insertions, 0 deletions

diff --git a/3673/CH9/EX9.19/Ex9_19.sce b/3673/CH9/EX9.19/Ex9_19.sce
new file mode 100644
index 000000000..c8e602aec
--- /dev/null
+++ b/3673/CH9/EX9.19/Ex9_19.sce
@@ -0,0 +1,54 @@
+//Example 9_19 page no:377

+clc;

+Z1real=4;

+Z1img=8;

+Z1mag=sqrt(Z1real^2+Z1img^2);

+Z1ang=atand(Z1img/Z1real);

+Z2real=3;

+Z2img=4;

+Z2mag=sqrt(Z2real^2+Z2img^2);

+Z2ang=atand(Z2img/Z2real);

+Z3real=15;

+Z3img=20;

+Z3mag=sqrt(Z3real^2+Z3img^2);

+Z3ang=atand(Z3img/Z3real);

+Vl=400;

+Vrnmag=230.94;

+Vrnang=0;

+Vynmag=230.94;

+Vynang=-120;

+Vbnmag=230.94;

+Vbnang=-240;

+//calculating the line currents

+Irmag=Vrnmag/Z1mag;

+Irang=Vrnang-Z1ang;

+Irreal=Irmag*cosd(Irang);

+Irimg=Irmag*sind(Irang);

+Iymag=Vynmag/Z2mag;

+Iyang=Vynang-Z2ang;

+Iyreal=Iymag*cosd(Iyang);

+Iyimg=Iymag*sind(Iyang);

+Ibmag=Vbnmag/Z3mag;

+Ibang=Vbnang-Z3ang;

+Ibreal=Ibmag*cosd(Ibang);

+Ibimg=Ibmag*sind(Ibang);

+disp(Irmag,"the magnitude of Ir current is (in A)");

+disp(Irang,"the angle of Ir current is (in degree)");

+disp(Iymag,"the magnitude of Iy current is (in A)");

+disp(Iyang,"the angle of Iy current is (in degree)");

+disp(Ibmag,"the magnitude of Ib current is (in A)");

+disp(Ibang,"the angle of Ib current is (in degree)");

+//calculating the neutral current

+Inreal=-(Irreal+Iyreal+Ibreal);

+Inimg=-(Irimg+Iyimg+Ibimg);

+Inmag=sqrt(Inreal^2+Inimg^2);

+Inang=atand(Inimg/Inreal);

+disp(Inmag,"the magnitude of neutral current is (in A)");

+disp(Inang,"the degree of neutral current is (in A)");

+//calculating the power in each phase

+Pr=Irmag^2*Z1real;

+Py=Iymag^2*Z2real;

+Pb=Ibmag^2*Z3real;

+P=Pr+Py+Pb;

+disp(P,"the total power absorbed by the load is (in W)");

+//in text book decimal values of variables used in power calculating are rounded off so power varies by 2 watts
\ No newline at end of file