pst-ode (14jun17)

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

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
--- a/Master/texmf-dist/doc/generic/pst-ode/pst-ode-doc.pdf
+++ b/Master/texmf-dist/doc/generic/pst-ode/pst-ode-doc.pdf
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
   }%