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: [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
>



  • Prev by Date: Re: Increased Precision in Plot?
  • Next by Date: Cell Brackets (once more)
  • Previous by thread: Re: Increased Precision in Plot?
  • Next by thread: Re: Increased Precision in Plot?