input courbes.mp;
%============================================================================
def fx(expr t) =
 			   t
enddef;
def fy(expr t) =
                1/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,-3,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(-3,-0.01,100);
draw p withcolor blue ;
q = f_courbe(0.01,3,100);
draw q withcolor blue ;
pickup pencircle scaled 0.5pt;
label.top(btex $y=\frac{1}{x}$ etex, r_point(-2,1));
r_labelxy;
r_fin;
endfig;

end