       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

```

• Prev by Date: Re: Multiple scales for Y axis of plot?
• Next by Date: Re: AVI-Video with Mathematica V4.2
• Previous by thread: Re: Can Fit give function coefficients?
• Next by thread: Re: Can Fit give function coefficients?