From 7bc77cb1ed33745c720952c92b3b2747c5cbf2df Mon Sep 17 00:00:00 2001
From: prashantsinalkar
Date: Sat, 3 Feb 2018 11:01:52 +0530
Subject: Added new code

---
 3890/CH6/EX6.7/EX6_7.png | Bin 0 -> 40816 bytes
 3890/CH6/EX6.7/Ex6_7.sce |  28 ++++++++++++++++++++++++++++
 2 files changed, 28 insertions(+)
 create mode 100644 3890/CH6/EX6.7/EX6_7.png
 create mode 100644 3890/CH6/EX6.7/Ex6_7.sce

(limited to '3890/CH6/EX6.7')

diff --git a/3890/CH6/EX6.7/EX6_7.png b/3890/CH6/EX6.7/EX6_7.png
new file mode 100644
index 000000000..4ce346be3
Binary files /dev/null and b/3890/CH6/EX6.7/EX6_7.png differ
diff --git a/3890/CH6/EX6.7/Ex6_7.sce b/3890/CH6/EX6.7/Ex6_7.sce
new file mode 100644
index 000000000..3bd8d007d
--- /dev/null
+++ b/3890/CH6/EX6.7/Ex6_7.sce
@@ -0,0 +1,28 @@
+//Electric machines and power systems by Syed A Nasar
+//Publisher:Tata McGraw Hill
+//Year: 2002 ; Edition - 7 
+//Example 6.7
+//Scilab Version : 6.0.0    ; OS : Windows
+
+clc;
+clear;
+
+V=230;        //supply voltage in v
+Ra=.05;         //armature resistance in ohms
+Rf1=75;         //field resistance in no load in  ohms
+Rf2=100;        //field resistance in on load condition in ohms
+I1=7;N1=1120;   //no load current and speed 
+I2=46;          //on load current in A
+
+If=V/Rf1;
+Ia1=I1-If;
+K=(V-Ia1*Ra)/(N1*If);
+Ia2=I2-If;
+N=(V-Ia2*Ra)/(If*K);
+
+If1=V/Rf2;
+Ia0=I2-If1;
+n=(V-Ia0*Ra)/(If1*K);
+
+printf('the motor speed at line current of 46 A is %f rpm\n',N)
+printf('the new motor speed is %f rpm',n)
-- 
cgit