Re: Fit-Funktion Mathematicas

[Udo und Susanne Krause <su.krause@XXXXXXX.ch>]

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
>