diff options
Diffstat (limited to 'graphics/pstricks/contrib/pst-ode/pst-ode.tex')
-rw-r--r-- | graphics/pstricks/contrib/pst-ode/pst-ode.tex | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/graphics/pstricks/contrib/pst-ode/pst-ode.tex b/graphics/pstricks/contrib/pst-ode/pst-ode.tex index d57ff94273..b4b43b1cd2 100644 --- a/graphics/pstricks/contrib/pst-ode/pst-ode.tex +++ b/graphics/pstricks/contrib/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.15} -\def\filedate{2021/03/12} +\def\fileversion{0.16} +\def\filedate{2022/05/13} \csname PSTODELoaded\endcsname \let\PSTODELoaded\endinput @@ -159,7 +159,7 @@ \ifPst@algebraic /ode@rpn tx@Dict begin (\expandafter\ode@zapspace\ode@arg\@nil) AlgParser end cvx bind def /ODESET {%system of ODEs - /x exch def /y x def tx@Dict begin ode@rpn end ode@dict xlength end array astore + ode@dict /x exch def /y x def end tx@Dict begin ode@dict ode@rpn end end ode@dict xlength end array astore } bind def \else /ODESET { @@ -171,8 +171,8 @@ \ifPstODE@algebraicOutputFormat /ode@fmtrpn tx@Dict begin (\expandafter\ode@zapspace\ode@fmt\@nil) AlgParser end cvx bind def /formatoutput {% - ode@laststate /x exch def /y x def /t ode@dict tcur end def - tx@Dict begin ode@fmtrpn end + ode@dict ode@laststate /x exch def /y x def /t tcur def end + tx@Dict begin ode@dict ode@fmtrpn end end } bind def \else /formatoutput {[#2] assembleresult} def \fi% %perform ode integration |