switch_axes(0);
  xyztrange(-1.0,10.0,-7.0,1.0,-10.0,10.0,-1.0,6.0,-1.0,10.0,-7.0,1.0,0); 
  p:=element(0..5);
  h:=2;
  l:=8;
  f:=l+5;
  j:=element(1..3);
  segment(l-h*i,l);
  segment(-h*i,0);
  y:=-sqrt((x^2*(-l+x)^2*j^2)/(p^2*l^2-j^2*x^2));
  m:=min(l,p*l/j);
  plotfunc(y,x,0,m);
  a:=element(0..l);
  b:=-sqrt((a^2*(-l+a)^2*j^2)/(p^2*l^2-j^2*a^2));
  //O:=point(-0.4,0);
  //P:=point(l+0.4,0);
  //J:=point(a,b+0.2);
  couleur(segment(a+i*b,0),2);
  couleur(segment(a+i*b,l),2);
  ap:=sqrt((l-a)^2+b^2);
  ao:=sqrt(a^2+b^2);
  c:=ao+ap;
  //dessin des forces
  couleur(segment(a+i*b,a+(b-j)*i),1);
  couleur(segment(a+i*b,a+i*b+(l-a-b*i)*p/sqrt((-l+a)^2+b^2)),1); 
  couleur(segment(a+i*b,a+i*b+(-l+a+b*i)*p/sqrt((-l+a)^2+b^2)+j*i),1); 
  couleur(segment(a+i*b,a+i*b+(l-a-b*i)*p/sqrt((-l+a)^2+b^2)-j*i),4);
  //dessin de la poulie
  cercle(l,0.2);
  if (c<f){
  [couleur(segment(l+0.1,l+0.1+i*(c-f)),2),couleur( segment(l+i*(c-f),l+i*(c-f-p/10)),1),couleur( segment(l+0.2+i*(c-f),l+0.2+i*(c-f-p/10)),1),couleur( segment(l+0.2+i*(c-f),l+i*(c-f)),1),couleur( segment(l+0.2+i*(c-f-p/10),l+i*(c-f-p/10)),1)];
  };