(* 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[      8183,        299]
NotebookOptionsPosition[      7316,        264]
NotebookOutlinePosition[      7677,        280]
CellTagsIndexPosition[      7634,        277]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{"r", "[", 
   RowBox[{"u_", ",", "v_"}], "]"}], ":=", " ", 
  RowBox[{"{", 
   RowBox[{
    FractionBox[
     RowBox[{"2", "u"}], 
     RowBox[{
      SuperscriptBox["u", "2"], "+", 
      SuperscriptBox["v", "2"], "+", "1"}]], ",", 
    FractionBox[
     RowBox[{"2", "v"}], 
     RowBox[{
      SuperscriptBox["u", "2"], "+", 
      SuperscriptBox["v", "2"], "+", "1"}]], ",", 
    RowBox[{"1", "+", 
     FractionBox[
      RowBox[{"-", "2"}], 
      RowBox[{
       SuperscriptBox["u", "2"], "+", 
       SuperscriptBox["v", "2"], "+", "1"}]]}]}], "}"}]}]], "Input",
 CellChangeTimes->{3.446379611934182*^9}],

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{"ParametricPlot3D", "[", 
   RowBox[{
    RowBox[{"r", "[", 
     RowBox[{"u", ",", "v"}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"u", ",", 
      RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"v", ",", 
      RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.446379713829616*^9, 3.446379736152782*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SubscriptBox["\[Sigma]", "u"], "=", 
  RowBox[{"D", "[", 
   RowBox[{
    RowBox[{"r", "[", 
     RowBox[{"u", ",", "v"}], "]"}], ",", "u"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.446379512401114*^9, 3.446379530908235*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      RowBox[{"4", " ", 
       SuperscriptBox["u", "2"]}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "+", 
         SuperscriptBox["u", "2"], "+", 
         SuperscriptBox["v", "2"]}], ")"}], "2"]]}], "+", 
    FractionBox["2", 
     RowBox[{"1", "+", 
      SuperscriptBox["u", "2"], "+", 
      SuperscriptBox["v", "2"]}]]}], ",", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{"4", " ", "u", " ", "v"}], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", 
        SuperscriptBox["u", "2"], "+", 
        SuperscriptBox["v", "2"]}], ")"}], "2"]]}], ",", 
   FractionBox[
    RowBox[{"4", " ", "u"}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", 
       SuperscriptBox["u", "2"], "+", 
       SuperscriptBox["v", "2"]}], ")"}], "2"]]}], "}"}]], "Output",
 CellChangeTimes->{{3.446379515795439*^9, 3.446379531751062*^9}, 
   3.44637961548324*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  SubscriptBox["\[Sigma]", "v"], "=", 
  RowBox[{"D", "[", 
   RowBox[{
    RowBox[{"r", "[", 
     RowBox[{"u", ",", "v"}], "]"}], ",", "v"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.446379539536832*^9, 3.446379541863667*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"-", 
    FractionBox[
     RowBox[{"4", " ", "u", " ", "v"}], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"1", "+", 
        SuperscriptBox["u", "2"], "+", 
        SuperscriptBox["v", "2"]}], ")"}], "2"]]}], ",", 
   RowBox[{
    RowBox[{"-", 
     FractionBox[
      RowBox[{"4", " ", 
       SuperscriptBox["v", "2"]}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "+", 
         SuperscriptBox["u", "2"], "+", 
         SuperscriptBox["v", "2"]}], ")"}], "2"]]}], "+", 
    FractionBox["2", 
     RowBox[{"1", "+", 
      SuperscriptBox["u", "2"], "+", 
      SuperscriptBox["v", "2"]}]]}], ",", 
   FractionBox[
    RowBox[{"4", " ", "v"}], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"1", "+", 
       SuperscriptBox["u", "2"], "+", 
       SuperscriptBox["v", "2"]}], ")"}], "2"]]}], "}"}]], "Output",
 CellChangeTimes->{3.446379543724862*^9, 3.4463796177023983`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"e1", "=", 
  RowBox[{
   SubscriptBox["\[Sigma]", "u"], " ", ".", " ", 
   SubscriptBox["\[Sigma]", "u"]}]}]], "Input",
 CellChangeTimes->{{3.4463795551773787`*^9, 3.4463795567681913`*^9}, {
  3.44637963380809*^9, 3.446379648595439*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"16", " ", 
    SuperscriptBox["u", "2"]}], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      SuperscriptBox["u", "2"], "+", 
      SuperscriptBox["v", "2"]}], ")"}], "4"]], "+", 
  FractionBox[
   RowBox[{"16", " ", 
    SuperscriptBox["u", "2"], " ", 
    SuperscriptBox["v", "2"]}], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"1", "+", 
      SuperscriptBox["u", "2"], "+", 
      SuperscriptBox["v", "2"]}], ")"}], "4"]], "+", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       RowBox[{"4", " ", 
        SuperscriptBox["u", "2"]}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"1", "+", 
          SuperscriptBox["u", "2"], "+", 
          SuperscriptBox["v", "2"]}], ")"}], "2"]]}], "+", 
     FractionBox["2", 
      RowBox[{"1", "+", 
       SuperscriptBox["u", "2"], "+", 
       SuperscriptBox["v", "2"]}]]}], ")"}], "2"]}]], "Output",
 CellChangeTimes->{
  3.4463795574690027`*^9, {3.446379619796842*^9, 3.446379650001586*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", "e1", "]"}]], "Input",
 CellChangeTimes->{{3.446379629546027*^9, 3.4463796529908123`*^9}}],

Cell[BoxData[
 FractionBox["4", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{"1", "+", 
     SuperscriptBox["u", "2"], "+", 
     SuperscriptBox["v", "2"]}], ")"}], "2"]]], "Output",
 CellChangeTimes->{3.446379653678755*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"g", "=", 
  RowBox[{"(", GridBox[{
     {
      RowBox[{"Simplify", "[", 
       RowBox[{
        SubscriptBox["\[Sigma]", "u"], " ", ".", " ", 
        SubscriptBox["\[Sigma]", "u"]}], "]"}], 
      RowBox[{"Simplify", "[", 
       RowBox[{
        SubscriptBox["\[Sigma]", "u"], " ", ".", " ", 
        SubscriptBox["\[Sigma]", "v"]}], "]"}]},
     {
      RowBox[{"Simplify", "[", 
       RowBox[{
        SubscriptBox["\[Sigma]", "u"], " ", ".", " ", 
        SubscriptBox["\[Sigma]", "v"]}], "]"}], 
      RowBox[{"Simplify", "[", 
       RowBox[{
        SubscriptBox["\[Sigma]", "v"], " ", ".", " ", 
        SubscriptBox["\[Sigma]", "v"]}], "]"}]}
    }], ")"}]}]], "Input",
 CellChangeTimes->{{3.4463796592425213`*^9, 3.446379703961948*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     FractionBox["4", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "+", 
         SuperscriptBox["u", "2"], "+", 
         SuperscriptBox["v", "2"]}], ")"}], "2"]], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     FractionBox["4", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"1", "+", 
         SuperscriptBox["u", "2"], "+", 
         SuperscriptBox["v", "2"]}], ")"}], "2"]]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.446379704985366*^9}]
}, Open  ]]
},
WindowSize->{856, 640},
WindowMargins->{{-918, Automatic}, {-36, Automatic}},
Magnification->2,
FrontEndVersion->"7.0 for Mac OS X x86 (32-bit) (November 10, 2008)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 646, 22, 91, "Input"],
Cell[1194, 44, 409, 12, 85, "Input"],
Cell[CellGroupData[{
Cell[1628, 60, 252, 7, 54, "Input"],
Cell[1883, 69, 994, 33, 201, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2914, 107, 252, 7, 54, "Input"],
Cell[3169, 116, 969, 32, 201, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4175, 153, 261, 6, 54, "Input"],
Cell[4439, 161, 1075, 36, 213, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5551, 202, 130, 2, 54, "Input"],
Cell[5684, 206, 227, 7, 117, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5948, 218, 774, 22, 89, "Input"],
Cell[6725, 242, 575, 19, 117, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)