Re: Extracting Terminal Value
- To: mathgroup at smc.vnet.net
- Subject: [mg35783] Re: Extracting Terminal Value
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Wed, 31 Jul 2002 01:33:17 -0400 (EDT)
- Organization: Universitaet Leipzig
- References: <ai5tr6$bqi$1@smc.vnet.net>
- Reply-to: kuska at informatik.uni-leipzig.de
- Sender: owner-wri-mathgroup at wolfram.com
Hi,
findTimeRange[expr_] :=
First[Union[
Cases[expr, InterpolatingFunction[___][_], Infinity] /.
InterpolatingFunction[a_, b__][_] :> First[a]]]
ff = NDSolve[{y''[x] == -y[x], y[0] == 1, y'[0] == 0}, y[x], {x, 0,
2Pi}]
and the endpoint is:
Last[findTimeRange[ff]]
Regards
Jens
"W. H. Harker" wrote:
>
> I am using StoppingTest in NDSolve, as a consequence the
> terminal value of the independent variable is unknown prior
> to NDSolve finishing. How does one extract this number from
> the Interpolation object?