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

/* [wxMaxima: title   start ]
Richtungsvektoren eines Dreiecks
   [wxMaxima: title   end   ] */

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

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

Gegeben ist eine Liste aus 3 Punkten.
Die (normierten) Richtungsvektoren für das
zugehörige Dreieck sind zu bestimmen.
   [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 von 3 Punkten ein");
/* [wxMaxima: input   end   ] */

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

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

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

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

/* [wxMaxima: input   start ] */
AB:B-A;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
CB:B-C;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
CA:A-C;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
AB:AB/gcd(AB[1],AB[2]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
CB:CB/gcd(CB[1],CB[2]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
CA:CA/gcd(CA[1],CA[2]);
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
print("normierter Vektor AB =",AB)$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
print("normierter Vektor CB =",CB)$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
print("normierter Vektor CA =",CA)$
/* [wxMaxima: input   end   ] */

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