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

/* [wxMaxima: title   start ]
Cosinussatz - Allgemeines Dreieck
   [wxMaxima: title   end   ] */

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

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

Von einem allgemeinen Dreieck kennt man die Seiten a und b, so wie
den Winkel Gamma.
Zu berechnen sind:
a) die Seite c
b) die übrigen Winkel
c) 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 ] */
b:read("Gib die Seite b ein");
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
ggamma:read("Gib den Winkel Gamma ein");
/* [wxMaxima: input   end   ] */

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

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

/* [wxMaxima: input   start ] */
g:a**2+b**2=c**2-2*a*b*cos(rgamma);
/* [wxMaxima: input   end   ] */

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

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

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

/* [wxMaxima: input   start ] */
g1:a/sin(ralpha)=c/sin(rgamma);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
l1:solve(g1,ralpha);
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
ralpha:ev(ralpha,l1[1]);
/* [wxMaxima: input   end   ] */

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

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

/* [wxMaxima: input   start ] */
gbeta:180-(galpha+ggamma);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
s:(a+b+c)/2;
/* [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("Seite c =",c)$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
print("Winkel Alpha =",galpha)$
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
print("Winkel Beta =",gbeta)$
/* [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"$