Code:
\documentclass[12pt]{article}
\usepackage{fp-basic,pstricks-add,pst-eps,xcolor}
\usepackage[dvips,margin=0.25cm,paperwidth=15.25cm,paperheight=11.25cm]{geometry}
\usepackage[ngerman]{babel}
\newcommand{\setvar}[2]{
\newcommand{#1}{#2}
}
\pagestyle{empty}
\input{Farben}
\begin{document}
\def\nameone{fehlende Primärstabilität,keine Integration,peri Wucherung}
\def\dataone{20,80,60}
\def\datatwo{40,100,0}
\newcounter{yoneVal}
\newcounter{ytwoVal}
\newcounter{xoneVal}
\newcounter{xtwoVal}
\setvar{\xtitel}{Grund Pantation}
\setvar{\xTitelPosition}{30}
\setvar{\ytitel}{Anzahl der Implantationen}
\setvar{\yTitelPosition}{1}
\setvar{\xmin}{0}
\setvar{\ymin}{0}
\setvar{\xmax}{6}
\setvar{\ymax}{100}
\setvar{\schritt}{10}
\setvar{\breite}{12.5}
\setvar{\hoehe}{8}
\setvar{\strichbreite}{5}
\setvar{\beschriftungswinkel}{55}
\setvar{\yRaster}{5}
% Interne Verarbeitung
\setvar{\yabstandeinheit}{\yabstand cm}
\setvar{\strichlaenge}{-\strichbreite}
\FPdiv{\balkenbreite}{\breite}{\xmax}
\FPdiv{\balkenbreite}{\balkenbreite}{2}
\setvar{\breiteeinheit}{\breite cm}
\setvar{\hoeheeinheit}{\hoehe cm}
\FPadd{\ymax}{\ymax}{\schritt}
%\FPsub{\ydiff}{\ymax}{\ymin}
\FPdiv{\yabstand}{1}{\ymax}
\FPmul{\yabstand}{\yabstand}{\hoehe}
\FPmul{\yabstand}{\yabstand}{\schritt}
\FPadd{\xmax}{\xmax}{\balkenbreite}
\setvar{\xTitelPos}{-\xTitelPosition}
\setvar{\yTitelPos}{-\yTitelPosition}
\psset{llx=-1.6cm,lly=-0.6cm,
yAxisLabel=\ytitel,
yAxisLabelPos={\yTitelPos,c},
xAxisLabel=\xtitel,
xAxisLabelPos={c,\xTitelPos}}
\begin{psgraph}[Dy=\schritt,dy=\yabstandeinheit,Dx=1,dx=1.5,
yticksize=\strichlaenge pt 0pt,
xticksize=0 -5pt,xsubticks=0,
ysubticks=\yRaster,labels=y](\xmin,\ymin)(\xmax,\ymax){\breiteeinheit}{\hoeheeinheit}
% Hilfslinien
\psaxes[labels=none,
ticks=y,
yticksize=0 \xmax,
ysubticks=5,
subticksize=1,
tickcolor=black!20,
subtickcolor=black!30,
subticklinestyle=dotted,
Dy=\schritt,
dy=\yabstandeinheit](\xmax,\ymax)
\psforeach{\nA}{\dataone}{
\stepcounter{xoneVal}
\psline[linewidth=\balkenbreite,linecolor=dia1](\thexoneVal,0)(\thexoneVal,\nA)
\uput*[90]{\beschriftungswinkel}(\thexoneVal,\nA){\small\nA}
\stepcounter{xoneVal}}
\psforeach{\nB}{\datatwo}{
\stepcounter{xtwoVal}
\stepcounter{xtwoVal}
\psline[linewidth=\balkenbreite,linecolor=dia2](\thextwoVal,0)(\thextwoVal,\nB)
\uput*[90]{\beschriftungswinkel}(\thextwoVal,\nB){\small\nB}}
\psforeach{\nD}{\nameone}{
\stepcounter{yoneVal}
\stepcounter{yoneVal}
\rput[c]{0}(\theyoneVal,-10){\parbox{3cm}{\small\nD}}}
% Legend
\psframe[linecolor=black,fillstyle=solid](4.7,109)(7.05,96)
\psline[linecolor=dia1,linewidth=7pt](4.8,105)(5.1,105)
\uput[0](5.1,105){augmentiert}
\psline[linecolor=dia2,linewidth=7pt](4.8,100)(5.1,100)
\uput[0](5.1,100){nicht augmentiert}
\end{psgraph}
\end{document}
So sieht das Ergebnis derzeit aus.
Lesezeichen