summaryrefslogtreecommitdiff
path: root/26/CH6/EX6.2.7/6_2_7.sce
blob: 475ff9dc40cbc80b4b15e563fabb0f5c5e97a282 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
disp('vectors u1 u2 and x are:')
u1=[2;-3]
u2=[6;4]
x=[9;-7]
disp(x,u2,u1)
disp('u1.u2=')
disp(u1'*u2)
disp('u1.u2=0, {u1 u2} is an orthogonal set')
disp('Hence {u1 u2} forms a basis of R2')
disp('x can be written as: x=a*u1+b*u2')
disp('where a=(x.u1)/(u1.u1)')
a1=x'*u1
a2=u1'*u1
a=a1/a2
disp(a,'=')
disp('and b=(x.u2)/(u2.u2)')
b1=x'*u2
b2=u2'*u2
b=b1/b2
disp(b,'=')