Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2002
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2002

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

Search the Archive

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?