diff options
Diffstat (limited to 'graphics/pstricks/contrib/pst-ode/pst-ode.pro')
-rw-r--r-- | graphics/pstricks/contrib/pst-ode/pst-ode.pro | 6 |
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 |