Re: NonlinearRegress

[Roman Maeder <maeder@XXXXXXX.ch>]

> Am weitesten hat mir die Funktion NonlinearRegress[] geholfen.
> Diese wirft z.B. mit z=NonlinearRegress[y, c1*E^(-k1*t) + c2*E^(-k2*t),
> t, {c1, c2, k1, k2}, RegressionReport -> BestFitParameters]
> die Parameter in der Form {BestFitParameters -> {c1 -> 2.1, c2 -> 4.2,
> k1 -> 0.006, k2 -> 2.3}}aus.
> ...
> Aber gern haette ich etwas in der Form "Plot[f[t]/.z]"
> mit "f[t]=c1*E^(-k1*t) + c2*E^(-k2*t)".
> Es sollten also mittels " /.z" die Parameter von "BestFitParameters"
> uebergeben werden.

Die gesuchten Regeln sind die rechte Seite von z = {BestFitParameters -> {...}},
also

In[5]:= z1 = BestFitParameters /. z

Out[5]= {c1 -> 2.1, c2 -> 4.2, k1 -> 0.006, k2 -> 2.3}

Dann

In[6]:= Plot[ Evaluate[c1*E^(-k1*t) + c2*E^(-k2*t) /. z1], {t, 0, 1}]


Oder in einem Schritt (die Klammern sind notwendig)

In[7]:= Plot[ Evaluate[c1*E^(-k1*t) + c2*E^(-k2*t) /. (BestFitParameters /. z)],{t, 0, 1}]


Roman Mäder