<<Vilcretas`

GrafoString["Bienvenidos"]

f=(2^(j*n))(-12(n^(4j))-16(n^3)-8(n^2)+20n-5);
g=(4^(12-2n));

?CompLimit

CompLimit[{f, g}, jvalor->100]

Table[j->Limit[f/g, n->Infinity],{j,-10,10}]

f=Sum[(((((((1/2)))^i)+(((i+(1/2)))^6)+100))^3),{i,1,3n-1}];

Expand[f]

Limit[f/(n^19), n->Infinity]

f1[n_]:=f1[n-1]-f1[n-2]+f1[n-3]
f1[0]=4;f1[1]=7;
f1[2]=6;
f2[n_]:=Which[n==0,4,n==1,7,n==2,6,n>2,f2[n-1]-f2[n-2]+f2[n-3]]
f3[n_]:=Module[{g},g[i_,a_,ta_,tta_]:=Which[n==0,tta,n==1,ta,n==2,a,i==n,a-ta+tta,True,g[i+1,a-ta+tta,a,ta]];
g[3,6,7,4]]

f4[n_]:=Module[{i,s=0},For[i=1,i<=n,i++,s=s+i];
Which[n==0,4,n==1,7,n==2,6,n>2,f4[n-1]-f4[n-2]+f4[n-3]]]

PruebaADAGrafica[{f1,f2,f3,f4},20,5,1]

opciones={n^4,n^2,5^n,(1/11)^n,11^n};

Table[i->Limit[((1/11)^(-n)-7 n^4+4 n^2+5^n)/i,n->Infinity],{i,opciones}]

CompLimit[{((2(n^7)+2(n^2))/(5(n^j)+3(n^2)+1)),(n^j)}]

Limit[((n^3)+(((n^3)+n-9160)/(6n))+9)/(n^2), n->Infinity]