input courbes.mp; %============================================================================ vardef fx(expr n) = n enddef; vardef fy(expr n) = ln(n) enddef; %============================================================================= beginfig(1); path p,q; repere(0,0,-1,8,-3,4,1cm,1cm); quad_x(0.5,1,black); quad_y(0.5,1,black); r_axes; r_origine; r_unites; pickup pencircle scaled 0.8pt; p = f_courbe(fx,fy,0.05,8,100); draw p;% withcolor blue ; pickup pencircle scaled 0.5pt; label.top(btex $y=\ln x$ etex, r_point(1,2)); r_labelxy; r_fin; endfig; end