summaryrefslogtreecommitdiff
path: root/104/CH6/EX6.4/6_4.sce
blob: edc0156b7690017d0ee811bed01d5133d14bf36b (plain)
1
2
3
4
5
6
7
8
9
//first element in any row of rouths tabulation is zero
s=%s
m=s^4+s^3+2*s^2+2*s+3
r=coeff(m);  //Extracts the coefficient of the polynomial
n=length(r); 
routh=routh_t(m)
disp(routh,"routh=")
printf("since there are two sign changes in the rouths tabulation,sys is unstable")