1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
| g = 9.81; %g s'exprime en m/s2
M = 10; %M s'exprime en kg
m = 5; %m s'exprime en kg
l = 1; %l s'exprime en m
F = 1; %F s'exprime en N
f1 = 'theta2';
f2 = '-g*((M+m)/(M*l))*theta1-(1/(M*l))*F';
f3 = 'x2';
f4 = '-g*(m/M)*theta1+(1/M)*F';
% SOLUTION APPROCHEE (calcul numérique et tracé graphique)
% obtenue avec RUNGE KUTTA 4
% ========================================================
% méthode de RUNGE KUTTA 4 (maillage constant h)
% --------------------------------------------
for i = 1:length(h)
[a,b1,b2,b3,b4] = dm_f_rk4_syst_portique_masse_suspendue(t0,tf,theta10,theta20,x10,x20,h(i),f1,f2,f3,f4);
subplot(2,2,i); plot(a,b1,'-b',a,b2,'-r',a,b3,'*k',a,b4,'-y');
title(['rk4 (h=',num2str(h(i)),')']);
hold on
end |
Partager