Sorry, Zeilenumbruch ...
d = {{2, 6.3}, {3, 3.75}, {4, 2.9}, {5, 2.48}, {6, 2.22}};
f = FindFit[d, Log[x m, e] + s, {m, e, s}, x]
Plot[Log[x m, e] + s /. f, {x, 2, 6}, Epilog -> Point[d]]
-----Ursprüngliche Nachricht-----
Von: demug [mailto:demug-bounces@XXXXXXX.ch] Im Auftrag von NOWAK, Robert via demug
Gesendet: Montag, 15. Jänner 2018 11:08
An: D. Wehrli <DanielWehrli@XXXXXXX.de>; demug@XXXXXXX.ch
Betreff: Re: [Dmug] Funktion: gegeben: einige x,y- Koordinaten; gesucht: angenäherte Funktion
Hall Herr Wehrli,
so funktioniert es:
d = {{2, 6.3}, {3, 3.75}, {4, 2.9}, {5, 2.48}, {6, 2.22}}; f = FindFit[d, Log[x m, e] + s, {m, e, s}, x] Plot[Log[x m,
e] + s /. f, {x, 2, 6}, Epilog -> Point[d]]
Mit freundlichen Grüßen
Robert Nowak
-----Ursprüngliche Nachricht-----
Von: demug [mailto:demug-bounces@XXXXXXX.ch] Im Auftrag von D. Wehrli via demug
Gesendet: Samstag, 13. Jänner 2018 14:33
An: demug@XXXXXXX.ch
Betreff: [Dmug] Funktion: gegeben: einige x,y- Koordinaten; gesucht: angenäherte Funktion
Hallo zusammen
Ich bin im Besitz von Mathematica 5.2
Bitte beachtet, dass ich weder ein mathematisches Verständnis habe, und auch seit Jahren nichts mehr mit Mathematica
gemacht habe und auch mein Englisch ist nicht besonders gut. Nun müsste ich eine Funktion finden, die möglichst gut zu
bestimmten Punkten in einer x-y-Achse passt.
Ich möchte gerne von Mathematica eine Funktion berechnen lassen, auf dessen Graphen die folgenden Punkte möglichst
genau enthalten sind:
x=2, y=6.3
x=3, y=3.75
x=4, y=2.9
x=5, y=2.48
x=6, y=2.22
Ich habe versucht, dies mit folgendem Befehl zu erreichen:
FindFit[{{2, 6.3}, {2, 3.75}, {3, 2.9},{4, 2.48}, {5,2.22}}, Log[x m, e]
+ s, {m, e, s}, x]
Mathematica zeigt mir einen Fehler an, den ich nicht zu interpretieren verstehe, liefert aber trotzdem eine Lösung:
{m -> -0.0993525, e -> -2.33484, s -> 1.586}
Wenn ich nun diese Lösung in die Formel einsetze, um den Graphen zu
zeichnen:
Plot[Log[x (-0.099352500614354), -2.33484392403341] + 1.58599847338988, {x, 2, 20}] kommt es auch wieder zu zahlreichen
Fehlern, die ich nicht interpretieren kann und der Graph wird nicht gezeichnet.
Ich möchte einfach nur die Formel der Funktion finden, auf welcher die obigen Punkte möglichst präzise liegen. Ist das
gar nicht möglich? Und wenn doch: Wie?
Für Hilfe wäre ich sehr dankbar.
Gruss
D. Wehrli
_______________________________________________
DMUG Deutschsprachiges Mathematica-Forum demug@XXXXXXX.ch http://www.mathematica.ch/mailman/listinfo/demug
Archiv: http://www.mathematica.ch/archiv.html
---------------------------------------------------------------------
Diese E-Mail enthaelt vertrauliche und/oder rechtlich geschuetzte Informationen. Wenn Sie nicht der richtige Adressat
sind oder diese E-Mail irrtuemlich erhalten haben, informieren Sie bitte sofort den Absender und vernichten Sie diese
Mail. Das unerlaubte Kopieren sowie die unbefugte Weitergabe dieser Mail ist nicht gestattet.
This e-mail may contain confidential and/or privileged information.
If you are not the intended recipient (or have received this e-mail in error) please notify the sender immediately and
destroy this e-mail.
Any unauthorized copying, disclosure or distribution of the material in this e-mail is strictly prohibited
IMS Nanofabrication GmbH
FN: 208021 p, FB-Gericht: Wien;
Sitz: Schreygasse 3, 1020, Vienna (Austria),Tel. +43 1 214 48 94;
E-Mail: imsoffice@XXXXXXX.at; DVR-Nr: 0374369; www.ims.co.at
_______________________________________________
DMUG Deutschsprachiges Mathematica-Forum demug@XXXXXXX.ch http://www.mathematica.ch/mailman/listinfo/demug
Archiv: http://www.mathematica.ch/archiv.html
---------------------------------------------------------------------
Diese E-Mail enthaelt vertrauliche und/oder rechtlich geschuetzte
Informationen. Wenn Sie nicht der richtige Adressat sind oder diese
E-Mail irrtuemlich erhalten haben, informieren Sie bitte sofort den
Absender und vernichten Sie diese Mail. Das unerlaubte Kopieren sowie
die unbefugte Weitergabe dieser Mail ist nicht gestattet.
This e-mail may contain confidential and/or privileged information.
If you are not the intended recipient (or have received this e-mail
in error) please notify the sender immediately and destroy this e-mail.
Any unauthorized copying, disclosure or distribution of the material
in this e-mail is strictly prohibited
IMS Nanofabrication GmbH
FN: 208021 p, FB-Gericht: Wien;
Sitz: Schreygasse 3, 1020, Vienna (Austria),Tel. +43 1 214 48 94;
E-Mail: imsoffice@XXXXXXX.at; DVR-Nr: 0374369; www.ims.co.at
_______________________________________________
DMUG Deutschsprachiges Mathematica-Forum demug@XXXXXXX.ch
http://www.mathematica.ch/mailman/listinfo/demug
Archiv: http://www.mathematica.ch/archiv.html
DMUG-Archiv, http://www.mathematica.ch/archiv.html