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

RE: Increased Precision in Plot?

• To: mathgroup at smc.vnet.net
• Subject: [mg34695] RE: [mg34684] Increased Precision in Plot?
• From: "DrBob" <majort at cox-internet.com>
• Date: Sat, 1 Jun 2002 04:29:00 -0400 (EDT)
• Reply-to: <drbob at bigfoot.com>
• Sender: owner-wri-mathgroup at wolfram.com

The results aren't nonsense; the problem is.  You're wandering into
"chaos" country.

Bobby Treat

-----Original Message-----
From: Selwyn Hollis [mailto:shollis at armstrong.edu] 
To: mathgroup at smc.vnet.net
Subject: [mg34695] [mg34684] Increased Precision in Plot?

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?

Thanks in advance,

Selwyn Hollis