% X. Rendtel
% Letzte Aenderung: 23.09.2008

\documentclass[10pt, a4paper]{article}
\usepackage[utf8x]{inputenc} 
\usepackage[tight]{units}
\usepackage{euler}
\usepackage{calc}
\usepackage{pstricks}
\usepackage{rotating}

\usepackage{pst-pdf}
\usepackage{pst-node}

\usepackage{xcolor}
\usepackage{graphicx}
%\usepackage{multido}
\usepackage{pst-circ}
\usepackage{pst-func}
\usepackage{pst-math}

\usepackage{pst-eucl}
\usepackage{fancyhdr}
\pagestyle{fancyplain}

\usepackage{pstricks-add}
\usepackage[greek,german]{babel}

%%% Nicht benötigte Pakete:
%\usepackage{pst-plot}
%\usepackage{pst-grad}
%\usepackage[all]{xy}
%\usepackage{rotating}
%\usepackage{pst-text}
\usepackage{pst-tree}
%\usepackage{wasysym}

%\usepackage{pst-xkey}
%\usepackage{mathe} % Mathematische Mengen und Symbole werden definiert












\thispagestyle{empty}
\pagestyle{empty}

%\SpecialCoor

\usepackage[LGR,T1]{fontenc}
\usepackage{mathpazo,avant,courier}
\newcommand{\EUR}{\textgreek{\euro}}

\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

\def\myLine#1(#2)(#3)#4{{%
  \pnode(#2){myA}\pnode(#3){myB}%
  \pcline[linestyle=dashed,tbarsize=15pt]{#1}(myA)(myB)%
  \ncput*{#4}}}



\newcommand{\knoten}[2][white]
{\Tr{\psframebox[fillcolor=#1!50,fillstyle=solid]{#2}}}

\begin{document}
\psset{xunit=1cm,yunit=1cm,dotstyle=*,dotsize=3pt
0,linewidth=0.8pt,arrowsize=3pt 2,arrowinset=0.25}

% Autor: X. Rendtel 
% Letzte Aenderung: 23.09.2008
\psset{xunit=0.8cm,yunit=0.8cm,algebraic=true}
\begin{pspicture}(0,0)(20,25) 
  
  \psline[linewidth=0.01pt](0,0)(20,0)(20,25)(0,25)(0,0)
%  \multido{\n=0+5}{6}{\psline[linewidth=1.5pt](0,\n)(20,\n)}
%  \multido{\n=5+10}{2}{\psline[linewidth=1.5pt,linestyle=dashed](\n,0)(\n,25)}
%  \psline[linewidth=1.5pt](10,0)(10,25)
  
  \rput[c](2.5,2.5){ \psscalebox{1.8}{
      \psset{plotstyle=curve,polarplot=true,linewidth=1.2pt,algebraic=false}
      \parametricplot[plotstyle=curve]{-360}{360}{t 1.5 mul sin t 2 mul 60 add sin} 
    }}
  
  \rput[c](2.5,7.5){ \psscalebox{1.8}{
      \psset{plotstyle=curve,polarplot=true,linewidth=1.2pt,algebraic=false}
      \parametricplot[plotstyle=curve]{-360}{360}{t 1.5 mul sin t 2 mul 60 add sin} 
    }}
  
  \rput[c](2.5,12.5){ \psscalebox{1.8}{
      \psset{plotstyle=curve,polarplot=true,linewidth=1.2pt,algebraic=false}
      \parametricplot[plotstyle=curve]{-360}{360}{t 1.5 mul sin t 2 mul 60 add sin} 
    }}
  
  \rput[c](2.5,17.5){ \psscalebox{1.8}{
      \psset{plotstyle=curve,polarplot=true,linewidth=1.2pt,algebraic=false}
      \parametricplot[plotstyle=curve]{-360}{360}{t 1.5 mul sin t 2 mul 60 add sin} 
    }}
  
  \rput[c](2.5,22.5){ \psscalebox{1.8}{
      \psset{plotstyle=curve,polarplot=true,linewidth=1.2pt,algebraic=false}
      \parametricplot[plotstyle=curve]{-360}{360}{t 1.5 mul sin t 2 mul 60 add sin} 
    }}
  

  \rput[c](7.5,2.5){ \psscalebox{1.8}{
      \psset{plotstyle=curve,polarplot=true,linewidth=1.2pt,algebraic=false}
      \parametricplot[plotstyle=curve]{-360}{360}{t 1.5 mul sin t 2 mul 60 add sin} 
    }}
  
  \rput[c](7.5,7.5){ \psscalebox{1.8}{
      \psset{plotstyle=curve,polarplot=true,linewidth=1.2pt,algebraic=false}
      \parametricplot[plotstyle=curve]{-360}{360}{t 1.5 mul sin t 2 mul 60 add sin} 
    }}
  
  \rput[c](7.5,12.5){ \psscalebox{1.8}{
      \psset{plotstyle=curve,polarplot=true,linewidth=1.2pt,algebraic=false}
      \parametricplot[plotstyle=curve]{-360}{360}{t 1.5 mul sin t 2 mul 60 add sin} 
    }}
  
  \rput[c](7.5,17.5){ \psscalebox{1.8}{
      \psset{plotstyle=curve,polarplot=true,linewidth=1.2pt,algebraic=false}
      \parametricplot[plotstyle=curve]{-360}{360}{t 1.5 mul sin t 2 mul 60 add sin} 
    }}
  
  \rput[c](7.5,22.5){ \psscalebox{1.8}{
      \psset{plotstyle=curve,polarplot=true,linewidth=1.2pt,algebraic=false}
      \parametricplot[plotstyle=curve]{-360}{360}{t 1.5 mul sin t 2 mul 60 add sin} 
    }}

  \rput[c](12.5,2.5){ \psscalebox{1.8}{
      \psset{plotstyle=curve,polarplot=true,linewidth=1.2pt,algebraic=false}
      \parametricplot[plotstyle=curve]{-360}{360}{t 1.5 mul sin t 2 mul 60 add sin} 
    }}
  
  \rput[c](12.5,7.5){ \psscalebox{1.8}{
      \psset{plotstyle=curve,polarplot=true,linewidth=1.2pt,algebraic=false}
      \parametricplot[plotstyle=curve]{-360}{360}{t 1.5 mul sin t 2 mul 60 add sin} 
    }}
  
  \rput[c](12.5,12.5){ \psscalebox{1.8}{
      \psset{plotstyle=curve,polarplot=true,linewidth=1.2pt,algebraic=false}
      \parametricplot[plotstyle=curve]{-360}{360}{t 1.5 mul sin t 2 mul 60 add sin} 
    }}
  
  \rput[c](12.5,17.5){ \psscalebox{1.8}{
      \psset{plotstyle=curve,polarplot=true,linewidth=1.2pt,algebraic=false}
      \parametricplot[plotstyle=curve]{-360}{360}{t 1.5 mul sin t 2 mul 60 add sin} 
    }}
  
  \rput[c](12.5,22.5){ \psscalebox{1.8}{
      \psset{plotstyle=curve,polarplot=true,linewidth=1.2pt,algebraic=false}
      \parametricplot[plotstyle=curve]{-360}{360}{t 1.5 mul sin t 2 mul 60 add sin} 
    }}
  
  \rput[c](17.5,2.5){ \psscalebox{1.8}{
      \psset{plotstyle=curve,polarplot=true,linewidth=1.2pt,algebraic=false}
      \parametricplot[plotstyle=curve]{-360}{360}{t 1.5 mul sin t 2 mul 60 add sin} 
    }}
  
  \rput[c](17.5,7.5){ \psscalebox{1.8}{
      \psset{plotstyle=curve,polarplot=true,linewidth=1.2pt,algebraic=false}
      \parametricplot[plotstyle=curve]{-360}{360}{t 1.5 mul sin t 2 mul 60 add sin} 
    }}
  
  \rput[c](17.5,12.5){ \psscalebox{1.8}{
      \psset{plotstyle=curve,polarplot=true,linewidth=1.2pt,algebraic=false}
      \parametricplot[plotstyle=curve]{-360}{360}{t 1.5 mul sin t 2 mul 60 add sin} 
    }}
  
  \rput[c](17.5,17.5){ \psscalebox{1.8}{
      \psset{plotstyle=curve,polarplot=true,linewidth=1.2pt,algebraic=false}
      \parametricplot[plotstyle=curve]{-360}{360}{t 1.5 mul sin t 2 mul 60 add sin} 
    }}
  
  \rput[c](17.5,22.5){ \psscalebox{1.8}{
      \psset{plotstyle=curve,polarplot=true,linewidth=1.2pt,algebraic=false}
      \parametricplot[plotstyle=curve]{-360}{360}{t 1.5 mul sin t 2 mul 60 add sin} 
    }}
    





\end{pspicture}

\end{document}