257/CH6/EX6.19/example6_19.sce


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

syms G1 G2 G3 G4 H1 H2;

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

L1=-G1*H1*G2;
L2=-G3*H2*G2;
L3=-G2*G1*G3;
L4=-G4;
L5=-G2*G4*H1*H2;

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

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