(* Content-type: application/mathematica *)

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

(* CreatedBy='Mathematica 6.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[      8879,        290]
NotebookOptionsPosition[      8430,        272]
NotebookOutlinePosition[      8775,        287]
CellTagsIndexPosition[      8732,        284]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{"\"\< #4 \>\"", "\[IndentingNewLine]", 
 RowBox[{"Det", "[", "  ", 
  RowBox[{"D", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"2", 
       RowBox[{"u", "/", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"u", "^", "2"}], "+", 
          RowBox[{"v", "^", "2"}]}], ")"}]}]}], ",", 
      RowBox[{
       RowBox[{"-", "2"}], 
       RowBox[{"v", "/", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"u", "^", "2"}], "+", 
          RowBox[{"v", "^", "2"}]}], ")"}]}]}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{"u", ",", "v"}], "}"}], "}"}]}], "]"}], "]"}]}], "Input"],

Cell[BoxData[{"\"\< #6 \>\"", "\[IndentingNewLine]", 
 RowBox[{"Solve", " ", "[", " ", 
  RowBox[{
   RowBox[{"{", "  ", 
    RowBox[{
     RowBox[{"u", "\[Equal]", 
      RowBox[{"Exp", "[", "x", "]"}]}], ",", " ", 
     RowBox[{"v", "\[Equal]", 
      RowBox[{"y", "*", 
       RowBox[{"Exp", "[", 
        RowBox[{"-", "x"}], "]"}]}]}]}], "  ", "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", "y"}], "}"}]}], " ", "]"}]}], "Input"],

Cell[BoxData[{"\"\< #11 \>\"", "\[IndentingNewLine]", 
 RowBox[{"Solve", " ", "[", " ", 
  RowBox[{
   RowBox[{"{", "  ", 
    RowBox[{
     RowBox[{"u", "\[Equal]", 
      RowBox[{"x", "*", "y"}]}], ",", " ", 
     RowBox[{"v", "\[Equal]", "y"}], ",", " ", 
     RowBox[{"w", "\[Equal]", 
      RowBox[{"x", "+", "z"}]}]}], "  ", "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], " ", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Det", "[", "  ", 
  RowBox[{"D", "[", 
   RowBox[{
    RowBox[{"{", "   ", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        FractionBox["u", "v"]}], "+", "w"}], "  ", ",", "    ", 
      FractionBox["u", "v"], "  ", ",", "    ", "v"}], "   ", "}"}], "     ", 
    ",", 
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{"u", ",", "v", ",", "w"}], "}"}], "}"}]}], "]"}], 
  "]"}]}], "Input",
 CellChangeTimes->{{3.47024135865625*^9, 3.470241361828125*^9}}],

Cell[BoxData[{"\"\< #16 \>\"", "\[IndentingNewLine]", 
 RowBox[{"ParametricPlot3D", "[", "  ", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"u", "*", 
      RowBox[{"Cos", "[", "v", "]"}]}], ",", " ", 
     RowBox[{"u", "*", 
      RowBox[{"Sin", "[", "v", "]"}]}], ",", "0"}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"u", ",", "1", ",", "2"}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"v", ",", "0", ",", 
     RowBox[{"Pi", "/", "2"}]}], "}"}]}], " ", "]"}]}], "Input",
 CellChangeTimes->{{3.411754730921875*^9, 3.411754762*^9}, {
   3.470241038328125*^9, 3.470241042796875*^9}, 3.470241350875*^9}],

Cell[BoxData[{"#17", "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"f", "[", 
    RowBox[{"{", 
     RowBox[{"x_", ",", "y_"}], "}"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"x", "-", "y"}], ")"}], 
    RowBox[{"Exp", "[", 
     RowBox[{
      SuperscriptBox["x", "2"], "-", 
      SuperscriptBox["y", "2"]}], "]"}]}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"X", "[", 
    RowBox[{"{", 
     RowBox[{"u_", ",", "v_"}], "}"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"u", "+", "v"}], ")"}], "/", "2"}]}], ";", 
  RowBox[{
   RowBox[{"Y", "[", 
    RowBox[{"{", 
     RowBox[{"u_", ",", "v_"}], "}"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"u", "-", "v"}], ")"}], "/", "2"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Integrate", "[", "      ", 
  RowBox[{
   RowBox[{
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"X", "[", 
        RowBox[{"u", ",", "v"}], "]"}], ",", 
       RowBox[{"Y", "[", 
        RowBox[{"u", ",", "v"}], "]"}]}], "}"}], "]"}], "  ", "*", " ", 
    RowBox[{"Abs", "[", "    ", 
     RowBox[{"Det", "[", "   ", 
      RowBox[{"D", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"X", "[", 
           RowBox[{"u", ",", "v"}], "]"}], ",", 
          RowBox[{"Y", "[", 
           RowBox[{"u", ",", "v"}], "]"}]}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"{", 
          RowBox[{"u", ",", "v"}], "}"}], "}"}]}], "]"}], "   ", "]"}], "  ", 
     "]"}]}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"u", ",", 
     StyleBox["0",
      FontColor->GrayLevel[0]], 
     StyleBox[",",
      FontColor->GrayLevel[0]], 
     StyleBox["1",
      FontColor->GrayLevel[0]]}], "}"}], ",", "  ", 
   RowBox[{"{", 
    RowBox[{"v", ",", 
     StyleBox["1",
      FontColor->GrayLevel[0]], 
     StyleBox[",",
      FontColor->GrayLevel[0]], 
     StyleBox["4",
      FontColor->GrayLevel[0]]}], "}"}]}], "  ", "]"}]}], "Input",
 CellChangeTimes->{{3.411754730921875*^9, 3.411754762*^9}, {
  3.470241038328125*^9, 3.470241191125*^9}, {3.470241230140625*^9, 
  3.47024123190625*^9}, {3.47024128575*^9, 3.470241310078125*^9}}],

Cell[BoxData[{"\"\< #38 \>\"", "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"F", "[", 
    RowBox[{"{", 
     RowBox[{"x_", ",", "y_", ",", "z_"}], "}"}], "]"}], ":=", "1"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  StyleBox[" ",
   FontColor->RGBColor[0, 0, 1]], 
  RowBox[{"Solve", " ", "[", " ", 
   RowBox[{
    RowBox[{"{", "  ", 
     StyleBox[
      RowBox[{
       RowBox[{"u", "\[Equal]", 
        RowBox[{"x", "*", "y"}]}], ",", " ", 
       RowBox[{"v", "\[Equal]", 
        RowBox[{"y", "*", "z"}]}], ",", " ", 
       RowBox[{"w", "\[Equal]", 
        RowBox[{"x", "*", "z"}]}]}],
      FontColor->RGBColor[0, 0, 1]], "  ", "}"}], ",", " ", 
    RowBox[{"{", 
     RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], " ", "]"}]}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"X", "[", 
    RowBox[{"u_", ",", "v_", ",", "w_"}], "]"}], ":=", 
   FractionBox[
    RowBox[{
     SqrtBox["u"], " ", 
     SqrtBox["w"]}], 
    SqrtBox["v"]]}], ";", 
  RowBox[{
   RowBox[{"Y", "[", 
    RowBox[{"u_", ",", "v_", ",", "w_"}], "]"}], ":=", 
   FractionBox[
    RowBox[{
     SqrtBox["u"], " ", 
     SqrtBox["v"]}], 
    SqrtBox["w"]]}], ";", 
  RowBox[{
   RowBox[{"Z", "[", 
    RowBox[{"u_", ",", "v_", ",", "w_"}], "]"}], ":=", 
   FractionBox[
    RowBox[{
     SqrtBox["v"], " ", 
     SqrtBox["w"]}], 
    SqrtBox["u"]]}], ";", 
  RowBox[{"TrI", "=", 
   RowBox[{
    SubsuperscriptBox["\[Integral]", "1", "2"], 
    RowBox[{
     SubsuperscriptBox["\[Integral]", "1", "3"], 
     RowBox[{
      SubsuperscriptBox["\[Integral]", "1", "4"], 
      RowBox[{
       RowBox[{"F", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"X", "[", 
           RowBox[{"u", ",", "v", ",", "w"}], "]"}], ",", 
          RowBox[{"Y", "[", 
           RowBox[{"u", ",", "v", ",", "w"}], "]"}], ",", 
          RowBox[{"Z", "[", 
           RowBox[{"u", ",", "v", ",", "w"}], "]"}]}], "}"}], "]"}], " ", 
       RowBox[{"Abs", "[", 
        RowBox[{"Det", "[", 
         RowBox[{
          SubscriptBox["\[PartialD]", 
           RowBox[{"{", 
            RowBox[{"{", 
             RowBox[{"u", ",", "v", ",", "w"}], "}"}], "}"}]], 
          RowBox[{"{", 
           RowBox[{
            RowBox[{"X", "[", 
             RowBox[{"u", ",", "v", ",", "w"}], "]"}], ",", 
            RowBox[{"Y", "[", 
             RowBox[{"u", ",", "v", ",", "w"}], "]"}], ",", 
            RowBox[{"Z", "[", 
             RowBox[{"u", ",", "v", ",", "w"}], "]"}]}], "}"}]}], "]"}], 
        "]"}], 
       RowBox[{"\[DifferentialD]", "w"}], 
       RowBox[{"\[DifferentialD]", "v"}], 
       RowBox[{"\[DifferentialD]", "u"}]}]}]}]}]}], ";", 
  RowBox[{"Print", "[", 
   RowBox[{
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<Triple Integral: \[Integral]\[Integral]\[Integral]F dV = \>\"", ",",
       "Bold", ",", "16", ",", "Red"}], "]"}], ",", "TrI"}], 
   "]"}]}]}], "Input",
 CellChangeTimes->{
  3.41175479340625*^9, 3.41175490775*^9, {3.47024124946875*^9, 
   3.4702412705*^9}, {3.470241306859375*^9, 3.4702413460625*^9}}]
},
WindowSize->{1222, 841},
WindowMargins->{{9, Automatic}, {Automatic, 11}},
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[545, 20, 649, 21, 52, "Input"],
Cell[1197, 43, 443, 12, 52, "Input"],
Cell[1643, 57, 929, 27, 85, "Input"],
Cell[2575, 86, 623, 15, 52, "Input"],
Cell[3201, 103, 2191, 71, 95, "Input"],
Cell[5395, 176, 3031, 94, 178, "Input"]
}
]
*)

(* End of internal cache information *)