(* 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[     15708,        445]
NotebookOptionsPosition[     15270,        427]
NotebookOutlinePosition[     15632,        443]
CellTagsIndexPosition[     15589,        440]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 StyleBox["\"\< #9 \>\"",
  FormatType->StandardForm], "\[IndentingNewLine]", 
 RowBox[{
  StyleBox["Integrate",
   FormatType->StandardForm], 
  StyleBox["[",
   FormatType->StandardForm], 
  StyleBox[" ",
   FormatType->StandardForm], 
  RowBox[{
   StyleBox[
    RowBox[{"x", "*", "y", "*", 
     RowBox[{"Sin", "[", 
      RowBox[{"y", "*", "z"}], "]"}]}],
    FormatType->StandardForm], 
   StyleBox[",",
    FormatType->StandardForm], 
   StyleBox[" ",
    FormatType->StandardForm], 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "Pi"}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"y", ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"z", ",", "0", ",", 
     RowBox[{"Pi", "/", "6"}]}], "}"}]}], " ", "]"}], "\[IndentingNewLine]", 
 RowBox[{
  StyleBox[
   RowBox[{"N", 
    StyleBox["Integrate",
     FormatType->StandardForm]}]], 
  StyleBox["[",
   FormatType->StandardForm], 
  StyleBox[" ",
   FormatType->StandardForm], 
  RowBox[{
   StyleBox[
    RowBox[{"x", "*", "y", "*", 
     RowBox[{"Sin", "[", 
      RowBox[{"y", "*", "z"}], "]"}]}],
    FormatType->StandardForm], 
   StyleBox[",",
    FormatType->StandardForm], 
   StyleBox[" ",
    FormatType->StandardForm], 
   RowBox[{"{", 
    RowBox[{"x", ",", "0", ",", "Pi"}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{"y", ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"z", ",", "0", ",", 
     RowBox[{"Pi", "/", "6"}]}], "}"}]}], " ", "]"}]}], "Input",
 CellChangeTimes->{
  3.411754176546875*^9, 3.470184770890625*^9, {3.470184877921875*^9, 
   3.470184881796875*^9}, {3.470231402421875*^9, 3.47023146346875*^9}, {
   3.470231636515625*^9, 3.47023163821875*^9}, {3.470231679046875*^9, 
   3.4702316810625*^9}}],

Cell[BoxData[{"\"\< #11 \>\"", "\n", 
 RowBox[{
  RowBox[{"IN", "=", 
   RowBox[{"RegionPlot3D", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"0", "\[LessEqual]", "z", "\[LessEqual]", 
       RowBox[{"1", "-", 
        SuperscriptBox["x", "2"]}]}], " ", "&&", " ", 
      RowBox[{"0", "\[LessEqual]", "x", "\[LessEqual]", "1"}], " ", "&&", " ", 
      RowBox[{"0", "\[LessEqual]", "y", "\[LessEqual]", "x"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"y", ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"z", ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<X\>\"", ",", "Bold", ",", "15"}], "]"}], ",", 
        RowBox[{"Style", "[", 
         RowBox[{"\"\<Y\>\"", ",", "Bold", ",", "15"}], "]"}], ",", 
        RowBox[{"Style", "[", 
         RowBox[{"\"\<Z\>\"", ",", "Bold", ",", "15"}], "]"}]}], "}"}]}], ",",
      " ", 
     RowBox[{"ViewPoint", "->", 
      RowBox[{"{", 
       RowBox[{"1", ",", " ", "3", ",", "1"}], "}"}]}]}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"SD", "=", 
   RowBox[{"ParametricPlot3D", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"-", "0.25`"}], " ", "u"}], "+", 
        RowBox[{"0.75`", " ", "v"}], "+", 
        RowBox[{"0.25`", " ", 
         RowBox[{"Abs", "[", 
          RowBox[{"u", "-", "v"}], "]"}]}]}], ",", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "0.25`"}], " ", "u"}], "+", 
        RowBox[{"0.75`", " ", "v"}], "+", 
        RowBox[{"0.25`", " ", 
         RowBox[{"Abs", "[", 
          RowBox[{"u", "-", "v"}], "]"}]}]}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"0.25`", " ", "u"}], "+", 
          RowBox[{"0.75`", " ", "v"}], "+", 
          RowBox[{"0.25`", " ", 
           RowBox[{"Abs", "[", 
            RowBox[{"u", "-", "v"}], "]"}]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"0.75`", " ", "u"}], "-", 
          RowBox[{"0.25`", " ", "v"}], "+", 
          RowBox[{"0.25`", " ", 
           RowBox[{"Abs", "[", 
            RowBox[{"u", "-", "v"}], "]"}]}]}], ")"}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"u", ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"v", ",", "0", ",", "1"}], "}"}]}], "]"}]}], ";"}], "\n", 
 RowBox[{"GraphicsRow", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"IN", ",", 
     RowBox[{"Show", "[", 
      RowBox[{"IN", ",", "SD", ",", " ", 
       RowBox[{"ViewPoint", "->", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "3"}], ",", " ", 
          RowBox[{"-", "1"}], ",", " ", "2"}], "}"}]}]}], "]"}]}], "}"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "1000"}]}], "]"}], "\n", 
 RowBox[{
  SubsuperscriptBox["\[Integral]", "0", 
   SqrtBox["2"]], 
  RowBox[{
   SubsuperscriptBox["\[Integral]", "0", "x"], 
   RowBox[{
    SubsuperscriptBox["\[Integral]", "0", 
     RowBox[{"2", "-", 
      SuperscriptBox["x", "2"]}]], 
    RowBox[{
     RowBox[{"x", " ", "y", " ", "z"}], 
     RowBox[{"\[DifferentialD]", "z"}], 
     RowBox[{"\[DifferentialD]", "y"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}], "Input",
 CellChangeTimes->{{3.411754191046875*^9, 3.411754268234375*^9}, 
   3.41175432371875*^9, {3.470184788875*^9, 3.4701848441875*^9}, {
   3.470231092390625*^9, 3.47023112028125*^9}, {3.470231316359375*^9, 
   3.470231320578125*^9}, 3.470231359453125*^9, {3.4702318621875*^9, 
   3.470231865953125*^9}, {3.47023191209375*^9, 3.470231950125*^9}, 
   3.470232035921875*^9, {3.47023211753125*^9, 3.47023212028125*^9}}],

Cell[BoxData[{"\"\< #16 \>\"", "\n", 
 RowBox[{
  RowBox[{"IN", "=", 
   RowBox[{"RegionPlot3D", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"0", "\[LessEqual]", "z", "\[LessEqual]", 
       SqrtBox["y"]}], "   ", "&&", "   ", 
      RowBox[{"0", "\[LessEqual]", 
       RowBox[{"x", "+", "y"}], "\[LessEqual]", "1"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"y", ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"z", ",", "0", ",", "1"}], "}"}], ",", " ", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<X\>\"", ",", "Bold", ",", "15"}], "]"}], ",", 
        RowBox[{"Style", "[", 
         RowBox[{"\"\<Y\>\"", ",", "Bold", ",", "15"}], "]"}], ",", 
        RowBox[{"Style", "[", 
         RowBox[{"\"\<Z\>\"", ",", "Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
     RowBox[{"ViewPoint", "->", 
      RowBox[{"{", 
       RowBox[{"5", ",", " ", "0.5", ",", "2"}], "}"}]}]}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"SD", "=", 
   RowBox[{"ParametricPlot3D", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"-", "0.25`"}], " ", "u"}], "+", 
        RowBox[{"0.75`", " ", "v"}], "+", 
        RowBox[{"0.25`", " ", 
         RowBox[{"Abs", "[", 
          RowBox[{"u", "-", "v"}], "]"}]}]}], ",", 
       RowBox[{"1", "+", 
        RowBox[{"0.25`", " ", "u"}], "-", 
        RowBox[{"0.75`", " ", "v"}], "-", 
        RowBox[{"0.25`", " ", 
         RowBox[{"Abs", "[", 
          RowBox[{"u", "-", "v"}], "]"}]}]}], ",", 
       FractionBox[
        RowBox[{
         RowBox[{"0.75`", " ", "u"}], "-", 
         RowBox[{"0.25`", " ", "v"}], "+", 
         RowBox[{"0.25`", " ", 
          RowBox[{"Abs", "[", 
           RowBox[{"u", "-", "v"}], "]"}]}]}], 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"1", "+", 
           RowBox[{"0.25`", " ", "u"}], "-", 
           RowBox[{"0.75`", " ", "v"}], "-", 
           RowBox[{"0.25`", " ", 
            RowBox[{"Abs", "[", 
             RowBox[{"u", "-", "v"}], "]"}]}]}], ")"}], "0.5`"]]}], "}"}], 
     ",", 
     RowBox[{"{", 
      RowBox[{"u", ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"v", ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<X\>\"", ",", "Bold", ",", "15"}], "]"}], ",", 
        RowBox[{"Style", "[", 
         RowBox[{"\"\<Y\>\"", ",", "Bold", ",", "15"}], "]"}], ",", 
        RowBox[{"Style", "[", 
         RowBox[{"\"\<Z\>\"", ",", "Bold", ",", "15"}], "]"}]}], "}"}]}]}], 
    "]"}]}], ";"}], "\n", 
 RowBox[{"GraphicsRow", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"IN", ",", 
     RowBox[{"Show", "[", 
      RowBox[{"IN", ",", "SD", ",", " ", 
       RowBox[{"ViewPoint", "->", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "0.7"}], ",", "1", ",", "1"}], "}"}]}]}], "]"}]}], 
    "}"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "1000"}]}], "]"}], "\n", 
 RowBox[{
  SubsuperscriptBox["\[Integral]", "0", "1"], 
  RowBox[{
   SubsuperscriptBox["\[Integral]", "0", 
    RowBox[{"1", "-", "x"}]], 
   RowBox[{
    SubsuperscriptBox["\[Integral]", "0", 
     SqrtBox["y"]], 
    RowBox[{"1", 
     RowBox[{"\[DifferentialD]", "z"}], 
     RowBox[{"\[DifferentialD]", "y"}], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]}], "Input",
 CellChangeTimes->{{3.411754357171875*^9, 3.41175440996875*^9}, {
   3.47023209453125*^9, 3.470232204984375*^9}, 3.47023225225*^9, {
   3.4702322935625*^9, 3.470232348921875*^9}, {3.470232390140625*^9, 
   3.470232404890625*^9}, {3.470232444078125*^9, 3.4702324514375*^9}, {
   3.470232482234375*^9, 3.47023249303125*^9}, 3.47023253896875*^9, {
   3.470232635546875*^9, 3.470232708*^9}, 3.47023276990625*^9, {
   3.47023282940625*^9, 3.47023285721875*^9}, {3.470232912140625*^9, 
   3.47023293521875*^9}, {3.470232985984375*^9, 3.470232988390625*^9}, {
   3.4702330241875*^9, 3.470233083703125*^9}}],

Cell[BoxData[{"\"\< #18 \>\"", "\n", 
 RowBox[{
  RowBox[{"IN", "=", 
   RowBox[{"RegionPlot3D", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"0", "\[LessEqual]", 
       RowBox[{
        SuperscriptBox["z", "2"], "+", 
        SuperscriptBox["y", "2"]}], "\[LessEqual]", "1"}], "&&", 
      RowBox[{"0", "\[LessEqual]", "x", "\[LessEqual]", "y"}], "&&", 
      RowBox[{"x", "\[GreaterEqual]", "0"}], "&&", 
      RowBox[{"y", "\[GreaterEqual]", "0"}], "&&", 
      RowBox[{"z", "\[GreaterEqual]", "0"}]}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"y", ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"z", ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<X\>\"", ",", "Bold", ",", "15"}], "]"}], ",", 
        RowBox[{"Style", "[", 
         RowBox[{"\"\<Y\>\"", ",", "Bold", ",", "15"}], "]"}], ",", 
        RowBox[{"Style", "[", 
         RowBox[{"\"\<Z\>\"", ",", "Bold", ",", "15"}], "]"}]}], "}"}]}], ",",
      " ", 
     RowBox[{"ViewPoint", "->", 
      RowBox[{"{", 
       RowBox[{"5", ",", "1", ",", "1"}], "}"}]}]}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"SD", "=", 
   RowBox[{"ParametricPlot3D", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"t", " ", 
        RowBox[{"Sin", "[", "u", "]"}]}], ",", 
       RowBox[{"t", " ", 
        RowBox[{"Sin", "[", "u", "]"}]}], ",", 
       RowBox[{"t", " ", 
        RowBox[{"Cos", "[", "u", "]"}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"u", ",", "0", ",", 
       FractionBox["\[Pi]", "2"]}], "}"}], ",", 
     RowBox[{"AxesLabel", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Style", "[", 
         RowBox[{"\"\<X\>\"", ",", "Bold", ",", "15"}], "]"}], ",", 
        RowBox[{"Style", "[", 
         RowBox[{"\"\<Y\>\"", ",", "Bold", ",", "15"}], "]"}], ",", 
        RowBox[{"Style", "[", 
         RowBox[{"\"\<Z\>\"", ",", "Bold", ",", "15"}], "]"}]}], "}"}]}]}], 
    "]"}]}], ";"}], "\n", 
 RowBox[{"GraphicsRow", "[", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"IN", ",", 
     RowBox[{"Show", "[", 
      RowBox[{"IN", ",", "SD", ",", " ", 
       RowBox[{"ViewPoint", "->", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "9"}], ",", 
          RowBox[{"-", "12"}], ",", "7"}], "}"}]}]}], "]"}]}], "}"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", "1000"}]}], "]"}], "\n", 
 RowBox[{
  SubsuperscriptBox["\[Integral]", "0", "1"], 
  RowBox[{
   SubsuperscriptBox["\[Integral]", "0", "y"], 
   RowBox[{
    SubsuperscriptBox["\[Integral]", "0", 
     SqrtBox[
      RowBox[{"1", "-", 
       SuperscriptBox["y", "2"]}]]], 
    RowBox[{"1", 
     RowBox[{"\[DifferentialD]", "z"}], 
     RowBox[{"\[DifferentialD]", "x"}], 
     RowBox[{"\[DifferentialD]", "y"}]}]}]}]}]}], "Input",
 CellChangeTimes->{{3.4117544655*^9, 3.411754509890625*^9}, {
   3.47023313928125*^9, 3.470233196484375*^9}, {3.470233296515625*^9, 
   3.47023330015625*^9}, 3.470234891453125*^9, {3.4702352345*^9, 
   3.47023523815625*^9}, 3.470235398125*^9, {3.470236467953125*^9, 
   3.470236515359375*^9}}],

Cell[BoxData[{"\"\< #34-c \>\"", "\n", 
 RowBox[{"IN", "=", 
  RowBox[{"RegionPlot3D", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"0", "\[LessEqual]", "y", "\[LessEqual]", "4"}], "    ", "&&", 
     "      ", 
     RowBox[{"0", "\[LessEqual]", "z", "\[LessEqual]", 
      RowBox[{"4", "-", "y"}]}], "    ", "&&", "    ", 
     RowBox[{"0", "\[LessEqual]", "x", "\[LessEqual]", 
      SqrtBox["z"]}]}], ",", "      ", 
    RowBox[{"{", 
     RowBox[{"x", ",", "0", ",", "2"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"y", ",", "0", ",", "4"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"z", ",", "0", ",", "4"}], "}"}], ",", 
    RowBox[{"ImageSize", "\[Rule]", "800"}], ",", 
    RowBox[{"BoxRatios", "->", "1"}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"Style", "[", 
        RowBox[{"\"\<X\>\"", ",", "Bold", ",", "15"}], "]"}], ",", 
       RowBox[{"Style", "[", 
        RowBox[{"\"\<Y\>\"", ",", "Bold", ",", "15"}], "]"}], ",", 
       RowBox[{"Style", "[", 
        RowBox[{"\"\<Z\>\"", ",", "Bold", ",", "15"}], "]"}]}], "}"}]}], ",", 
    " ", 
    RowBox[{"ViewPoint", "->", 
     RowBox[{"{", 
      RowBox[{"3", ",", " ", "2.0", ",", "0.5"}], "}"}]}], ",", 
    RowBox[{"MaxRecursion", "\[Rule]", "15"}], ",", 
    RowBox[{"PlotPoints", "\[Rule]", "50"}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.411754560203125*^9, 3.41175458234375*^9}, {
   3.46611116621875*^9, 3.46611117903125*^9}, {3.46611145696875*^9, 
   3.466111470890625*^9}, 3.46611154684375*^9, {3.470236937015625*^9, 
   3.4702369423125*^9}, {3.47023699615625*^9, 3.470237011984375*^9}, {
   3.470237092703125*^9, 3.470237116859375*^9}, {3.470237198390625*^9, 
   3.47023721725*^9}, {3.470237291140625*^9, 3.470237444140625*^9}, {
   3.470237491375*^9, 3.470237493125*^9}}]
},
WindowSize->{1272, 922},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
Magnification->1,
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, 1743, 57, 72, "Input"],
Cell[2291, 79, 3740, 101, 174, "Input"],
Cell[6034, 182, 4126, 110, 211, "Input"],
Cell[10163, 294, 3290, 89, 173, "Input"],
Cell[13456, 385, 1810, 40, 86, "Input"]
}
]
*)

(* End of internal cache information *)