[pstricks] Re: pst-infixplot + multido?

[Herbert Voss]

Holger Baier wrote:

> ich möchte gerne mittes pst-infixplot und multido untersummen bzw
> obersummen bei "beliebigen" (sinnvollen) Funktionsgraphen möglichst
> einfach (!) grafisch darstellen.
> Ist das möglich? Die Lösung mit dem pst-plot paket ist etwas kompliziert
> und kryptisch! Oder gibt es noch andere Möglichkeiten??

please use the mailing list address

Herbert


\documentclass[a4paper]{article}
\usepackage{pstricks}
\usepackage{pstricks-add}
\parindent=0pt
\makeatletter
\define at key[psset]{pstricks-add}{SumType}{\pst at expandafter\psset@@SumType{#1}\@nil}%
\def\psset@@SumType#1#2\@nil{%
   \ifx#1b\let\psk at SumType\z@\else\let\psk at SumType\@ne\fi}
\psset{SumType=below} % alternative SumType=above
%
\def\psSum{\pst at object{psSum}}
\def\psSum at i(#1,#2)#3#4{%
   \begin at SpecialObj%
   \addto at pscode{
     \ifPst at algebraic /Func (#4) tx at addDict begin AlgParser end cvx def \fi
     /x #1  def
     /dx #2 #1 sub #3 div def
     /scx { \pst at number\psxunit mul } def /scy { \pst at number\psyunit mul 
} def
     #3 {
%      newpath
       x scx 0 moveto
       \ifnum\psk at SumType<1
         \ifPst at algebraic Func \else #4 \fi scy dup x scx exch lineto
         /x x dx add def
         x scx exch lineto x scx 0 lineto
       \else
       /x x dx add def
       \ifPst at algebraic Func \else #4 \fi scy dup x dx sub scx exch lineto
       x scx exch lineto x scx 0 lineto
       \fi
%      closepath
       stroke
     } repeat
   }%
   \end at SpecialObj%
}
\makeatother
\begin{document}

\begin{pspicture}(10,5)
   \psaxes{->}(10,5)
   \psplot[plotpoints=100,linewidth=1.5pt,%
       linecolor=blue,algebraic]{0}{10}{sqrt(x)}
   \psSum[algebraic,linecolor=cyan,SumType=above](0,9){9}{sqrt(x)} % 
doesn't work
   \psSum[linecolor=red, fillstyle=vlines](0,9){9}{x sqrt}
\end{pspicture}

\end{document}