(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[      2696,         95]
NotebookOptionsPosition[      2370,         79]
NotebookOutlinePosition[      2713,         94]
CellTagsIndexPosition[      2670,         91]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Solve", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"2", "u"}], "+", "k1", "+", 
       RowBox[{"2", "k2"}]}], "\[Equal]", "0"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"4", "v"}], "+", 
       RowBox[{"3", "k1"}], "-", "k2"}], "\[Equal]", "0"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"2", "w"}], "-", "k1", "+", "k2"}], "\[Equal]", "0"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"2", "x"}], "+", "k1", "+", 
       RowBox[{"2", "k2"}]}], "\[Equal]", "0"}], ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"u", "+", 
       RowBox[{"3", "v"}], "-", "w", "+", "x", "-", "2"}], "\[Equal]", "0"}], 
     ",", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{
       RowBox[{"2", "u"}], "-", "v", "+", "w", "+", 
       RowBox[{"2", "x"}], "-", "4"}], "\[Equal]", "0"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"u", ",", "v", ",", "w", ",", "x", ",", "k1", ",", "k2"}], 
    "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.5288121262668643`*^9, 3.5288121879082785`*^9}, {
  3.5288125483191414`*^9, 3.528812557881764*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"u", "\[Rule]", 
     FractionBox["67", "69"]}], ",", 
    RowBox[{"v", "\[Rule]", 
     FractionBox["2", "23"]}], ",", 
    RowBox[{"w", "\[Rule]", 
     FractionBox["14", "69"]}], ",", 
    RowBox[{"x", "\[Rule]", 
     FractionBox["67", "69"]}], ",", 
    RowBox[{"k1", "\[Rule]", 
     RowBox[{"-", 
      FractionBox["26", "69"]}]}], ",", 
    RowBox[{"k2", "\[Rule]", 
     RowBox[{"-", 
      FractionBox["18", "23"]}]}]}], "}"}], "}"}]], "Output",
 CellChangeTimes->{3.528812293487755*^9}]
}, Open  ]]
},
WindowSize->{616, 750},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (February 18, 2009)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[567, 22, 1218, 34, 132, "Input"],
Cell[1788, 58, 566, 18, 47, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)