initial commit / add all books

1 files changed, 38 insertions, 0 deletions

diff --git a/3673/CH9/EX9.7/Ex9_7.sce b/3673/CH9/EX9.7/Ex9_7.sce
new file mode 100644
index 000000000..8d9625650
--- /dev/null
+++ b/3673/CH9/EX9.7/Ex9_7.sce
@@ -0,0 +1,38 @@
+//Example 9_7 page no:356

+clc;

+Zrmag=3.61;

+Zrang=56.3;

+Zymag=2.23;

+Zyang=-63.4;

+Zbmag=5;

+Zbang=53.13;

+Zmag=19.10;

+Zang=47.3;

+//calculating the impedence magnitude and angle

+Zrymag=(Zrmag*Zymag);

+Zybmag=(Zymag*Zbmag);

+Zbrmag=(Zbmag*Zrmag);

+Zryang=(Zrang-Zyang);

+Zybang=(Zyang-Zbang);

+Zbrang=(Zbang-Zrang);

+Zrymag=Zmag/Zbmag;

+Zryang=Zang-Zbang;

+Zybmag=Zmag/Zrmag;

+Zybang=Zang-Zrang;

+Zbrmag=Zmag/Zymag;

+Zbrang=Zang-Zyang;

+//converting to rectangular form

+Zryrel=Zrymag*cosd(Zryang);

+Zryimg=Zrymag*sind(Zryang);

+Zry=Zryrel+(%i*Zryimg);

+disp(Zry,"the impedence Zry is(in ohm)");

+//converting to rectangular form

+Zybrel=(Zybmag*cosd(Zybang));

+Zybimg=(Zybmag*sind(Zybang));

+Zyb=Zybrel+(%i*Zybimg);

+disp(Zyb,"the impedence Zyb is(in ohm)");

+//converting to rectangular form

+Zbrrel=Zbrmag*cosd(Zbrang);

+Zbrimg=Zbrmag*sind(Zbrang);

+Zbr=Zbrrel+(%i*Zbrimg);

+disp(Zbr,"the impedence Zbr is(in ohm)");