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

---
 1332/CH5/EX5.9/5_9.sce | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100755 1332/CH5/EX5.9/5_9.sce

(limited to '1332/CH5/EX5.9/5_9.sce')

diff --git a/1332/CH5/EX5.9/5_9.sce b/1332/CH5/EX5.9/5_9.sce
new file mode 100755
index 000000000..976a1d5af
--- /dev/null
+++ b/1332/CH5/EX5.9/5_9.sce
@@ -0,0 +1,19 @@
+//Example 5.9
+//Modified Newton Raphson Method
+//Page no. 165
+clc;clear;close;
+deff('x=f(x)','x=exp(x)-3*x-sin(x)')
+deff('x=f1(x)','x=exp(x)-3-cos(x)')
+printf('n\txn\t\t\f(xn)\t\tf1(xn)\t\tXn+1\t\tError\n')
+printf('-----------------------------------------------------------------------------------------------------\n')
+x0=0;e=0.00001
+for i=1:4
+    x1=x0-f(x0)/f1(x0)
+    e1=abs(x0-x1)
+    printf(' %i\t%.10f\t%.10f\t%.10f\t%.10f\t%.10f\n',i-1,x0,f(x0),f1(x0),x1,e1)
+    x0=x1;
+    if abs(x0)<e then
+        break;
+    end
+end
+printf('\n\nTherefore, the root is %.10f',x1)
\ No newline at end of file
-- 
cgit