simplify_dealer_starting_at_optimum.nb

(* 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[      6105,        219]
NotebookOptionsPosition[      5521,        194]
NotebookOutlinePosition[      5861,        209]
CellTagsIndexPosition[      5818,        206]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"Omga", " ", "=", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       SuperscriptBox["s1", "2"], ",", 
       RowBox[{"r", " ", "s1", " ", "s2"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"r", " ", "s1", " ", "s2"}], ",", 
       SuperscriptBox["s2", "2"]}], "}"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"ns", "=", 
  RowBox[{
   FractionBox["1", "a"], 
   RowBox[{
    RowBox[{"Inverse", "[", "Omga", "]"}], ".", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"m1", "-", "P1"}], ",", 
      RowBox[{"m2", "-", "P2"}]}], "}"}]}]}]}]}], "Input",
 CellChangeTimes->{{3.554809701046131*^9, 3.554809775428631*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        RowBox[{"(", 
         RowBox[{"m2", "-", "P2"}], ")"}], " ", "r", " ", "s1", " ", "s2"}], 
       RowBox[{
        RowBox[{
         SuperscriptBox["s1", "2"], " ", 
         SuperscriptBox["s2", "2"]}], "-", 
        RowBox[{
         SuperscriptBox["r", "2"], " ", 
         SuperscriptBox["s1", "2"], " ", 
         SuperscriptBox["s2", "2"]}]}]]}], "+", 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"m1", "-", "P1"}], ")"}], " ", 
       SuperscriptBox["s2", "2"]}], 
      RowBox[{
       RowBox[{
        SuperscriptBox["s1", "2"], " ", 
        SuperscriptBox["s2", "2"]}], "-", 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        SuperscriptBox["s1", "2"], " ", 
        SuperscriptBox["s2", "2"]}]}]]}], "a"], ",", 
   FractionBox[
    RowBox[{
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"m2", "-", "P2"}], ")"}], " ", 
       SuperscriptBox["s1", "2"]}], 
      RowBox[{
       RowBox[{
        SuperscriptBox["s1", "2"], " ", 
        SuperscriptBox["s2", "2"]}], "-", 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        SuperscriptBox["s1", "2"], " ", 
        SuperscriptBox["s2", "2"]}]}]], "-", 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{"m1", "-", "P1"}], ")"}], " ", "r", " ", "s1", " ", "s2"}], 
      RowBox[{
       RowBox[{
        SuperscriptBox["s1", "2"], " ", 
        SuperscriptBox["s2", "2"]}], "-", 
       RowBox[{
        SuperscriptBox["r", "2"], " ", 
        SuperscriptBox["s1", "2"], " ", 
        SuperscriptBox["s2", "2"]}]}]]}], "a"]}], "}"}]], "Output",
 CellChangeTimes->{{3.554809728211031*^9, 3.5548097762816305`*^9}, 
   3.5548102009958305`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"n1", "=", 
  RowBox[{"Simplify", "[", 
   RowBox[{"ns", "[", 
    RowBox[{"[", "1", "]"}], "]"}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{"n2", "=", 
  RowBox[{"Simplify", "[", 
   RowBox[{"ns", "[", 
    RowBox[{"[", "2", "]"}], "]"}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.5548097778906307`*^9, 3.554809808668431*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"m2", " ", "r", " ", "s1"}], "-", 
   RowBox[{"P2", " ", "r", " ", "s1"}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "m1"}], "+", "P1"}], ")"}], " ", "s2"}]}], 
  RowBox[{"a", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", 
     SuperscriptBox["r", "2"]}], ")"}], " ", 
   SuperscriptBox["s1", "2"], " ", "s2"}]]], "Output",
 CellChangeTimes->{{3.5548097796496305`*^9, 3.554809808970431*^9}, 
   3.5548102023308306`*^9}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{
    RowBox[{"-", "m2"}], " ", "s1"}], "+", 
   RowBox[{"P2", " ", "s1"}], "+", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"m1", "-", "P1"}], ")"}], " ", "r", " ", "s2"}]}], 
  RowBox[{"a", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "1"}], "+", 
     SuperscriptBox["r", "2"]}], ")"}], " ", "s1", " ", 
   SuperscriptBox["s2", "2"]}]]], "Output",
 CellChangeTimes->{{3.5548097796496305`*^9, 3.554809808970431*^9}, 
   3.554810202332831*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(*", " ", 
   RowBox[{
   "put", " ", "these", " ", "expressions", " ", "into", " ", "the", " ", 
    "one", " ", "we", " ", "had", " ", "for", " ", "B1"}], "*)"}], 
  "\[IndentingNewLine]", 
  RowBox[{
   RowBox[{"m1", "-", 
    RowBox[{
     FractionBox["a", "2"], 
     SuperscriptBox["s1", "2"]}], "-", 
    RowBox[{"2", " ", "a", 
     RowBox[{"(", " ", 
      RowBox[{
       RowBox[{"n1", " ", 
        SuperscriptBox["s1", "2"]}], "+", " ", 
       RowBox[{"r", " ", "s1", " ", "s2", " ", "n2"}]}], ")"}]}]}], "//", 
   "Simplify"}]}]], "Input",
 CellChangeTimes->{{3.554809817387431*^9, 3.554809864996894*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "m1"}], "+", 
  RowBox[{"2", " ", "P1"}], "-", 
  FractionBox[
   RowBox[{"a", " ", 
    SuperscriptBox["s1", "2"]}], "2"]}]], "Output",
 CellChangeTimes->{{3.5548098602641306`*^9, 3.554809865275031*^9}, 
   3.554810203945831*^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, 709, 23, 66, "Input"],
Cell[1302, 48, 1828, 59, 59, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3167, 112, 351, 9, 52, "Input"],
Cell[3521, 123, 516, 16, 51, "Output"],
Cell[4040, 141, 502, 16, 51, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4579, 162, 654, 19, 63, "Input"],
Cell[5236, 183, 269, 8, 48, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)