Re: Internal parameters of NDSolve, write-out of preliminary data
- To: mathgroup at smc.vnet.net
- Subject: [mg34933] Re: Internal parameters of NDSolve, write-out of preliminary data
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Thu, 13 Jun 2002 02:38:25 -0400 (EDT)
- Organization: Universitaet Leipzig
- References: <ae6ptq$e3v$1@smc.vnet.net>
- Reply-to: kuska at informatik.uni-leipzig.de
- Sender: owner-wri-mathgroup at wolfram.com
Hi,
t1 = 0;
i = 0;
NDSolve[{y''[t] == -y[t], y[0] == 1, y'[0] == 0}, y[t], {t, 0, 20Pi},
StoppingTest :> (i++; If[Mod[i, 10] == 0, Print[i," t->",t," dt->",t -
t1]]; t1 = t; False)]
Regards
Jens
"Telley, Ivo Andreas" wrote:
>
> Dear Mathematica cracks
>
> I am looking for some parameter calls, if any exist at all, for the NDSolve
> function of Mathmatica 4.1:
>
> I want to let the solver write out the actual step number and the point that
> it is calculating, say, for every 1000 steps. That way I could control more
> what the solver is doing and where it might be stuck (especially when
> solving almost singular problems).
>
> Has anyone more experience with this Solver and possibilities to control the
> its actual state?
>
> Thanks for helping me!
>
> Ivo