Code:
\documentclass[12pt,a4paper]{article}
\usepackage[applemac]{inputenc}
\usepackage[ngerman]{babel}
\usepackage{graphicx}
\usepackage{pst-all}
\usepackage{pstricks-add}
\usepackage{pst-lens}
\usepackage{auto-pst-pdf}
\usepackage{pst-plot}
\makeatletter
\def\psgraph@v(#1,#2)(#3,#4)(#5,#6)#7#8{% with special origin
% Xorig | yorig | minX | minY | maxX | maxY | Length x-axis | length y-axis%
\pst@killglue%
\begingroup%
\pstFPsub\pst@tempA{#5}{#3}%
\pst@dimm=#7%
\pst@dimo=\pst@tempA pt%
\pstFPdiv\pst@@dx{\strip@pt\pst@dimm}\pst@tempA%
\pst@xunit=\pst@@dx\p@%
%
\ifx!#8\let\pst@yunit=\pst@xunit\else
\pst@dimm=#8%
\pstFPsub\pst@tempA{#6}{#4}%
\pstFPdiv\pst@@dy{\strip@pt\pst@dimm}\pst@tempA%
\pst@yunit=\pst@@dy\p@%
\fi%
%
\pst@dima=#3\pst@xunit \advance\pst@dima by \psk@llx%
\pst@dimb=#4\pst@yunit \advance\pst@dimb by \psk@lly%
\pst@dimc=#5\pst@xunit \advance\pst@dimc by \psk@urx%
\pst@dimd=#6\pst@yunit \advance\pst@dimd by \psk@ury%
\if@star\pspicture*(\pst@dima,\pst@dimb)(\pst@dimc,\pst@dimd)\else%
\pspicture(\pst@dima,\pst@dimb)(\pst@dimc,\pst@dimd)\fi%
\psset[pstricks]{xunit=\pst@xunit,yunit=\pst@yunit}
\ifdim\pst@xunit=\pst@yunit \psset[pstricks]{runit=\pst@xunit}\fi%
\psgrid[xunit=\myxunit cm,yunit=\myyunit cm,griddots=20,subgriddiv=0,gridlabels=0pt,gridwidth=0.5pt,gridcolor=red](\gridxmin,\gridymin)(\gridxmax,\gridymax)%
\bgroup%
\use@par%
\psaxes(#1,#2)(#3,#4)(#5,#6)%
\egroup%
\psgraph@vi(#1,#2)(#3,#4)(#5,#6)
}
\makeatother
\begin{document}
\begin{postscript}
\def\xlength{10}
\def\ylength{8}
\def\xmin{220}
\def\xmax{330}
\def\ymin{0}
\def\ymax{3}
\def\myDx{20}
\def\myDy{1}
\pstFPsub\myxunit{\xmax}{\xmin}
\pstFPdiv\myxunit{\xlength}{\myxunit}
\pstFPmul\myxunit{\myxunit}{\myDx}
\pstFPsub\myyunit{\ymax}{\ymin}
\pstFPdiv\myyunit{\ylength}{\myyunit}
\pstFPmul\myyunit{\myyunit}{\myDy}
\pstFPdiv\gridxmin{\xmin}{\myDx}
\pstFPdiv\gridxmax{\xmax}{\myDx}
\pstFPdiv\gridymin{\ymin}{\myDy}
\pstFPdiv\gridymax{\ymax}{\myDy}
\psset{
xAxisLabelPos={c,-0.9cm},
yAxisLabelPos={-1.2cm,c},
xAxisLabel=Wellenlänge/nm,
yAxisLabel=Absorption/arb. units
}
\pslegend[lt](10,10){
~~\psline[linecolor=black](-2,0.04)(2,0.04)~~&\scriptsize{dsDNA} \\
~~\psline[linecolor=black,linestyle=dashed](-2,0.04)(2,0.04)~~&\scriptsize{ssDNA}
}
\begin{psgraph}[
axesstyle=frame,
comma=true,
%ylogBase=10,
%logLines=y,
Dx=\myDx,
Dy=\myDy,
Ox=\xmin,
Oy=\ymin,
showorigin=true,
linewidth=1pt,
ticks=all,
tickstyle=inner,
ysubticks=5,
xsubticks=2,
xticksize=5pt,
% xticklinestyle=dotted,
yticksize=5pt,
subticksize=0.5,
tickwidth=1pt,
linecap=1,
linejoin=0,
subtickcolor=black,
subtickwidth=1pt,
labels=all
](\xmin,\ymin)(\xmax,\ymax){\xlength cm}{\ylength cm}%
\end{psgraph}
\end{postscript}
\end{document}
Lesezeichen