Wie kann ich meinen Infix-zu-Postfix-Operator für \psVolume wiederverwenden?

Question

Einschränkungen

Angenommen, ich möchte infix-RPNdas Paket aus einem unbekannten logischen Grund nicht verwenden (ernsthaft). Stattdessen möchte ich meine eigene A2PBeschreibung wie folgt verwenden. Im ersten Fall ist es erfolgreich, im zweiten Fall schlägt es fehl.

Fall 1 (erfolgreich)

\documentclass[pstricks,border=12pt]{standalone}
\usepackage{pst-plot}

\pstVerb{/A2P {exec AlgParser cvx /t ED  exec AlgParser cvx exec t RadtoDeg PtoC} def }

\def\RR#1{(2^(#1/10))}
\def\TT#1{(#1)}

\begin{document}
\begin{pspicture}[showgrid](-3,-3)(3,3)
  \psplot[algebraic,polarplot]{2 Pi mul neg}{4 Pi mul}{\RR{x}}
  \pscircle*[linecolor=red  ](!\RR{7*Pi/2} \TT{7*Pi/2} A2P){2pt}
  \pscircle*[linecolor=green](!{(2^(t/10))} {(3*Pi/2)} A2P){2pt}
  \pscircle*[linecolor=blue ](!\RR{t} \TT{5*Pi/2} A2P){2pt}
\end{pspicture}

\end{document}

Fall 2 (fehlgeschlagen)

\documentclass[pstricks,border=12pt]{standalone}
\usepackage{pst-func}

\pstVerb{/A2P {exec AlgParser cvx /t ED  exec AlgParser cvx exec t RadtoDeg PtoC} def }
\def\f(#1){(sin(#1)+1.2)}%

\begin{document}
\begin{pspicture}(-0.5,-3)(7,3)
    \psVolume[fillstyle=solid,fillcolor=orange!50,linecolor=blue](0,\psPiTwo){10}{{\f(x)} A2P}
\end{pspicture}
\end{document}

Frage

Wie kann ich wiederverwenden

\pstVerb{/A2P {exec AlgParser cvx /t ED  exec AlgParser cvx exec t RadtoDeg PtoC} def }

für \psVolume?

Answer 1

In Ihrem ersten Fall wenden Sie es A2Pauf die x- und y-Werte an. Der Funktionsparameter für \psVolumewird jedoch nur als einzelner Wert ausgewertet:

\documentclass[pstricks,border=12pt]{standalone}
\usepackage{pst-func}

\pstVerb{/A2P {exec AlgParser cvx exec} def }
\def\f(#1){(sin(#1)+1.2)}%

\begin{document}
\begin{pspicture}(-0.5,-3)(7,3)
    \psVolume[fillstyle=solid,fillcolor=orange!50,linecolor=blue](0,\psPiTwo){10}{{\f(x)} A2P}
\end{pspicture}
\end{document}