CellPrint[TextCell[Quiet[Manipulate[If[MatrixQ[VectorPares,NumericQ],If[Dimensions[VectorPares][[2]]==2,If[Length[VectorPares]>=2,Style[Column[{Row[{"((Subscript[P, x])(t),(Subscript[P, y])(t))=",LagrangeParametric[VectorPares][[1]]}],LagrangeParametric[VectorPares][[2]]},Center],10],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  interpolación paramétrica usando polinomios de Lagrange.",Bold,10],Spacer[{400,2}],{{VectorPares,{{0,1},{1,2},{3,3},{5,2},{5,-2},{0,-5}},"Pares ordenados"}},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 Lagrange interpolación paramétrica", Bold,14, RGBColor[0,0.33,0.33]]}},Initialization:>(Clear[LagrangePares,Lk,LagrangeParametric,t];Lk[VectorPrei_,vk_]:=Module[{xi},Product[((t-xi)/(VectorPrei[[vk]]-xi)),{xi,Select[VectorPrei,#!=VectorPrei[[vk]]&]}]];LagrangePares[VectorPares_]:=Module[{iSum,Poli,n=Length[VectorPares]},N[Expand[Sum[Lk[VectorPares[[All,1]],iSum]*VectorPares[[iSum,2]],{iSum,Length[VectorPares]}]]]];LagrangeParametric[VectorPares_]:=Module[{n=Length[VectorPares],funcPara},funcPara={LagrangePares[Transpose[Join[{Range[1,n]},{VectorPares[[All,1]]}]]],LagrangePares[Transpose[Join[{Range[1,n]},{VectorPares[[All,2]]}]]]};{funcPara,ParametricPlot[funcPara,{t,1,n}]}])]],"Text"]]