From a994c5902423e8e50bb47ac78e1a555cad25a06e Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Wed, 14 Jun 2017 21:14:48 +0000 Subject: pst-ode (14jun17) git-svn-id: svn://tug.org/texlive/trunk@44593 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/doc/generic/pst-ode/ChangeLog | 4 ++++ .../texmf-dist/doc/generic/pst-ode/pst-ode-doc.pdf | Bin 128179 -> 128140 bytes Master/texmf-dist/dvips/pst-ode/pst-ode.pro | 9 +++++---- Master/texmf-dist/tex/generic/pst-ode/pst-ode.tex | 6 +++--- 4 files changed, 12 insertions(+), 7 deletions(-) diff --git a/Master/texmf-dist/doc/generic/pst-ode/ChangeLog b/Master/texmf-dist/doc/generic/pst-ode/ChangeLog index 1431890c0b5..a8e8ba8eba0 100644 --- a/Master/texmf-dist/doc/generic/pst-ode/ChangeLog +++ b/Master/texmf-dist/doc/generic/pst-ode/ChangeLog @@ -1,3 +1,7 @@ +2017-06-14 + * version 0.9 + * fix: occasional failure of the stepping routine (zero relative error) + 2017-06-12 * version 0.8 * fix: Integration step size underflow doesn't lead to ps2pdf crashing diff --git a/Master/texmf-dist/doc/generic/pst-ode/pst-ode-doc.pdf b/Master/texmf-dist/doc/generic/pst-ode/pst-ode-doc.pdf index d42bad1bb95..05a448042ac 100644 Binary files a/Master/texmf-dist/doc/generic/pst-ode/pst-ode-doc.pdf and b/Master/texmf-dist/doc/generic/pst-ode/pst-ode-doc.pdf differ diff --git a/Master/texmf-dist/dvips/pst-ode/pst-ode.pro b/Master/texmf-dist/dvips/pst-ode/pst-ode.pro index 848ac7d728c..df404a2de86 100644 --- a/Master/texmf-dist/dvips/pst-ode/pst-ode.pro +++ b/Master/texmf-dist/dvips/pst-ode/pst-ode.pro @@ -1,7 +1,7 @@ %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % % PostScript prologue for pst-ode.tex. -% Version 0.8, 2017/06/12 +% Version 0.9, 2017/06/14 % % Alexander Grahn (C) 2012--today % @@ -117,10 +117,11 @@ end %scaling vector for step size adjustment (Numerical Recipies) eabsvect k1 eabsvect addvect {1e-30 add} forall xlength array astore % => [x(t)] [x(t+ddt) by RKF4] [err] [xscale] - %maximum rel. error - /errmax 0 def + /errmax 0 def %maximum rel. error edivvect {abs dup errmax gt {/errmax exch def}{pop} ifelse} forall errmax % => [x(t)] [x(t+ddt) by RKF4] errmax + %Sometimes, the rel. error is zero (Why is that???). So we add 1e-30 + 1e-30 add end } bind def /ODEINT { % performs integration over output step [t,t+dt] @@ -137,7 +138,7 @@ end exch pop pshrink exp 0.1 max sfty mul ddt mul /ddt exch def ode@dict tcur ddt add tcur end eq { % error: step size underflow in ODEINT - (!) odeprint + (! t=) odeprint tcur 256 string cvs odeprint true }{ (-) odeprint diff --git a/Master/texmf-dist/tex/generic/pst-ode/pst-ode.tex b/Master/texmf-dist/tex/generic/pst-ode/pst-ode.tex index 18fe40e9045..d5da5351236 100644 --- a/Master/texmf-dist/tex/generic/pst-ode/pst-ode.tex +++ b/Master/texmf-dist/tex/generic/pst-ode/pst-ode.tex @@ -11,8 +11,8 @@ %% ODEs using the Runge-Kutta-Fehlberg (RKF45) method with automatic %% step size adjustment %% -\def\fileversion{0.8} -\def\filedate{2017/06/12} +\def\fileversion{0.9} +\def\filedate{2017/06/14} \csname PSTODELoaded\endcsname \let\PSTODELoaded\endinput @@ -191,7 +191,7 @@ ] globaldict exch /#1 exch cvx put false setglobal - } repeat + } repeat (\string\n) odeprint \ifPstODE@saveData statefile closefile \fi end % tx@odeDict }% -- cgit v1.2.3