Re: Fitten ähnlicher Datensätze

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

Hallo und iiiiihhhhh

eine Do[]-Schleife, so was Ekliges zu posten! Wie w"ar's
mit

Needs["Statistics`NonlinearFit`"]

data = Table[a + Exp[-a*t/4], {t, 0, 10, 1/2}, {a, 0, 1, 1/10}] // N;

i = 1; 
fitlist = 
  Rest[NestList[(param = 
            BestFitParameters /. 
              NonlinearRegress[data[[i++]], a + Exp[b*t], 
                t, {{a, #1[[1]]}, {b, #1[[2]]}}, 
                RegressionReport -> {BestFitParameters}];
          {a, b} /. param) &, {0.1, 0.01}, Length[data]]]

Gruss
  Jens


Jens Bredenbeck wrote:
> 
> Liebe Liste,
> 
> Ich habe eine Reihe von Datensätzen. Aufeinanderfolgende Datensätze
> unterscheiden sich wenig, aber Datensätze mit grösserem Abstand
> unterscheiden sich so, dass die Startwerte für die Regression nicht mehr
> ausreichend gut sind. Wie kann ich das Ergebnis des einen Fits als
> Startwert für den nächsten verwenden?
> 
> Do[
> resultat[[j]] =
> NonlinearRegress[daten[[j]],
> a1*Exp[-(x - b1)^2/c1] + a2*Exp[-(x - b2)^2/c2],
> {x},
> {{a1, -40}, {b1,1890}, {c1, 40}, {a2, -40}, {b2, 1910}, {c2, 40}}],
> {j, 1, 100}]
> 
> Gruss,
> Jens
> 
> --
> Jens Bredenbeck
> Physikalisch Chemisches Institut
> Universität Zürich
> Winterthurerstr. 190
> CH-8057 Zürich
> Switzerland
> Tel: ++41/1/63 54486 (office)
>      ++41/1/63 54484 (lab)
> Fax: ++41/1/63 56838
> www: http://pciwww.unizh.ch/pci/bredenbeck/index.htm