From 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 Mon Sep 17 00:00:00 2001
From: prashantsinalkar
Date: Tue, 10 Oct 2017 12:27:19 +0530
Subject: initial commit / add all books

---
 3673/CH9/EX9.17/Ex9_17.sce | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 3673/CH9/EX9.17/Ex9_17.sce

(limited to '3673/CH9/EX9.17/Ex9_17.sce')

diff --git a/3673/CH9/EX9.17/Ex9_17.sce b/3673/CH9/EX9.17/Ex9_17.sce
new file mode 100644
index 000000000..313b5c62a
--- /dev/null
+++ b/3673/CH9/EX9.17/Ex9_17.sce
@@ -0,0 +1,26 @@
+//Example 9_17 page no:373
+clc;
+Vl=440;//line voltage
+Vrnmag=254;//phase voltage
+Vrnang=0;
+Vynmag=254;
+Vynang=-120;
+Vbnmag=254;
+Vbnang=-240;
+Zmag=25;
+Zang=53.13;
+//calculating the phase current
+Irmag=Vrnmag/Zmag;
+Irang=Vrnang-Zang;
+Iymag=Vynmag/Zmag;
+Iyang=Vynang-Zang;
+Ibmag=Vbnmag/Zmag;
+Ibang=Vbnang-Zang;
+disp(Irmag,"the magnitude of Ir is (in I)");
+disp(Irang,"the angle of Ir is (in degree)");
+disp(Iymag,"the magnitude of Iy is (in I)");
+disp(Iyang,"the angle of Iy is (in degree)");
+disp(Ibmag,"the magnitude of Ib is (in I)");
+disp(Ibang,"the angle of Ib is (in degree)");
+P=sqrt(3)*Vl*Irmag*cosd(53.13);
+disp(P,"the power absorbed by the load is (in W)");
-- 
cgit