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

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

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

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

Auf einer horizontalen Ebene steht ein Haus und ihm gegenüber ein
hm Meter hoher Mast. Von einem Fenster des Hauses (Beobachtungs-
punkt P) sieht man die Spitze des Mastes unter dem Höhenwinkel hwa
und dessen Fußpunkt unter dem Tiefenwinkel twb. Wie hoch liegt der
Beobachtungspunkt über der Horizontalebene?
   [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 ein");
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
twb:read("Gib den Tiefenwinkel 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 ] */
rtwb:twb*%pi/180;
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
g2:tan(rtwb)=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("Der Beobachtungspunkt liegt",x,"m über der Horizontalebene")$
/* [wxMaxima: input   end   ] */

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