# Die ersten vier Differenzenfolgen

******************************************
Dokumentnummer: D1265
******************************************

x:makelist(i,i,1,10);

f:read("Gib den Term einer Polynomfunktion maximal 4. Grades ein");

d1:makelist(f[n+1]-f[n],n,1,9);

d2:makelist(d1[n+1]-d1[n],n,1,8);

d3:makelist(d2[n+1]-d2[n],n,1,7);

d4:makelist(d3[n+1]-d3[n],n,1,6);

ergebnis:[d1,d2,d3,d4];

transpose(ergebnis);

print("Die ersten 4 Differenzenfolgen sind:")$
transpose(ergebnis);