1 files changed, 38 insertions, 0 deletions
diff --git a/1670/CH3/EX3.5/3_5.sce b/1670/CH3/EX3.5/3_5.sce
new file mode 100755
index 000000000..bb3d8ff98
--- /dev/null
+++ b/1670/CH3/EX3.5/3_5.sce
@@ -0,0 +1,38 @@
+//Example 3.5
+//Gauss-Jordan Method
+//Page no. 57
+
+clc;clear;close;
+
+A=[1,2,1,8;2,3,4,20;4,3,2,16];     //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