1 files changed, 14 insertions, 0 deletions
diff --git a/413/CH1/EX1.4/Example_1.sce b/413/CH1/EX1.4/Example_1.sce
new file mode 100644
index 000000000..b92d1239e
--- /dev/null
+++ b/413/CH1/EX1.4/Example_1.sce
@@ -0,0 +1,14 @@
+clearglobal()
+clc;
+fx='x.^3+2*x.^2-x+5'
+dfx='3*x.^2+4*x-1'
+x0=2.5;
+x = x0;   fa=eval(fx);
+tol=0.0000001
+while abs(fa)>tol
+x = x0;   fa=eval(fx); dfa=eval(dfx)
+x1=x0-fa/dfa;
+     X = [x0,x1];
+    disp(X)
+    x0=x1
+   end;
+\ No newline at end of file