plst-plot 1.26 (26jan11)

git-svn-id: svn://tug.org/texlive/trunk@21177 c570f23f-e606-0410-a88d-b1316a301751

5 files changed, 90 insertions, 7 deletions

diff --git a/Master/texmf-dist/doc/generic/pst-plot/Changes b/Master/texmf-dist/doc/generic/pst-plot/Changes
index 2c6825bd726..20417b00835 100644
--- a/Master/texmf-dist/doc/generic/pst-plot/Changes
+++ b/Master/texmf-dist/doc/generic/pst-plot/Changes
@@ -1,4 +1,8 @@
 ----- pst-plot.tex
+1.26  2011-01-24  - added \psCoordinates for drawing the coordinates
+                    of a given point
+                  - added \psFixpoint for visualizing the fixpoint
+                    iteration
 1.25  2010-12-14  - added \pslegend and style legendstyle for the
                     psgraph environment
 1.24  2010-11-14  - fix bug: replaced psk@ticks with psk@labels 
diff --git a/Master/texmf-dist/doc/generic/pst-plot/README b/Master/texmf-dist/doc/generic/pst-plot/README
index 57233cad60e..663d4fbe63e 100644
--- a/Master/texmf-dist/doc/generic/pst-plot/README
+++ b/Master/texmf-dist/doc/generic/pst-plot/README
@@ -12,4 +12,3 @@ TeX Frequently Asked Questions:
 pst-plot needs pstricks, which should be part of your
 local TeX installation, otherwise get it from a CTAN server, f.ex.
 http://mirror.ctan.org/graphics/pstricks/
-
diff --git a/Master/texmf-dist/doc/generic/pst-plot/pst-plot-doc.pdf b/Master/texmf-dist/doc/generic/pst-plot/pst-plot-doc.pdf
index b25ac1735ce..92f45d0d669 100644
--- a/Master/texmf-dist/doc/generic/pst-plot/pst-plot-doc.pdf
+++ b/Master/texmf-dist/doc/generic/pst-plot/pst-plot-doc.pdf
diff --git a/Master/texmf-dist/doc/generic/pst-plot/pst-plot-doc.tex b/Master/texmf-dist/doc/generic/pst-plot/pst-plot-doc.tex
index 69243ee6a49..64bf18cd442 100644
--- a/Master/texmf-dist/doc/generic/pst-plot/pst-plot-doc.tex
+++ b/Master/texmf-dist/doc/generic/pst-plot/pst-plot-doc.tex
@@ -9,10 +9,6 @@
 \let\pstFV\fileversion
 \let\belowcaptionskip\abovecaptionskip
 %
-\makeatletter
-\renewcommand*\l@subsection{\bprot@dottedtocline{2}{1.5em}{3.6em}}
-\renewcommand*\l@subsubsection{\bprot@dottedtocline{3}{3.8em}{4.5em}}
-\makeatother
 \def\bgImage{%
 \begin{pspicture}(-3.5,-3.5)(3.5,3.5)
 \psaxes[axesstyle=polar,subticklinestyle=dashed,subticks=2,
@@ -2913,8 +2909,51 @@ x sin dup mul x cos dup mul add sqrt
 \end{LTXexample}
 
 
+\clearpage
+\section{New macros}
+\subsection{\nxLcs{psCoordinates}}
+
+\begin{BDef}
+  \Lcs{psCoordinates}\OptArgs\Largr{\CAny}
+\end{BDef}
 
 
+\medskip
+\begin{LTXexample}[pos=t]
+\begin{pspicture}(-5mm,-1cm)(10,10)
+  \psaxes{->}(10,10)
+  \psplot[algebraic,linecolor=red,linewidth=2pt]{0}{10}{x^2/10}
+  \psCoordinates(*2 {x^2/10})
+  \psCoordinates[linecolor=blue,linestyle=dashed,
+     dotstyle=square,dotscale=2](*4 {x^2/10})
+  \psCoordinates[arrowscale=1.5,arrows=->](*6 {x^2/10})
+  \psCoordinates[arrows=->,linecolor=blue,linestyle=dotted,
+     dotstyle=triangle,dotscale=2](*8 {x^2/10})
+  \psCoordinates[dotscale=2](*9 {x^2/10})
+\end{pspicture}
+\end{LTXexample}
+
+\clearpage
+\subsection{\nxLcs{psFixpoint}}
+\begin{BDef}
+  \Lcs{psFixpoint}\OptArgs\Largb{$x_0$}\Largb{$f(x)$}\Largb{$n$}
+\end{BDef}
+
+$x_0$ is the start value of the iteration, $f(x)$ the function, which can either be in
+postfix or algebraic notation, for the latter it needs the optional argument \Lkeyword{algebraic}.
+The number of the iteration is given by $n$.
+
+\medskip
+\begin{LTXexample}[pos=t]
+\begin{pspicture}[algebraic](-5mm,-1cm)(10,10)
+  \psaxes{->}(10,10)
+  \psplot[linecolor=red,linewidth=2pt]{0}{10}{sqrt(5*x)}
+  \psline(10,10)
+  \psFixpoint[linecolor=blue]{9.5}{sqrt(5*x)}{20}
+  \psFixpoint[linestyle=dashed]{1}{sqrt(5*x)}{20}
+\end{pspicture}
+\end{LTXexample}
+
 \section{List of all optional arguments for \texttt{pst-plot}}
 
 \xkvview{family=pst-plot,columns={key,type,default}}
diff --git a/Master/texmf-dist/tex/generic/pst-plot/pst-plot.tex b/Master/texmf-dist/tex/generic/pst-plot/pst-plot.tex
index 0b97daebec3..6910192a1bc 100644
--- a/Master/texmf-dist/tex/generic/pst-plot/pst-plot.tex
+++ b/Master/texmf-dist/tex/generic/pst-plot/pst-plot.tex
@@ -1,4 +1,4 @@
-% $Id: pst-plot.tex 447 2011-01-19 15:23:33Z herbert $
+% $Id: pst-plot.tex 449 2011-01-25 17:43:06Z herbert $
 %% BEGIN pst-plot.tex
 %%
 %% plotting functions and data with PSTricks.
@@ -21,7 +21,7 @@
 \ifx\MultidoLoaded\endinput\else \input multido.tex \fi
 %
 \def\fileversion{1.26}
-\def\filedate{2011/01/19}
+\def\filedate{2011/01/24}
 \message{ v\fileversion, \filedate\space (tvz,hv)}
 %
 \edef\TheAtCode{\the\catcode`\@}
@@ -1334,6 +1334,16 @@ D\space##1%
                 \pst@number\pst@yticksizeB \pst@number\pslabelsep add
                 \pst@number\psxunit div neg #1){\psvlabel{#2}}}\ignorespaces}
 %
+\def\psCoordinates{\pst@object{psCoordinates}}
+\def\psCoordinates@i(#1){%
+  \pst@killglue%
+  \begin@OpenObj
+  \SpecialCoor%
+  \psline(#1|0,0)(#1)\psline(#1)(0,0|#1)\psdot(#1)%
+  \end@OpenObj%
+  \ignorespaces%
+}
+%
 \def\stripDecimals#1{\expandafter\@stripDecimals#1..\@nil}
 %% #1 integer
 %% #2 decimals
@@ -2227,6 +2237,37 @@ D\space##1%
     \expandafter\get@Label#2,\@nil
   \fi%
 }
+%
+\def\psFixpoint{\pst@object{psFixpoint}}
+\def\psFixpoint@i#1#2#3{% #1: xStart #2: f(x) #3: number of iterations
+  \pst@killglue%
+  \begingroup%
+  \use@par%
+  \@nameuse{beginplot@\psplotstyle}%
+  \addto@pscode{
+    \psplot@init
+      /x #1 def
+      /F@pstplot \ifPst@algebraic (#2) tx@AlgToPs begin AlgToPs end cvx
+                 \else { #2 } \fi  def
+      /xy { x \pst@number\psxunit mul F@pstplot dup /x ED \pst@number\psyunit mul } def 
+  }%
+  \gdef\psplot@init{}%
+  \@pstfalse%
+  \@nameuse{testqp@\psplotstyle}%
+  \addto@pscode{
+      mark
+      x \pst@number\psxunit mul 0
+      /n 2 def
+      #3 {
+        xy 
+        dup dup 
+        /n n 4 add def
+      } repeat 
+  }%
+  \@nameuse{endplot@\psplotstyle}%
+  \endgroup%
+  \ignorespaces}
+%
 \def\psResetPlotValues{%
   \psset{method={}}%
 }%