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

/* [wxMaxima: title   start ]
Dreieck: Höhenschnittpunkte
   [wxMaxima: title   end   ] */

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

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

Gegeben ist eine Liste von drei Punkten.
Der Höhenschnittpunkt ist zu bestimmen.
   [wxMaxima: comment end   ] */

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

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

/* [wxMaxima: input   start ] */
a:read("Gib die Trägergerade für a ein");
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
b:read("Gib die Trägergerade für b ein");
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
c:read("Gib die Trägergerade für c ein");
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
C:solve([a,b],[x,y]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
B:solve([a,c],[x,y]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
A:solve([b,c],[x,y]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
ev(c1:x,C[1][1]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
ev(c2:y,C[1][2]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
C:[c1,c2];
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
ev(b1:x,B[1][1]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
ev(b2:y,B[1][2]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
B:[b1,b2];
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
ev(a1:x,A[1][1]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
ev(a2:y,A[1][2]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
A:[a1,a2];
/* [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: input   start ] */
load(vect);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
ha:([x,y]-A).CB=0;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
hb:([x,y]-B).CA=0;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
h:solve([ha,hb],[x,y]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
ev(hx:x,h[1][1]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
ev(hy:y,h[1][2]);
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
print("Punkt A",A)$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
print("Punkt B",B)$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
print("Punkt C",C)$
/* [wxMaxima: input   end   ] */

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

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

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

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

/* [wxMaxima: comment start ]
AUSGABE Höhenschnittpunkt
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
H:[hx,hy];
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
print("Der Höhenschnittpunkt ist",H)$
/* [wxMaxima: input   end   ] */

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