input courbes.mp;
%============================================================================
def fx(expr t) =
 			   t
enddef;
def fy(expr t) =
                t**2
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,-3,3,-1,9,1cm,1cm);
quad_x(0.5);
quad_y(0.5);
r_axes;
r_origine;
r_unites;
pickup pencircle scaled 0.8pt;
p = f_courbe(-3,3,100) ;
draw p withcolor blue ;
pickup pencircle scaled 0.5pt;
label.top(btex $y=x^{2}$ etex, r_point(2,1));
r_labelxy;
r_fin;
endfig;

end