1 files changed, 25 insertions, 0 deletions
diff --git a/26/CH4/EX4.4.7/4_4_7.sce b/26/CH4/EX4.4.7/4_4_7.sce
new file mode 100755
index 000000000..ffc73f74b
--- /dev/null
+++ b/26/CH4/EX4.4.7/4_4_7.sce
@@ -0,0 +1,25 @@
+disp('vector x=')
+x=[8;-9;6]
+disp(x)
+disp('the given basis is:')
+b1=[1;-1;-3]
+b2=[-3;4;9]
+b3=[2;-2;4]
+disp(b1,'b1=')
+disp(b2,'b2=')
+disp(b3,'b3=')
+disp('to solve the vector equation')
+disp('an augmented matrix is formed')
+a=[1 -3 2 8;-1 4 -2 -9;-3 9 4 6]
+disp(a,'A=')
+disp('performing row operations')
+a(2,:)=a(2,:)-(a(2,1)/a(1,1))*a(1,:)
+a(3,:)=a(3,:)-(a(3,1)/a(1,1))*a(1,:)
+disp(a)
+a(3,:)=a(3,:)/a(3,3)
+a(1,:)=a(1,:)-2*a(3,:)
+disp(a)
+a(1,:)=a(1,:)+3*a(2,:)
+disp(a)
+disp('Xb=')
+disp(a(:,4))
+\ No newline at end of file