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

```

• Prev by Date: Re: QUESTION
• Next by Date: RE: Increased Precision in Plot?
• Previous by thread: Re: QUESTION
• Next by thread: RE: Increased Precision in Plot?