Hallo Frank und Hakan,
mit anderen Worten, den ersten Punkt von der gesamten Punkliste abziehen
und ein Polynom ohne konstantes Glied wählen, der langen Rede kurzer
Sinn ist
In[44]:=
vOrig = With[{o = 20}, Transpose[{Table[n, {n, o}],
Table[CarmichaelLambda[n], {n, o}]}]]
In[48]:= Clear[vOf];
vOf =
With[{oo = 9},
Fit[Plus[#, -vOrig[[1]]]& /@ vOrig, Table[x^o, {o, 1, oo}], {x}]]
In[51]:=
Show[{ListPlot[Plus[#, -vOrig[[1]]]& /@ vOrig, DisplayFunction ->
Identity, PlotStyle -> PointSize[0.02]], Plot[vOf, {x, 0, Length[vOrig]
- 1}, DisplayFunction -> Identity]}, DisplayFunction -> $DisplayFunction]
Gruss
Udo.
Frank Küster wrote:
Hakan Onel <onel@XXXXXXX.de> wrote:
Der Fit muss allerdings den Startpunkt (t0,x0)
erfüllem, denn jeder andere Fit, wäre einfach eine
Verfälschung der eigentlichen Simulation.
Da würde ich die Koordinaten so transformieren, dass x0 der Ursprung
ist, und die Fitfunktion so schreiben, dass sie durch den Ursprung
geht.
Gruß, Frank
|