70/CH3/EX3.2.2/3_2_2.sci


1
2
3
4
5
6
7
8
9

//page 156
clear;
close;
clc;
a=[1;1;1];
disp(a,'a=');
P=(a*a')/(a'*a);
disp(P,'Matrix that projects onto a line through a=(1,1,1) is');
//end