summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2017-06-14 21:14:48 +0000
committerKarl Berry <karl@freefriends.org>2017-06-14 21:14:48 +0000
commita994c5902423e8e50bb47ac78e1a555cad25a06e (patch)
treed65488fe981855e9e75922871af3c6c103f6ef1e
parent4642b26ce44a10c1fc7be7663d08ad15fc604ef7 (diff)
pst-ode (14jun17)
git-svn-id: svn://tug.org/texlive/trunk@44593 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r--Master/texmf-dist/doc/generic/pst-ode/ChangeLog4
-rw-r--r--Master/texmf-dist/doc/generic/pst-ode/pst-ode-doc.pdfbin128179 -> 128140 bytes
-rw-r--r--Master/texmf-dist/dvips/pst-ode/pst-ode.pro9
-rw-r--r--Master/texmf-dist/tex/generic/pst-ode/pst-ode.tex6
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
Binary files 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
}%