initial commit / add all books

1 files changed, 39 insertions, 0 deletions

diff --git a/1332/CH19/EX19.10/19_10.sce b/1332/CH19/EX19.10/19_10.sce
new file mode 100755
index 000000000..2c8156737
--- /dev/null
+++ b/1332/CH19/EX19.10/19_10.sce
@@ -0,0 +1,39 @@
+//Example 19.10

+//Non Linear 1st Order Hyperboolic Differential Equation

+//Page no. 667

+clc;clear;close;

+

+c=-2;k=0.05;h=0.2;

+r=abs(c)*k/h;

+printf('\n i\t x\t|\tj -->\t')

+for i=0:6

+    printf('  %i\t',i)

+end

+printf('\n |\t |\t|\tt -->\t')

+for i=0:6

+    printf('%.3f\t',i*k)

+end

+i=1;

+x=0;

+printf('\n---------------------------------------------------------------------------------------')

+for j=1:7

+    for i=1:6

+        if j==1 then

+            u(i,j)=exp(-x);

+            u(i+1,j)=exp(-(x+h));

+        elseif i==1 then

+            u(i,j)=1

+        else

+            u(i,j)=u(i,j-1)-k*(u(i+1,j-1)^2-u(i-1,j-1)^2)/(4*h)+k^2*((u(i+1,j-1)+u(i,j-1))*(u(i+1,j-1)^2-u(i,j-1)^2)-(u(i,j-1)+u(i-1,j-1))*(u(i,j-1)^2-u(i-1,j-1)^2))/(8*h^2)

+    end

+    x=x+h

+    end

+end

+x=0;

+for i=1:6

+    printf('\n %i\t%.1f\t|\t\t',i-1,x)

+    for j=1:7

+        printf('%.3f\t',u(i,j))

+    end

+    x=x+h

+end
\ No newline at end of file