summaryrefslogtreecommitdiff
path: root/257/CH6/EX6.6/example6_6.sce
blob: 539f0ae84cb12cf78b79013b92dec3b42b4fbf94 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
syms G1 G2 G3 G4 G5 H1 H2 H3 H4 H5;

T1=G1*G3*G4*G5*G2;

L1=-G1*H1;
L2=-G3*H3;
L3=-G2*H2*G1*G3;
L4=-G4*H4;
L5=-G5*H5;

delta=1-(L1+L2+L3+L4+L5)+(L1*L2+L1*L5+L1*L4+L2*L5+L3*L5)-(L1*L2*L5)
del1=1;

TF=(T1*del1)/delta ;
disp(TF,"C/R = ")