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

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

(* CreatedBy='Mathematica 11.3' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[      3797,        118]
NotebookOptionsPosition[      3079,         98]
NotebookOutlinePosition[      3528,        115]
CellTagsIndexPosition[      3485,        112]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"Quiet", "@", 
   RowBox[{"Remove", "[", "\"\<Global`*\>\"", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"$HistoryLength", "=", "2"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetDirectory", "[", 
   RowBox[{"NotebookDirectory", "[", "]"}], "]"}], 
  ";"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.8781835911568565`*^9, 3.8781836109446993`*^9}},
 CellLabel->"In[4]:=",ExpressionUUID->"c1754577-7b23-450e-91b5-9be5e68cd5db"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{"rce", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{
     RowBox[{"s", "*", "x1"}], "\[Equal]", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "2"}], "x1"}], "+", "x2", "+", 
      RowBox[{"0.1", "u"}]}]}], ",", 
    RowBox[{
     RowBox[{"s", "*", "x2"}], "\[Equal]", 
     RowBox[{
      RowBox[{"3", "x1"}], "-", 
      RowBox[{"5", "*", "x2"}], "-", "u"}]}]}], 
   "}"}]}], "\[IndentingNewLine]", 
 RowBox[{"y", "=", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"2", "x1"}], "-", "x2"}], "/.", 
    RowBox[{
     RowBox[{"Solve", "[", 
      RowBox[{"rce", ",", 
       RowBox[{"{", 
        RowBox[{"x1", ",", "x2"}], "}"}]}], "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}]}], "//", "Simplify"}]}]}], "Input",
 CellChangeTimes->{{3.878183910850057*^9, 3.8781839143656216`*^9}, {
  3.878184065152957*^9, 3.878184070516917*^9}, {3.8781841184630623`*^9, 
  3.878184260899943*^9}},
 CellLabel->"In[15]:=",ExpressionUUID->"a5a7ed91-d0af-4f16-88ef-1310be03540d"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"s", " ", "x1"}], "\[Equal]", 
    RowBox[{
     RowBox[{"0.1`", " ", "u"}], "-", 
     RowBox[{"2", " ", "x1"}], "+", "x2"}]}], ",", 
   RowBox[{
    RowBox[{"s", " ", "x2"}], "\[Equal]", 
    RowBox[{
     RowBox[{"-", "u"}], "+", 
     RowBox[{"3", " ", "x1"}], "-", 
     RowBox[{"5", " ", "x2"}]}]}]}], "}"}]], "Output",
 CellChangeTimes->{{3.878184207133523*^9, 3.878184261556117*^9}},
 CellLabel->"Out[15]=",ExpressionUUID->"0558eb37-cbec-46d3-b1d1-61aac39bb857"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"(", 
    RowBox[{"0.7000000000000002`", "\[VeryThinSpace]", "+", 
     RowBox[{"1.2`", " ", "s"}]}], ")"}], " ", "u"}], 
  RowBox[{"7.`", "\[VeryThinSpace]", "+", 
   RowBox[{"7.`", " ", "s"}], "+", 
   SuperscriptBox["s", "2"]}]]], "Output",
 CellChangeTimes->{{3.878184207133523*^9, 3.8781842616030283`*^9}},
 CellLabel->"Out[16]=",ExpressionUUID->"1238d464-85c1-4136-8062-bc305f9cab34"]
}, Open  ]]
},
WindowSize->{1068, 641},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrivateNotebookOptions->{"VersionedStylesheet"->{"Default.nb"[8.] -> False}},
Magnification:>2.5 Inherited,
FrontEndVersion->"11.3 for Microsoft Windows (64-bit) (March 6, 2018)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[558, 20, 504, 12, 216, "Input",ExpressionUUID->"c1754577-7b23-450e-91b5-9be5e68cd5db"],
Cell[CellGroupData[{
Cell[1087, 36, 996, 30, 247, "Input",ExpressionUUID->"a5a7ed91-d0af-4f16-88ef-1310be03540d"],
Cell[2086, 68, 534, 15, 112, "Output",ExpressionUUID->"0558eb37-cbec-46d3-b1d1-61aac39bb857"],
Cell[2623, 85, 440, 10, 149, "Output",ExpressionUUID->"1238d464-85c1-4136-8062-bc305f9cab34"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)

