Notebook[List[Cell[BoxData[FormBox[GridBox[List[List[RowBox[List[SubscriptBox["F", "S"], "=", "\[AlignmentMarker]", FractionBox[RowBox[List[RowBox[List["2", RowBox[List["\[LeftAngleBracket]", RowBox[List["\[LeftBracketingBar]", RowBox[List[SubscriptBox["E", RowBox[List[StyleBox["DC", Rule[FontSlant, "Italic"]], ",", "S"]]], SubscriptBox["E", RowBox[List[StyleBox["AC", Rule[FontSlant, "Italic"]], ",", "S"]]]]], "\[RightBracketingBar]"]], "\[RightAngleBracket]"]]]], "+", RowBox[List["2", RowBox[List["\[LeftAngleBracket]", RowBox[List["\[LeftBracketingBar]", RowBox[List[SubscriptBox["E", "R"], SubscriptBox["E", RowBox[List[StyleBox["AC", Rule[FontSlant, "Italic"]], ",", "S"]]]]], "\[RightBracketingBar]"]], "\[RightAngleBracket]"]]]]]], RowBox[List[RowBox[List["\[LeftAngleBracket]", SuperscriptBox[RowBox[List["\[LeftBracketingBar]", SubscriptBox["E", RowBox[List[StyleBox["DC", Rule[FontSlant, "Italic"]], ",", "S"]]], "\[RightBracketingBar]"]], "2"], "\[RightAngleBracket]"]], "+", RowBox[List["\[LeftAngleBracket]", SuperscriptBox[RowBox[List["\[LeftBracketingBar]", SubscriptBox["E", RowBox[List[StyleBox["AC", Rule[FontSlant, "Italic"]], ",", "S"]]], "\[RightBracketingBar]"]], "2"], "\[RightAngleBracket]"]], "+", RowBox[List["\[LeftAngleBracket]", SuperscriptBox[RowBox[List["\[LeftBracketingBar]", SubscriptBox["E", "R"], "\[RightBracketingBar]"]], "2"], "\[RightAngleBracket]"]], "+", RowBox[List["2", RowBox[List["\[LeftAngleBracket]", RowBox[List["\[LeftBracketingBar]", RowBox[List[SubscriptBox["E", "R"], SubscriptBox["E", RowBox[List[StyleBox["DC", Rule[FontSlant, "Italic"]], ",", "S"]]]]], "\[RightBracketingBar]"]], "\[RightAngleBracket]"]]]]]]]]]], List[RowBox[List["=", "\[AlignmentMarker]", FractionBox[RowBox[List[RowBox[List["2", SubsuperscriptBox["E", RowBox[List["S", " ", "0"]], "2"], RowBox[List[SubscriptBox["J", "0"], "(", "kz", ")"]], RowBox[List[SubscriptBox["J", "1"], "(", "kz", ")"]]]], "+", RowBox[List["2", " ", SubscriptBox["E", RowBox[List["S", " ", "0"]]], SubscriptBox["E", "R"], RowBox[List[SubscriptBox["J", "1"], "(", "kz", ")"]]]]]], RowBox[List[RowBox[List[SubsuperscriptBox["E", RowBox[List["S", " ", "0"]], "2"], RowBox[List[SubsuperscriptBox["J", "0", "2"], "(", "kz", ")"]]]], "+", RowBox[List[SubsuperscriptBox["E", RowBox[List["S", " ", "0"]], "2"], RowBox[List[SubsuperscriptBox["J", "1", "2"], "(", "kz", ")"]]]], "+", SubsuperscriptBox["E", "R", "2"], "+", RowBox[List["2", SubscriptBox["E", RowBox[List["S", " ", "0"]]], SubscriptBox["E", "R"], RowBox[List[SubscriptBox["J", "0"], "(", "kz", ")"]]]]]]]]]]], Rule[GridBaseline, List[Baseline, List[1, 1]]], Rule[ColumnAlignments, List["\[AlignmentMarker]"]], RuleDelayed[GridDefaultElement, RowBox[List["\[AlignmentMarker]", "\[Placeholder]"]]]], TraditionalForm]], "Input"]]]