Influence d'un pôle

%------------------------------------
% ajout d'un pôle sur un 2ème ordre
% réponse indicielle 
% (c) JPaul Molina
%------------------------------------
clear all;                            		% réinitialise
echo on
%---------------------------------
% réponse indicielle 
% ajout d'un pôle sur 2éme ordre
%-----------------------------------
echo off
tmax=input('représentation : temps maxi en s ? ');% 20 par exemple 
t=(0:0.01:tmax)';
K=input('Entrer K : ');                   	% 1 par exemple  
a=input('Entrer le coefficient de p² : ');	% 0.1 par exemple  
b=input('Entrer le coefficient de p  : ');	% 0.2 par exemple 
denom=[a b 1];                         	% dénominateur ap²+ bp + 1
	% effectue le produit des polynômes
denom1=conv( denom , [1/10 1] );  % tau = 0.1
denom2=conv( denom , [  2 1] );  % tau = 2
denom3=conv( denom , [10  1] );  % tau = 10

% calcule la réponse indicielle y(T)   
[y1,X,T]=step(K,denom1,t); 
[y2,X,T]=step(K,denom2,t); 
[y3,X,T]=step(K,denom3,t); 
clf;                                 		% efface la figure
plot(t,y1,t,y2,t,y3);                		% tracé

xpos=round(length(t)/6);
	% mise en place des légendes
title('Influence de l''ajout d''un pôle sur un 2ème ordre(réponse indicielle) ');
xlabel('temps en s');    			% légende abscisse
ylabel('y(t)');          			% légende ordonnée  
text( t(xpos,:), y1(xpos,:) , 'tau = 0.1' );
text( t(xpos,:), y2(xpos,:) , 'tau = 2' );
text( t(xpos,:), y3(xpos,:) , 'tau = 10' );
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)(1+tau p)'} )