%% 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}(-4,-5)(5.2,6)
 
% Millimeterpapier wird erzeugt 
 \psgrid [
 xunit = 0.1,
 yunit = 0.1,
 gridwidth = 0.25pt,
 gridcolor = red,
 griddots = 0,
 gridlabels = 0pt,
 subgriddiv = 0,
 subgridwidth = 0pt,
 subgridcolor = red,
 subgriddots = 0]  
(0,0)(-40,-50)(40,50) 
  
 \psgrid [
 xunit = 0.5,
 yunit = 0.5,
 gridwidth = 0.5pt,
 gridcolor = red!100,
 griddots = 0,
 gridlabels = 0pt,
 subgriddiv = 0,
 subgridwidth = 0pt,
 subgridcolor = red,
 subgriddots = 0]  
 (0,0)(-8,-10)(8,10) 
  
 \psgrid [
 xunit = 1,
 yunit = 1,
 gridwidth = 0.75pt,
 gridcolor = red!100,
 griddots = 0,
 gridlabels = 0pt,
 subgriddiv = 0,
 subgridwidth = 0pt,
 subgridcolor = red,
 subgriddots = 0]  
 (0,0)(-4,-5)(4,5) 
  
% Ein Koordinatensystem wird gezeichnet 
\psaxes [
 comma,
 showorigin = false,
 Dx = 1,
 Dy = 1,
 dx = 0 pt,
 dy = 0 pt,
 Ox = 0,
 Oy = 0, 
linewidth = 0.8pt,
 linestyle = solid]{->}% 
(0,0) 
(-4,-5) 
(4,5) 
\uput{0}[-90]{0}(4.2,-0.2){$x$} 
\uput{0}[0]{0}(0.2,5){$y$} 
 
\end{pspicture} 
\end{document}