Hallo zusammen,
das Notebook von Hans läuft unter Mathematica 10.4 fehlerfrei.
Darüberhinaus können Sie, Daniel, auch Interpolation verwenden
http://reference.wolfram.com/language/ref/Interpolation.html, was im Fall
nur zweite Wahl ist, da Sie offensichtlich mit Log[x m, e] ein
funktionierendes Modell für die gesuchte Abhängigkeit kennen.
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,
erinnern Sie sich an die holde Studienzeit: wenn der Logarithmus negative
Argumente bekommt, dann weichen seine Werte auf verschiedene Blätter der
Riemannfläche des Logarithmus aus und das wiederum bringt das streng im
Reellen wirkende Plot[] Kommanto dazu, Fehler zu schreiben, um dieser o.g.
Erinnerung Vorschub zu leisten. Schlecht ist es auch einen
Definitionsbereich {2,6} zu haben und in {2, 20} zu plotten ...
Grüsse
Udo.
On Sat, 13 Jan 2018 15:24:06 +0100, h.dolhaine--- via demug
<demug@XXXXXXX.ch> wrote:
Hallo, guten Tag,
1) kann man ein Polynom 6-ten Grades finden, das exakt jeden Punkt
trifft,
das ist aber wohl nicht beabsichtigt.
2) bei mir tauchen die genannten Fehler nicht auf. Siehe angehängtes
notebook.
Läuft das unter Ihrer Vewrsion 5.2?
Mit freundlichen Grüßen
Hans Dolhaine
-----Ursprüngliche Nachricht-----
Von: demug [mailto:demug-bounces@XXXXXXX.ch] Im Auftrag von D. Wehrli
via demug
Gesendet: Samstag, 13. Januar 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
_______________________________________________
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