summaryrefslogtreecommitdiff
path: root/graphics/pstricks/contrib/pst-ode/pst-ode.pro
diff options
context:
space:
mode:
Diffstat (limited to 'graphics/pstricks/contrib/pst-ode/pst-ode.pro')
-rw-r--r--graphics/pstricks/contrib/pst-ode/pst-ode.pro6
1 files changed, 3 insertions, 3 deletions
diff --git a/graphics/pstricks/contrib/pst-ode/pst-ode.pro b/graphics/pstricks/contrib/pst-ode/pst-ode.pro
index 38cf998e9e..f9d8fdcf50 100644
--- a/graphics/pstricks/contrib/pst-ode/pst-ode.pro
+++ b/graphics/pstricks/contrib/pst-ode/pst-ode.pro
@@ -1,7 +1,7 @@
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%
% PostScript prologue for pst-ode.tex.
-% Version 0.18, 2022/11/24
+% Version 0.19, 2024/01/04
%
% Alexander Grahn (C) 2012--today
%
@@ -66,7 +66,7 @@ end
%[state vector x(t)] RKF45 => [x(t)] [x(t+ddt) by RKF4] errmax
/RKF45 {
dup
- ode@dict tcur end /t exch def
+ /t ode@dict tcur end def
ODESET
ode@dict
ddt mulvect /k1 exch def
@@ -174,7 +174,7 @@ end
%failed step -> reduce step size
ode@dict
exch pop pshrink exp 0.1 max sfty mul ddt mul /ddt exch def
- ode@dict tcur ddt add tcur end eq {
+ tcur ddt add tcur eq {
% error: step size underflow in ODEINT
(! t=) odeprint tcur odeprint
% print & remove previous state vector