RE: Increased Precision in Plot?

*To*: mathgroup at smc.vnet.net*Subject*: [mg34694] RE: [mg34684] Increased Precision in Plot?*From*: "David Park" <djmp at earthlink.net>*Date*: Sat, 1 Jun 2002 04:28:57 -0400 (EDT)*Sender*: owner-wri-mathgroup at wolfram.com

Selwyn, Ted Ersek has a package called PrecisionPlot, which is available on MathSource. Put the package in the folder (which you may have to create) AddOns\ExtraPackages\Graphics and load it with Needs["Graphics`PrecisionPlot`"] Then the following makes a nice smooth plot. PrecisionPlot[f[t], {t, -3, 3}]; David Park djmp at earthlink.net http://home.earthlink.net/~djmp/ > From: Selwyn Hollis [mailto:shollis at armstrong.edu] To: mathgroup at smc.vnet.net > > > 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 >