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

/* [wxMaxima: title   start ]
Eine Funktion 4-mal integrieren
   [wxMaxima: title   end   ] */

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

/* [wxMaxima: comment start ]
******************************************
Dokumentnummer: D1044
Quelle: Johann Weilharter, Analysis
******************************************

Eine gegebene Funktion soll 4-mal hintereinander
integriert werden. Die Integrationskonstanten müssen
berücksichtigt werden.
   [wxMaxima: comment end   ] */

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

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

/* [wxMaxima: input   start ] */
f:read("Gib eine Funktion y=f(x) ein");
/* [wxMaxima: input   end   ] */

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

/* [wxMaxima: input   start ] */
f:''rhs(f);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
int1:integrate(f,x)+C1;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
int2:integrate(int1,x)+C2;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
int3:integrate(int2,x)+C3;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
int4:integrate(int3,x)+C4;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
int:[int1,int2,int3,int4];
/* [wxMaxima: input   end   ] */

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

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

/* [wxMaxima: input   start ] */
print("Die ersten vier Integrale von",f,"sind",int)$
/* [wxMaxima: input   end   ] */

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