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

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

(* CreatedBy='Mathematica 10.2' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     98900,       1754]
NotebookOptionsPosition[     98331,       1729]
NotebookOutlinePosition[     98702,       1746]
CellTagsIndexPosition[     98659,       1743]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{
  SubsuperscriptBox["\[Integral]", "2", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "u"}], "/", "2"}], "+", 
    RowBox[{"25", "/", "6"}]}]], 
  RowBox[{"v", 
   RowBox[{"\[DifferentialD]", "v"}]}]}]], "Input",
 CellChangeTimes->{{3.65634231814585*^9, 3.6563423487238607`*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["481", "72"], "-", 
  FractionBox[
   RowBox[{"25", " ", "u"}], "12"], "+", 
  FractionBox[
   SuperscriptBox["u", "2"], "8"]}]], "Output",
 CellChangeTimes->{3.656342359040907*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  FractionBox["1", "5"], 
  RowBox[{
   SubsuperscriptBox["\[Integral]", "1", "2"], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      FractionBox["481", "72"], "-", 
      FractionBox[
       RowBox[{"25", " ", "u"}], "12"], "+", 
      FractionBox[
       SuperscriptBox["u", "2"], "8"]}], ")"}], 
    RowBox[{"\[DifferentialD]", "u"}]}]}]}]], "Input",
 CellChangeTimes->{{3.6563421304379587`*^9, 3.65634214513085*^9}, {
  3.656342247005912*^9, 3.656342252063715*^9}, {3.6563423839850616`*^9, 
  3.6563424043602343`*^9}}],

Cell[BoxData[
 FractionBox["277", "360"]], "Output",
 CellChangeTimes->{3.6563421483680887`*^9, 3.656342252825863*^9, 
  3.656342415430024*^9}]
}, Open  ]],

Cell[TextData[{
 Cell[BoxData[
  GraphicsBox[
   TagBox[RasterBox[CompressedData["
1:eJzsvQd8lFX2N35nhpmQISGRalnXXbfpWlfFvkrvVRAEZRUQ0bWXtWEXGyKd
[encoded data, 92354 characters]
lpRQ1xFCChu63ROTqB+KTQghBQIxX/LKYSkhhBBCCCEFhf8PSvfYkw==
     "], {{0, 421}, {
     839, 0}}, {0, 255},
     ColorFunction->RGBColor],
    BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
    Selectable->False],
   BaseStyle->"ImageGraphics",
   ImageSize->Automatic,
   ImageSizeRaw->{839, 421},
   PlotRange->{{0, 839}, {0, 421}}]], "Input"],
 "\[LineSeparator]",
 Cell[BoxData[
  FormBox["x", TraditionalForm]],
  FormatType->"TraditionalForm",
  FontWeight->"Bold"],
 StyleBox[" coordinate:",
  FontWeight->"Bold"],
 " It looks like ",
 Cell[BoxData[
  FormBox[
   RowBox[{"x", "=", "u"}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " will work.  \n",
 Cell[BoxData[
  FormBox["y", TraditionalForm]],
  FormatType->"TraditionalForm",
  FontWeight->"Bold"],
 StyleBox[" coordinate: ",
  FontWeight->"Bold"],
 "Let\[CloseCurlyQuote]s assume ",
 Cell[BoxData[
  FormBox[
   RowBox[{"y", "=", 
    RowBox[{
     RowBox[{"a", " ", "u"}], "+", 
     RowBox[{"b", " ", "v"}], " ", "+", "c"}]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ". We\[CloseCurlyQuote]d like ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{"x", ",", "y"}], ")"}], "=", 
    RowBox[{"(", 
     RowBox[{"0", ",", "0"}], ")"}]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " to correspond to ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{"u", ",", "v"}], ")"}], "=", 
    RowBox[{"(", 
     RowBox[{"0", ",", "0"}], ")"}]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ".  That is:"
}], "Text",
 CellChangeTimes->{{3.6563429762701387`*^9, 3.656343018187258*^9}, {
  3.656343063541683*^9, 3.656343261917877*^9}, {3.656343341747972*^9, 
  3.656343364812633*^9}}],

Cell[TextData[Cell[BoxData[
 FormBox[GridBox[{
    {GridBox[{
       {
        RowBox[{
         RowBox[{"y", "=", 
          RowBox[{
           RowBox[{"a", " ", "u"}], "+", 
           RowBox[{"b", " ", "v"}], " ", "+", "c"}]}], "\[LineSeparator]", 
         RowBox[{"0", "=", 
          RowBox[{
           RowBox[{"a", " ", 
            RowBox[{"(", "0", ")"}]}], "+", 
           RowBox[{"b", " ", 
            RowBox[{"(", "0", ")"}]}], " ", "+", "c"}]}]}]}
      },
      GridBoxAlignment->{"Columns" -> {{"Center"}}}]}
   },
   GridBoxItemSize->{"Columns" -> {{
        Scaled[0.96]}}}], TraditionalForm]]]], "Text",
 CellChangeTimes->{{3.656343372142356*^9, 3.656343405834038*^9}}],

Cell[TextData[{
 "That is, ",
 Cell[BoxData[
  FormBox[
   RowBox[{"c", "=", "0"}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ".\n\nWe\[CloseCurlyQuote]d like ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{"x", ",", "y"}], ")"}], "=", 
    RowBox[{"(", 
     RowBox[{"0", ",", "1"}], ")"}]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " to correspond to ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{"u", ",", "v"}], ")"}], "=", 
    RowBox[{"(", 
     RowBox[{"0", ",", "1"}], ")"}]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ".This implies ",
 Cell[BoxData[
  FormBox[
   RowBox[{"b", "=", "1"}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ". \[LineSeparator]\[LineSeparator]Finally if ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{"x", ",", "y"}], ")"}], "=", 
    RowBox[{"(", 
     RowBox[{"1", ",", "3"}], ")"}]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 " corresponds to ",
 Cell[BoxData[
  FormBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{"u", ",", "v"}], ")"}], "=", 
    RowBox[{"(", 
     RowBox[{"1", ",", "1"}], ")"}]}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ", then ",
 Cell[BoxData[
  FormBox[
   RowBox[{"a", "=", "2"}], TraditionalForm]],
  FormatType->"TraditionalForm"],
 ", so "
}], "Text",
 CellChangeTimes->{{3.656343418871278*^9, 3.656343426674225*^9}, {
  3.656343498988832*^9, 3.6563436213110857`*^9}, {3.6563436522105017`*^9, 
  3.6563436721661997`*^9}}]
},
WindowSize->{808, 871},
WindowMargins->{{4, Automatic}, {Automatic, 4}},
Magnification->1.5,
FrontEndVersion->"10.2 for Mac OS X x86 (32-bit, 64-bit Kernel) (July 6, \
2015)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 301, 9, 70, "Input"],
Cell[884, 33, 219, 7, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[1140, 45, 547, 16, 79, "Input"],
Cell[1690, 63, 143, 3, 66, "Output"]
}, Open  ]],
Cell[1848, 69, 94243, 1578, 413, "Text"],
Cell[96094, 1649, 691, 20, 78, "Text"],
Cell[96788, 1671, 1539, 56, 200, "Text"]
}
]
*)

(* End of internal cache information *)
