/* [wxMaxima batch file version 1] [ DO NOT EDIT BY HAND! ]*/

/* [wxMaxima: title   start ]
Gerade durch drei Punkte
   [wxMaxima: title   end   ] */

/* [wxMaxima: section start ]
Problembeschreibung
   [wxMaxima: section end   ] */

/* [wxMaxima: comment start ]
******************************************
Dokumentnummer: D1025
Quelle: Johann Weilharter,
             Analytische Geometrie 2
******************************************

Es ist zu überprüfen, ob drei gegebene Punkte auf einer Geraden
liegen oder nicht.
   [wxMaxima: comment end   ] */

/* [wxMaxima: section start ]
Problemlösung
   [wxMaxima: section end   ] */

/* [wxMaxima: comment start ]
EINGABE
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
P:read("Gib eine Liste mit 3 Punkten ein");
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
VERARBEITUNG
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
x1:P[1][1];
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
y1:P[1][2];
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
x2:P[2][1];
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
y2:P[2][2];
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
x3:P[3][1];
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
y3:P[3][2];
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
g(x,y):=y=k*x+d;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
g1:g(x1,y1);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
g2:g(x2,y2);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
globalsolve:true;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
solve([g1,g2],[k,d]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
f(x):=k*x+d;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
if is(f(x3)=y3) then ev(entscheidung:"JA")$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
if is(f(x3)#y3) then ev(entscheidung:"NEIN")$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
AUSGABE
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
print("Liegen alle Punkte auf einer Geraden?",entscheidung)$
/* [wxMaxima: input   end   ] */

/* Maxima can't load/batch files which end with a comment! */
"Created with wxMaxima"$