1 files changed, 14 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