Ilyesmit is lehet csinálni:
# integrálandó függvényeket egy listában megadva:
fvek:=[sin(x),cos(x),cosh(x)+sin(x)];
tabla:=Array(1..nops(fvek)+1,1..3):
tabla[1,1]:="függvény":
tabla[1,2]:="integrál":
tabla[1,3]:="ellenõrzés":
for k from 2 to nops(fvek)+1 do
tabla[k,1]:=fvek[k-1]:
tabla[k,2]:=Int(fvek[k-1],x)=value(Int(fvek[k-1],x))+c:
tabla[k,3]:=diff(value(Int(fvek[k-1],x))+c,x):
end do:
tabla;