MathGroup Archive 2002

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: Increased Precision in Plot?

  • To: mathgroup at
  • Subject: [mg34690] Re: [mg34684] Increased Precision in Plot?
  • From: BobHanlon at
  • Date: Sat, 1 Jun 2002 04:28:51 -0400 (EDT)
  • Sender: owner-wri-mathgroup at

In a message dated 5/31/02 5:54:46 AM, shollis at writes:

>The command
>f[t_]=Nest[1 - Integrate[2s(#/.t->s),{s, 0, t}]&, Cos[t],
>returns a fairly innocent-looking result. However, evaluation (or
>plotting) of the result with default precision produces garbage; for
>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],

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?