(* Content-type: application/vnd.wolfram.mathematica *)

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

(* CreatedBy='Mathematica 9.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[      3211,        118]
NotebookOptionsPosition[      2756,         97]
NotebookOutlinePosition[      3128,        113]
CellTagsIndexPosition[      3085,        110]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"(", 
     RowBox[{"U", "+", 
      RowBox[{"U", "*", 
       FractionBox["1", 
        RowBox[{"p", "+", "3"}]]}], "-", "Y"}], ")"}], "*", 
    FractionBox["1", 
     RowBox[{"p", "+", "2"}]]}], "\[Equal]", "Y"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Solve", "[", 
  RowBox[{"%", ",", "Y"}], "]"}]}], "Input",
 CellChangeTimes->{{3.7346728027863345`*^9, 3.7346728828869157`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{"Y", "\[Rule]", 
    FractionBox[
     RowBox[{
      RowBox[{"(", 
       RowBox[{"4", "+", "p"}], ")"}], " ", "U"}], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"3", "+", "p"}], ")"}], "2"]]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.7346728747684517`*^9, 3.734672883541953*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"{", "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"p", "*", "x1"}], "\[Equal]", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "2"}], "*", "x1"}], "+", 
      RowBox[{"0.1", "*", "x2"}], "+", "u"}]}], ",", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"p", "*", "x2"}], "\[Equal]", 
     RowBox[{
      RowBox[{"0.2", "*", "x1"}], "-", 
      RowBox[{"6", "*", "x2"}], "-", 
      RowBox[{"2", "*", "u"}]}]}]}], "\[IndentingNewLine]", "}"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Solve", "[", 
   RowBox[{"%", ",", 
    RowBox[{"{", 
     RowBox[{"x1", ",", "x2"}], "}"}]}], "]"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"2", "x1"}], "-", 
    RowBox[{"3", "x2"}]}], "/.", "%"}], "//", "Simplify"}]}], "Input",
 CellChangeTimes->{{3.7346747546469746`*^9, 3.7346748706496096`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{"23.000000000000036`", "\[VeryThinSpace]", "+", 
      RowBox[{"8.`", " ", "p"}]}], ")"}], " ", "u"}], 
   RowBox[{"11.98`", "\[VeryThinSpace]", "+", 
    RowBox[{"8.`", " ", "p"}], "+", 
    RowBox[{"1.`", " ", 
     SuperscriptBox["p", "2"]}]}]], "}"}]], "Output",
 CellChangeTimes->{{3.7346748301042905`*^9, 3.734674871156638*^9}}]
}, Open  ]]
},
WindowSize->{1264, 889},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
Magnification:>3. Inherited,
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (January 25, 2013)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 447, 14, 246, "Input"],
Cell[1029, 38, 357, 11, 170, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1423, 54, 893, 27, 420, "Input"],
Cell[2319, 83, 421, 11, 202, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)

