limraabk := proc (a) local q; q := evalf(limit(n*(1-subs(n = n+1,a)/a),n = 
infinity)); if 1 < q then print(Sum(a,n = 1 .. infinity)); print(konverguje) 
elif q < 1 then print(Sum(a,n = 1 .. infinity)); print(diverguje) else print(
`tmto kriteriem nelze rozhodnout`) end if end proc;
podilk := proc (a) local q; q := evalf(limit(subs(n = n+1,a)/a,n = infinity));
if q < 1 then print(Sum(a,n = 1 .. infinity)); print(konverguje) elif 1 < q 
then print(Sum(a,n = 1 .. infinity)); print(diverguje) else print(
`tmto kriteriem nelze rozhodnout`) end if end proc;
odmock := proc (a) local q; q := evalf(limit(convert(surd(a,n),power),n = 
infinity)); if q < 1 then print(Sum(a,n = 1 .. infinity)); print(konverguje) 
elif 1 < q then print(Sum(a,n = 1 .. infinity)); print(diverguje) else print(
`tmto kriteriem nelze rozhodnout`) end if end proc;
limsrovk := proc (a) local b, L; if nargs = 1 then b := 1/n^2; L := limit(a/b,
n = infinity); if evalf(L) < infinity then print(Sum(a,n = 1 .. infinity)); 
print(konverguje) else b := 1/n; L := limit(a/b,n = infinity); if 0 < evalf(L)
then print(Sum(a,n = 1 .. infinity)); print(diverguje) else print(
`tmto kriteriem nelze rozhodnout`) end if end if elif nargs <> 3 then ERROR(
"chybny pocet parametru") elif args[3] = ('k') then b := args[2]; L := limit(a
/b,n = infinity); if evalf(L) < infinity then print(Sum(a,n = 1 .. infinity));
print(konverguje) else print(`tmto kriteriem nelze rozhodnout`) end if elif 
args[3] = ('d') then b := args[2]; L := limit(a/b,n = infinity); if 0 < evalf(
L) then print(Sum(a,n = 1 .. infinity)); print(diverguje) else print(
`tmto kriteriem nelze rozhodnout`) end if else ERROR(
"treti parametr musi byt 'k' nebo 'd'") end if end proc;
