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

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

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[      6516,        231]
NotebookOptionsPosition[      5654,        195]
NotebookOutlinePosition[      5995,        210]
CellTagsIndexPosition[      5952,        207]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"D", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"x", "^", "2"}], "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"x", "^", "2"}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", "x"}], ")"}], "^", "2"}]}], ")"}]}], "-", "x"}], 
   ",", "x"}], "]"}]], "Input",
 CellChangeTimes->{{3.5409190239662886`*^9, 3.5409190712967715`*^9}, 
   3.5409193249532175`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "1"}], "-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["x", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "2"}], " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", "x"}], ")"}]}], "+", 
      RowBox[{"2", " ", "x"}]}], ")"}]}], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "-", "x"}], ")"}], "2"], "+", 
      SuperscriptBox["x", "2"]}], ")"}], "2"]], "+", 
  FractionBox[
   RowBox[{"2", " ", "x"}], 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "-", "x"}], ")"}], "2"], "+", 
    SuperscriptBox["x", "2"]}]]}]], "Output",
 CellChangeTimes->{
  3.5409190880980015`*^9, 3.5409193342664337`*^9, 3.5409197680563955`*^9, 
   3.540919943962304*^9, 3.54092026602487*^9, 3.5409204622888145`*^9, 
   3.5409205825806265`*^9, {3.540920670767581*^9, 3.5409206990036306`*^9}, 
   3.5410532608223705`*^9, 3.5410533688993597`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"t", "=", 
  RowBox[{"Simplify", "[", "%", "]"}]}]], "Input",
 CellChangeTimes->{{3.540919753002369*^9, 3.540919761379584*^9}, {
  3.5410533161088676`*^9, 3.54105331743487*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"-", "1"}], "+", 
   RowBox[{"6", " ", "x"}], "-", 
   RowBox[{"10", " ", 
    SuperscriptBox["x", "2"]}], "+", 
   RowBox[{"8", " ", 
    SuperscriptBox["x", "3"]}], "-", 
   RowBox[{"4", " ", 
    SuperscriptBox["x", "4"]}]}], 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"1", "-", 
     RowBox[{"2", " ", "x"}], "+", 
     RowBox[{"2", " ", 
      SuperscriptBox["x", "2"]}]}], ")"}], "2"]]], "Output",
 CellChangeTimes->{
  3.540919768087596*^9, 3.5409199439935045`*^9, 3.5409202660560703`*^9, 
   3.540920462320015*^9, 3.540920582611826*^9, {3.5409206707987814`*^9, 
   3.540920699034831*^9}, 3.5410532609783707`*^9, 3.54105336893056*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{"t", "\[Equal]", "0"}], ",", "x"}], "]"}], " ", "[", 
    RowBox[{"[", "1", "]"}], "]"}], ",", "10"}], "]"}]], "Input",
 CellChangeTimes->{{3.5409199229958677`*^9, 3.5409199368018923`*^9}, {
  3.5409204475155888`*^9, 3.540920452008397*^9}, {3.5409205637513933`*^9, 
  3.5409205778850183`*^9}, {3.541053338011306*^9, 3.5410533390097075`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"x", "\[Rule]", "0.25706586412167716090856806205273371891`10."}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.5409199440091047`*^9, 3.5409202660872707`*^9, 3.540920462351215*^9, 
   3.540920582627426*^9, {3.540920670814381*^9, 3.540920699050431*^9}, 
   3.5410532612435713`*^9, 3.5410533689461603`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"N", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"x", "^", "2"}], "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"x", "^", "2"}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "x"}], ")"}], "^", "2"}]}], ")"}]}], "-", "x"}], 
    ",", "10"}], "]"}], " ", "/.", " ", "%"}]], "Input",
 CellChangeTimes->{{3.5409201845615273`*^9, 3.5409202594572587`*^9}, {
  3.540920629723909*^9, 3.540920692514019*^9}}],

Cell[BoxData[
 RowBox[{"-", 
  "0.15014155300038880394334735497421318366`9.119566510604535"}]], "Output",
 CellChangeTimes->{3.5409206990816307`*^9, 3.541053261290371*^9, 
  3.5410533689617605`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"N", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{"t", "\[Equal]", "0"}], ",", "x"}], "]"}], " ", "[", 
    RowBox[{"[", "2", "]"}], "]"}], ",", "10"}], "]"}]], "Input",
 CellChangeTimes->{{3.541053238592331*^9, 3.5410532404019346`*^9}, {
  3.5410533557173367`*^9, 3.541053356996539*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"x", "\[Rule]", "0.74293413587832283909143193794726628109`10."}], 
  "}"}]], "Output",
 CellChangeTimes->{3.5410532614775715`*^9, 3.5410533689929605`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"N", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"x", "^", "2"}], "/", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"x", "^", "2"}], "+", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"1", "-", "x"}], ")"}], "^", "2"}]}], ")"}]}], "-", "x"}], 
    ",", "10"}], "]"}], " ", "/.", " ", "%"}]], "Input"],

Cell[BoxData["0.15014155300038880394334735497421318366`8.349517987323807"], \
"Output",
 CellChangeTimes->{3.5410532615243716`*^9, 3.54105336900856*^9}]
}, Open  ]]
},
WindowSize->{707, 817},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (October 6, 2011)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 422, 14, 31, "Input"],
Cell[1004, 38, 991, 31, 56, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2032, 74, 200, 4, 31, "Input"],
Cell[2235, 80, 696, 20, 56, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2968, 105, 453, 10, 31, "Input"],
Cell[3424, 117, 342, 7, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[3803, 129, 489, 15, 31, "Input"],
Cell[4295, 146, 198, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4530, 155, 350, 9, 31, "Input"],
Cell[4883, 166, 193, 4, 30, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5113, 175, 370, 13, 31, "Input"],
Cell[5486, 190, 152, 2, 30, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)