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