(* 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[      6626,        231]
NotebookOptionsPosition[      6041,        206]
NotebookOutlinePosition[      6388,        221]
CellTagsIndexPosition[      6345,        218]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"anprime", " ", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Cos", "[", "t", "]"}], " ", "an"}], "-", 
    RowBox[{
     RowBox[{"Sin", "[", "t", "]"}], " ", "cn"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"bnprime", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Cos", "[", "t", "]"}], " ", "bn"}], "-", 
    RowBox[{
     RowBox[{"Sin", "[", "t", "]"}], " ", "dn"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"cnprime", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Sin", "[", "t", "]"}], " ", "an"}], "+", 
    RowBox[{
     RowBox[{"Cos", "[", "t", "]"}], " ", "cn"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"dnprime", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Sin", "[", "t", "]"}], "bn"}], "+", 
    RowBox[{
     RowBox[{"Cos", "[", "t", "]"}], " ", "dn"}]}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.5165540077471943`*^9, 3.5165540695134025`*^9}, {
  3.516554222061718*^9, 3.516554242358802*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"InExpression", "=", 
   RowBox[{
    SuperscriptBox["anprime", "2"], "+", 
    SuperscriptBox["bnprime", "2"], "+", 
    SuperscriptBox["cnprime", "2"], "+", 
    SuperscriptBox["dnprime", "2"]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Simplify", "[", "InExpression", "]"}]}], "Input",
 CellChangeTimes->{{3.5165541379515734`*^9, 3.5165542102803683`*^9}}],

Cell[BoxData[
 RowBox[{
  SuperscriptBox["an", "2"], "+", 
  SuperscriptBox["bn", "2"], "+", 
  SuperscriptBox["cn", "2"], "+", 
  SuperscriptBox["dn", "2"]}]], "Output",
 CellChangeTimes->{{3.516554159186118*^9, 3.516554210874126*^9}, 
   3.516554244343202*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"JnExpression", "=", 
   RowBox[{
    RowBox[{"anprime", " ", "dnprime"}], " ", "-", " ", 
    RowBox[{"bnprime", " ", "cnprime"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Simplify", "[", "JnExpression", "]"}]}], "Input",
 CellChangeTimes->{{3.5165541379515734`*^9, 3.5165542102803683`*^9}, {
  3.516554273905978*^9, 3.516554303296877*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "bn"}], " ", "cn"}], "+", 
  RowBox[{"an", " ", "dn"}]}]], "Output",
 CellChangeTimes->{3.516554303640631*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"a1prime", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Cos", "[", "t", "]"}], " ", "a1"}], " ", "-", " ", 
    RowBox[{
     RowBox[{"Sin", "[", "t", "]"}], " ", "c1"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"b1prime", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Cos", "[", "t", "]"}], " ", "b1"}], " ", "-", " ", 
    RowBox[{
     RowBox[{"Sin", "[", "t", "]"}], " ", "d1"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"c1prime", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Sin", "[", "t", "]"}], " ", "a1"}], " ", "+", " ", 
    RowBox[{
     RowBox[{"Cos", "[", "t", "]"}], " ", "c1"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"d1prime", " ", "=", " ", 
   RowBox[{
    RowBox[{
     RowBox[{"Sin", "[", "t", "]"}], " ", "b1"}], " ", "+", " ", 
    RowBox[{
     RowBox[{"Cos", "[", "t", "]"}], " ", "d1"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"KnExpressionPrime", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["a1prime", "2"], "+", 
       SuperscriptBox["b1prime", "2"]}], ")"}], 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["anprime", "2"], "+", 
       SuperscriptBox["bnprime", "2"]}], ")"}]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["c1prime", "2"], "+", 
       SuperscriptBox["d1prime", "2"]}], ")"}], 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["cnprime", "2"], "+", 
       SuperscriptBox["dnprime", "2"]}], ")"}]}], "+", 
    RowBox[{"2", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"a1prime", " ", "c1prime"}], "+", 
       RowBox[{"b1prime", " ", "d1prime"}]}], ")"}], 
     RowBox[{"(", " ", 
      RowBox[{
       RowBox[{"anprime", " ", "cnprime"}], "+", 
       RowBox[{"bnprime", " ", "dnprime"}]}], ")"}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"KnExpression", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["a1", "2"], "+", 
       SuperscriptBox["b1", "2"]}], ")"}], 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["an", "2"], "+", 
       SuperscriptBox["bn", "2"]}], ")"}]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["c1", "2"], "+", 
       SuperscriptBox["d1", "2"]}], ")"}], 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["cn", "2"], "+", 
       SuperscriptBox["dn", "2"]}], ")"}]}], "+", 
    RowBox[{"2", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"a1", " ", "c1"}], "+", 
       RowBox[{"b1", " ", "d1"}]}], ")"}], 
     RowBox[{"(", " ", 
      RowBox[{
       RowBox[{"an", " ", "cn"}], "+", 
       RowBox[{"bn", " ", "dn"}]}], ")"}]}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"Simplify", "[", 
  RowBox[{"KnExpressionPrime", " ", "-", " ", "KnExpression"}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.5165543088281465`*^9, 3.5165543112813025`*^9}, {
  3.5165545143769865`*^9, 3.5165546132841444`*^9}, {3.51655467308158*^9, 
  3.516554872005336*^9}}],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.516554734644663*^9, 3.51655479453585*^9}, 
   3.51655487234909*^9}]
}, Open  ]]
},
WindowSize->{1083, 695},
WindowMargins->{{76, Automatic}, {Automatic, 371}},
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[545, 20, 993, 33, 92, "Input"],
Cell[CellGroupData[{
Cell[1563, 57, 395, 9, 52, "Input"],
Cell[1961, 68, 262, 7, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2260, 80, 380, 8, 52, "Input"],
Cell[2643, 90, 161, 5, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2841, 100, 3063, 99, 178, "Input"],
Cell[5907, 201, 118, 2, 30, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)