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);
  cadre((0,0),(17,7));
  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);
  cadre((0,0),(17,8));
  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