\documentclass[10pt,envcountsect]{beamer}

\mode<presentation> {
  \usetheme{Warsaw}
}

\usepackage[english]{babel}
\usepackage[latin1]{inputenc}
\usepackage{times}
\usepackage[T1]{fontenc}
\usepackage{pstricks}
\usepackage{multicol}
\usepackage{pstricks,pstricks-add,pst-math,pst-xkey}



\begin{document}

\title{Episode 07\\ Examples of functions in real life}
\subtitle{European section, season 01}
\date{}

\begin{frame}
  \titlepage
\end{frame}

\begin{frame}

{\scriptsize
\begin{center}
\psset{xunit=1,yunit=1}
\begin{pspicture}(0,0)(10,6)
\psline(0,0)(0.5688,0)(1.1344,0.06)(2.5195,0.45)(6.7546,2.99)(10.0000,5.58)
\psline[linestyle=dashed](0.5688,0)(0.5688,0)
\psline[linestyle=dashed](1.1344,0)(1.1344,0.06)
\psline[linestyle=dashed](2.5195,0)(2.5195,0.45)
\psline[linestyle=dashed](6.7546,0)(6.7546,2.99)
\uput[d](0.5688,0){\rotatebox{90}{\scriptsize $5688$}}
\uput[d](1.1344,0){\rotatebox{90}{\scriptsize $11344$}}
\uput[d](2.5195,0){\rotatebox{90}{\scriptsize $25195$}}
\uput[d](6.7546,0){\rotatebox{90}{\scriptsize $67546$}}
\psdots[dotstyle=+](0,0.5)(0,1)(0,1.5)(0,2)(0,2.5)(0,3)(0,3.5)(0,4)(0,4.5)(0,5)(0,5.5)
\uput[l](0,0.5){$2000$}
\uput[l](0,1){$4000$}
\uput[l](0,1.5){$6000$}
\uput[l](0,2){$8000$}
\uput[l](0,2.5){$10000$}
\uput[l](0,3){$12000$}
\uput[l](0,3.5){$14000$}
\uput[l](0,4){$16000$}
\uput[l](0,4.5){$18000$}
\uput[l](0,5){$20000$}
\uput[l](0,5.5){$22000$}
\psline{->}(0,0)(10.5,0)
\psline{->}(0,0)(0,6)
\end{pspicture}
\end{center}}

\end{frame}


\begin{frame}

\begin{center}\scriptsize
\psset{xunit=90.0cm,yunit=2cm,algebraic=true,dotstyle=*,dotsize=3pt 0,linewidth=0.8pt,arrowsize=3pt 2,arrowinset=0.25}
\begin{pspicture*}(-0.06,-1.32)(0.06,1.51)
\psaxes[xAxis=true,yAxis=true,Dx=0.01,Dy=0.5,ticksize=-2pt 0,subticks=2]{->}(0,0)(-0.05,-1.32)(0.05,1.51)
\psplot[plotpoints=200]{-0.04621451104100947}{0.0473186119873817}{sin(220*x)+0.1*sin(440*x)+0.4*sin(660*x)}
\end{pspicture*}
\end{center}


\end{frame}


\begin{frame}

{\scriptsize
\begin{center}
\psset{xunit=0.5cm,yunit=1.0cm,algebraic=true,dotstyle=*,dotsize=3pt 0,linewidth=0.8pt,arrowsize=3pt 2,arrowinset=0.25}
\begin{pspicture*}(-1,-0.84)(19,4.68)
\psaxes[xAxis=true,yAxis=true,Dx=2,Dy=1,ticksize=-2pt 0,subticks=2]{->}(0,0)(-0.43,-0.84)(18.51,4.68)
\psplot[plotpoints=200]{0}{17.38}{-0.04*x^2+0.58*x+2}
\rput[bl](-1.62,0.31){$z$}
\end{pspicture*}
\end{center}
}

\end{frame}

\begin{frame}

{\scriptsize
\begin{center}
\psset{xunit=0.0009cm,yunit=5.5cm,algebraic=true,dotstyle=*,dotsize=3pt 0,linewidth=0.8pt,arrowsize=3pt
2,arrowinset=0.25}
\begin{pspicture*}(-1000,-0.15)(10504.51,1.05)
\psaxes[xAxis=true,yAxis=true,Dx=1000,Dy=0.2,ticksize=-2pt 0,subticks=2]{->}(0,0)(-512.89,-0.07)(10504.51,1.05)
\psplot[plotpoints=200]{0}{10504.51037605458}{2^(-x/1620)}
\rput[bl](-247.87,1.16){$N$}
\end{pspicture*}
\end{center}}


\end{frame}

\end{document}
