summaryrefslogtreecommitdiff
path: root/26/CH2/EX2.5.7/2_5_7.sce
blob: 22c2cd9ee25339d3f6589f77593b0c3100a5f90a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
disp('given matrix is:')
a=[2 5;-3 -4]
d=a;
disp(a)
disp('performing row operations')
a(2,:)=a(2,:)-(a(2,1)/a(1,1))*a(1,:)
disp(a)
disp(a)
disp('thus, the upper triangular matrix is')
U=a;
disp(U,'U=')
disp('the lower triangular matrix is:')
L=[1 0;d(2,1)/d(1,1) 1];
disp(L,'L=')