Cell[BoxData[RowBox[List[RowBox[List[RowBox[List[RowBox[List["(", RowBox[List[UnderoverscriptBox["\[Product]", RowBox[List["k", "=", "1"]], "m"], RowBox[List["Cos", "[", SubscriptBox["z", "k"], "]"]]]], ")"]], RowBox[List["(", RowBox[List[UnderoverscriptBox["\[Product]", RowBox[List["k", "=", RowBox[List["m", "+", "1"]]]], "n"], RowBox[List["Sin", "[", SubscriptBox["z", "k"], "]"]]]], ")"]]]], "\[Equal]", RowBox[List[SuperscriptBox[RowBox[List["(", RowBox[List["-", "1"]], ")"]], RowBox[List["Mod", "[", RowBox[List[RowBox[List[RowBox[List["(", RowBox[List["n", "-", "m"]], ")"]], "/", "2"]], ",", "2"]], "]"]]], SuperscriptBox["2", RowBox[List["-", "n"]]], RowBox[List[UnderoverscriptBox["\[Sum]", UnderscriptBox[RowBox[List[SubscriptBox["k", "1"], "=", RowBox[List["-", "1"]]]], RowBox[List[RowBox[List["\[CapitalDelta]", " ", SubscriptBox["k", "1"]]], "=", "2"]]], "1"], RowBox[List[UnderoverscriptBox["\[Sum]", UnderscriptBox[RowBox[List[SubscriptBox["k", "2"], "=", RowBox[List["-", "1"]]]], RowBox[List[RowBox[List["\[CapitalDelta]", " ", SubscriptBox["k", "2"]]], "=", "2"]]], "1"], RowBox[List["\[Ellipsis]", RowBox[List[UnderoverscriptBox["\[Sum]", UnderscriptBox[RowBox[List[SubscriptBox["k", "n"], "=", RowBox[List["-", "1"]]]], RowBox[List[RowBox[List["\[CapitalDelta]", " ", SubscriptBox["k", "n"]]], "=", "2"]]], "1"], RowBox[List[SuperscriptBox[RowBox[List["(", RowBox[List["-", "1"]], ")"]], RowBox[List[UnderoverscriptBox["\[Sum]", RowBox[List["j", "=", RowBox[List["m", "+", "1"]]]], "n"], RowBox[List[RowBox[List["(", RowBox[List[RowBox[List["2", SubscriptBox["k", "j"]]], "+", "2"]], ")"]], "/", "4"]]]]], RowBox[List["Cos", "[", RowBox[List[UnderoverscriptBox["\[Sum]", RowBox[List["j", "=", "1"]], "n"], RowBox[List[SubscriptBox["k", "j"], SubscriptBox["z", "j"]]]]], "]"]]]]]]]]]]]]]]]], "/;", RowBox[List[RowBox[List["n", "\[Element]", "Integers"]], "\[And]", RowBox[List["m", "\[Element]", "Integers"]], "\[And]", RowBox[List["n", "\[GreaterEqual]", "0"]], "\[And]", RowBox[List["m", "\[GreaterEqual]", "0"]], "\[And]", RowBox[List["m", "\[LessEqual]", "n"]], "\[And]", RowBox[List[FractionBox[RowBox[List["n", "-", "m"]], "2"], "\[Element]", "Integers"]]]]]]]]
|