# Gerade durch drei Punkte

## Problembeschreibung

******************************************
Dokumentnummer: D1025
Quelle: Johann Weilharter,
             Analytische Geometrie 2
******************************************

Es ist zu überprüfen, ob drei gegebene Punkte auf einer Geraden
liegen oder nicht.

## Problemlösung

EINGABE

P:read("Gib eine Liste mit 3 Punkten ein");

VERARBEITUNG

x1:P[1][1];

y1:P[1][2];

x2:P[2][1];

y2:P[2][2];

x3:P[3][1];

y3:P[3][2];

g(x,y):=y=k*x+d;

g1:g(x1,y1);

g2:g(x2,y2);

globalsolve:true;

solve([g1,g2],[k,d]);

f(x):=k*x+d;

if is(f(x3)=y3) then ev(entscheidung:"JA")$

if is(f(x3)#y3) then ev(entscheidung:"NEIN")$

AUSGABE

print("Liegen alle Punkte auf einer Geraden?",entscheidung)$