Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
1998
*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 1998

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

Search the Archive

Plot, Cursor and Spelling Errors questions

  • To: mathgroup at smc.vnet.net
  • Subject: [mg14393] Plot, Cursor and Spelling Errors questions
  • From: Ranko Bojanic <bojanic at math.ohio-state.edu>
  • Date: Sun, 18 Oct 1998 15:09:59 -0400
  • Organization: Ohio State University
  • Sender: owner-wri-mathgroup at wolfram.com

Dear Mathematica friends:

I am having problems when trying to plot the graph of an error curve
when the magnitude of the error curve is close to the $MachineEpsilon
number. The following example is typical:

n = 15;
f[x_] := Exp[x];
xLst = Table[Cos[((2*k - 1)*Pi)/(2*n)], {k, 1, n}]//Reverse; yLst =
N[Map[f,xLst], 30];
fLst = Transpose[{xLst, yLst}];
p[x_] := InterpolatingPolynomial[fLst, x]; Plot[Evaluate[f[x]-P[x]], {x,
-1, 1}, PlotPoints -> 50];

Why the Plot function cannot draw the graph of the difference? I can
still get a graph by computing 1000 points on the error curve and using
ListPlot with PlotJoined->True, but the graph is not very smooth.

The problem here is not in the accuracy of computations, as the ListPlot
function shows, but in the way Plot processes data. Is there a way to
force Plot to draw the error curve correctly?

An unrelated programming question:While  Mathematica is doing a lengthy
computation, I would like to change the cursor into a watch cursor. I
could not find any information on how to do it. Is there a simple
command to change the current cursor into a watch cursor - something
like SetCursor and InitCursor in Pascal.

Last question: If you run the program listed here, you will probably get
the messages :
General::spell:Possible spelling error: new symbol "yLst" is similar
                       to existing symbol {xLst} General::spell:Possible
spelling error: new symbol "fLst" is similar
                       to existing symbol {xLst,yLst}
 Is there a way to turn off these spelling errors messages?

Thanks,
Ranko Bojanic
bojanic at math.ohio-state.edu



  • Prev by Date: Re: Adding equations
  • Next by Date: RE: Adding equations
  • Previous by thread: Re: Corrupted NB
  • Next by thread: RE: Plot, Cursor and Spelling Errors questions