diff options
| author | Karl Berry <karl@freefriends.org> | 2013-10-28 22:43:29 +0000 |
|---|---|---|
| committer | Karl Berry <karl@freefriends.org> | 2013-10-28 22:43:29 +0000 |
| commit | 213d2d966fb5ccc4dd8b18087ed45dca981fcf9b (patch) | |
| tree | ef6e8ec7d8cdb044663e2e69679f73d1dfefb885 /Master/texmf-dist/tex/generic/pst-ode | |
| parent | b0c3863b02be037b745c8427100086629f4a6c51 (diff) | |
pst-ode (28oct13)
git-svn-id: svn://tug.org/texlive/trunk@32024 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/generic/pst-ode')
| -rw-r--r-- | Master/texmf-dist/tex/generic/pst-ode/pst-ode.tex | 13 |
1 files changed, 6 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 44c7eaeffc7..b183a7742d7 100644 --- a/Master/texmf-dist/tex/generic/pst-ode/pst-ode.tex +++ b/Master/texmf-dist/tex/generic/pst-ode/pst-ode.tex @@ -1,7 +1,7 @@ %% %% This is file `pst-ode.tex', %% -%% Alexander Grahn, (C) 2012 +%% Alexander Grahn, (C) 2012, 2013 %% %% This program can be redistributed and/or modified under the terms %% of the LaTeX Project Public License Distributed from CTAN archives @@ -11,8 +11,8 @@ %% ODEs using the Runge-Kutta-Fehlberg (RKF45) method with automatic %% step size adjustment %% -\def\fileversion{0.2} -\def\filedate{2012/09/14} +\def\fileversion{0.3} +\def\filedate{2013/10/28} \csname PSTODELoaded\endcsname \let\PSTODELoaded\endinput @@ -125,7 +125,7 @@ \ifPst@algebraic /ode@rpn (\expandafter\ode@zapspace\ode@arg\@nil) AlgParser cvx bind def /ODESET {%system of ODEs - tx@Dict begin /x exch def /y x def ode@rpn end xlength array astore + /x exch def /y x def tx@Dict begin ode@rpn end xlength array astore } bind def \else /ODESET { @@ -137,9 +137,8 @@ \ifPst@algebraicOutputFormat /ode@fmtrpn (\expandafter\ode@zapspace\ode@fmt\@nil) AlgParser cvx bind def /formatoutput {% - tx@Dict begin - ode@laststate /x exch def /y x def /t tcur def ode@fmtrpn - end + ode@laststate /x exch def /y x def /t tcur def + tx@Dict begin ode@fmtrpn end } bind def \else /formatoutput {[#2] assembleresult} def \fi% %perform ode integration |