Notebook[List[Cell[BoxData[FormBox[RowBox[List[RowBox[List[FractionBox[RowBox[List["\[PartialD]", RowBox[List["J", "(", "W", ")"]]]], RowBox[List["\[PartialD]", SubscriptBox["w", "k"]]]], "=", RowBox[List[RowBox[List[UnderscriptBox["\[Sum]", "i"], " ", RowBox[List[UnderscriptBox["\[Sum]", RowBox[List["j", "\[NotEqual]", "i"]]], " ", RowBox[List["(", RowBox[List[RowBox[List["(", RowBox[List[RowBox[List[SubscriptBox["p", "0"], "(", RowBox[List["j", "|", "i"]], ")"]], "-", RowBox[List[SuperscriptBox["p", "W"], "(", RowBox[List["j", "|", "i"]], ")"]]]], ")"]], "\[Times]", RowBox[List["g", "(", RowBox[List[SubscriptBox[OverscriptBox["x", "^"], "i"], ",", SubscriptBox[OverscriptBox["x", "^"], "j"], ",", SubscriptBox["w", "k"]]], ")"]]]], ")"]]]]]], "+", RowBox[List["2", " ", SubscriptBox["w", "k"]]], "+", RowBox[List["2", RowBox[List[UnderscriptBox["\[Sum]", "i"], " ", RowBox[List["(", RowBox[List[RowBox[List["(", RowBox[List[UnderoverscriptBox["\[Sum]", RowBox[List["l", "=", "1"]], "q"], " ", RowBox[List[SubsuperscriptBox["w", "l", "T"], SubscriptBox[OverscriptBox["x", "^"], "i"]]]]], ")"]], SubscriptBox[OverscriptBox["x", "^"], "i"]]], ")"]]]]]]]]]], ","]], TraditionalForm]], "Input"]]]