path: root/104/CH5/EX5.7/5_7.sce

//characteristic equation from transfer function
s=%s
sys=syslin('c',1/(s^3+5*s^2+s+2))
c=denom(sys)
disp(c,"characteristic equation=")