Re: Can Fit give function coefficients?
- To: mathgroup at smc.vnet.net
- Subject: [mg31099] Re: Can Fit give function coefficients?
- From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
- Date: Wed, 10 Oct 2001 03:43:10 -0400 (EDT)
- Organization: Universitaet Leipzig
- References: <9pu3u0$bc8$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Hi,
since you have defined f1[x_] with out a
restriction to f1[] it will always evaluated.
But
In[]:=
f1[x_?NumericQ] := 2 x^2
f2[x_?NumericQ] := 3 x^3
data = Table[x^2 - x^3, {x, 0, 1, 1/50}];
Fit[data, {1, f1[x], f2[x]}, x]
Out[]=-0.003999768888798033 + 0.00019422792988261256*f1[x] -
2.5244146839178203*^-6*f2[x]
does what you want. Because f1[] and f2[] are left unchanged for
symbolic x.
Regards
Jens
Brett Patterson wrote:
>
> I have a set of functions that I wish to fit to some data.
> Is there a way to succinctly get Mathematica to give me
> the coefficients of these functions in the fit.
>
> For example, say I have
> f1[x_] := 2 x^2
> f2[x_] := 3 x^3
>
> Normally, if I say: Fit[data, {1, f1[x], f2[x]}, x]
> I get a result in the form: a1 + b1 x^2 + c1 x^3,
> but I want a result of the form: a2 + b2 f1[x] + c2 f1[x].
> In this case, a2 = a1, b2 = b1/2, and c2 = c1/3.
>
> Is this possible?
>
> Regards,
> Brett Patterson