<<TutoriasED`

<<Vilcretas`

CDFGraficaNOG[100]

fun = {(7^(10n)),n (7^(10n)),(n^9),(n^8),(n^7),(n^6),(n^5),(n^4),(n^3),(n^2),n,1};

Table[Limit[((Sum[-13(i^3)-(14^(-7i))+(7^(10i)),{i,2,n-1}])/f),n->Infinity],{f, fun}]

Table[f->Limit[((Sum[-13(i^3)-(14^(-7i))+(7^(10i)),{i,2,n-1}])/f),n->Infinity],{f, fun}]

Limit[((Sum[-13(i^3)-(14^(-7i))+(7^(10i)),{i,2,n-1}])/(7^(10 n))),n->Infinity]

func = {(n^2),(n^3),(n^4),(n^5),(n^6)};

Table[p->Limit[Sum[Sum[1,{j,1,i+6}],{i,1,(n^3)+2}]/p, n->Infinity],{p,func}]

f=((15(n^4)+17(n^3)+20(n^2)-4n+16)/(6(n^4)+13(n^3)+19(n^2)+17n+16));
g=((15(n^j)+10(n^2)+3n+19)/(8(n^4)-14(n^3)+19(n^2)-9n+11));

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

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

?PruebaADAGrafica

Programa1[n_,valor_:60/5846006549323611671624303190352640062064535163787]:=If[n==6,valor,Programa1[n-1,valor*((3+19*(-3+n))/(-8^(18*(-3+n))+13^(9*(-3+n))-20^(7*(-3+n))))]]

Programa2[n_]:=If[n==6,60/5846006549323611671624303190352640062064535163787,Programa2[n-1]*((3+19*(-3+n))/(-8^(18*(-3+n))+13^(9*(-3+n))-20^(7*(-3+n))))]

Programa3[n_]:=Module[{i,valor=1},For[i=3,i<=n-3,valor=valor*(3+19*i)/(8^(18*i)-13^(9*i)+20^(7*i));
i++];
valor]

Programa4[n_]:=Product[(3+19*i)/(8^(18*i)-13^(9*i)+20^(7*i)),{i,3,n-3}]

PruebaADAGrafica[{Programa1,Programa2, Programa3, Programa4},25,6]

programa1[n_,valor_:78124999/175781250]:=If[n==1,valor,programa1[n-1,valor+((5^(-10 n))*(-1+2*5^(10 n)+6*5^(10 n)*n^3))/(2*(2+7*n^2))]]

programa2[n_]:=If[n==1,78124999/175781250,programa2[n-1]+((5^(-10 n))*(-1+2*5^(10 n)+6*5^(10 n)*n^3))/(2*(2+7*n^2))]

{programa1[10], programa2[10]}//N

PruebaADA2[{programa1, programa2}, 200, 1, 20]

PruebaADA2[{programa1, programa2}, 200, 1, 20]

PruebaADA2[{programa1, programa2}, 200, 1, 20]

f:=(17 n^4-18 n^3+7 n^2+7 n-36^(-3 n-8)+18^(15 n+2)-6 Log[2 (n+1)]/Log[4]-16)*(-8 n^5+16 n^4-16 n^3+17 n^2-13 n-2^(20 n+7)-3 Log[9-17 n]-17 Log[18 n+6]/Log[8])

Clear[n]

funci = {(18^(16n))(2^(20n)),(18^(14n))(2^(20n)),(18^(15n))(2^(20n)),-(18^(15n))(2^(20n))};

Table[Limit[f/ p, n->Infinity], {p, funci}]

Limit[f/(-(18^(15n))(2^(20n))),n->Infinity]