clc
clear all 
close all

% Polynome P
P = [11 -40 31]

% Polynome Q
Q = [1 -6 11 -6]

% 2

% Derivee de Q
A = polyder(Q)

% Evaluation de A pour -2
B = polyval(A,-2)

% Derivee de A
C = polyder(A)

%La fonction résidu convertit un quotient de polynômes en représentation pôle-résidu, et inversement.
[r,p,k] = residue(P,Q)

% Creation de l'axe des x
x = -5 : 0.05 :5 ;

% P(x) et Q(x)
xP = polyval(P, x);
xQ = polyval(Q, x);

% Traces
subplot(2,1, 1)
plot(x,xP,'r');
xlabel('x')
ylabel('P(x)')
title('P en fonction de x');
legend('P(x)')

subplot(2,1, 2)
plot(x,xQ,'r');
xlabel('x')
ylabel('Q(x)')
title('Q en fonction de x');
legend('Q(x)')