773/CH6/EX6.04/6_04.sci


1
2
3
4
5
6
7
8

//syslin//
exec parallel.sce;
syms G1 G2 G3 H;
a=series(G1,G2);
b=parallel(a,G3);
y=b/.H  //negative feedback operation
y=simple(y)
disp(y,"C(s)/R(s)=")