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/CH18/EX18.5/18_5.sce | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100755 1332/CH18/EX18.5/18_5.sce

(limited to '1332/CH18/EX18.5/18_5.sce')

diff --git a/1332/CH18/EX18.5/18_5.sce b/1332/CH18/EX18.5/18_5.sce
new file mode 100755
index 000000000..d0c1aefe1
--- /dev/null
+++ b/1332/CH18/EX18.5/18_5.sce
@@ -0,0 +1,29 @@
+//Example 18.5
+//Bender Schmidt Method
+//Page no. 625
+clc;clear;close;
+
+h=0.1;k=0.005;
+r=k/h^2;
+printf('\n j  |\ti -->\t')
+for i=0:10
+    printf('  %i\t',i)
+end
+printf('\n |  |\tx -->\t')
+for i=0:10
+    printf('%.3f\t',(i)/10)
+end
+printf('\n------------------------------------------------------------------------------------------------------')
+for j=1:9
+    printf('\n %i  |\t\t',j-1)
+    for i=1:11
+        if i==1 | i==11 then
+            u(j,i)=0;
+        elseif j==1 then
+            u(j,i)=sin(%pi*(i-1)/10)
+        else
+            u(j,i)=u(j-1,i)/2+(u(j-1,i-1)+u(j-1,i+1))/4
+        end
+        printf('%.3f\t',u(j,i))
+    end
+end
\ No newline at end of file
-- 
cgit