CellPrint[TextCell[Manipulate[If[NumberQ[(Subscript[a, 5])]&&NumberQ[(Subscript[a, 4])]&&NumberQ[(Subscript[a, 3])]&&NumberQ[(Subscript[a, 2])]&&NumberQ[(Subscript[a, 1])]&&NumberQ[(Subscript[a, 0])],Column[{If[n,Ejx=10;Ejy=10;Show[{Plot[Sum[(Subscript[a, j])(x^j),{j,0,5}],{x,-Ejx,Ejx},PlotRange->Ejy],ListPlot[{{pt,Sum[(Subscript[a, j])(x^j),{j,0,5}]/.x->pt}},PlotStyle->{Red,PointSize[Medium]}]}],If[NumberQ[Ejx]&&NumberQ[Ejy],Show[{Plot[Sum[(Subscript[a, j])(x^j),{j,0,5}],{x,-Ejx,Ejx},PlotRange->Ejy],ListPlot[{{pt,Sum[(Subscript[a, j])(x^j),{j,0,5}]/.x->pt}},PlotStyle->{Red,PointSize[Medium]}]}],"Debe ingresar valores en los campos de texto Eje x y Eje y"]],Tabla[m,Sum[(Subscript[a, j])(x^j),{j,0,5}]],Sum[(Subscript[a, j])(x^j),{j,0,5}],If[interx&&deci==False,Solve[Sum[(Subscript[a, j])(x^j),{j,0,5}]==0,x,Reals],If[interx,NSolve[Sum[(Subscript[a, j])(x^j),{j,0,5}]==0,x,Reals]]],If[intery,InY[(Subscript[a, 0])]]},Center],For[i=0,i≤5,If[NumberQ[(Subscript[a, i])]==False,(Subscript[a, i])=0];i++]],Style["Coeficientes numéricos",Bold,Medium],Panel[Column[{Row[{"(Subscript[a, 5])=",InputField[Dynamic[(Subscript[a, 5])],Number]}],Row[{"(Subscript[a, 4])=",InputField[Dynamic[(Subscript[a, 4])],Number]}],Row[{"(Subscript[a, 3])=",InputField[Dynamic[(Subscript[a, 3])],Number]}],Row[{"(Subscript[a, 2])=",InputField[Dynamic[(Subscript[a, 2])],Number]}],Row[{"(Subscript[a, 1])=",InputField[Dynamic[(Subscript[a, 1])],Number]}],Row[{"(Subscript[a, 0])=",InputField[Dynamic[(Subscript[a, 0])],Number]}]},Center]],Delimiter,Style["Intervalos de graficación",Bold,Medium],Panel[Column[{Row[{"Eje x=",InputField[Dynamic[Ejx],Number]}],Row[{"Eje y",InputField[Dynamic[Ejy],Number]}]},Center]],Delimiter,{{n,True,"Ejes automático"},{True,False}},{{m,1,"Tabla"},1,21,1},Delimiter,{{interx,False,"Intersección (es) con el eje x"},{True,False}},{{intery,False,"Intersección con el eje y"},{True,False}},{{deci,False,"Con decimales"},{True,False}},{{pt,0,"Punto móvil"},-Ejx,Ejx,0.1},Alignment->Center,Initialization:>((Subscript[a, 5])=0;(Subscript[a, 4])=0;(Subscript[a, 3])=0;(Subscript[a, 2])=0;(Subscript[a, 1])=0;(Subscript[a, 0])=0;Ejx=10;Ejy=10;Tabla[m_,Exp_]:=Module[{},TablaPre=Table[h,{h,-10,10}];TablaImg=Table[Exp/.x->h,{h,-10,10}];Grid[{Prepend[Take[TablaPre,m],"x"],Prepend[Take[TablaImg,m],"y"]},Frame-> All]];InY[v_]:=Module[{},StringJoin["(0,",ToString[v],")"]])],"Text"]]

Autores: Juan Félix Ávila Herrera y Enrique Vílchez Quesada, Escuela de Informática, Universidad Nacional de Costa Rica,  .