%《線性代數實驗踐及MATLAB入門》第八章例題程序ag804
% 基向量及其夾角的計算
% 電子工業出版社出版  陳懷琛 龔杰民合著 2005年10月
%
v1=[7;-4;-2;9], v2=[-4;5;-1;-7]; % 輸入參數
v3=[9;4;4;-7], w=[-9;7;1;-4], 
v=[v1,v2,v3]					 % 將三個基向量組成矩陣
c=v\w						% 求三個基向量線性組合的系數
v10=v1/norm(v1), 
v20=v2/norm(v2), 
v30=v3/norm(v1),
theta12=acos((v1'*v2)/(norm(v1)*norm(v2)))
theta13=acos((v1'*v3)/(norm(v1)*norm(v3)))
theta23=acos((v3'*v2)/(norm(v3)*norm(v2)))