4 files changed, 55 insertions, 0 deletions
diff --git a/3422/CH4/EX4.1/Ex4_1.sce b/3422/CH4/EX4.1/Ex4_1.sce
new file mode 100755
index 000000000..a5ad309e4
--- /dev/null
+++ b/3422/CH4/EX4.1/Ex4_1.sce
@@ -0,0 +1,14 @@
+//Example 4.1, Page 72
+clc;
+p1=poly([1, -3, 1], 'x', 'c')//Polynomial equation
+disp('Part a')
+disp('roots of the equation when slip at max torque')
+x=roots(p1)
+disp(x)
+
+
+p2=poly([0.146, -1.719, 1], 'x', 'c')//polynomial equation in scilab function
+y=roots(p2)
+disp('Part b')
+disp('roots of the equation when slip at max load')
+disp(y)
+\ No newline at end of file
diff --git a/3422/CH4/EX4.3/Ex4_3.sce b/3422/CH4/EX4.3/Ex4_3.sce
new file mode 100755
index 000000000..54d9ac6fc
--- /dev/null
+++ b/3422/CH4/EX4.3/Ex4_3.sce
@@ -0,0 +1,7 @@
+//Example 4.1, Page 76
+clc;
+p1=poly([.0016, -0.0266, 0.04], 'x', 'c')//Polynomial equation
+disp('Part a')
+disp('roots of the equation that slip will run is')
+x=roots(p1)
+disp(x)
+\ No newline at end of file
diff --git a/3422/CH4/EX4.5/Ex4_5.sce b/3422/CH4/EX4.5/Ex4_5.sce
new file mode 100755
index 000000000..f92fea291
--- /dev/null
+++ b/3422/CH4/EX4.5/Ex4_5.sce
@@ -0,0 +1,28 @@
+//Example 4.5, page 81
+clc
+pole=24
+Ns=245//in rpm
+N=(120*50)/pole//synchronous speed in rpm
+f=(N-Ns)/N
+p=110//in kw
+T=(p*1000*60)/(2*%pi*Ns)
+v1=440/sqrt(3)//in v
+ws=(2*%pi*250)/60
+s=0.02
+R=0.03125//in ohm
+x=sqrt(((3*R*v1**2)/(T*ws*s))-(R/s)**2)//by rearranging formula
+printf("\n Stator resistance per phase is %f ohm ",x)
+//calculating original resistance
+
+//Example 4.1, Page 72
+clc;
+p1=poly([72.78, -3235, 3190], 'x', 'c')//Polynomial equation
+disp('Part a')
+disp('The value of original resistance is')
+x=roots(p1)
+disp(x)
+
+//Taking r=0.99108
+r=(0.99108-R)/1.25**2
+
+printf("\n The value of resistance to be added is  %f ohm ",r)
+\ No newline at end of file
diff --git a/3422/CH4/EX4.6/Ex4_6.sce b/3422/CH4/EX4.6/Ex4_6.sce
new file mode 100755
index 000000000..321f4f688
--- /dev/null
+++ b/3422/CH4/EX4.6/Ex4_6.sce
@@ -0,0 +1,6 @@
+//Example 4.6, Page no 92
+clc
+disp("Part ii")
+new_sin_delta=sind(45)/.95
+delta=asind(new_sin_delta)
+printf("\n The value of delta is %f degree ",delta)
+\ No newline at end of file