1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
| t=[2 5 8 10 12 15 17 20 25 30 40];
y=[0.02 0.05 0.15 0.25 0.35 0.52 0.65 0.85 1.12 1.35 1.7];
p=diff(y)/3;
p2=diff(diff(y))/3;
tt=7;
ytg=p(tt)*t+y(tt)-(p(tt)*t(tt));
figure(1)
plot(t,y,'b');
hold on
plot(t,ytg,'r')
grid on
ym=polyfit(t(1:10),p,3);
poly=polyval(ym,t(1:10));
figure(2)
plot(t(1:10),poly,'r')
hold on
plot(t(1:10),p)
grid
title('Dérivée première')
ym=polyfit(t(1:9),p2,3);
poly=polyval(ym,t(1:9));
figure(3)
plot(t(1:9),poly,'r')
hold on
plot(t(1:9),p2)
grid
title('Dérivée seconde') |
Partager