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

/* [wxMaxima: title   start ]
Dreiecksungleichung
   [wxMaxima: title   end   ] */

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

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

Gegeben sind drei Punkte. Mittels der Dreiecksungleichung
ist zu bestimmen, ob diese Punkte ein Dreieck erzeugen.
   [wxMaxima: comment end   ] */

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

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

/* [wxMaxima: input   start ] */
P:read("Gib drei Punkte eines Dreiecks in einer Liste 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 ] */
P1P2:sqrt((x2-x1)**2+(y2-y1)**2);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
P1P3:sqrt((x3-x1)**2+(y3-y1)**2);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
P2P3:sqrt((x3-x2)**2+(y3-y2)**2);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
a:P1P2;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
b:P1P3;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
c:P2P3;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
weiche:0;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
if a+b=c then ev(weiche:1)$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
if a+c=b then ev(weiche:1)$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
if b*c=a then ev(weiche:1)$
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
if weiche=1 then print("Es ist kein Dreieck") else print("Es ist ein Dreieck")$
/* [wxMaxima: input   end   ] */

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