Re: Plot, Cursor and Spelling Errors questions
- To: mathgroup at smc.vnet.net
- Subject: [mg14437] Re: [mg14393] Plot, Cursor and Spelling Errors questions
- From: Ranko Bojanic <bojanic at math.ohio-state.edu>
- Date: Wed, 21 Oct 1998 03:32:33 -0400
- Organization: Ohio State University
- Sender: owner-wri-mathgroup at wolfram.com
Hi Jens!
Thanks for the hint on how to turn off the spelling errors messages. As
far as the first question is concerned, you wrote:
> the answers are simple
> 1) Mathematica can't draw the difference because You typed P[x]
(CapitalP)
> but
> you have only defined p[x_] (small p)
> change Your last line to
> Plot[Evaluate[f[x]-p[x]], {x,-1, 1}, PlotPoints -> 50];
> and all works fine.
P was a misprint in my letter, but not in the actual program. Did you
really run the program
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];
(with the last line corrected) and everything worked fine? Which
computer did you use? How did you configure Plot?
On my computer (Power Macintosh 7500/100, with Mathematica 30.1) this
program produces garbage.
Regards,
Ranko
- Follow-Ups:
- Re: Re: Plot, Cursor and Spelling Errors questions
- From: Garrett Tim Sos <gts@mindspring.com>
- Re: Re: Plot, Cursor and Spelling Errors questions