blob: ce50f544939a3e898dfac2252f9e186ca5940a0a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
|
s=%s;
m=s^4+2*s^3+8*s^2+4*s +3;
disp (m)
r= coeff (m)
n= length (r)
routh = routh_t (m) // Thi s Func t ion g e n e r a t e s the Routht a b l e
disp (routh ," r o u t h s t a b u l a t i o n=")
c =0;
for i =1: n
if ( routh (i ,1) <0)
c=c+1;
end
end
if(c >=1)
printf (" system is unstable ")
else printf (" system is stable ")
end
|
