Who find a better fit of this experimental data?

*To*: mathgroup at smc.vnet.net*Subject*: [mg45609] Who find a better fit of this experimental data?*From*: guillerm at aida.usal.es (Guillermo Sanchez)*Date*: Fri, 16 Jan 2004 06:05:27 -0500 (EST)*Sender*: owner-wri-mathgroup at wolfram.com

Dear group?. I attach some expemental data. I have fitted them with a biexponential function, but the fit is not good enough. Who find a better fit of this experimental data? Needs["Statistics`NonlinearFit`"]; data = {{0.0, 3.048}, {0.05, 286.435}, {0.10, 534.718}, {0.15, 370.241}, {0.20, 240.302`}, {0.25, 170.005`}, {0.30, 128.6}, {0.35, 84.36}, {0.40, 66.58}, {0.45`, 52.32}, {0.50`, 40.30`}, {0.55, 28.78`}, {0.60, 20.75}, {0.65, 16.226`}, {0.70, 14.19`}, {0.75, 13.14`}, {0.80, 10.63`}, {0.85, 7.57`}, {0.90, 7.414`}, {0.95, 5.026`}, {1.00, 3.69`}, {1.05, 4.39`}, {1.10, 3.17`}, {1.15, 3.16`}, {1.20, 2.55`}, {1.25, 2.334`}, {1.30`, 2.164`}, {1.35, 2.1`}, {1.40, 1.63`}, {1.45, 1.445`}, {1.50, 0.513`}, {1.55, 1.14`}, {1.60, 0.852`}, {1.65, 0.761`}, {1.70, 0.734`}, {1.75, 0.775`}, {1.80, 0.473`}, {1.85, 0.389`}, {1.90, 0.514`}, {1.9767 , 0.347`}, {2.077, 0.274`}, {2.177 , 0.14`}, {2.277, 0.088`}, {2.377, 0.013}}; f1[t_] := a1 Exp[b1 t] + a2 Exp[b2 t]; NonlinearRegress[data, f1[t], {t}, { {a1 , 10000}, {a2 , 10000}, { b1, -9}, {b2, -11}}, MaxIterations -> 100][[1]]