summaryrefslogtreecommitdiff
path: root/1151/CH6/EX6.9/example9.sce
blob: 4b2bd1854494d7126b3c847d808b34a93680101b (plain)
1
2
3
4
5
6
7
8
// f i r s t e l ement i n any row o f r o u t h s t a b u l a t i o n i s z e r o
clc;s=%s
m=s^3+s+1;
r= coeff (m); // Ex t r a c t s the c o e f f i c i e n t o f the po l ynomi a l
n= length (r);
routh = routh_t (m)
disp (routh ," r outh=")
printf (" since there are two sign changes the system is unstable")