Re: NonlinearRegress

[Jens-Peer Kuska <kuska@XXXXXXX.de>]

Hallo,


ja also sagen wir mal Du hast:

f[t_] := c1*E^(-k1*t) + c2*E^(-k2*t)

und Deine Fit-Ergebnisse in fitres

fitres = {BestFitParameters -> {c1 -> 2.1, c2 -> 4.2, k1 -> 0.006, k2 ->
2.3}}

Dann sollte mit 

Plot[Evaluate[f[t] /. (BestFitParameters /. fitres)], {t, 0, 5}, 
  PlotRange -> All]

eine Kurve gemalt werden. Sagen wir mal weiter Du hasst Deine Daten in

data={{x1_,y1_}..}

dann werden mit


Plot[Evaluate[f[t] /. (BestFitParameters /. fitres)], {t, 0, 5}, 
  PlotRange -> All, Epilog-> Point /@ data]

auch noch die Messpunkte eingezeichent, was immer sehr gern gesehen ist.

Gruss
  Jens


Foxfire wrote:
> 
> Ein frohliches Hallo in die Runde,
> 
> erstmal moechte ich nochmals all jenen danken, die mir bisher geholfen
> haben.
> 
> 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.
> 
> Frage:
> Wie lautet das Mathamtica-Kommanda um eine Kurve mit diesen Parametern
> zu plotten?
> (Ich koente sie auch von Hand eingeben.
> 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.
> 
> --
> --------
> CUL8R
> Andreas Wagner
> ICQ: 3363555
> Email: a2244101@XXXXXXX.de
> (the following address is for future purposes, only: Foxfire@XXXXXXX.de)