Fichier courbes016.mp (figure 2) — Modifié le 3 Avril 2008 à 21 h 53

Source

verbatimtex
%&latex
\documentclass{article}
\usepackage[frenchb]{babel}
\begin{document}
etex

vardef tand(expr f)=sind(f)/cosd(f)
enddef;

input courbescp13;

vardef fintraj(expr v,a)=v*v*sind(2*a)/10
enddef;

vardef traj(expr vv,aa)=x*(-0.5*10*(1+(tand(aa)*tand(aa)))*x/(vv*vv)+tand(aa))
enddef;

vardef tir[](expr vo,al)=courbe@(0,fintraj(vo,al),100,traj(vo,al))
enddef;

beginfig(1);
draw grille(0.5) withcolor gris;
origine((0.5,0.5));
unites(0.25,0.25);
draw axes;
legendey(btex hauteur de tir (m) etex);
legendex(btex distance du tir (m) etex);
draw tir1(15,45) withcolor rouge;
draw tir2(20,45) withcolor violet;
draw tir3(25,45) withcolor orange;
draw labelise1(btex ang=45\degres, f=15 etex,0.85);
draw labelise2(btex ang=45\degres, f=20 etex,0.6);
draw labelise3(btex ang=45\degres, f=25 etex,0.5);
endfig;

beginfig(2);
draw grille(0.5) withcolor gris;
origine((0.5,0.5));
unites(0.25,0.25);
dotlabel.bot(btex 1 etex,placepoint(4,0));
dotlabel.lft(btex 1 etex,placepoint(0,4));
draw axes;
legendey(btex hauteur de tir (m) etex);
legendex(btex distance du tir (m) etex);
for k=1 upto 3:
draw tir[k](25,10*(k+1));
endfor;
draw labelise1(btex ang=20\degres, f=25 etex,0.4);
draw labelise2(btex ang=30\degres, f=25 etex,0.4);
draw labelise3(btex ang=40\degres, f=25 etex,0.4);
for k=4 upto 6:
draw tir[k](25,10*(k+1)) dashed evenly;
endfor;
draw labelise4(btex ang=50\degres, f=25 etex,0.3);
draw labelise5(btex ang=60\degres, f=25 etex,0.3);
draw labelise6(btex ang=70\degres, f=25 etex,0.3);
draw tir7(25,45) withcolor rouge;
draw labelise7(btex ang=45\degres, f=25 etex,0.4);
endfig;
end