% 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}

\begin{pspicture}(-1,-1)(13.5,13.5)
\psgrid[gridlabels=0pt,gridwidth=1pt,subgridwidth=0.1pt,subgriddiv=10](0,0)(13,13)
\psaxes[Dx=1,dx=4,Dy=1,dy=4]{->}(0,0)(13,13)
\psline[linewidth=3pt]{-}(4,0)(4,8)
\psline[linewidth=3pt]{-}(4,8)(0,8)
\uput[-90](13,0){$x$}
\uput[90](0,13){$y$}

\end{pspicture}

\end{document}