(* 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[      2334,         83]
NotebookOptionsPosition[      1989,         66]
NotebookOutlinePosition[      2353,         82]
CellTagsIndexPosition[      2310,         79]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{"ExpToTrig", "[", " ", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", " ", "-", " ", 
      RowBox[{"p1", " ", 
       SuperscriptBox["E", 
        RowBox[{
         RowBox[{"-", " ", "I"}], " ", "2", " ", "Pi", " ", "f"}]]}], "-", 
      RowBox[{"p2", " ", 
       SuperscriptBox["E", 
        RowBox[{
         RowBox[{"-", "I"}], " ", "4", " ", "Pi", " ", "f"}]]}]}], ")"}], 
    RowBox[{"(", 
     RowBox[{"1", " ", "-", " ", 
      RowBox[{"p1", " ", 
       SuperscriptBox["E", 
        RowBox[{" ", 
         RowBox[{"I", " ", "2", " ", "Pi", " ", "f"}]}]]}], "-", 
      RowBox[{"p2", " ", 
       SuperscriptBox["E", 
        RowBox[{"I", " ", "4", " ", "Pi", " ", "f"}]]}]}], ")"}]}], "]"}], "//",
   "Simplify"}]], "Input",
 CellChangeTimes->{{3.5232817241699567`*^9, 3.52328178887391*^9}, {
  3.523281849249683*^9, 3.523281853109107*^9}}],

Cell[BoxData[
 RowBox[{"1", "+", 
  SuperscriptBox["p1", "2"], "+", 
  SuperscriptBox["p2", "2"], "+", 
  RowBox[{"2", " ", "p1", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", "p2"}], ")"}], " ", 
   RowBox[{"Cos", "[", 
    RowBox[{"2", " ", "f", " ", "\[Pi]"}], "]"}]}], "-", 
  RowBox[{"2", " ", "p2", " ", 
   RowBox[{"Cos", "[", 
    RowBox[{"4", " ", "f", " ", "\[Pi]"}], "]"}]}]}]], "Output",
 CellChangeTimes->{{3.5232817772175107`*^9, 3.5232817895457935`*^9}, 
   3.5232818537184896`*^9}]
}, Open  ]]
},
WindowSize->{616, 750},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
ShowSelection->True,
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, 886, 25, 54, "Input"],
Cell[1456, 49, 517, 14, 30, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)