input courbes.mp;
%============================================================================
def fx(expr t) =
 			   t
enddef;
def fy(expr t) =
                t
enddef;
%=============================================================================
def gx(expr t) =
 			   t
enddef;
def gy(expr t) =
                -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,q; 
repere(0,0,-3,3,-1,4,1cm,1cm);
quad_x(1);
quad_y(1);
r_axes;
r_origine;
r_unites;
p = f_courbe(0,3,10);
q = g_courbe(-3,0,10);
draw p withcolor blue; draw q withcolor blue;
label.top(btex $y=\vert x \vert$ etex, r_point(-2.5,0.5));
r_labelxy;
r_fin;
endfig;

end