<div dir="ltr"><div><div><span id="result_box" class="" lang="en"> <span style="font-family:verdana,sans-serif"><span class="">Hi,</span><span class=""><br>This code generates</span> <span class="">an error while</span> <span class="">it</span> <span class="">was working fine</span> <span class="">a month ago</span><span>.<br></span></span></span></div><span style="font-family:verdana,sans-serif"><span id="result_box" class="" lang="en"><span>Best regards,<br></span></span></span></div><span id="result_box" class="" lang="en"><span><span style="font-family:verdana,sans-serif">Fabrice</span><br><br><span style="font-family:verdana,sans-serif">\definecolor[mycolor][c=.4,m=0,y=0,k=0]<br><br>\starttext<br>\start<br>\switchtobodyfont[small]<br>\startMPcode<br>     input hvdm;<br>     input tex;<br>     l:=3mm; r:=0.6; alfa:=45; beta:=0; gamma:=0;<br>     defineDefaultArrow (l, r, alfa, beta, gamma);<br>     numeric xmin, xmax, ymin, ymax;<br>     xmin := 0; xmax := 110; ymax :=8000 ;ymin:=0; u := 0.1cm; v:= 0.002cm;<br>     color mycolor; mycolor:=(0.4,0,0);<br>     drawoptions(withpen pencircle scaled 0.3pt withcolor \MPcolor{mycolor});<br>     draw hlingrid(ymin,ymax,1000,16cm,11cm);<br>     draw vlingrid(xmin,xmax,10,11cm,16cm);<br>     pickup pencircle scaled 1pt ; <br>     arrowline ((xmin,0) -- (xmax,0)) scaled u;<br>     arrowline ((0,ymin) -- (0,ymax)) scaled v;<br>     drawoptions(withpen pencircle scaled 1pt);<br>     draw tightfunction ("x", "x*x-84*x+5000", 0, 100, 0.01) xyscaled (u,v);<br>     for i=0 step 10 until 100:<br>         label.bot(TEX("$"&decimal(i)&"$"),(i*u,0));<br>     endfor;<br>     for i=0 step 1000 until 7000:<br>         label.lft(TEX("$"&decimal(i)&"$"),(0,i*v));<br>      endfor;<br>   label.top("Nombre de lots",(90u,50v));<br>   label.lrt(btex $f(x)$ (en euros) etex,(0,7800v));<br>\stopMPcode<br>\stop<br>\stoptext</span><br></span></span></div>