CellPrint[TextCell[Quiet[cdf =Manipulate[Column[{ "Fórmula a usar: "TraditionalForm@formulas[[u]], Dynamic@SuFunc}],Style[proposito,Bold,10],Spacer[{100,3}],
 (*Inicio contadores *)
 {{u,1,"Elija la fórmula para aproximar  "<>ToString@TraditionalForm[f'[x0]]},1,6,1,ControlType->SetterBar},
{{ff,x^2,"f(x) = "},ControlType->InputField},
{{punto,2,"x0 = "},ControlType->InputField},
{{hache,0.1,"h = "},ControlType->InputField},
Button["Calcular", CrearFuncion1[{ff}];Dynamic@ 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["Aproximación numérica de la derivada ", Bold,14, RGBColor[0,0.33,0.33]]}},
Initialization:>(
formulas ={((f[x0+h]-f[x0])/h), ((-3 f[x0]+4 f[ x0+h]-f[x0+2 h])/(2 h)), ((f[x0+h]-f[x0-h])/(2h)), ((-11 f[x0]+18 f[h+x0]-9 f[2 h+x0]+2 f[3 h+x0])/(6 h)), ((f[-2 h+x0]-8 f[-h+x0]+8 f[h+x0]-f[2 h+x0])/(12 h)), ((-25 f[x0]+48 f[h+x0]-36 f[2 h+x0]+16 f[3 h+x0]-3 f[4 h+x0])/(12 h))};
;
 
Clear[f];

(*($PreRead=(#/. s_String/;StringMatchQ[s,NumberString]&&Precision@ToExpression@s==MachinePrecision:>s<>"`12."&));*)
proposito ="Propósito: Aproximación de f'(x0) usando varias fórmulas";
SuFunc := Module[{aux},
f[t_] := ff/.x->t;
aux =formulas[[u]]/.{x0-> punto, h->hache, f->g };
aux = "Aprox. con fórmula = "<>ToString[aux]<>"\nAprox. Mathematica = "<>ToString[N[f'[punto]]];
Clear[f];
aux
];
Dynamic@SuFunc
)]],"Text"]]