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)");