Notebook[List[Cell[BoxData[FormBox[RowBox[List[SubscriptBox["\[CapitalDelta]\[CapitalPhi]", "k"], "=", RowBox[List[RowBox[List[SuperscriptBox["tan", RowBox[List["-", "1"]]], "(", FractionBox[RowBox[List[RowBox[List[SubscriptBox["p", SuperscriptBox["k", "\[Prime]"]], SubscriptBox["x", "k"]]], "-", RowBox[List[SubscriptBox["x", SuperscriptBox["k", "\[Prime]"]], SubscriptBox["p", "k"]]]]], RowBox[List[RowBox[List[SubscriptBox["x", "k"], SubscriptBox["x", SuperscriptBox["k", "\[Prime]"]]]], "+", RowBox[List[SubscriptBox["p", "k"], SubscriptBox["p", SuperscriptBox["k", "\[Prime]"]]]]]]], ")"]], "."]]]], TraditionalForm]], "Input"]]]