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

/* [wxMaxima: title   start ]
Differenzenfolgen
   [wxMaxima: title   end   ] */

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

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

Für eine gegebene Polynomfunktion maximal vierten Grades und
dem Definitionsbereich [1,10] soll der Wertebereich sowie die ersten
vier Differenzfolgen bestimmt werden.
   [wxMaxima: comment end   ] */

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

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

/* [wxMaxima: input   start ] */
x:makelist(i,i,1,10);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
f:read("Gib eine Polynomfunktion y=f(x) max. vierten Grades ein");
/* [wxMaxima: input   end   ] */

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

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

/* [wxMaxima: input   start ] */
d1:makelist(f[n+1]-f[n],n,1,9);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
d2:makelist(d1[n+1]-d1[n],n,1,8);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
d3:makelist(d2[n+1]-d2[n],n,1,7);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
d4:makelist(d3[n+1]-d3[n],n,1,6);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
resultat:[f,d1,d2,d3,d4];
/* [wxMaxima: input   end   ] */

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

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

/* [wxMaxima: input   start ] */
print("Wertebereich und Differenzenfolgen",resultat)$
/* [wxMaxima: input   end   ] */

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