summaryrefslogtreecommitdiff
path: root/3293/CH3/EX3.16/Ex3_16.sce
blob: 9f7137d4bbe05ead2e051c51989efe55f9f69f5f (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
//page 92
//Example 3.16
clc;
clear;
close;
disp('T is a linear operator on R^2 defined as T(x1,x2) = (x1,0)');
disp('So, the matrix T in standard ordered basis B = {e1,e2} is ');
T = [1 0 ;0 0];
disp(T,'[T]B = ');
disp('Let B'' is the ordered basis for R^2 consisting of vectors:');
E1 = [1 1];
E2 = [2 1];
disp(E1,'E1 = ');
disp(E2,'E2 = ');
P = [E1;E2]'
disp(P,'So, matrix P = ');
Pinv = inv(P);
disp(Pinv,'P inverse = ');
T1 = Pinv*T*P;
disp(T1,'So, matrix T in ordered basis B'' is [T]B'' = ');
//end