CellPrint[TextCell[Quiet[Manipulate[If[ToString[Criterio]≠ToString[Null],If[!StringContainsQ[ToString[g[x]],"If"]&&!StringContainsQ[ToString[g[x]],"I"],If[NumericQ[g[Quiet[w/.Quiet[FindInstance[Quiet[FunctionDomain[g[w],w]],{w},Reals][[1]]]]]],If[PolynomialQ[g[x],x],If[VectorQ[{vp0,vp1,vp2,n},NumericQ]&&Length[DeleteDuplicates[{vp0,vp1,vp2,n}]]>=4,If[Total[Im/@CoefficientList[InterpolatingPolynomial[{{vp0,g[vp0]},{vp1,g[vp1]},{vp2,g[vp2]}},x],x]]==0,Muller[vp0,vp1,vp2,n],Text[Style["Error en los datos",12]]],Text[Style["Error en los datos",12]]],Text[Style["Error en los datos",12]]],Text[Style["Error en los datos",12]]],Text[Style["Error en los datos",12]]],Text[Style["Error en los datos",12]]],Style["Propósito: implementa el método de Müller.",Bold,10],Spacer[{400,2}],{{Criterio,3(x^6)+2(x^4)+1,"f(x)="}},Delimiter,{{vp0,-3,"Valor de (Subscript[p, 0])"}},{{vp1,0,"Valor de (Subscript[p, 1])"}},{{vp2,3,"Valor de (Subscript[p, 2])"}},{{n,6,"Iteraciones"}},Delimiter,Button["Cambiar función",CrearFuncion[{Criterio}]],Alignment->Center,Deployed->False,AppearanceElements->"ResetButton",LocalizeVariables->True,ContinuousAction->True,ControlPlacement->Top,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["Método de Müller", Bold,14, RGBColor[0,0.33,0.33]]}},Initialization:>(Clear[VariableFuncioni,f,CrearFuncion,w,Steffensen];CrearFuncion[f_List]:=Module[{FuncionVariable},FuncionVariable[FuncionVariable_List]:=Module[{FuncionVariableAuxiliar,Simbolos,VariableAuxiliarSimbolos,VariableAuxiliarVariables={}},FuncionVariableAuxiliar[]:=FuncionVariable[[1]];Simbolos[VariableFuncion_]:=DeleteDuplicates[Cases[DownValues[VariableFuncion],_Symbol,Infinity]];VariableAuxiliarSimbolos=Sort[Simbolos[FuncionVariableAuxiliar]];For[VariableFuncioni=1,VariableFuncioni≤Length[VariableAuxiliarSimbolos],If[NumericQ[VariableAuxiliarSimbolos[[VariableFuncioni]]]==False,VariableAuxiliarVariables=Append[VariableAuxiliarVariables,VariableAuxiliarSimbolos[[VariableFuncioni]]]];VariableFuncioni++];VariableAuxiliarVariables];Clear[g,x,Ra];g[Ra_]:= Quiet[Evaluate[First[f]]/.Select[FuncionVariable[f],ToString[#]==ToString[x]&][[1]]->Ra]];CrearFuncion[{Criterio}];Muller[pv0_,pv1_,pv2_,n_]:=Quiet[If[n>=0,Module[{p0=pv0,p1=pv1,p2=pv2,p3,vecIteraciones={},Mulleri,a,b,c,dis},vecIteraciones=Append[vecIteraciones,{0,p0,g[p0]//N}];vecIteraciones=Append[vecIteraciones,{1,p1,g[p1]//N}];vecIteraciones=Append[vecIteraciones,{2,p2,g[p2]//N}];For[Mulleri=3,Mulleri<=n+2,a=(((p1-p2)(g[p0]-g[p2])-(p0-p2)(g[p1]-g[p2]))/((p0-p2)(p1-p2)(p0-p1)));b=(((p0-p2)^2(g[p1]-g[p2])-(p1-p2)^2(g[p0]-g[p2]))/((p0-p2)(p1-p2)(p0-p1)));c=g[p2];dis=b^2-4a c;If[Abs[b-(Sqrt[dis])]<=Abs[b+(Sqrt[dis])],p3=p2-((2c)/(b+(Sqrt[dis])))//N,p3=p2-((2c)/(b-(Sqrt[dis])))//N];vecIteraciones=Append[vecIteraciones,{Mulleri,p3,g[p3]}];p0=p1;p1=p2;p2=p3;Mulleri++];Style[Grid[Join[{{"k","(Subscript[p, k])","f((Subscript[p, k]))"}},vecIteraciones],Frame-> All,Alignment->Left],11]],Style["NaD",11]]])]],"Text"]]