(* 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[      3441,        115]
NotebookOptionsPosition[      3077,         97]
NotebookOutlinePosition[      3469,        114]
CellTagsIndexPosition[      3426,        111]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  RowBox[{"FullSimplify", "[", " ", 
   RowBox[{"Solve", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"x", "\[Equal]", 
        RowBox[{"xc", "+", 
         RowBox[{"dxc", " ", "tc"}]}]}], ",", 
       RowBox[{"y", "\[Equal]", 
        RowBox[{"yc", "+", 
         RowBox[{"dyc", " ", "tc"}]}]}], ",", "\[IndentingNewLine]", 
       RowBox[{"x", "\[Equal]", 
        RowBox[{"xo", "+", 
         RowBox[{"dxo", " ", "to"}]}]}], ",", 
       RowBox[{"y", "\[Equal]", 
        RowBox[{"yo", "+", 
         RowBox[{"dyo", " ", "to"}]}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "y", ",", "tc", ",", "to"}], "}"}]}], "]"}], "]"}], 
  "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.745288972400106*^9, 3.7452890823383093`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"x", "\[Rule]", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"dxo", " ", "dyc", " ", "xc"}], "-", 
        RowBox[{"dxc", " ", "dyo", " ", "xo"}], "-", 
        RowBox[{"dxc", " ", "dxo", " ", "yc"}], "+", 
        RowBox[{"dxc", " ", "dxo", " ", "yo"}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"dxo", " ", "dyc"}], "-", 
        RowBox[{"dxc", " ", "dyo"}]}], ")"}]}]}], ",", 
    RowBox[{"y", "\[Rule]", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{
        RowBox[{"dyc", " ", "dyo", " ", "xc"}], "-", 
        RowBox[{"dyc", " ", "dyo", " ", "xo"}], "-", 
        RowBox[{"dxc", " ", "dyo", " ", "yc"}], "+", 
        RowBox[{"dxo", " ", "dyc", " ", "yo"}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"dxo", " ", "dyc"}], "-", 
        RowBox[{"dxc", " ", "dyo"}]}], ")"}]}]}], ",", 
    RowBox[{"tc", "\[Rule]", 
     FractionBox[
      RowBox[{
       RowBox[{"dyo", " ", "xc"}], "-", 
       RowBox[{"dyo", " ", "xo"}], "-", 
       RowBox[{"dxo", " ", "yc"}], "+", 
       RowBox[{"dxo", " ", "yo"}]}], 
      RowBox[{
       RowBox[{"dxo", " ", "dyc"}], "-", 
       RowBox[{"dxc", " ", "dyo"}]}]]}], ",", 
    RowBox[{"to", "\[Rule]", 
     FractionBox[
      RowBox[{
       RowBox[{"dyc", " ", "xc"}], "-", 
       RowBox[{"dyc", " ", "xo"}], "-", 
       RowBox[{"dxc", " ", "yc"}], "+", 
       RowBox[{"dxc", " ", "yo"}]}], 
      RowBox[{
       RowBox[{"dxo", " ", "dyc"}], "-", 
       RowBox[{"dxc", " ", "dyo"}]}]]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{{3.7452890702775908`*^9, 3.7452890846607413`*^9}}]
}, Open  ]]
},
WindowSize->{1178, 671},
WindowMargins->{{-86, Automatic}, {Automatic, 0}},
Magnification->1.7000001668930054`,
FrontEndVersion->"9.0 for Microsoft Windows (64-bit) (2013\:5e742\:670813\
\:65e5)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 798, 22, 115, "Input"],
Cell[1380, 46, 1681, 48, 152, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
