Systême Bielle-Manivelle

Diagrammes des espaces et des vitesses.

%-----------------------------------------------------------
% système bielle-manivelle
%diagramme des espaces et des vitesses
%(c) JPaul Molina
%----------------------------------------------------------
clear all;
echo on;
%---------------------------------------------------------------
% système bielle-manivelle
% diagramme des espaces et des vitesses
%--------------------------------------------------------------
echo off;
N=input('Entrer la vitesse de rotation en t/min : ');
R=input('Entrer le rayon de la manivelle : ');
L=0;
while (L<=R)
   L=input('Entrer la longueur de bielle (>R) : ');
end;
teta=0:0.1:2*pi; 		%domaine 0  2pi
	%espace
rac=sqrt(L^2-(sin(teta)*R).^2);  	% .^2   puissance2 élément par élément
x=R*cos(teta)+rac;
	%vitesse
facteur=1+ R*cos(teta)/rac;
v=-R*(pi*N/30)*facteur*sin(teta);

clf;
subplot(2,1,1); 		% graphique 2lignes 1colonne zone1
plot(teta,x);
ylabel('x');
grid;

subplot(2,1,2); 		% graphique 2lignes 1colonne zone2
plot(teta,v);
xlabel('teta');
ylabel('dx/dt');
grid;