%% 
%%  Ein Beispiel der DANTE-Edition
%%  
%%  7. Auflage
%% 
%%  Beispiel 35-00-72 auf Seite 847.
%% 
%%  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{352.81416pt}
\setlength\parindent{0pt}
%StartShownPreambleCommands
\usepackage{pstricks,pst-plot,pst-node,graphicx}
%StopShownPreambleCommands
\begin{document}
\resizebox{\linewidth}{!}{%
\newcommand{\R}{\mathbf{R}}
\newcommand{\eps}{\varepsilon}
\psset{xunit=.47cm,yunit=.47cm}
\begin{pspicture}(0,0.5)(28,19)
   \psaxes[labels=none,ticks=none]{->}(18,12)(17,11)(27,18)
   \psaxes[labels=none,ticks=none]{->}(18,2)(17,1)(27,8)
   \psline{->}(0,9)(11,9)
   \uput[r](11,9){$\R^n$} \uput[63](18,18){$\R^{m-n}$}
   \uput[r](27,12){$\R^n$} \uput[63](18,8){$\R^{m-n}$}
   \uput[r](27,2){$\R^n$}
   \psline[linewidth=1.2pt,linecolor=blue]{o-o}(1,9)(9,9)
   \psline[linewidth=1.2pt,linecolor=lightgray]{o-o}(3,9)(7,9)
   \qdisk(5,9){2pt} \uput[d](5,9){$p$}
   \uput[u](6.5,9){$U'$} \uput[u](8.5,9){$U$}
   \uput[d](21,2){$g\bigl(f(p)\bigr)$}
   \psline{->}(21,10.5)(21,6) \uput[r](21,8.5){$g$}
   \uput[10](25,15){$f(U)$}
   \pscurve[linewidth=1.2pt,linecolor=red]{-}(18.5,12.5)(19.5,13.5)(21,14)(22.5,14)(24.8,14.2)%
       (25.4,13.9)(25.5,13.3)(24.9,13.5)(24.8,14.2)(25,15)(24.5,16)
   \psecurve[linewidth=1.2pt,linecolor=magenta]{-}(18.5,12.5)(19.5,13.5)%
       (21,14)(22.5,14)(24.8,14.2)
   \pscircle[linestyle=dashed,linecolor=blue](21,14){0.8} \uput[45](22,15.2){$V$}
   \qdisk(21,14){2pt} \uput[d](21,14){$f(p)$}
   \psccurve[linestyle=dashed,linecolor=blue](19,2.8)(20.1,2.6)(21.7,2.9)(22.8,2)(22.3,0.7)(21,0.4)%
       (19.3,0.7)(19.5,2)
   \psline[linewidth=1.2pt,linecolor=lightgray]{-}(19.5,2)(22.8,2)
   \pscurve[linewidth=1.2pt,linecolor=red]{-}(18.5,1.5)(19,1.95)(19.5,2)
   \pscurve[linewidth=1.2pt,linecolor=red]{-}(22.8,2)(23.3,2.1)(24.5,3)(25.5,4.5)(26,4.8)%
       (26.7,4.4)(26,4)(25.5,4.5)(25,5.7)(24,6.3)
   \qdisk(21,2){2pt} \uput[15](25,5.7){$g(V)$}
   \pccurve[angleA=35,angleB=180,linecolor=magenta]{->}(6.5,10.5)(17,14) \Aput{$f$}
   \pcline[linecolor=magenta]{->}(6.5,8)(17,4) \Bput{$g\circ f$}
\end{pspicture}
}
\end{document}
