Re: Why won't Horner[] work?
- To: mathgroup at smc.vnet.net
- Subject: [mg59021] Re: Why won't Horner[] work?
- From: Peter Pein <petsie at dordos.net>
- Date: Wed, 27 Jul 2005 01:24:42 -0400 (EDT)
- References: <dc4r39$i9$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Paul McHale schrieb:
> When I issue the command:
>
> In:= Fit[ {{1,200},{200,0},{400,200}}, {1,x,x^2}, x]
>
> Out:= 202.01 - 2.01508 x + 0.00502513 x^2
>
> This seems good. But when I do
>
>
> In:= Horner[Fit[ {{1,200},{200,0},{400,200}}, {1,x,x^2}, x]]
>
> Out:= Horner[202.01 - 2.01508 x + 0.00502513 x^2]
>
>
> Why doesn't it evaluate the polynomial? To I need to convert the
> output of fit?
>
> Thanks,
> Paul
>
In[1]:=
<< "Algebra`Horner`"
Horner[Fit[{{1, 200}, {200, 0}, {400, 200}}, {1, x, x^2}, x]]
Out[2]=
202.01005025125627 + (-2.0150753768844227 + 0.005025125628140706*x)*x
looks OK, doesn't it?
--
Peter Pein
Berlin