RE: Erstellung einer Funktion

["Nowak Robert" <robert.nowak@XXXXXXX.at>]

(* mach ma mal daten *)

d = Table[{x, 1000*Random[] + 2 + 3*x + 2*x^2 - 5*x^3}, {x, 0, 11}];

(* jetzt fitten wir ein wenig, polynom 3. ordnung, warum auch nicht *)

f = Fit[d, {1, x, x^2, x^3}, x]

Out[5]=
995.3032623869753 - 403.5978025609715*x +  64.34692301678805*x^2 - 7.566281186638468*x^3

(* zum schauen wollen wir auch was haben *)

Plot[f, {x, 0, 11},Epilog -> {PointSize[0.02], First[ListPlot[d, DisplayFunction -> Identity]]}];

 

grüsse robert

        
        -----Original Message-----
        From: Robert Kretschmer [mailto:robert.kretschmer@XXXXXXX.de] 
        Sent: Tuesday, December 13, 2005 11:16 PM
        To: demug@XXXXXXX.ch
        Subject: Erstellung einer Funktion
        
        
        Hallo,
         
        ich möchte aus einer Serie von Messdaten die Funktion bestimmen. 
        Ich habe jeweils x und y. Und insgesamt 12Wertpaare.
         
        Wie kann ich dass mit Mathematica anstellen.
         
        Gruß
         
        der verzweifelte

[an dieser Stelle war noch ein screendump; den habe ich wegen der Größe
entfernt. -- REM ]