summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2022-05-14 20:31:21 +0000
committerKarl Berry <karl@freefriends.org>2022-05-14 20:31:21 +0000
commitc24cd9dce7085b9143aab5672bf70c869a716dcc (patch)
treee177e125e6cab5add4f19d1f8335758139b72af6 /Master/texmf-dist/tex/generic
parentfb60f796e4203505fecdb19affa7f288ba5cc18e (diff)
pst-ode (14may22)
git-svn-id: svn://tug.org/texlive/trunk@63295 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/generic')
-rw-r--r--Master/texmf-dist/tex/generic/pst-ode/pst-ode.tex15
1 files changed, 8 insertions, 7 deletions
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 d57ff94273d..7cb0e895733 100644
--- a/Master/texmf-dist/tex/generic/pst-ode/pst-ode.tex
+++ b/Master/texmf-dist/tex/generic/pst-ode/pst-ode.tex
@@ -4,15 +4,16 @@
%% Alexander Grahn, (C) 2012--today
%%
%% This program can be redistributed and/or modified under the terms
-%% of the LaTeX Project Public License Distributed from CTAN archives:
-%% http://mirrors.ctan.org/macros/latex/base/lppl.txt
+%% of the LaTeX Project Public License
+%%
+%% http://www.latex-project.org/lppl.txt
%%
%% `pst-ode' defines \pstODEsolve for integrating systems of first order
%% 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.17}
+\def\filedate{2022/05/14}
\csname PSTODELoaded\endcsname
\let\PSTODELoaded\endinput
@@ -159,7 +160,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 +172,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