summaryrefslogtreecommitdiff
path: root/3793/CH6/EX6.4/exp_6_4.sce
blob: 82907e5110d95d49b1d68aa5b8ed517da3b390f4 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
clear;
clc;
y=[4 3 6;2 8 5;1 5 9];
nbus=3;
l11=4;
disp(y(1,2));
u12=(1/l11)*y(1,2);
u13=(1/l11)*y(1,3);
l21=2;
l22=y(2,2)-(l21*u12);
u23=(1/l22)*(y(2,3)-(l21*u13));
l31=1;
l32=y(3,2)-(l31*u12);
l21=2;
l33=y(3,3)-(l31*u13)-(l32*u23);
Yb=[l11 u12 u13; l21 l22 u23;l31 l32 l33];
mprintf("matrix for table of factor is\n")
disp(Yb);