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

/* [wxMaxima: title   start ]
Allgemeines Dreieck, Sinussatz
   [wxMaxima: title   end   ] */

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

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

Von einem allgemeinen Dreieck kennt man die Seite a
und die Winkel Alpha und Beta.
Zu berechnen sind:
a) der Winkel Gamma
b) die Setie b
c) die Seite c
d) die Fläche
   [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 Seite a ein");
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
%alpha:read("Gib den Winkel Alpha ein");
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
%beta:read("Gib den Winkel Beta ein");
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
gamma:180-(%alpha+%beta);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
ggamma:floor(gamma*100+0.5)/100.0;
/* [wxMaxima: input   end   ] */

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

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

/* [wxMaxima: input   start ] */
gamma:ggamma*%pi/180;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
Sinussatz:a/sin(alpha)=b/sin(beta);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
l:solve(Sinussatz,b),numer;
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
Sinussatz:a/sin(alpha)=c/sin(gamma);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
l:solve(Sinussatz,c),numer;
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
s:(a+b+c)/2.0;
/* [wxMaxima: input   end   ] */

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

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

/* [wxMaxima: input   start ] */
print("Winkel Gamma",ggamma)$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
print("Seite b =",b)$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
print("Seite c =",c)$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
print("Fläche =",A)$
/* [wxMaxima: input   end   ] */

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