Re: Increased Precision in Plot?
- To: mathgroup at smc.vnet.net
- Subject: [mg34690] Re: [mg34684] Increased Precision in Plot?
- From: BobHanlon at aol.com
- Date: Sat, 1 Jun 2002 04:28:51 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
In a message dated 5/31/02 5:54:46 AM, shollis at armstrong.edu writes:
>The command
>
>f[t_]=Nest[1 - Integrate[2s(#/.t->s),{s, 0, t}]&, Cos[t],
>12]//Simplify
>
>returns a fairly innocent-looking result. However, evaluation (or
>plotting) of the result with default precision produces garbage; for
>example:
>
>In[1]:= f[.5]
>Out[1]:= 0.875
>
>In[2]:= N[f[1/2]]
>Out[2]:= 0.625
>
>In[3]:= N[f[1/2],17]
>Out[3]:= 0.77880078307140487
>
>My question is this: How can I get Plot to graph such a function with
>increased precision, so that the graph isn't overwhelmed by noise?
f[t_]=Nest[1 - Integrate[2s(#/.t->s),{s, 0, t}]&, Cos[t],
12]//Simplify;
Plot[N[f[Rationalize[t,10^-50]],50], {t,-3,3}];
Bob Hanlon
Chantilly, VA USA