Notebook[List[Cell[BoxData[FormBox[RowBox[List[RowBox[List[RowBox[List["F", "(", "X", ")"]], "=", RowBox[List["(", RowBox[List[RowBox[List[SubscriptBox["f", "0"], "(", "X", ")"]], ",", RowBox[List[SubscriptBox["f", "1"], "(", "X", ")"]]]], ")"]]]], ",", RowBox[List["i", "=", "0"]], ",", "1", ",", "\n", RowBox[List[RowBox[List[SubscriptBox["f", "i"], "(", "X", ")"]], "=", RowBox[List["{", RowBox[List[GridBox[List[List[RowBox[List[RowBox[List[RowBox[List[RowBox[List[SubscriptBox["\[Phi]", "i"], "(", SubscriptBox["X", "0"], ")"]], "\[CenterDot]", SubscriptBox["X", "1"]]], "+", RowBox[List[RowBox[List[SubscriptBox["\[Psi]", "i"], "(", RowBox[List[SubscriptBox["x", "1"], ",", SubscriptBox["x", "2"]]], ")"]], "\[CenterDot]", RowBox[List["(", RowBox[List[SubscriptBox["x", RowBox[List["m", "-", "1"]]], ",", SubscriptBox["x", "m"]]], ")"]]]]]], ","]], RowBox[List[RowBox[List[RowBox[List[StyleBox["if", Rule[FontSlant, "Plain"]], "   ", RowBox[List["(", RowBox[List[SubscriptBox["x", "1"], ",", SubscriptBox["x", "2"]]], ")"]]]], "\[Element]", RowBox[List["{", RowBox[List["10", ",", "11"]], "}"]]]], ","]], RowBox[List[SubscriptBox["X", "1"], "\[Element]", SubsuperscriptBox["F", "2", "k"]]]], List[RowBox[List[RowBox[List[RowBox[List[SubscriptBox["\[Phi]", "i"], "(", SubsuperscriptBox["X", "0", "\[Prime]"], ")"]], "\[CenterDot]", SubsuperscriptBox["X", "1", "\[Prime]"]]], ","]], RowBox[List[RowBox[List[RowBox[List[StyleBox["if", Rule[FontSlant, "Plain"]], "   ", SubscriptBox["x", "1"]]], "=", "0"]], ",", RowBox[List[SubsuperscriptBox["X", "1", "\[Prime]"], "\[Element]", SubsuperscriptBox["F", "2", "k"]]]]], " "]], Rule[ColumnAlignments, List[Left, Left, Center]]], "."]]]]]]]], TraditionalForm]], "Input"]]]