Notebook[List[Cell[BoxData[List[FormBox[RowBox[List[RowBox[List["C", "(", RowBox[List["L", ";", SubscriptBox["\[Delta]", "L"]]], ")"]], "=", FractionBox[GridBox[List[List[RowBox[List[UnderoverscriptBox["\[Sum]", RowBox[List[SuperscriptBox["L", "\[Prime]"], "=", RowBox[List[RowBox[List["-", RowBox[List["(", RowBox[List[SubscriptBox["\[CapitalDelta]", "L"], "-", "1"]], ")"]]]], "/", "2"]]]], RowBox[List[RowBox[List["(", RowBox[List[SubscriptBox["\[CapitalDelta]", "L"], "-", "1"]], ")"]], "/", "2"]]], " ", RowBox[List[UnderoverscriptBox["\[Sum]", RowBox[List["r", "=", SubscriptBox["r", "1"]]], SubscriptBox["r", "2"]], " ", RowBox[List[RowBox[List["(", RowBox[List[RowBox[List["F", "(", RowBox[List["r", ",", RowBox[List["L", "+", SuperscriptBox["L", "\[Prime]"]]]]], ")"]], "-", RowBox[List[OverscriptBox["F", "_"], "(", "L", ")"]]]], ")"]], "\[CenterDot]"]]]]]]], List[RowBox[List["(", RowBox[List[RowBox[List["F", "(", RowBox[List["r", ",", RowBox[List["L", "+", SubscriptBox["\[Delta]", "L"], "+", SuperscriptBox["L", "\[Prime]"]]]]], ")"]], "-", RowBox[List[OverscriptBox["F", "_"], "(", RowBox[List["L", "+", SubscriptBox["\[Delta]", "L"]]], ")"]]]], ")"]]]]], GridBox[List[List[RowBox[List[SqrtBox[RowBox[List[UnderoverscriptBox["\[Sum]", RowBox[List[SuperscriptBox["L", "\[Prime]"], "=", RowBox[List[RowBox[List["-", RowBox[List["(", RowBox[List[SubscriptBox["\[CapitalDelta]", "L"], "-", "1"]], ")"]]]], "/", "2"]]]], RowBox[List[RowBox[List["(", RowBox[List[SubscriptBox["\[CapitalDelta]", "L"], "-", "1"]], ")"]], "/", "2"]]], " ", RowBox[List[UnderoverscriptBox["\[Sum]", RowBox[List["r", "=", SubscriptBox["r", "1"]]], SubscriptBox["r", "2"]], " ", SuperscriptBox[RowBox[List["(", RowBox[List[RowBox[List["F", "(", RowBox[List["r", ",", RowBox[List["L", "+", SuperscriptBox["L", "\[Prime]"]]]]], ")"]], "-", RowBox[List[OverscriptBox["F", "_"], "(", "L", ")"]]]], ")"]], "2"]]]]]], "\[CenterDot]"]]], List[SqrtBox[RowBox[List[UnderoverscriptBox["\[Sum]", RowBox[List[SuperscriptBox["L", "\[Prime]"], "=", RowBox[List[RowBox[List["-", RowBox[List["(", RowBox[List[SubscriptBox["\[CapitalDelta]", "L"], "-", "1"]], ")"]]]], "/", "2"]]]], RowBox[List[RowBox[List["(", RowBox[List[SubscriptBox["\[CapitalDelta]", "L"], "-", "1"]], ")"]], "/", "2"]]], " ", RowBox[List[UnderoverscriptBox["\[Sum]", RowBox[List["r", "=", SubscriptBox["r", "1"]]], SubscriptBox["r", "2"]], " ", SuperscriptBox[RowBox[List["(", RowBox[List[RowBox[List["F", "(", RowBox[List["r", ",", RowBox[List["L", "+", SubscriptBox["\[Delta]", "L"], "+", SuperscriptBox["L", "\[Prime]"]]]]], ")"]], "-", RowBox[List[OverscriptBox["F", "_"], "(", RowBox[List["L", "+", SubscriptBox["\[Delta]", "L"]]], ")"]]]], ")"]], "2"]]]]]]]]]]]], TraditionalForm], FormBox[RowBox[List[RowBox[List[StyleBox["where", Rule[FontSlant, "Plain"]], "   ", RowBox[List[OverscriptBox["F", "_"], "(", "L", ")"]]]], "=", RowBox[List[FractionBox["1", RowBox[List[SubscriptBox["\[CapitalDelta]", "L"], "\[CenterDot]", RowBox[List["(", RowBox[List[SubscriptBox["r", "2"], "-", SubscriptBox["r", "1"]]], ")"]]]]], "\[CenterDot]", RowBox[List[UnderoverscriptBox["\[Sum]", RowBox[List[SuperscriptBox["L", "\[Prime]"], "=", RowBox[List[RowBox[List["-", RowBox[List["(", RowBox[List[SubscriptBox["\[CapitalDelta]", "L"], "-", "1"]], ")"]]]], "/", "2"]]]], RowBox[List[RowBox[List["(", RowBox[List[SubscriptBox["\[CapitalDelta]", "L"], "-", "1"]], ")"]], "/", "2"]]], " ", RowBox[List[UnderoverscriptBox["\[Sum]", RowBox[List["r", "=", SubscriptBox["r", "1"]]], SubscriptBox["r", "2"]], " ", RowBox[List["(", RowBox[List[RowBox[List["F", "(", RowBox[List["r", ",", RowBox[List["L", "+", SuperscriptBox["L", "\[Prime]"]]]]], ")"]], "."]]]]]]]]]]]], TraditionalForm]]], "Input"]]]