Funktionen werden innerhalb von \newcommand aufgerufen

[mf123]

\documentclass{article}
\usepackage{pst-plot}
\usepackage{pstricks-add}

\newcommand{\radianzwei}
{
\makeatletter
\def\pst@@@hlabel#1{\pshlabel{#1}}
\def\pshlabel#1{$%
\ifodd#1 %ungerade?
\ifnum#1>0
\frac{#1}{2}\pi%
\else
\pst@abs{#1}\pst@cnta
-\frac{\the\pst@cnta}{2}\pi%
\fi
\else%
\pst@cntb=#1\divide\pst@cntb by 2 % #1/2
\ifnum#1=2
\pi%
\else
\ifnum#1=-2
-\pi%
\else
\the\pst@cntb\pi
\fi
\fi
\fi$}%
\makeatother
}


\begin{document}

\radianzwei
\psset{xunit=1.570796327}
\begin{pspicture}(-5,-1.25)(6.3,1.25)
\psplot[linecolor=red,linewidth=1.5pt]%
{-5}{6.3}{x 180 mul 3.141592654 div sin}
\psaxes[showorigin=false]{->}(0,0)(-5,-1.25)(6.3,1.25)
% \psgrid[gridwidth=0.2pt,subgriddiv=2,gridlabels=0pt,griddots=20](-5,-1.25)(6.3,1.25) %Gitter
\end{pspicture}

\end{document}

Ich möchte den Code zwischen \makealetter und \makeatother gerne als kurzen Befehl \radianzwei definieren. Allerdings verlangt die Funktion \pshlabel ein Argument, was so zu einer Fehlermeldung führt. Wie muss ich meinen Code ändern, damit das gewünschte Ergebnis eintritt?

[u_fischer]

Für innere Argumente musst du die # verdoppeln:

\def\pst@@@hlabel##1{\pshlabel{##1}}

usw.

[mf123]

Danke für die Antwort, leider funktioniert mein Code immer noch nicht. Gibt es eine Doku, wo man Details des Codes (den ich aus einem Buch von H.Voss habe) nachlesen kann (z.B. was die Zeile \def\pst@@@hlabel##1{\pshlabel{##1}} für eine Funktion hat?)? Unten noch einmal der veränderte Code.

Die erste Fehlermeldung lautet:

"Missing Number, treatet as zero". Vermutlich wird das im Code angekündigte Argument vermisst, das jetzt nicht übergeben wird! Wie teile ich newcommand mit, dass kein Argument mitgeliefert werden muss?

Danke und Gruss, Marcel

\documentclass{article}
\usepackage{pst-plot}
\usepackage{pstricks-add}

\newcommand{\radianzwei}
{
\makeatletter
\def\pst@@@hlabel##1{\pshlabel{##1}}
\def\pshlabel##1{$%
  \ifodd##1	%ungerade?
			\ifnum##1>0
				\frac{##1}{2}\pi%
			\else
				\pst@abs{##1}\pst@cnta
				-\frac{\the\pst@cnta}{2}\pi%
			\fi
   \else%
			\pst@cntb=##1\divide\pst@cntb by 2 % ##1/2
				\ifnum##1=2
					\pi%
				\else
					\ifnum##1=-2
					-\pi%
					\else
					\the\pst@cntb\pi
					\fi
				\fi
   \fi$}%
\makeatother
}


\begin{document}

\radianzwei
\psset{xunit=1.570796327}
\begin{pspicture}(-5,-1.25)(6.3,1.25)
  \psplot[linecolor=red,linewidth=1.5pt]%
     {-5}{6.3}{x 180 mul 3.141592654 div sin}
  \psaxes[showorigin=false]{->}(0,0)(-5,-1.25)(6.3,1.25)
%	\psgrid[gridwidth=0.2pt,subgriddiv=2,gridlabels=0pt,griddots=20](-5,-1.25)(6.3,1.25) %Gitter
\end{pspicture}

\end{document}

[Epllus]

Wie wärs hiermit:

\documentclass{article} 
\usepackage{pst-plot} 
\usepackage{pstricks-add} 
\usepackage{xcolor}

\makeatletter 
\newcommand{\radianzwei} 
{%
\def\pst@@@hlabel##1{\pshlabel{##1}} 
\def\pshlabel##1{$% 
  \ifodd##1   %ungerade? 
         \ifnum##1>0 
            \frac{##1}{2}\pi% 
         \else 
            \pst@abs{##1}\pst@cnta 
            -\frac{\the\pst@cnta}{2}\pi% 
         \fi 
   \else% 
         \pst@cntb=##1\divide\pst@cntb by 2 % ##1/2 
            \ifnum##1=2 
               \pi% 
            \else 
               \ifnum##1=-2 
               -\pi% 
               \else 
               \the\pst@cntb\pi 
               \fi 
            \fi 
   \fi$}% 
} 
\makeatother 


\begin{document} 

\radianzwei 
\psset{xunit=1.570796327} 
\begin{pspicture}(-5,-1.25)(6.3,1.25) 
  \psplot[linecolor=red,linewidth=1.5pt]% 
     {-5}{6.3}{x 180 mul 3.141592654 div sin} 
  \psaxes[showorigin=false]{->}(0,0)(-5,-1.25)(6.3,1.25) 
%   \psgrid[gridwidth=0.2pt,subgriddiv=2,gridlabels=0pt,griddots=20](-5,-1.25)(6.3,1.25) %Gitter 
\end{pspicture} 

\end{document} 
 

Hoffe es hilft
Epllus

[mf123]

Danke, jetzt hat es geklappt! Beim Einbinden ins persönliche Package musste ich die Dollarzeichen bei jedem Ausdruck einzeln setzen.

Lieber Gruss

Marcel