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

---
 1892/CH1/EX1.82/Example1_82.sce | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100755 1892/CH1/EX1.82/Example1_82.sce

(limited to '1892/CH1/EX1.82')

diff --git a/1892/CH1/EX1.82/Example1_82.sce b/1892/CH1/EX1.82/Example1_82.sce
new file mode 100755
index 000000000..a1e5401e1
--- /dev/null
+++ b/1892/CH1/EX1.82/Example1_82.sce
@@ -0,0 +1,27 @@
+// Example  1.82
+
+clc;clear;close;
+
+// Given data
+format('v',7);
+TstByTfl=1;//ratio
+TmaxByTfl=2;//ratio
+
+//calculations
+TstByTmax=TstByTfl/TmaxByTfl;//ratio
+//Formula : TstByTmax=2*Sm/(1+Sm^2)
+//TstByTmax*Sm^2-2*Sm+TstByTmax=0
+P=[TstByTmax -2 TstByTmax];//polynomial for Sm
+Sm=roots(P);//slip at max torque
+Sm=Sm(2);//neglecting the higher value
+disp(Sm,"(a) Slip at which max torque occurs : ");
+//Formula : TflByTmax=2*S*Sm/(S^2+Sm^2) 
+//S^2-TmaxByTfl*2*S*Sm+Sm^2=0
+P=[1 -TmaxByTfl*2*Sm Sm^2];//polynomial for S
+S=roots(P);//slip at max torque
+//Sm=Sm(2);//neglecting the higher value
+S=S(2);//neglecting the higher value
+disp(S,"(b) Full load slip : ");
+//I2stByI2fl^2=(Sm^2+S^2)/S^2/(1+Sm^2)
+I2stByI2fl=sqrt((Sm^2+S^2)/S^2/(1+Sm^2));//ratio
+disp(I2stByI2fl,"(c) Rotor current at starting ag full load current : ");
-- 
cgit