function ojo(td,k,te)
num=[(k/2)*td^2 -k*td k];
den=[conv([te 1],conv([te 1],[te 1]))];
sys=tf(num,den)
step(sys)
function ojo2(b,a,t5,t4,t3,t2,t1,s,t)
disp('t=1 step otherwise impulse')
if t==1
if s==1
num=[b];
den=conv([(1/2)*t5^2 t5 1],[t3 1]);
sys=tf(num,den)
num1=[a 0];
den1=[conv([(1/2)*t4^2 t4 1],conv([t1 1],[t2 1]))];
sys1=tf(num1,den1)
sys2=sys+sys1
step(sys2)
else
num=[b];
den=conv([(1/2)*t5^2 t5 1],[t3 1]);
sys=tf(num,den)
% num1=[(a/2)*t5^2 -a*t5 a 0];
% den1=[conv([t1 1][t2 1])];
% sys1=tf(num1,den1);
% sys2=sys+sys1
step(sys)
end
else
if s==1
num=[b 0];
den=conv([(1/2)*t5^2 t5 1],[t3 1]);
sys=tf(num,den)
num1=[a 0 0];
den1=[conv([(1/2)*t4^2 t4 1],conv([t1 1],[t2 1]))];
sys1=tf(num1,den1)
sys2=sys+sys1
step(sys2)
else
num=[b 0];
den=conv([(1/2)*t5^2 t5 1],[t3 1]);
sys=tf(num,den)
% num1=[(a/2)*t5^2 -a*t5 a 0];
% den1=[conv([t1 1][t2 1])];
% sys1=tf(num1,den1);
% sys2=sys+sys1
step(sys)
end
end
Para entrada step y

>> ojo2(0.24,1.2,0.6,0.3,1,0.46,0.4,0,1)
t=1 step otherwise impulse
Transfer function:
0.24
-------------------------------
0.18 s^3 + 0.78 s^2 + 1.6 s + 1

>> ojo2(0.24,1.2,0.6,0.3,1,0.46,0.4,1,1)
t=1 step otherwise impulse
Transfer function:
0.24
-------------------------------
0.18 s^3 + 0.78 s^2 + 1.6 s + 1
Transfer function:
1.2 s
-------------------------------------------------
0.00828 s^4 + 0.0939 s^3 + 0.487 s^2 + 1.16 s + 1
Transfer function:
0.218 s^4 + 0.9585 s^3 + 2.037 s^2 + 1.478 s + 0.24
----------------------------------------------------------------------------------------
0.00149 s^7 + 0.02336 s^6 + 0.1742 s^5 + 0.7472 s^4 + 1.958 s^3 + 3.123 s^2 + 2.76 s + 1

>> ojo2(0.24,1.2,0.6,0.3,1,0.46,0.4,0,0)
t=1 step otherwise impulse
Transfer function:
0.24 s
-------------------------------
0.18 s^3 + 0.78 s^2 + 1.6 s + 1

>> ojo2(0.24,1.2,0.6,0.3,1,0.46,0.4,1,0)
t=1 step otherwise impulse
Transfer function:
0.24 s
-------------------------------
0.18 s^3 + 0.78 s^2 + 1.6 s + 1
Transfer function:
1.2 s^2
-------------------------------------------------
0.00828 s^4 + 0.0939 s^3 + 0.487 s^2 + 1.16 s + 1
Transfer function:
0.218 s^5 + 0.9585 s^4 + 2.037 s^3 + 1.478 s^2 + 0.24 s
----------------------------------------------------------------------------------------
0.00149 s^7 + 0.02336 s^6 + 0.1742 s^5 + 0.7472 s^4 + 1.958 s^3 + 3.123 s^2 + 2.76 s + 1