/* [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 ]
Gegeben : 
                  Kathete a = 3
                  Kathete b = 4
 
Ergebnisse :
               Hypotenuse c = 5
               Winkel Alpha = 36,869898°
                Winkel Beta = 53,130102°
     Hypotenusenabschnitt p = 1,8
     Hypotenusenabschnitt q = 3,2
                     Höhe h = 2,4
            Flächeninhalt A = 6

   [wxMaxima: comment end   ] */

/* [wxMaxima: section start ]
Problemlösung
   [wxMaxima: section end   ] */

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

/* [wxMaxima: input   start ] */
a:3;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
b:4;
/* [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 ] */
g1:sin(alpha)=a/c;
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
AR:alpha,l1[1];
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
AG:AR*180/%pi,numer;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
AG:floor(AG*1000000+0.5)/1000000.0;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
BG:90-AG;
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
g2:A=c*h/2;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
l2:solve(g2,h),numer;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
h:ev(h,l2[1]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
g3:a**2=p*c;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
l3:solve(g3,p),numer;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
p:ev(p,l3[1]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
q:c-p;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: comment start ]
Ergebnisse zusammenfassen
   [wxMaxima: comment end   ] */

/* [wxMaxima: input   start ] */
matrix(
 ["Objekt","Wert"], 
 ["a =",a], 
 ["b =",b], 
 ["c =",c], 
 ["A =",A], 
 ["h =",h], 
 ["Alpha =",AG], 
 ["Beta  =",BG], 
 ["P =",p], 
 ["q =",q]
)$
/* [wxMaxima: input   end   ] */

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

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