Ja so raff auch ich das ^^
Ich probier das gerade mal aus

Richtung1.x:=p2.x-p1.x;
Richtung1.y:=p2.y-p1.y;

Richtung2.x:=q2.x-q1.x;
Richtung2.y:=q2.y-q1.y;


a1:=p2.y-p1.y;
b1:=p1.x-p2.x;

a2:=q2.y-q1.y;
b2:=q1.x-q2.x;

Das wieder spricht sich oder?
b1:=p1.x-p2.x;
soll
b1:=p2.x-p1.x;
heißen oder?

Nochmal ich Ich habe mir folgende Procedure geschrieben, ich glaube da klappt schon etwas mit der berechnung nicht...


Oder meinste mir ist da ein Fehler beim übergeben der Punkte passiert? was eigentlich nicht sein kann/darf.

Also wenn es "nur" Geraden sein sollen, dann kann man es sehr einfach machen:
Wenn Gearade a <> Gerade b ist, dann schneiden sie sich.
Ansonsten gibt es meines Wissen noch eine Methode:
wenn die Gleichungen die Form
y = a[1]x + b[1] ^
y = a[2]x + b[2] haben, dann gehts so:
--------------------------------
=>
a[1]x + b[1] = a[2]x + b[2].
Nach x aufgeloößt erhält man den Schnittpunkt der Geraden.
Hoffe ich zumindest das es so war.

Es sollen strecken sein, das überprüfe ich mit den If-Abfragen, doch das was du eben gesagt hast ist ganz anders als das was Lars schrieb.

Wie schon bereits gesagt lassen sich mit der Form:
y = a[1]x + b[1] die ja das gleiche ist wie y=mx+b nicht alle Geraden darstellen. Man kann damit nur Geraden, die auch eine Funktion sind ausdrücken und das sind z.B. alle senkrechten Geraden mit einer Richtung von (0,1) nicht.

Jo Lars, aber irgendwie stimmt da was nicht :-/
Ich hab da oben was gepostet, kannste das mal prüfen bitte

Was ist denn bei dir z. Ich dachte es geht um 2D?

Jo, 2D also, es ist ein 3D raum, wo ich x und z nehme, da mich die Höhe nicht stört, nimm z als y und es ist was du brauchst

Das ist mir schon klar, aber das ist gerade mal ein Sonderfall!
Dann müste man das halt für den Sonderfall extra Testen, was ja auch nicht schwer ist, da ja jede Gerade, die nicht senkrecht ist, die senkrechte Gerade schneidet.
So ich hab nochmal nachgeguckt, und es geht dann so:
Du stellst das als LIneares Gleichungsystem dar.
Und jetzt kannst du es einfach auflösen.