(* 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[      5455,        187]
NotebookOptionsPosition[      5129,        171]
NotebookOutlinePosition[      5471,        186]
CellTagsIndexPosition[      5428,        183]
WindowFrame->Normal
ContainsDynamic->False*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "+", "b"}], ")"}], "*", "y"}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{"a", "*", "b"}], ")"}]}], "\[Equal]", "M0"}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{"a", "^", "2"}], "+", 
           RowBox[{"a", "*", "b"}], "+", 
           RowBox[{"b", "^", "2"}]}], ")"}], "*", "y"}], ")"}], "/", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"a", "^", "2"}], "*", 
         RowBox[{"b", "^", "2"}]}], ")"}]}], "\[Equal]", "M1"}]}], "}"}], ",",
    
   RowBox[{"{", 
    RowBox[{"a", ",", "b"}], "}"}]}], "]"}]], "Input"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"a", "\[Rule]", 
      FractionBox[
       RowBox[{"y", "-", 
        FractionBox[
         RowBox[{"M0", " ", "y"}], 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{"M0", "-", "y"}], ")"}]}]], "+", 
        FractionBox[
         SuperscriptBox["y", "2"], 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{"M0", "-", "y"}], ")"}]}]], "+", 
        FractionBox[
         SqrtBox[
          RowBox[{
           RowBox[{
            RowBox[{"-", "3"}], " ", 
            SuperscriptBox["M0", "2"], " ", 
            SuperscriptBox["y", "2"]}], "+", 
           RowBox[{"4", " ", "M0", " ", 
            SuperscriptBox["y", "3"]}]}]], 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{"M0", "-", "y"}], ")"}]}]], "-", 
        FractionBox[
         RowBox[{"y", " ", 
          SqrtBox[
           RowBox[{
            RowBox[{
             RowBox[{"-", "3"}], " ", 
             SuperscriptBox["M0", "2"], " ", 
             SuperscriptBox["y", "2"]}], "+", 
            RowBox[{"4", " ", "M0", " ", 
             SuperscriptBox["y", "3"]}]}]]}], 
         RowBox[{"2", " ", "M0", " ", 
          RowBox[{"(", 
           RowBox[{"M0", "-", "y"}], ")"}]}]]}], 
       RowBox[{"M0", "-", "y"}]]}], ",", 
     RowBox[{"b", "\[Rule]", 
      FractionBox[
       RowBox[{
        RowBox[{"M0", " ", "y"}], "-", 
        SqrtBox[
         RowBox[{
          RowBox[{
           RowBox[{"-", "3"}], " ", 
           SuperscriptBox["M0", "2"], " ", 
           SuperscriptBox["y", "2"]}], "+", 
          RowBox[{"4", " ", "M0", " ", 
           SuperscriptBox["y", "3"]}]}]]}], 
       RowBox[{"2", " ", "M0", " ", 
        RowBox[{"(", 
         RowBox[{"M0", "-", "y"}], ")"}]}]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"a", "\[Rule]", 
      FractionBox[
       RowBox[{"y", "-", 
        FractionBox[
         RowBox[{"M0", " ", "y"}], 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{"M0", "-", "y"}], ")"}]}]], "+", 
        FractionBox[
         SuperscriptBox["y", "2"], 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{"M0", "-", "y"}], ")"}]}]], "-", 
        FractionBox[
         SqrtBox[
          RowBox[{
           RowBox[{
            RowBox[{"-", "3"}], " ", 
            SuperscriptBox["M0", "2"], " ", 
            SuperscriptBox["y", "2"]}], "+", 
           RowBox[{"4", " ", "M0", " ", 
            SuperscriptBox["y", "3"]}]}]], 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{"M0", "-", "y"}], ")"}]}]], "+", 
        FractionBox[
         RowBox[{"y", " ", 
          SqrtBox[
           RowBox[{
            RowBox[{
             RowBox[{"-", "3"}], " ", 
             SuperscriptBox["M0", "2"], " ", 
             SuperscriptBox["y", "2"]}], "+", 
            RowBox[{"4", " ", "M0", " ", 
             SuperscriptBox["y", "3"]}]}]]}], 
         RowBox[{"2", " ", "M0", " ", 
          RowBox[{"(", 
           RowBox[{"M0", "-", "y"}], ")"}]}]]}], 
       RowBox[{"M0", "-", "y"}]]}], ",", 
     RowBox[{"b", "\[Rule]", 
      FractionBox[
       RowBox[{
        RowBox[{"M0", " ", "y"}], "+", 
        SqrtBox[
         RowBox[{
          RowBox[{
           RowBox[{"-", "3"}], " ", 
           SuperscriptBox["M0", "2"], " ", 
           SuperscriptBox["y", "2"]}], "+", 
          RowBox[{"4", " ", "M0", " ", 
           SuperscriptBox["y", "3"]}]}]]}], 
       RowBox[{"2", " ", "M0", " ", 
        RowBox[{"(", 
         RowBox[{"M0", "-", "y"}], ")"}]}]]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.406406412660096*^9}]
}, Open  ]]
},
WindowSize->{1112, 623},
WindowMargins->{{Automatic, -7}, {Automatic, 26}},
FrontEndVersion->"6.0 for Microsoft Windows (32-bit) (June 19, 2007)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[590, 23, 821, 28, 31, "Input"],
Cell[1414, 53, 3699, 115, 126, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)

