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

/* [wxMaxima: title   start ]
Rechtwinkeliges Dreieck
   [wxMaxima: title   end   ] */

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

/* [wxMaxima: comment start ]
******************************************
Dokumentnummer: D1090
Quelle: http://www.reniets.at
******************************************

Gegeben sei ein rechtwinkeliges Dreieck. Gesucht sind
die Seite b, die Winkel und 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 ] */
c:read("Gib die Seite c ein");
/* [wxMaxima: input   end   ] */

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

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

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

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

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

/* [wxMaxima: input   start ] */
%alpha:floor(rhs(l[1])*10000+0.5)/10000.0;
/* [wxMaxima: input   end   ] */

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

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

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

/* [wxMaxima: input   start ] */
%alpha:floor(%alpha*10000+0.5)/10000.0;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
%beta:90-%alpha;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
g:cos(alpha)=b1/c;
/* [wxMaxima: input   end   ] */

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

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

/* [wxMaxima: input   start ] */
b1:floor(rhs(l[1])*10000+0.5)/10000.0;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
A:a*b/2.0;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
ergebnis:matrix(
 ["a","=",a], 
 ["b","=",b], 
 ["c","=",c], 
 ["A","=",A], 
 ['%alpha,"=",%alpha], 
 ['%beta,"=",%beta]
);
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
print("Hier sind die Ergebnisse:",ergebnis)$
/* [wxMaxima: input   end   ] */

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