1 files changed, 19 insertions, 0 deletions
diff --git a/3293/CH2/EX2.20/Ex2_20.sce b/3293/CH2/EX2.20/Ex2_20.sce
new file mode 100755
index 000000000..6be2051ce
--- /dev/null
+++ b/3293/CH2/EX2.20/Ex2_20.sce
@@ -0,0 +1,19 @@
+//page 54
+//Example 2.20
+clear;
+clc;
+close;
+P = [-1 4 5; 0 2 -3; 0 0 8];
+disp(P,'P = ');
+disp(inv(P),'inverse(P) = ');
+a1 = P(:,1);
+a2 = P(:,2);
+a3 = P(:,3);
+disp('The vectors forming basis of F^3 are a1'', a2'', a3''');
+disp(a1','a1'' = ');
+disp(a2','a2'' = ');
+disp(a3','a3'' = ');
+disp('The coordinates x1'',x2'',x3'' of vector a = [x1,x2,x3] is given by inverse(P)*[x1; x2; x3]');
+t = -10*a1 - 1/2*a2 - a3;
+disp(t,'And, -10*a1'' - 1/2*a2'' - a3'' = ');
+//end