Re: Re: NDSolve: Precision and Stability
- To: mathgroup at smc.vnet.net
- Subject: [mg42524] Re: [mg42488] Re: NDSolve: Precision and Stability
- From: "Reza Malek-Madani" <research at usna.edu>
- Date: Sat, 12 Jul 2003 05:19:31 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
Kevin: Bob's code works for me. I am running Mathematica 4.1 for SGI
IRIX. If you'd like, I could email you the session.
Reza
-------------------------------------------------------------------------
Reza Malek-Madani, Director of Research and Scholarship
Research Office, MS 10m, Nimitz Room 17
589 McNair Road
U.S. Naval Academy
Annapolis MD 21402-5031
Phone: 410-293-2504 (FAX -2507), DSN: 281-2504
Email: research at usna.edu
--------------------------------------------------------------------------
>>> "Kevin J. McCann" <kjm@KevinMcCann> 07/11/03 2:57 AM >>>
Bob,
I got lots of error messages with your code - MaxSteps exceeded etc. The
final plot looks correct by only goes to about x = 5.
Kevin
"Bob Hanlon" <bobhanlon at aol.com> wrote in message
news:bej612$5m8$1 at smc.vnet.net...
> Extend the working precision
>
> Result1=NDSolve[{-5-5x-V[x]-V'[x]+0.3V''[x]==0,V[0]==0,V'[0]==-5},
> V,{x,0,20}, WorkingPrecision->50];
> Plot[Evaluate[V[x]/.Result1],{x,0,20}];
>
>
> Bob Hanlon