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

/* [wxMaxima: title   start ]
Dreiecksfläche
   [wxMaxima: title   end   ] */

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

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

Es ist eine Liste mit 3 Punkten gegeben. Wenn diese Punkte ein
Dreieck bilden, soll die Fläche berechnet werden.
   [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: input   start ] */
s:(a+b+c)/2;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
f:sqrt(s*(s-a)*(s-b)*(s-c));
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
f:f,numer;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
f:round(f*100)/100.0;
/* [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   ] */

/* [wxMaxima: input   start ] */
if weiche=0 then print("Fläche =",f)$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
%,numer;
/* [wxMaxima: input   end   ] */

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