input newcourbes;
input couleur;
input geometriesyr16;
input TEX;


verbatimtex
%&latex
\documentclass{article}
\usepackage[upright]{fourier}
\usepackage{color}
\def\E{\mathrm{e}}
\let\ve\vec
\def\DR{\mathcal{D}}
\def\CR{\mathcal{C}}
\def\HR{\mathcal{H}}
\newcommand{\Mathbold}[1]{\mbox{\boldmath$#1$\unboldmath}}
\begin{document}
etex

%%%%%%%%%%%%%%%%%%%%%%
%
%
% Lecture graphique 2nde
%
%



beginfig( 5)


%%%%%%%%%%%%%%%%%%%%%%%
vardef fx(expr t)=
t
enddef;

vardef fy(expr t)=
           4/(t+1)-3                   % c'est la seule ligne à changer
enddef;
%%%%%%%%%%%%%%%%%%%%%
repere(0,0,-9,9,-8,4,1cm,1cm);

fillcolor:=1.1*ciel;
path p;
p:=r_p(-11,-1)--r_p(11,-1)--r_p(11,5)--r_p(-11,5)--cycle;

transparence p;


r_axes;
r_origine;
r_unites;
r_labelxy;
%quad_xy(0.2,0.7white);
%quadu_xy(0.3white);
grad_x(1,1,0.4white);
grad_y(1,1,0.4white);




draw f_courbe(fx,fy,-0.5,10,100)withpen pencircle scaled 1.5bp withcolor red;
draw f_courbe(fx,fy,-10,-1.5,100)withpen pencircle scaled 1.5bp withcolor red;
draw rx_droite(-1) dashed evenly withcolor 0.2white withpen pencircle scaled 1.5bp ;
draw r_droite(-3,-3,0) dashed evenly withcolor 0.2white withpen pencircle scaled 1.5bp ;
draw r_droite(0,-2,1)  withcolor orange withpen pencircle scaled 1.5bp ;
draw r_droite(0,-1,0)  withcolor blue withpen pencircle scaled 1.5bp ;
label.bot(btex $\HR$ etex, r_p(-8,fy(-8)) ) withcolor red;
label.bot(btex $\Delta$ etex, r_p(5,3) ) withcolor orange;
label.bot(btex $I_1$ etex, r_p(1,fy(1)) ) withcolor red;
label.bot(btex $I_2$ etex, r_p(-3,fy(-3)) ) withcolor red;

r_fin;
endfig;

end