summaryrefslogtreecommitdiff
path: root/1760/CH7/EX7.25/EX7_25.sce
blob: 63d06d499f0bf016f5a0613ca66653b8f78b79ae (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
                         //EXAMPLE 7_25          PG  NO-484-485
A1=4/3;
A2=5/3;
B1=11/3;
B2=2;
C1=1/3;
C2=2;
D1=5/3;
D2=3;
A=A1+A2;
B=B1+B2;
C=C1+C2;
D=D1+D2;
X=(A*D)-(B*C);
disp(' X is   = '+string(X)+'');
Z=[A1 B1;C1 D1]*[A2 B2; C2 D2];
disp(' ABCD MATRIX is   = '+string(Z)+'');