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