Lineare Gleichungen in Delphi!!

[Ömmel]

Tag!
Bin mal wieder eifrig am Delphi programmieren und hab nun das Problem, wie ein Programm aussehen muss, damit es Linerae gleichungen lösen kann! Beispiel: Zwei geraden mit der gleichung y=mx+n (m und n müssen natürlich durch zahlen ersetzt werden..) sollen sich schneiden, und wenn sie sich schneden soll der schnittpunkt ausgerechnet werden!!!! und der Clou: das ganze soll noch in einer paintbox gezeichnet werden! Kann mir da jemand helfen? ich bin da einenig aufgeschmissen!
Thx for answers!

Ömmel

[Christian S.]

Hallo!

Ist Dein Problem eher die Mathematik oder die Umsetzung in Delphi? Für den Delphiteil habe ich im Moment leider keine Zeit, aber die Mathe geht noch:
ich nenne die beiden Funktionen mal f und F, mit

f(x) = ax+b
F(x) = Ax+B

Zuerst einmal ein paar Spezialfälle: wenn A=a und b<>B, dann scheiden die sich nicht, wenn b=B, dann haben sie sozusagen unendlich viele Schnittpunkte. Macht aber keinen Sinn, dass jemand zwei identische Gleichung eingibt.
So, ansonsten muss gelt:
ax+b = Ax+B <=> x*(a-A) = (B-b) <=> x = (B-b) / (a-A) := x0 (x-Koordinate des Schnittpunkts)
einsetzen in eine der Gleichungen (hier mal in f): f(x0) = a*(B-b)/(a-A) + b

Damit hättest Du Deinen Schnittpunkt.

So, ich hoffe, Du kanntest das noch nicht, sonst habe ich mir jetzt umsonst die Müge gemacht. Noch kurz was zum Delphi-Teil:

vier Edits, um a,A,b,B einzulesen (mittels StrToFloat). Obige Spezialfälle ausschließen und dann zuerst x0 ausrechnen und dann f(x0). Beides irgendwie ausgeben.

Den Zeichnugsteil soll jemand anderes übernehmen.

MfG
Peter

[Mirilin]

KLICK

Mirilin

[Christian S.]

[Ömmel]

Erstmal schönen Dank für die hilfreichen Antworten, aber Mathe war nicht unbedingt das Problem, vielmehr die Umsetzung in Delphi! Wäre super, wenn dazu einer eine Idee hat, wie ich die Schnittpunkte errechnen lasse!? am besten auch gleich mit Quellcode *gg* stelle das fertige programm natürlich auch allen anderen zur Verfügung!! Besten Dank,

Ömmel!

[Alexander]

Hast du dir den Link von Mirilin auch wirklich genau angekuckt?
Dort steht doch wie man sie lösen kann...

[Ömmel]

Hab ich festegestellt! aber trotzdem noch ne kleine Frage, wenn ich ein Edit fenster hab, da steht ein X wert drin, den ich zum errechnen des Y-wertes brauch, wie sag ich meinem netten pc, dass er mit dem inhalt des Editfensters weiterrechnen soll? thx Ömmel

[Ömmel]

hat sich soweit zu diesem Thema alles erledgit, jediglich das zeichnen der Graphen funzt noch nicht....*heul* Das Koordinatensystem hab ich schon gemalt (PaintBox), doch wie zum .... bekomm ich da die entsprechenden Geraden gezeichnet, mit dem Schnittpunkt, den ich vorher berechnet hab?!?!?!?!

[Matze]

Vielleicht mit

Delphi-Quellcode:

PaintBox1.Canvas.MoveTo(x1,y1);
PaintBox1.Canvas.LineTo(x2,y2);