Re: Can Fit give function coefficients?
- To: mathgroup at smc.vnet.net
- Subject: [mg31104] Re: [mg31091] Can Fit give function coefficients?
- From: BobHanlon at aol.com
- Date: Wed, 10 Oct 2001 03:43:15 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
In a message dated 2001/10/9 2:19:57 AM, bap at roe.ac.uk writes:
>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?
>
Needs["Statistics`NonlinearFit`"];
f1[x_] := 2*x^2;
f2[x_] := 3*x^3;
data = Module[{x}, Table[{x=Random[], 5+6*f1[x]+7*f2[x]}, {20}]];
model = a+b*f1[x]+c*f2[x];
BestFitParameters /. NonlinearRegress[data, model, x, {a,b,c}]
{a->5.,b->6.,c->7.}
Bob Hanlon
Chantilly, VA USA