\documentclass[12pt,a4paper]{article}


\usepackage{arrayjob}
\usepackage{pstricks,pst-plot} 
\begin{document}


\psset{xunit=0.3in,yunit=0.3in,runit=0.3in,plotpoints=200,
       dash=4pt 4pt,linewidth=1.5pt,dotsep=4pt}  

\begin{figure}
	\centering
\begin{pspicture}(0,0)(15,15)  
\psaxes[linewidth=1pt,labels=none,ticks=none]{-}(0,0)(0,0)(15,15) 
\uput{1ex}[180](0,14){$x_{t+1}$} 
\uput{1ex}[270](14,0){$x_t$} 
\SpecialCoor
\psplot{0}{15}{4 x 1 add ln mul} 
  \uput{1.75ex}[240](!15 4 15 1 add ln mul){$\psi(x_t)$} 
\psline(0,0)(15,15) 
  \uput{1ex}[180](15,15){$x_{t+1}=x_t$} 
\def\x{9.34665} 
  \qdisk(\x,\x){3pt} 
  \psline[linestyle=dashed](\x,0)(\x,\x) 
  \uput{1ex}[270](\x,0){$x$} 
  \uput{1ex}[135](!\x\space 4 \x\space 1 add ln mul){$\psi'(x)<1$}
\pscustom[linewidth=1.2pt,arrowscale=1.5]{
   \code{/x 1 def 
         /y 4 x 1 add ln mul def} 
      \multido{\i=1+1}{4}{
          \moveto(!x y) 
          \psline{->}(!x x)(!x y) \closepath 
          \psline{->}(!x y)(!y y) \closepath 
          \code{/x y def 
                /y 4 x 1 add ln mul def} 
      } 
   \code{/x 15 def 
         /y 4 x 1 add ln mul def} 
      \multido{\i=1+1}{2}{
          \moveto(!x y) 
          \psline{->}(!x x)(!x y) \closepath 
          \psline{->}(!x y)(!y y) \closepath 
          \code{/x y def 
                /y 4 x 1 add ln mul def} 
      } 
}
\end{pspicture} 		
\end{figure}

\newpage



%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
\psset{xunit=0.3in,yunit=0.3in,runit=0.3in,plotpoints=200,
       dash=4pt 4pt,linewidth=1.5pt,dotsep=4pt}  
       
\begin{figure}
	\centering       
\begin{pspicture}(0,0)(15,15)  
\psaxes[linewidth=1pt,labels=none,ticks=none]{-}(0,0)(0,0)(15,15) 
\uput{1ex}[180](0,14){$x_{t+1}$} 
\uput{1ex}[270](14,0){$x_t$} 
\SpecialCoor
\psplot{0}{11}{2.71828 x 4 div exp 1 sub} 
  \uput{1.75ex}[180](!11 2.71828 11 4 div exp 1 sub){$\psi(x_t)$}
\psline(0,0)(15,15) 
  \uput{1ex}[180](15,15){$x_{t+1}=x_t$} 
\def\x{9.34665} 
  \qdisk(\x,\x){3pt} 
  \psline[linestyle=dashed](\x,0)(\x,\x) 
  \uput{1ex}[270](\x,0){$x$} 
  \uput{1ex}[135](!\x\space 2.71828 \x\space 4 div exp 1
sub){$\psi'(x)>1$} 
\pscustom[linewidth=1.2pt,arrowscale=1.5]{
   \code{/x 8.5 def 
         /y 2.71828 x 4 div exp 1 sub def} 
      \multido{\i=1+1}{4}{
          \moveto(!x y) 
          \psline{->}(!x x)(!x y) \closepath 
          \psline{->}(!x y)(!y y) \closepath 
          \code{/x y def 
                /y 2.71828 x 4 div exp 1 sub def} 
      } 
   \code{/x 9.9 def 
         /y 2.71828 x 4 div exp 1 sub def} 
      \multido{\i=1+1}{2}{
          \moveto(!x y) 
          \psline{->}(!x x)(!x y) \closepath 
          \psline{->}(!x y)(!y y) \closepath 
          \code{/x y def 
                /y 2.71828 x 4 div exp 1 sub def} 
      } 
}
\end{pspicture} 
\end{figure}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\begin{figure}
	\centering  

\newarray{\Months}
\readarray{Months}{January & February & Mars & April & May & June &
                   July & August & September & October & November & December}

\newarray{\ShortMonths}
\readarray{ShortMonths}{Jan & Feb & Mar & Apr & May &     &
                            &     & Sep & Oct & Nov & Dec}

\begingroup
\psset{unit=1.1}
\begin{pspicture}(-0.5,-0.5)(13,5)
  \psaxes[labels=y]{->}(13,5)
  \multido{\iMonth=1+1}{12}{%
    \checkMonths(\iMonth)%
    \rput[B](\iMonth,-0.3){\tiny\cachedata}}
\end{pspicture}
\endgroup

\vspace{1cm}
\begin{pspicture}(-0.5,-0.5)(13,5)
  \psaxes[labels=y]{->}(13,5)
  \multido{\iMonth=1+2}{6}{%
    \checkMonths(\iMonth)%
    \rput[B](\iMonth,-0.5){\small\cachedata}}
\end{pspicture}

\vspace{1cm}
\begin{pspicture}(-0.5,-0.5)(6.5,5)
  \psaxes[dx=0.5,labels=y]{->}(6.5,5)
  \multido{\iMonth=1+1,\nPos=0.5+0.5}{12}{%
    \checkShortMonths(\iMonth)%
    \ifx\cachedata\space
      \rput[B](\nPos,-0.4){\scriptsize\textbf{?}}
    \else
      \rput[B](\nPos,-0.4){\scriptsize\cachedata}
    \fi}
\end{pspicture}




\end{figure}




\end{document} 
