70/CH6/EX6.3.1/6_3_1.sci


1
2
3
4
5
6
7
8
9
10
11
12

//332
clear;
close;
clc;
A=[-1 2 2]';
disp(A,'A=');
[U diagnol V]=svd(A);
disp(U,'U=');
disp(diagnol,'diagnol=');
disp(V','V''=');
disp(U*diagnol*V','A=U*diagnol*V''')
//end