From b1f5c3f8d6671b4331cef1dcebdf63b7a43a3a2b Mon Sep 17 00:00:00 2001
From: priyanka
Date: Wed, 24 Jun 2015 15:03:17 +0530
Subject: initial commit / add all books

---
 2123/CH5/EX5.4/Exa_5_4.sce | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)
 create mode 100755 2123/CH5/EX5.4/Exa_5_4.sce

(limited to '2123/CH5/EX5.4/Exa_5_4.sce')

diff --git a/2123/CH5/EX5.4/Exa_5_4.sce b/2123/CH5/EX5.4/Exa_5_4.sce
new file mode 100755
index 000000000..965acc4d9
--- /dev/null
+++ b/2123/CH5/EX5.4/Exa_5_4.sce
@@ -0,0 +1,28 @@
+//Example No. 5.4
+clc;
+clear;
+close;
+format('v',7);
+
+//Given Data : 
+Ia1=10;//A
+V1=200;//volt
+N1=1800;//rpm
+Ra=0.6;//ohm
+Rfield=360;//ohm
+V2=180;//volt
+I_line=20;//A
+//fi2=V2/V1*fi1
+fi2BYfi1=V2/V1;
+//Ia1*fi1=Ia2*fi2
+Ia2=Ia1/fi2BYfi1;//A
+Eb1=V1-Ia1*Ra;//V
+Eb2=V2-Ia2*Ra;//V
+//Eb1/Eb2=fi1*N1/fi2/N2
+N2=N1/(Eb1/Eb2*fi2BYfi1);//rpm
+disp(N2,"Motor speed after supply voltage decreases in rpm : ");
+Ifield=V2/Rfield;//A
+Ia=I_line-Ifield
+//V2=Ia*(R+Ra)
+R=V2/Ia-Ra;//ohm
+disp(R,"Additional resistance in ohm : ");
-- 
cgit