Notebook[List[Cell[BoxData[FormBox[RowBox[List[RowBox[List[SubscriptBox["R", "N"], "(", "q", ")"]], "=", RowBox[List[StyleBox["diag", Rule[FontSlant, "Plain"]], "(", RowBox[List["[", GridBox[List[List[SuperscriptBox["e", RowBox[List["j", " ", "2", " ", RowBox[List["\[Pi]", "\[CenterDot]", "0", "\[CenterDot]", FractionBox["q", "N"]]]]]], SuperscriptBox["e", RowBox[List["j", " ", "2", " ", RowBox[List["\[Pi]", "\[CenterDot]", "1", "\[CenterDot]", FractionBox["q", "N"]]]]]], "\[Ellipsis]", SuperscriptBox["e", RowBox[List["j", " ", "2", " ", RowBox[List["\[Pi]", "\[CenterDot]", RowBox[List["(", RowBox[List["N", "-", "1"]], ")"]], "\[CenterDot]", FractionBox["q", "N"]]]]]]]]], "]"]], ")"]]]], TraditionalForm]], "Input"]]]