input courbes.mp;
%============================================================================
def fx(expr t) =
 			   t
enddef;
def fy(expr t) =
                sqrt(t)
enddef;
%=============================================================================
verbatimtex 
%&latex 
\documentclass{article} 
\usepackage{palatino} 
\newcommand{\vect}[1]{\overrightarrow{#1}}
\newcommand{\Vect}[1]{\overrightarrow{\strut #1}}
\begin{document} 
etex 
                
beginfig(1);	   
path p; 
repere(0,0,-1,9,-1,3,1cm,1cm);
quad_x(0.5);
quad_y(0.5);
r_axes;
r_origine;
r_unites;
pickup pencircle scaled 0.8pt;
p = f_courbe(0,9,100);
draw p withcolor blue ;
pickup pencircle scaled 0.5pt;
label.top(btex $y=\sqrt{x}$ etex, r_point(3,1));
r_labelxy;
r_fin;
endfig;

end