initial commit / add all books

1 files changed, 38 insertions, 0 deletions

diff --git a/1670/CH3/EX3.6/3_6.sce b/1670/CH3/EX3.6/3_6.sce
new file mode 100755
index 000000000..0c16f5324
--- /dev/null
+++ b/1670/CH3/EX3.6/3_6.sce
@@ -0,0 +1,38 @@
+//Example 3.6

+//Gauss-Jordan Method

+//Page no. 57

+

+clc;clear;close;

+

+A=[10,1,1,12;1,10,1,12;1,1,10,12];     //augmented matrix

+

+for i=1:3

+    j=i

+    while (A(i,i)==0 & j<=3)

+        for k=1:4

+            B(1,k)=A(j+1,k)

+            A(j+1,k)=A(i,k)

+            A(i,k)=B(1,k)

+        end

+        disp(A)

+        j=j+1

+    end

+    for k=4:-1:i

+        A(i,k)=A(i,k)/A(i,i)

+    end

+    disp(A)

+    for k=1:3

+        if(k~=i) then

+           l=A(k,i)/A(i,i)

+           for m=i:4

+               A(k,m)=A(k,m)-l*A(i,m)

+           end

+        end

+       

+    end

+    disp(A)

+end

+

+for i=1:3

+    printf('\nx(%i) = %g\n',i,A(i,4))

+end
\ No newline at end of file