cdf =Manipulate[Column[{ CalcLimit[fn, gn], "El valor del límite es: "<> ToString@ lim}],Style[proposito,Bold,10],Spacer[{100,3}],
 (*Inicio contadores *)
 {{fn, n^2,"f(n)= "},ControlType->InputField},{{gn, n^5,"g(n) = "},ControlType->InputField},
Button["OK",SuFunc]
(* Fin contadores *)
,Alignment->Center,Deployed->True,AppearanceElements->"ResetButton",LocalizeVariables->True,ContinuousAction->False,FrameLabel->{{None,None},{Column[{,Row[{Style["Autores: Juan Félix Ávila Herrera y Enrique Vílchez Quesada",Bold,10,RGBColor[0,0,0.5]]}],Row[{Style["Escuela de Informática | Universidad Nacional de Costa Rica",Bold,10,RGBColor[0.5,0.1,0]]}]},Center],Style["Título: Nombre del CDF. ", Bold,14, RGBColor[0,0.33,0.33]]}},
Initialization:>(
($PreRead=(#/. s_String/;StringMatchQ[s,NumberString]&&Precision@ToExpression@s==MachinePrecision:>s<>"`12."&));
proposito ="Este CDF calcula el límite al infinito del cocientre 
 entre f(n) y g(n) para compararlas mediante la notación O grande.";
CalcLimit[f_, g_] := Module[{lime},  lim = Limit[f/g,n-> ∞];
 
 Which[NumericQ[lim]  ∧ lim≥ 0, TraditionalForm[  f==o[g]]/.o->"O" , True, "El criterio no es concluyente!!"  ]];

)]
(*CloudDeploy[cdf, Permissions->"Public"]*)