%%%%%%%%%%%%%%%%%%%%%%% %%% Programme rst.m %%% %%%%%%%%%%%%%%%%%%%%%%% clear all; close all; % Définition du système à corriger s=tf('s') ; P=input('Fonction de transfert du système à corriger ?') [B,A]=tfdata(P,'v'); n=size(A,2)-1; a=A(1); A=A/a; B=B/a; B=B(1,2:n+1); % Choix du degré relatif delta0=input('Degré relatif du régulateur RST?') % Placement de pôles vitesse=input('partie réelle maximale des pôles en BF (entrer une valeur négative)?') dzeta=input('amortissement minimal des pôles en BF ?') poles_rapides=input('Quelle valeur pour les éventuels pôles rapides?') [Pbf1,Pbf2]=placement_poles(vitesse,dzeta,poles_rapides,A,B,n,delta0) % Calcul de Abf Abf1=poly(Pbf1); Abf2=poly(Pbf2); Abf=conv(Abf1,Abf2); % Calcul des polynômes R, S et T [R,S,T]=calcul_rst(A,B,Abf,Abf2,Pbf1,n,delta0) % Diagramme de Bode du système corrigé en boucle ouverte K=tf(R,S); L=P*K; figure, bode(L), grid;