(%i1)

file_search_maxima : cons(sconcat("C:/Documents and Settings/FX/Desktop/devoir/###.{lisp,mac,mc}"), file_search_maxima)$

(%i2)

filePP:sconcat(file_search("PP.txt"));

(%i3)

batchload(filePP);

(%i4)

P;

(%i5)

sum(P[i],i,1,15);

(%i6)

P^^8;

(%i7)

fpprintprec:4$print("P^8=",float(P^^8))$

(%i9)

print("P^128=",float(P^^128))$

(%i10)

Q:P^^128$sum(Q[i],i,1,15);

(%i12)

QQ:float(P^^128)$sum(QQ[i],i,1,15);

---

Created with wxMaxima.