(* 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[     10802,        378]
NotebookOptionsPosition[      9679,        333]
NotebookOutlinePosition[     10043,        349]
CellTagsIndexPosition[     10000,        346]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Expand", "[", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     FractionBox[
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["E", 
         RowBox[{"I", " ", "t", " ", "b"}]], "-", 
        SuperscriptBox["E", 
         RowBox[{"I", " ", "t", " ", "a"}]]}], ")"}], 
      RowBox[{"I", " ", "t", " ", 
       RowBox[{"(", 
        RowBox[{"b", "-", "a"}], ")"}]}]], ")"}], "2"], "/.", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"a", "\[Rule]", 
      FractionBox[
       RowBox[{"-", "1"}], "3"]}], ",", 
     RowBox[{"b", "\[Rule]", 
      FractionBox["1", "3"]}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.480756862780278*^9, 3.4807569925319386`*^9}, {
  3.4807570306886773`*^9, 3.4807570469857607`*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["9", 
   RowBox[{"2", " ", 
    SuperscriptBox["t", "2"]}]], "-", 
  FractionBox[
   RowBox[{"9", " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"2", " ", "\[ImaginaryI]", " ", "t"}], "3"]}]]}], 
   RowBox[{"4", " ", 
    SuperscriptBox["t", "2"]}]], "-", 
  FractionBox[
   RowBox[{"9", " ", 
    SuperscriptBox["\[ExponentialE]", 
     FractionBox[
      RowBox[{"2", " ", "\[ImaginaryI]", " ", "t"}], "3"]]}], 
   RowBox[{"4", " ", 
    SuperscriptBox["t", "2"]}]]}]], "Output",
 CellChangeTimes->{{3.480757040345051*^9, 3.4807570472670145`*^9}, 
   3.48075741377608*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Expand", "[", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       FractionBox[
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["E", 
           RowBox[{"I", " ", "t", " ", "b"}]], "-", 
          SuperscriptBox["E", 
           RowBox[{"I", " ", "t", " ", "a"}]]}], ")"}], 
        RowBox[{"I", " ", "t", " ", 
         RowBox[{"(", 
          RowBox[{"b", "-", "a"}], ")"}]}]], ")"}], "3"], "/.", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"a", "\[Rule]", 
        FractionBox[
         RowBox[{"-", "1"}], "3"]}], ",", 
       RowBox[{"b", "\[Rule]", 
        FractionBox["1", "3"]}]}], "}"}]}], "]"}], "/", 
   RowBox[{"(", 
    FractionBox[
     RowBox[{"-", "27"}], 
     RowBox[{"8", " ", "I"}]], ")"}]}], "//", "Expand"}]], "Input",
 CellChangeTimes->{{3.480756862780278*^9, 3.4807569925319386`*^9}, {
  3.4807570306886773`*^9, 3.480757074501738*^9}, {3.480757436495121*^9, 
  3.480757496417763*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"3", " ", 
    SuperscriptBox["\[ExponentialE]", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", "t"}], "3"]}]]}], 
   SuperscriptBox["t", "3"]], "-", 
  FractionBox[
   RowBox[{"3", " ", 
    SuperscriptBox["\[ExponentialE]", 
     FractionBox[
      RowBox[{"\[ImaginaryI]", " ", "t"}], "3"]]}], 
   SuperscriptBox["t", "3"]], "-", 
  FractionBox[
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{
     RowBox[{"-", "\[ImaginaryI]"}], " ", "t"}]], 
   SuperscriptBox["t", "3"]], "+", 
  FractionBox[
   SuperscriptBox["\[ExponentialE]", 
    RowBox[{"\[ImaginaryI]", " ", "t"}]], 
   SuperscriptBox["t", "3"]]}]], "Output",
 CellChangeTimes->{{3.480757040345051*^9, 3.4807570748454924`*^9}, 
   3.4807574502140465`*^9, {3.480757481308195*^9, 3.480757496652141*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"TrigReduce", "[", 
  RowBox[{"ExpToTrig", "[", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      FractionBox[
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["E", 
          RowBox[{"I", " ", "t", " ", "b"}]], "-", 
         SuperscriptBox["E", 
          RowBox[{"I", " ", "t", " ", "a"}]]}], ")"}], 
       RowBox[{"I", " ", "t", " ", 
        RowBox[{"(", 
         RowBox[{"b", "-", "a"}], ")"}]}]], ")"}], "3"], "/.", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"a", "\[Rule]", 
       FractionBox[
        RowBox[{"-", "1"}], "3"]}], ",", 
      RowBox[{"b", "\[Rule]", 
       FractionBox["1", "3"]}]}], "}"}]}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.480756862780278*^9, 3.4807569925319386`*^9}, {
  3.4807575811375976`*^9, 3.4807575851063986`*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{"27", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"3", " ", 
      RowBox[{"Sin", "[", 
       FractionBox["t", "3"], "]"}]}], "-", 
     RowBox[{"Sin", "[", "t", "]"}]}], ")"}]}], 
  RowBox[{"4", " ", 
   SuperscriptBox["t", "3"]}]]], "Output",
 CellChangeTimes->{3.480756993250698*^9, 3.480757585450153*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "[", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], 
     RowBox[{"(", 
      RowBox[{"x", "-", "w"}], ")"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", 
      RowBox[{"-", "a"}], ",", "w"}], "}"}]}], "]"}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.480755079284156*^9, 3.4807550911436825`*^9}, {
  3.480755424866704*^9, 3.4807554267729783`*^9}, {3.4807579825492563`*^9, 
  3.480757983064892*^9}, {3.4808419477036233`*^9, 3.4808419603754983`*^9}, {
  3.4808424400942483`*^9, 3.4808424427504983`*^9}, {3.480956044035547*^9, 
  3.4809560452074594`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox["1", "4"]}], " ", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"a", "+", "w"}], ")"}], "2"]}]], "Output",
 CellChangeTimes->{3.4808419607348733`*^9, 3.4808424440942483`*^9, 
  3.480956047941922*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Integrate", "[", 
   RowBox[{
    RowBox[{
     FractionBox["1", "2"], 
     RowBox[{"(", 
      RowBox[{"x", "-", "w"}], ")"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", 
      RowBox[{"-", "a"}], ",", "a"}], "}"}]}], "]"}], "//", 
  "Simplify"}]], "Input",
 CellChangeTimes->{{3.480755079284156*^9, 3.4807550911436825`*^9}, {
   3.480755424866704*^9, 3.4807554687578907`*^9}, {3.480755592228221*^9, 
   3.480755594712628*^9}, {3.4807557317379255`*^9, 3.4807557493162756`*^9}, {
   3.4807580032840295`*^9, 3.480758003565285*^9}, 3.4809560658643703`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "a"}], " ", "w"}]], "Output",
 CellChangeTimes->{{3.4807557321129303`*^9, 3.4807557496756554`*^9}, 
   3.4807580038465405`*^9, 3.4808414639229984`*^9, 3.480956066442514*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "sum", " ", "the", " ", "two", " ", "the", " ", "terms", " ", "between", 
    " ", 
    FractionBox[
     RowBox[{"-", "1"}], "3"], " ", "and", " ", 
    FractionBox["1", "3"]}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      FractionBox["81", "16"]}], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        FractionBox["1", "3"], "+", "w"}], ")"}], "2"]}], "+", 
    RowBox[{
     FractionBox["27", "16"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", "w"}], ")"}], "2"]}]}], "//", 
   "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.4808420639067483`*^9, 3.4808420686098733`*^9}, {
  3.4808421210786233`*^9, 3.4808421668754983`*^9}, {3.4808422925004983`*^9, 
  3.4808423200317483`*^9}, {3.4809560714270487`*^9, 3.480956075614682*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox["9", "8"]}], " ", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"-", "1"}], "+", 
    RowBox[{"3", " ", 
     SuperscriptBox["w", "2"]}]}], ")"}]}]], "Output",
 CellChangeTimes->{3.4808421671098733`*^9, 3.480956076255328*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "sum", " ", "the", " ", "two", " ", "the", " ", "terms", " ", "between", 
    " ", 
    FractionBox["1", "3"], " ", "and", " ", "1"}], " ", "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      FractionBox["81", "12"]}], "w"}], "+", 
    RowBox[{
     FractionBox["27", "16"], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", "w"}], ")"}], "2"]}]}], "//", 
   "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.4808422092192483`*^9, 3.4808422527192483`*^9}, {
  3.4808423255161233`*^9, 3.4808423376879983`*^9}, {3.480956081505496*^9, 
  3.480956084099329*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["27", "16"], " ", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", "w"}], ")"}], "2"]}]], "Output",
 CellChangeTimes->{3.4808422529536233`*^9, 3.4808423397817483`*^9, 
  3.4809560848337274`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "sum", " ", "the", " ", "two", " ", "terms", " ", "greater", " ", "than", 
    " ", "1"}], " ", "*)"}], "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"-", 
      FractionBox["81", "12"]}], "w"}], "+", 
    RowBox[{
     FractionBox["27", "4"], "w"}]}], "//", "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.4808423422192483`*^9, 3.4808423956567483`*^9}, {
  3.480956091708947*^9, 3.480956094474661*^9}}],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.4808423725161233`*^9, 3.4808423958442483`*^9}, 
   3.480956094896549*^9}]
}, Open  ]]
},
WindowSize->{664, 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, 753, 23, 56, "Input"],
Cell[1323, 47, 663, 21, 60, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2023, 73, 988, 30, 56, "Input"],
Cell[3014, 105, 846, 25, 59, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3897, 135, 813, 24, 56, "Input"],
Cell[4713, 161, 352, 11, 58, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5102, 177, 624, 16, 47, "Input"],
Cell[5729, 195, 256, 8, 47, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6022, 208, 596, 15, 47, "Input"],
Cell[6621, 225, 212, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6870, 234, 880, 26, 73, "Input"],
Cell[7753, 262, 275, 9, 47, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[8065, 276, 678, 21, 71, "Input"],
Cell[8746, 299, 262, 8, 47, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9045, 312, 491, 14, 67, "Input"],
Cell[9539, 328, 124, 2, 30, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)