%% 
%%  Ein Beispiel der DANTE-Edition
%%  
%%  7. Auflage
%% 
%%  Beispiel B-04-1 auf Seite 892.
%% 
%%  Copyright (C) 2016 Herbert Voss
%% 
%%  It may be distributed and/or modified under the conditions
%%  of the LaTeX Project Public License, either version 1.3
%%  of this license or (at your option) any later version.
%% 
%%  See http://www.latex-project.org/lppl.txt for details.
%% 
%% 
%% ==== 
% Show page(s) 1
%% 
%% 
\documentclass[]{exaarticle}
\pagestyle{empty}
\setlength\textwidth{193.16928pt}
\setlength\parindent{0pt}
%StartShownPreambleCommands
\usepackage{pstricks}
\newcommand\kreis[1]{\ensuremath{\mathbin{\settowidth{\dimen7}{\mbox{$\bigcirc$}}%
              \makebox[0pt][l]{$\bigcirc$}\makebox[\dimen7]{#1}}}}
%StopShownPreambleCommands
\begin{document}
\begin{pspicture}(-1,2.25)(8.2,-2)%\psset{unit=0.85cm}
\psframe[linewidth=0.5pt](-0.5,-2)(7.8,2)
\psline{->}(-1,0)(1.35,0)\rput[r](-1.2,0){\small Ein}\rput(1.5,0){$\bigoplus$}
\psline{->}(1.65,0)(3,0)\psframe[linewidth=0.5pt](3,-0.25)(4.5,.25)\rput(3.75,0){\small RotL f(x)}
\psline{->}(4.5,0)(8.25,0)\rput[l](8.3,0){\small Aus 2}
\pscircle(0.5,0){0.05}\psline{->}(0.5,0)(0.5,0.5)
\psframe[linewidth=0.5pt](-0.25,0.5)(1.25,1)\rput(0.5,0.75){\small RotL 13}
\psline{->}(0.5,1)(.5,1.35)\rput(.5,1.5){$\bigodot$}
\psline{->}(-1,1.5)(.35,1.5)\rput[r](-1.2,1.5){\small Key'}\rput(-1.4,1.2){\small (ungerade)}
\psline{->}(-1,-1.5)(1.5,-1.5)(1.5,-0.15)\rput[r](-1.2,-1.5){\small Key}
\psline{->}(0.65,1.5)(1,1.5)
\psframe[linewidth=0.5pt](1,1.25)(2.5,1.75)\rput(1.75,1.5){\small RotL 5}
\psline{->}(2.5,1.5)(3.5,1.5)
\psframe[linewidth=0.5pt](3.5,1.25)(5,1.75)\rput(4.25,1.5){\small RotL 5}
\pscircle(2.75,1.5){0.05}\psline{->}(2.75,1.5)(2.75,-1.35)\rput(2.75,-1.5){\kreis{e}}
\pscircle(3.25,1.5){0.05}\psline{->}(3.25,1.5)(3.25,0.25)
\pscircle(2,0){0.05}\psline{->}(2,0)(2,-0.5)
\psframe[linewidth=0.5pt](1.7,-0.5)(2.3,-1)\rput(2,-0.75){\small S}
\psline{->}(2,-1)(2,-1.5)(2.6,-1.5)\psline{->}(2.9,-1.5)(5.35,-1.5)
\pscircle(5.5,1.5){0.05}\psline{->}(5.5,1.5)(5.5,-1.35)\rput(5.5,-1.5){\kreis{e}}
\psline(5.65,-1.5)(6,-1.5)\psframe[linewidth=0.5pt](6,-1.75)(7.5,-1.25)\rput(6.75,-1.5){\small RotL g(x)}
\pscircle(6.75,1.5){0.05}\psline{->}(6.75,1.5)(6.75,-1.25)
\psline{->}(7.5,-1.5)(8.25,-1.5)\rput[l](8.3,-1.5){\small Aus 1}
\psline{->}(5,1.5)(8.25,1.5)\rput[l](8.3,1.5){\small Aus 3}
\end{pspicture}
\end{document}
