Réponse impulsionnelle 2ème ordre

%------------------------------------
% réponse impulsionnelle 2ème ordre
% (c) JPaul Molina
%------------------------------------
clear all;                            % réinitialise
echo on
%---------------------------------
% réponse impulsionnelle 2éme ordre
%-----------------------------------
echo off
tmax=input('représentation : temps maxi en s ? ');    % 1.5 par exemple 
t=(0:0.01:tmax)';
K=input('Entrer K : ');       			% 1 par exemple  
a=input('Entrer le coefficient de p² : ');  
b=input('Entrer le coefficient de p  : '); 
denom=[a b 1];                         		% dénominateur ap²+ bp + 1
	% calcule la réponse impulsionnelle y(T)   
[y,X,T]=impulse(K,denom,t); 
clf;                                 		% efface la figure
plot(t,y);                           		% tracé
	% mise en place des légendes
title('réponse impulsionnelle 2ème ordre');
xlabel('temps en s');    			% légende abscisse
ylabel('y(t)');          			% légende ordonnée  
grid;                    			% dessine les axes

echo on
% placer la légende en cliquant à l'endroit souhaité
echo off

%le texte qui suit sera affiché au point cliqué
gtext( {'               K','F(p)= ---------------','          ap²+bp+1'} )