Abaque

%----------------------------------------------------
% choix d'une vitesse de rotation n
% en fonction du diamêtre
% à partir de la vitesse de coupe
%
% (c) JPaul Molina
%----------------------------------------------------

clear all;
echo on;
%---------------------------------------------------
% choix d'une vitesse de rotation n
% en fonction du diamêtre
% à partir de la vitesse de coupe
%---------------------------------------------------
echo off;

phi=20:100;
Vc=20;
for i=1:10
   n=i*Vc*1e3 ./(pi.*phi);
   plot(phi,n);
   text('String',['\leftarrow' num2str(i*Vc) ],...
      'Position',[30.0,n(find(phi==30))],...
      'HorizontalAlignment','left'); 		% affichage flêche gauche et Vc
   hold on;       
end
text(40,2600,'Vc varie de 20 à 200 m/min'); 
xlabel('\phi en mm');
ylabel('N en t/min');
title('Détermination de N');
echo on;
% cliquer un point pour avoir ses coordonnées
echo off;
[xc,yc] = ginput(1);  % attend 1pt de cliquage
text('String',['\phi=' num2str(xc,3) 'mm N=' num2str(yc,4) 't/min'],...
      'Position',[60.0,3200],...
      'HorizontalAlignment','left'); %

grid;