/* [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: D1092
Quelle: http://www.reniets.at
******************************************

Gegeben sind die Seiten a und b eines rechtwinkeligen
Dreiecks. Gesucht sind die Seite c, die Fläche A und
die Winkel.
   [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: comment start ]
VERARBEITUNG
   [wxMaxima: comment end   ] */

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

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

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

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

/* [wxMaxima: input   start ] */
%alpha:rhs(l[1]);
/* [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 ] */
%alpha:%alpha*180/%pi;
/* [wxMaxima: input   end   ] */

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

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

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

/* [wxMaxima: input   start ] */
zeile1:ergebnis[1];
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
spalte1:transpose(zeile1);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
zeile2:ergebnis[2];
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
spalte2:transpose(zeile2);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
ergebnis:[spalte1,spalte2];
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
print(ergebnis)$
/* [wxMaxima: input   end   ] */

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