From c24cd9dce7085b9143aab5672bf70c869a716dcc Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sat, 14 May 2022 20:31:21 +0000 Subject: pst-ode (14may22) git-svn-id: svn://tug.org/texlive/trunk@63295 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/generic/pst-ode/pst-ode.tex | 15 ++++++++------- 1 file changed, 8 insertions(+), 7 deletions(-) (limited to 'Master/texmf-dist/tex/generic') 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 -- cgit v1.2.3