(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[      3460,        129]
NotebookOptionsPosition[      3026,        109]
NotebookOutlinePosition[      3369,        124]
CellTagsIndexPosition[      3326,        121]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Sum", "[", " ", 
  RowBox[{
   RowBox[{
    RowBox[{"Cos", "[", " ", 
     RowBox[{"\[Pi]", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", "k"}], "+", "1"}], ")"}], 
      FractionBox["i", 
       RowBox[{"2", " ", "N"}]]}], "]"}], 
    RowBox[{"Cos", "[", 
     RowBox[{"\[Pi]", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", "k"}], "+", "1"}], ")"}], 
      FractionBox["j", 
       RowBox[{"2", " ", "N"}]]}], "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"k", ",", "0", ",", 
     RowBox[{"N", "-", "1"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.50152086383457*^9, 3.501520906100544*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "4"], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"Csc", "[", 
      FractionBox[
       RowBox[{
        RowBox[{"i", " ", "\[Pi]"}], "-", 
        RowBox[{"j", " ", "\[Pi]"}]}], 
       RowBox[{"2", " ", "N"}]], "]"}], " ", 
     RowBox[{"Sin", "[", 
      RowBox[{
       RowBox[{"i", " ", "\[Pi]"}], "-", 
       RowBox[{"j", " ", "\[Pi]"}]}], "]"}]}], "+", 
    RowBox[{
     RowBox[{"Csc", "[", 
      FractionBox[
       RowBox[{
        RowBox[{"i", " ", "\[Pi]"}], "+", 
        RowBox[{"j", " ", "\[Pi]"}]}], 
       RowBox[{"2", " ", "N"}]], "]"}], " ", 
     RowBox[{"Sin", "[", 
      RowBox[{
       RowBox[{"i", " ", "\[Pi]"}], "+", 
       RowBox[{"j", " ", "\[Pi]"}]}], "]"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{3.5015209654604225`*^9, 3.5015809147440357`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Sum", "[", " ", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"Cos", "[", " ", 
     RowBox[{"\[Pi]", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"2", " ", "k"}], "+", "1"}], ")"}], 
      FractionBox["i", 
       RowBox[{"2", " ", "N"}]]}], "]"}], "2"], ",", 
   RowBox[{"{", 
    RowBox[{"k", ",", "0", ",", 
     RowBox[{"N", "-", "1"}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.50152086383457*^9, 3.501520906100544*^9}, {
  3.5015810184791565`*^9, 3.501581024010477*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", "4"], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"2", " ", "N"}], "+", 
    RowBox[{
     RowBox[{"Csc", "[", 
      FractionBox[
       RowBox[{"i", " ", "\[Pi]"}], "N"], "]"}], " ", 
     RowBox[{"Sin", "[", 
      RowBox[{"2", " ", "i", " ", "\[Pi]"}], "]"}]}]}], ")"}]}]], "Output",
 CellChangeTimes->{3.5015810247604866`*^9}]
}, Open  ]]
},
WindowSize->{616, 750},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (February 18, 2009)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 661, 21, 48, "Input"],
Cell[1231, 45, 844, 27, 48, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2112, 77, 519, 15, 48, "Input"],
Cell[2634, 94, 376, 12, 47, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)