(* 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[     21067,        473]
NotebookOptionsPosition[     20090,        434]
NotebookOutlinePosition[     20444,        450]
CellTagsIndexPosition[     20401,        447]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Plot", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"Log", "[", "x", "]"}], ",", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"x", "-", "1"}], ")"}], "^", "2"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "0.5", ",", "2"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6088379614310627`*^9, 3.608837988311706*^9}, {
  3.608838040428149*^9, 3.608838062188785*^9}}],

Cell[BoxData[
 GraphicsBox[{{}, {}, 
   {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwVlHs0lHkAhqfVGpk2itPpJNcyCo02amXjlayypZSVhCSXaIvSShElulBK
5LRskrWSTAiLwn5IgxDZmmpCY/i+mNxH7vzW/vGe5//nPOfVPhyw1/sbFotl
N7f/mWIfoMxiiSH4Xa3disdQvfPpD9VyYuhp/8J7xmWozU8PpEezxWhI2Wht
rMlQIm2bjSpKYjSvzCjXV2aopbIVrlwNMQr7Jpt4wzQVl/gyc+dmMXLV5Epj
imjqokgXSWfE4H+Y5Fy3pCkfr9bj64fEuDe85Ndo5y7KQys4Lme0A9wb6Tpj
ZyWU1IifJ5RKoFXil8NrEVOmufxSE1EneIZ9L/ti26kSoehaa1sXgormC666
faQEe9Kd1zXTOJSWEvrw8ntKPiipt1HIwMLX6kVR4luKo+ByNO39ZwQrubwo
bGmhUvuLaK26blRtaxKmOTdTXmGWXGljD/h7ZBL/a/VUibuXl3ulFPJXvrON
6BFQr584xCrmfYFPXaNM50oVpcY/EUrye+FlbsrJai+lRib0jtz/qw8C7+CB
mcQCigwsXHbtUT/M656+9m/IoJocywuyswdg4hv1mPP9JeoOO4pbZjeINSRi
6KhlAg6aVjjWNA1CfLbb9YVjFvri6yJX2w4h0HQmMqWuAImVfrdzGoagLlr7
RcW2FJoPA5Kb7IZhlawX94NpJU6UWKXaCIbhmBSuMx1cDdFd/mXJdhlCuYsi
bzI14GR3HntTJYNmZwNLU74emicvbPcwG8GrLeLD5+ReYSenUF6lbASKeb8p
KdxphmVT4fPlG77idOvgAj+FFtgd2em5reQreC6GSnE3/8XmYtvxRZtGwVFf
NpIv/xaydarXDZ+M4rybwbpv3YSoCg/6JsB4DBbCwfNOte/gPJoezH48hjsd
yfGHVD+gRddUYrZqHINygbvPOIjgtcbTKCFjHItL/XlvHnxE+T6X0C0aEwj9
XBNm3tYKo/3SLNW0CYRd+cr+Ua8dvpE278zVJnHStLo4xPETonwUJuclTALe
5Q4Wc909VfcgUtUpGFpcGjd+J8bfs5fl9G9MobDBadjMuwMvC7ZKYxdPY8cO
61nf6Q5UavkIrsdP4yeEbDW4IcGFYse0DsUZ7LIvpIQqndiv03rQJXYG7qf8
8w/82YmxIiM1A/YsAknnCRPdLpyR62lIDJ+FdW7annPpXViyapOHLosgs8ew
zEGfxin/fSOKZwmEUa7GvAc0lm30quWGElzc9p7sfUijbObkXaswAlFqfGbw
IxrysbHWIREEzRXCqxU5NJKzq2/3RBMscOIm2BfTqOpev6E2mUDOxLDer5bG
Ek+l05fKCO47SqUXpDSK9dV/TvuHwIybuzqtl4brsL5GeQXB7OpdVpX9NB5E
2AhGqgkEY2sXzJPRMLsfttSrkYDbPUmHT9E43PalyKqdQNVz/NOphQzYGRMx
B8UEK+zvtd1axIB/jO0eIiGYqj9anKvMYHRKh53PEOz1iZnzziBm+QEn7QGC
tdm+End1BkaSIwbmQwRuf9RUntNk8CYriOyXEWj2B4YlaTPQ2HQrM26M4HhC
ZXSLLoPnrNRQ/gRB3m5/Ub8eA99a/u7aKYKhLSFsjj6DhXHPVnbNEJSskCrr
GTJ44lQ7RghB6q2q0bn/wn9S3ohj
     "]]}, 
   {Hue[0.9060679774997897, 0.6, 0.6], LineBox[CompressedData["
1:eJwVlnk0lW0Xxk0REaVQQoYkc4lUOldUlJIkkillKpRUKDIlilQiypCMrzlE
[encoded data, 5734 characters]

     "]]}},
  AspectRatio->NCache[GoldenRatio^(-1), 0.6180339887498948],
  Axes->True,
  AxesLabel->{None, None},
  AxesOrigin->{0.6000000000000001, 0},
  Method->{},
  PlotRange->{{0.5, 2}, {-0.6931471193354575, 0.999999938775511}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{
  3.6088379897156067`*^9, {3.608838052101096*^9, 3.6088380632273283`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FindRoot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"x", "-", "1"}], ")"}], "^", "2"}], "\[Equal]", 
    RowBox[{"Log", "[", "x", "]"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "1.6"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6088381957722187`*^9, 3.60883823104568*^9}, {
  3.6088383225771627`*^9, 3.608838350737529*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"x", "\[Rule]", "1.7468817423085286`"}], "}"}]], "Output",
 CellChangeTimes->{{3.608838221789575*^9, 3.608838231975683*^9}, {
  3.60883833988303*^9, 3.608838351755169*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"Log", "[", "x", "]"}], "-", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"x", "-", "1"}], ")"}], "^", "2"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"x", ",", "1", ",", "1.74688"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.608838096153697*^9, 3.60883812764634*^9}, {
  3.608838371753956*^9, 3.608838383514495*^9}}],

Cell[BoxData["0.08870712059169228`"], "Output",
 CellChangeTimes->{3.608838129610697*^9, 3.608838385519055*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{"Log", "[", "x", "]"}], ",", "x"}], "]"}]], "Input",
 CellChangeTimes->{{3.608838409422925*^9, 3.608838421955916*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "x"}], "+", 
  RowBox[{"x", " ", 
   RowBox[{"Log", "[", "x", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.608839232634932*^9, 3.608839235050261*^9}}],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"p1", "=", 
   RowBox[{"ParametricPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"t", "^", "2"}], ",", "t"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", 
       RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"p2", "=", 
   RowBox[{"ParametricPlot", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"1", "-", "t"}], ",", "t"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", 
       RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{"p1", ",", "p2"}], "]"}]}], "Input",
 CellChangeTimes->{{3.608839237574416*^9, 3.608839337671404*^9}}],

Cell[BoxData[
 GraphicsBox[{{{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJxdmGc81f//xu0VjtmghPBNiqLQ4PVJMqPILJmVIip7Zq8KJ06yyRaOESLy
[encoded data, 5673 characters]
jKebrV+lQnXy5lTDKg5T0Qhwsdyiwv/7Q7D/AH1tdVE=
      "]]}}, {{}, {}, 
    {Hue[0.67, 0.6, 0.6], LineBox[CompressedData["
1:eJwtlH0w1Hkcx9fjyp3ykOL2enCsOT3ISVxUn58dhUJ3TqnzEHVum+vs0chx
zCF2qFEpD0UYN+vUpUE3PUjOB0eW66LdC4NkKWzs/pa1tZ72e3fz6zvznddn
PvN+v/782B3/IThGn8ViBf73/yfzTKj3Q/PGF8bdqctsyrvBrHx+gSBDNnU2
gbNLrSHIkE0Zyt2TxqcIMmRTKySxqid9BBmyKcvKwZHiWoIM2ZSD34OW7ccI
MmRT/nmCTH6TDqVdC2SkzpiqKtSQluhlTGreUshZaUzR6Uc3eXy8hD5r+i5k
C4yo7C01nFUvFrC4yswgtsWQcg3kGA+cncfXv7l2v9xgSHV9FVOOoMWGibG1
T+IMqDPdHduuyd7iA6FZm7xNnxJ8wMmRntPgrSJuR4GDPhWy9cBFJ/85dBzt
3PcwUY8KbMu/cFoxiyUV4etO/cOitns/9Oy9OYNuyA8N2sGi+D9315R+p8Ja
Fx3nsAWByOglj9ufKPGVeIXHpu5l6LhsJQgpn8LNvVsPzMQvweHbYUWjY5PY
KuI5cjiLkOkrDHB3H0efULfaY4PzcK7mZCTeH8OBtD2fXU3Xwj2SetxZT4YR
F7nR8l3vIGFnUdav6iFUW3DPOw9r4C/fgk8bkvqw75D1T73COYgIPTR5dK0E
b6aNri32UQNv2QrFDl2Yu15cEzQ5A+2TGdNvspowQnRevV6kgrJTIfHDJypR
25OiE4mVkKzi2TSfEUHEXisT1eppsH4eg2lHEK4Lv4mNvySHfHnsfs/WTmDV
jbf1S8dBr8I1MeiIBPTD9t8y4r6CZf9T1XP3+mDoGX+KXykD33AXJ5cHQ9AQ
8/3uqMEXYP+3v+ygpQwEmBoW1tUP/hXewZKSMYj86ItCmUQKz2ZDd1xaMw5u
+aZ8/vAT2B622/Fb8SSY24VbyrpbofHdyUfsgCkwj2y37RLVwoZbJyL/NFIC
y/rKXTenKxjiJ5FU+qmg7u4GbXB6PR5YzNhmlDMDcZ2d1wqsOtB5p23+6dFZ
KPAJsre+2oPcy1K/du4cOPQ8ty4w78UVCWeMuFkaSPq6ZDo7bhDLixwX7Ybe
wsUqjdDEcwR9pQs8w3VaqN8Raz8xM4pDJfcvq5PmwXR+U0xeymsUpha6iv9Y
gCYvtm2CdgJflmV+6Lm0CAEFvw/EV79Bx/1HFfWHloFlV0l5uigw3Tx447pr
OkjN+yU02UuBe8Q91Y1lOtCSckH9PgUupR30CBfpQDVcXOoeocAkOiDoeo0O
RkovaV3PKzDuqW+qbbsOmm1S6ja/UmBU7u5+61kdMF4lUiZOeSsDCDAeJerw
BqfmSwKMR4mNPzreCAwlwHiU+PmEfVPucQKMR4kuj9dPmyYTYDw0bsxa7ceu
IsD0aBz2ypdWVRNgejSWqi2O7btDgOnRaHNiVaKwkQDTo9GcZ1ppICXA5Gh8
Op+zTdRPgMnRmHuH/Yg3TIDJ0WhiZyTJkBNg9jQ+7s+MsKMJMHsas/L05c1z
BBjSyPPLSIhaIMCcLRW+v1/Uv48teWE=
      "]]}}},
  Axes->True,
  AxesOrigin->{0, 0},
  Method->{},
  PlotRange->{{0., 4.}, {-2., 2.}},
  PlotRangeClipping->True,
  PlotRangePadding->{
    Scaled[0.02], 
    Scaled[0.02]}]], "Output",
 CellChangeTimes->{3.608839273478016*^9, 3.6088393385736017`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FindRoot", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"y", "^", "2"}], "\[Equal]", 
    RowBox[{"1", "-", "y"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", "0.3"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.608839628743415*^9, 3.608839660782771*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"y", "\[Rule]", "0.6180339887498949`"}], "}"}]], "Output",
 CellChangeTimes->{3.608839661409101*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Integrate", "[", 
  RowBox[{
   RowBox[{"1", "-", "y", "-", 
    RowBox[{"y", "^", "2"}]}], ",", 
   RowBox[{"{", 
    RowBox[{"y", ",", "0", ",", ".618034"}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.6088396662055397`*^9, 3.608839731209818*^9}}],

Cell[BoxData["0.3483616572915789`"], "Output",
 CellChangeTimes->{3.608839731878827*^9}]
}, Open  ]]
},
WindowSize->{740, 652},
WindowMargins->{{4, Automatic}, {Automatic, 4}},
FrontEndVersion->"9.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (January 25, \
2013)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[579, 22, 421, 12, 28, "Input"],
Cell[1003, 36, 8066, 141, 238, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9106, 182, 394, 11, 28, "Input"],
Cell[9503, 195, 211, 4, 28, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[9751, 204, 398, 11, 28, "Input"],
Cell[10152, 217, 111, 1, 28, "Output"]
}, Open  ]],
Cell[10278, 221, 182, 4, 28, "Input"],
Cell[10463, 227, 187, 5, 28, InheritFromParent],
Cell[CellGroupData[{
Cell[10675, 236, 762, 25, 63, "Input"],
Cell[11440, 263, 7768, 135, 368, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19245, 403, 282, 8, 28, "Input"],
Cell[19530, 413, 139, 3, 28, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[19706, 421, 277, 7, 28, "Input"],
Cell[19986, 430, 88, 1, 62, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)

