Lineare Gleichungen in Delphi!!

[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