\documentclass{beamer}
\usepackage[utf8]{inputenc}
\usepackage[T1]{fontenc}
\usepackage[francais]{babel}
  \usetheme{Warsaw}
\usepackage{amsmath,amssymb,graphicx,multicol,mathrsfs, fancyhdr,enumerate,fourier,eurosym,alterqcm,enumerate,tabularx,variations,numprint}
\usepackage[francais]{babel}
\usepackage{amssymb}
\usepackage{amsmath}
\usepackage{amsthm}
\usepackage{pstricks,pst-plot,pst-text,pst-tree,pst-eps,pst-fill,pst-node,pst-math}


\usepackage{pgf}

\usepackage{times}

\usepackage{graphicx}
\title{\textcolor{yellow}{Construction des termes d'une suite définie par récurrence}}
\date{}
\author{}

\begin{document}

\begin{frame}
\begin{block}
{\maketitle}
  \end{block}
  \end{frame}

\begin{frame}
\begin{block}
{On considère la suite définie par récurrence par $\begin{cases}u_0=0,2\\u_{n+1}=\dfrac{u_n+3}{2u_n+1}\end{cases}  $}\end{block}
  \end{frame}
  
  \begin{frame}
\begin{block}
{On trace la courbe représentative de la fonction $x\mapsto \dfrac{x+3}{2x+1}$ puis la droite d'équation $y=x.
$}
  \end{block}
  \end{frame}
\begin{frame}
\psset{xunit=2cm , yunit=2cm}
\begin{pspicture*}(-0.1,-0.1)(4.1,4.1)
\def\xmin{0} \def\xmax{4} \def\ymin{0} \def\ymax{4}
\psframe[linewidth=0.3pt,linecolor=gray](-0.1,-0.1)(4.1,4.1)
\def\pshlabel#1{\psframebox*[framesep=1pt]{\small #1}}
\def\psvlabel#1{\psframebox*[framesep=1pt]{\small #1}}
\psclip{%
\psframe[linestyle=none](\xmin,\ymin)(\xmax,\ymax)
}
\newrgbcolor{couleur1}{0.6549 0.6549 0}
\newrgbcolor{couleur2}{0 0.3176 0.4745}
\newrgbcolor{couleur3}{0.0941 0.647 0.0196}

\def\F{x 3 add 2 x mul 1 add div}
\psplot[linecolor=gray,linewidth=0.5pt,linestyle=solid]{0}{4}{x}
\psplot[linewidth=1.2pt,linecolor=black,linestyle=solid,plotpoints=1000]{0}{4}{\F}

\endpsclip
\psaxes[labels=all,labelsep=1pt, Dx=1,Dy=1,Ox=0,Oy=0]{-}(0,0)(\xmin,\ymin)(\xmax,\ymax)
\uput[dl](0,0){ O}
\pcline[linewidth=1pt]{->}(0,0)(1,0) \uput[d](0.5,0){ $\vec{\imath}$}
\pcline[linewidth=1pt]{->}(0,0)(0,1) \uput[l](0,0.5){ $\vec{\jmath}$}
\uput[-90](0.2,0){ $u_0$}
\pause
\psline[linecolor=red](0.2,0)(0.2,2.28571428571)
\pause
\uput[180](0,2.28571){ $u_1$}
\pause
\psline[linecolor=red](0.2,2.28571428571)(2.28571428571,2.28571428571)
\pause
\uput[-90](2.28571,0){ $u_1$}
\pause
\psline[linecolor=red](2.28571428571,2.28571428571)(2.28571428571,0.948717948719)
\pause
\psline[linecolor=red](2.28571428571,0.948717948719)(0.948717948719,0.948717948719)
\uput[180](0,0.94871){ $u_2$}
\pause
\uput[-90](0.94871,0){ $u_2$}
\pause
\psline[linecolor=red](0.94871,0.94871)(0.94871,1.36283185841)
\pause
\uput[180](0,1.36283){ $u_3$}
\pause
\psline[linecolor=red](0.94871,1.36283185841)(1.36283185841,1.36283185841)
\pause
\uput[-90](1.36283,0){ $u_3$}

\uput[180](0,1.17102){ $u_4$}
\uput[-90](1.17102,0){ $u_4$}
\uput[180](0,1.24804){ $u_5$}
\uput[-90](1.24804,0){ $u_5$}
\end{pspicture*}
  \end{frame}



\label{fin}
\end{document}  