summaryrefslogtreecommitdiff
path: root/70/CH2/EX2.4.2/2_4_2.sci
blob: 0b18a01c4cf17a77b661992fea40ae134ffb5056 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
//page 108
clear;
close;
clc;
A=[4 0 0;0 5 0];
disp(A,'A=');
[m,n]=size(A);
disp(m,'m=');
disp(n,'n=')
r=rank(A);
disp(r,'rank=');
disp('since m=r=2 ,there exists a right inverse .');
C=A'*inv(A*A');
disp(C,'Best right inverse=')
//end