| Author |
Comment/Response |
ray
|
 09/21/10 8:36pm
FindFit didn't work, don't know what to do to make/help it work???
ClearAll["`*"]
data = {
{1990, 353},
{2000, 375},
{2075, 590},
{2175, 1090},
{2275, 2000}
}; .001 < k < .01;
p1 = ListPlot[data];
FindFit[data, {353 E^(k *(x - 1990))}, k, x]
FindFit[data, {353 Exp[k (x - 1990)]}, {k, .006}, x]
p2 = Plot[353 E^(k (x - 1990)) /. k -> 0.0060857, {x, 1990, 2300}];
d1[x_] = 353 E^(k (x - 1990)) /. k -> 0.0060857`;
d1[2175]
Show[p1, p2]
URL: , |
|
