Re: NonlinearFit
- To: mathgroup at smc.vnet.net
- Subject: [mg42124] Re: NonlinearFit
- From: "Kevin J. McCann" <kjm@KevinMcCann>
- Date: Fri, 20 Jun 2003 04:57:25 -0400 (EDT)
- References: <bcrrkf$hp6$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
I would just brute force a least-squares fit.
Kevin
data = {{0.1,0.113387476}, {0.2, 0.194633152}, {0.3,
0.252848224}, {0.4, 0.294561145}, {0.5,
0.324449759}, {0.6, 0.345865887}, {0.7,
0.361211213}, {0.8, 0.37220662}, {0.9,
0.380085173}, {1.0, 0.385730403}};
f[a_, c_] := Plus @@
((c*(1 - E^(-((3*#1[[1]])/
a))) - #1[[2]])^
2 & ) /@ data
FindMinimum[f[a,c],{a,1},{c,1}]
{5.660810357094493*^-11, {a -> 0.9000051767142552, c ->
0.40000369064698044}}