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

/* [wxMaxima: title   start ]
Eine Vermessungsaufgabe
   [wxMaxima: title   end   ] */

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

/* [wxMaxima: comment start ]
******************************************
Dokumentnummer: D1065
Quelle: Johann Weilharter,
             Trigonometrie
******************************************

Ein vertikaler hm m hoher Mast steht auf der Spitze eines Berges.
Fußpunkt und Spitze des Mastes werden von einem Beobachtungs-
punkt P des Tales aus unter den Höhenwinkeln hwa und hwb in Grad
gesehen. In welcher Höhe über der Horizontalebene des Beobachters
befindet sich die Spitze des Berges?
   [wxMaxima: comment end   ] */

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

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

/* [wxMaxima: input   start ] */
hm:read("Gib die Höhe des Mastes (in m) ein");
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
hwa:read("Gib den Höhenwinkel Alpha ein");
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
hwb:read("Gib den Höhenwinkel Beta ein");
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
rhwa:hwa*%pi/180;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
rhwb:hwb*%pi/180;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
g1:tan(rhwa)=(hm+x)/y;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
g2:tan(rhwb)=x/y;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
l:solve([g1,g2],[x,y]);
/* [wxMaxima: input   end   ] */

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

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

/* [wxMaxima: input   start ] */
x:floor(x+0.5);
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
print("Die gesuchte Höhe ist",x,"m")$
/* [wxMaxima: input   end   ] */

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