%% Autor: X. Rendtel 
%% Letzte Aenderung: 23.11.2008
 
\documentclass[10pt, a4paper]{article}
\usepackage[utf8x]{inputenc}
\usepackage{euler,calc,pstricks,rotating,graphicx,multido}
\usepackage{pst-pdf,pst-node,xcolor,pst-circ,pst-func,pst-math,pst-eucl,pstricks-add}
\usepackage[greek,german]{babel}
\usepackage[LGR,T1]{fontenc}
\usepackage{mathpazo,avant,courier}
 
\makeatletter\newcommand{\psxpoint}[3][black]{%
  \psline[linewidth=.5pt]{-}(#2,\pst@xticksizeB)(#2,\pst@xticksizeA)
  \rput[t](! #2 \pst@number\pslabelsep \pst@number\pst@xticksizeB add
    \pst@number\psyunit div neg ){\color{#1}#3}}
\makeatother

\makeatletter\newcommand{\psypoint}[3][black]{%
  \psline[linewidth=.5pt]{-}(\pst@yticksizeB,#2)(\pst@yticksizeA,#2)
  \rput[r](! \pst@number\pslabelsep \pst@number\pst@yticksizeA sub
    \pst@number\psxunit div neg #2){\color{#1}#3}}
\makeatother
 
\newcommand{\EUR}{\textgreek{\euro}}
\pagestyle{empty}
\begin{document}
  
\psset{
 dotstyle = *, plotpoints=10000, 
 dotsize = 3pt,
 linewidth = 3pt,
 linecolor = black,
 arrowsize = 3pt 2,
 arrowinset = 0.25,
 xunit = 1cm,
 yunit = 1cm,
 algebraic = true} 
 
\begin{pspicture}(-5,0)(5,5)
 
% Reinen Pstricks-Text schreiben 
\uput{0cm}[90](0,0){\includegraphics[width=3cm]{Quadratische_Gleichungen/Pstricks/laster}} 
% Flaeche zwischen zwei Funktionen wird gezeichnet 

 \pscustom[
 fillcolor = black
 ]{\gsave 
\psplot[
 linewidth = 0.2pt,
 linestyle = solid]% 
{-3}{3}{-(5/9)*x^2+5} 
 
\psplot[
 linewidth = 0.2pt,
 linestyle = solid]% 
{3}{-3}{6} 
 

 \fill[
 fillcolor = black,
 fillstyle = solid
 ] 
\grestore } 
\psplot[
 linewidth = 0.2pt,
 linestyle = solid]% 
{-3}{3}{-(5/9)*x^2+5} 
 
\psplot[
 linewidth = 0.2pt,
 linestyle = solid]% 
{-3}{3}{6} 
 
% Flaeche zwischen zwei Funktionen wird gezeichnet 

 \pscustom[
 fillcolor = black
 ]{\gsave 
\psplot[
 linewidth = 0.2pt,
 linestyle = solid]% 
{-3}{-5}{0} 
 
\psplot[
 linewidth = 0.2pt,
 linestyle = solid]% 
{-5}{-3}{6} 
 

 \fill[
 fillcolor = black,
 fillstyle = solid
 ] 
\grestore } 
\psplot[
 linewidth = 0.2pt,
 linestyle = solid]% 
{-3}{-5}{0} 
 
\psplot[
 linewidth = 0.2pt,
 linestyle = solid]% 
{-3}{-5}{6} 
 
% Flaeche zwischen zwei Funktionen wird gezeichnet 

 \pscustom[
 fillcolor = black
 ]{\gsave 
\psplot[
 linewidth = 0.2pt,
 linestyle = solid]% 
{3}{5}{0} 
 
\psplot[
 linewidth = 0.2pt,
 linestyle = solid]% 
{5}{3}{6} 
 

 \fill[
 fillcolor = black,
 fillstyle = solid
 ] 
\grestore } 
\psplot[
 linewidth = 0.2pt,
 linestyle = solid]% 
{3}{5}{0} 
 
\psplot[
 linewidth = 0.2pt,
 linestyle = solid]% 
{3}{5}{6} 
 
% Ein Graph wird gezeichnet 
\psplot[
 linewidth = 1pt,
 linestyle = solid]% 
{-3.0000}{3.0000}{-(5/9)*x^2+5} 
 
% xy-Daten werden gezeichent 
\readdata{\datenlesen}{bruecke.dat} 
\dataplot[
 stepLine=100,
 plotstyle = line,
 showpoints = false,
 dotscale = 1,
 dotstyle = Mul, 
linewidth = 1pt,
 linestyle = solid]% 
{\datenlesen} 
\end{pspicture} 
\end{document}