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/CH14/EX14.5/14_5.pdf | Bin 0 -> 6207 bytes
 1332/CH14/EX14.5/14_5.sce |  35 +++++++++++++++++++++++++++++++++++
 2 files changed, 35 insertions(+)
 create mode 100755 1332/CH14/EX14.5/14_5.pdf
 create mode 100755 1332/CH14/EX14.5/14_5.sce

(limited to '1332/CH14/EX14.5')

diff --git a/1332/CH14/EX14.5/14_5.pdf b/1332/CH14/EX14.5/14_5.pdf
new file mode 100755
index 000000000..261029857
Binary files /dev/null and b/1332/CH14/EX14.5/14_5.pdf differ
diff --git a/1332/CH14/EX14.5/14_5.sce b/1332/CH14/EX14.5/14_5.sce
new file mode 100755
index 000000000..eecf2d374
--- /dev/null
+++ b/1332/CH14/EX14.5/14_5.sce
@@ -0,0 +1,35 @@
+//Example 14.5
+//Romberg Method
+//Page no. 457
+clc;close;clear;
+
+deff('y=f(x)','y=1/(1+x)')
+
+h=[0.5,0.25,0.125]
+for k=1:3
+    for i=0:h(k):1
+        x(i/h(k)+1)=i;
+        y(i/h(k)+1)=f(x(i/h(k)+1))
+    end
+    n=1+(1/h(k))
+    //trapezoidal rule
+    S=0;
+     for i=1:n
+        if(i==1 | i==n)
+            S=S+y(i)
+        else
+            S=S+2*y(i)
+        end
+    end
+    S=S*h(k)/2
+    printf('\n\nI(%g) = %g',h(k),S)
+    z(2*k-1,1)=S
+end
+for i=2:3
+    for k=1:4-i
+    z(k*2+i-2,i)=z(2*k-1+i,i-1)+(z(2*k-1+i,i-1)-z(2*k-3+i,i-1))/3
+end
+end
+
+printf('\n\n')
+disp(z,'The Table of values:')
\ No newline at end of file
-- 
cgit