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

/* [wxMaxima: title   start ]
Volumen bei Rotation um
die x-Achse
   [wxMaxima: title   end   ] */

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

/* [wxMaxima: comment start ]
*******************************************
Dokumentnummer: D1003
*******************************************

Das Volumen eines Rotationskörpers ist gesucht. Gegeben sind
a) erzeugende Funktion
b) Untergrenze
c) Obergrenze
Anmerkung: Rotation um x-Achse
   [wxMaxima: comment end   ] */

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

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

/* [wxMaxima: input   start ] */
f:read("Gib den Funktionsterm ein");
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
a:read("Gib die Untergrenze ein");
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
b:read("Gib die Obergrenze ein");
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
V:%pi*integrate(f**2,x,a,b);
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
print("Das Volumen ist",V)$
/* [wxMaxima: input   end   ] */

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