(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[      8108,        254]
NotebookOptionsPosition[      7661,        235]
NotebookOutlinePosition[      8001,        250]
CellTagsIndexPosition[      7958,        247]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"BArg", "[", "k_", "]"}], ":=", 
   RowBox[{
    FractionBox["\[Pi]", "6"], "k"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"B", "[", "k_", "]"}], ":=", 
    RowBox[{"Exp", "[", 
     RowBox[{
      RowBox[{"BArg", "[", "k", "]"}], " ", "I"}], "]"}]}], ";"}], 
  "\[IndentingNewLine]", 
  RowBox[{"(*", " ", 
   RowBox[{"table", " ", "the", " ", "factor", " ", "products"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"k", ",", 
      RowBox[{"Simplify", " ", "[", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"B", "[", "k", "]"}], "-", "B"}], ")"}], 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"B", "[", 
           RowBox[{"12", "-", "k"}], "]"}], "-", "B"}], ")"}]}], "]"}]}], 
     "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"k", ",", "1", ",", "5"}], "}"}]}], "]"}], "\[IndentingNewLine]",
   
  RowBox[{"(*", " ", 
   RowBox[{"the", " ", "functions", " ", "z_t"}], " ", 
   "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"k", ",", 
      RowBox[{"Cos", "[", 
       RowBox[{
        RowBox[{"BArg", "[", "k", "]"}], " ", "t"}], "]"}], ",", 
      RowBox[{"Sin", "[", 
       RowBox[{
        RowBox[{"BArg", "[", "k", "]"}], " ", "t"}], "]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"k", ",", "1", ",", "5"}], "}"}]}], "]"}], "\[IndentingNewLine]",
   
  RowBox[{"(*", " ", 
   RowBox[{"the", " ", "period", " ", "of", " ", "these", " ", "function"}], 
   " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Table", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"k", ",", 
      FractionBox[
       RowBox[{"2", " ", "\[Pi]"}], 
       RowBox[{"BArg", "[", "k", "]"}]]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"k", ",", "1", ",", "5"}], "}"}]}], "]"}], "\[IndentingNewLine]",
   
  RowBox[{"(*", " ", 
   RowBox[{
   "the", " ", "frequency", " ", "of", " ", "these", " ", "functions", " ", 
    "in", " ", "terms", " ", "of", " ", "cylces", " ", "a", " ", "year", " ", 
    
    RowBox[{"(", 
     RowBox[{"one", " ", "year", " ", "has", " ", "12", " ", "units"}], 
     ")"}]}], " ", "*)"}]}], "\[IndentingNewLine]", 
 RowBox[{"Table", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"k", ",", 
     RowBox[{"12", "/", 
      RowBox[{"(", 
       FractionBox[
        RowBox[{"2", " ", "\[Pi]"}], 
        RowBox[{"BArg", "[", "k", "]"}]], ")"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"k", ",", "1", ",", "5"}], "}"}]}], 
  "]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.546344578927963*^9, 3.5463446415215626`*^9}, {
   3.546345122106363*^9, 3.5463451768839626`*^9}, {3.546345216308663*^9, 
   3.546345248844463*^9}, {3.546345281700263*^9, 3.546345284756263*^9}, {
   3.5463453189170628`*^9, 3.5463453740446625`*^9}, 3.5463454755559626`*^9, {
   3.546353293280863*^9, 3.546353294330863*^9}, {3.546353602060763*^9, 
   3.5463538796009626`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"1", "-", 
      RowBox[{
       SqrtBox["3"], " ", "B"}], "+", 
      SuperscriptBox["B", "2"]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", 
     RowBox[{"1", "-", "B", "+", 
      SuperscriptBox["B", "2"]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", 
     RowBox[{"1", "+", 
      SuperscriptBox["B", "2"]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", 
     RowBox[{"1", "+", "B", "+", 
      SuperscriptBox["B", "2"]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", 
     RowBox[{"1", "+", 
      RowBox[{
       SqrtBox["3"], " ", "B"}], "+", 
      SuperscriptBox["B", "2"]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.546345151665163*^9, 3.5463451772989626`*^9}, {
   3.5463452170686626`*^9, 3.5463452492544627`*^9}, 3.546345285183263*^9, {
   3.546353605390763*^9, 3.546353638494563*^9}, {3.546353683294263*^9, 
   3.546353698471163*^9}, 3.5463537825995626`*^9, 3.5463538802329626`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", 
     RowBox[{"Cos", "[", 
      FractionBox[
       RowBox[{"\[Pi]", " ", "t"}], "6"], "]"}], ",", 
     RowBox[{"Sin", "[", 
      FractionBox[
       RowBox[{"\[Pi]", " ", "t"}], "6"], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", 
     RowBox[{"Cos", "[", 
      FractionBox[
       RowBox[{"\[Pi]", " ", "t"}], "3"], "]"}], ",", 
     RowBox[{"Sin", "[", 
      FractionBox[
       RowBox[{"\[Pi]", " ", "t"}], "3"], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", 
     RowBox[{"Cos", "[", 
      FractionBox[
       RowBox[{"\[Pi]", " ", "t"}], "2"], "]"}], ",", 
     RowBox[{"Sin", "[", 
      FractionBox[
       RowBox[{"\[Pi]", " ", "t"}], "2"], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", 
     RowBox[{"Cos", "[", 
      FractionBox[
       RowBox[{"2", " ", "\[Pi]", " ", "t"}], "3"], "]"}], ",", 
     RowBox[{"Sin", "[", 
      FractionBox[
       RowBox[{"2", " ", "\[Pi]", " ", "t"}], "3"], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", 
     RowBox[{"Cos", "[", 
      FractionBox[
       RowBox[{"5", " ", "\[Pi]", " ", "t"}], "6"], "]"}], ",", 
     RowBox[{"Sin", "[", 
      FractionBox[
       RowBox[{"5", " ", "\[Pi]", " ", "t"}], "6"], "]"}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.546345151665163*^9, 3.5463451772989626`*^9}, {
   3.5463452170686626`*^9, 3.5463452492544627`*^9}, 3.546345285183263*^9, {
   3.546353605390763*^9, 3.546353638494563*^9}, {3.546353683294263*^9, 
   3.546353698471163*^9}, 3.5463537825995626`*^9, 3.5463538802349625`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "12"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "6"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", 
     FractionBox["12", "5"]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.546345151665163*^9, 3.5463451772989626`*^9}, {
   3.5463452170686626`*^9, 3.5463452492544627`*^9}, 3.546345285183263*^9, {
   3.546353605390763*^9, 3.546353638494563*^9}, {3.546353683294263*^9, 
   3.546353698471163*^9}, 3.5463537825995626`*^9, 3.546353880236963*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"1", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"2", ",", "2"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"3", ",", "3"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"4", ",", "4"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"5", ",", "5"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.546345151665163*^9, 3.5463451772989626`*^9}, {
   3.5463452170686626`*^9, 3.5463452492544627`*^9}, 3.546345285183263*^9, {
   3.546353605390763*^9, 3.546353638494563*^9}, {3.546353683294263*^9, 
   3.546353698471163*^9}, 3.5463537825995626`*^9, 3.546353880238963*^9}]
}, Open  ]]
},
WindowSize->{607, 750},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"6.0 for Microsoft Windows (64-bit) (April 20, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 3070, 91, 300, "Input"],
Cell[3663, 116, 1038, 30, 62, "Output"],
Cell[4704, 148, 1633, 47, 111, "Output"],
Cell[6340, 197, 664, 17, 45, "Output"],
Cell[7007, 216, 638, 16, 30, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)