(* 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[      5972,        184]
NotebookOptionsPosition[      5714,        171]
NotebookOutlinePosition[      6060,        186]
CellTagsIndexPosition[      6017,        183]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{"#32", "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{
    RowBox[{"f", "[", 
     RowBox[{"{", 
      RowBox[{"x_", ",", "y_", ",", "z_"}], "}"}], "]"}], ":=", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{
       RowBox[{"x", "^", "2"}], "+", 
       RowBox[{"z", "^", "2"}]}], ")"}], "/", "y"}]}], ";"}], 
  "           "}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"Surf", "[", 
    RowBox[{"u_", ",", "v_"}], "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"2", 
      RowBox[{"Cos", "[", "v", "]"}]}], ",", "u", ",", 
     RowBox[{"2", 
      RowBox[{"Sin", "[", "v", "]"}]}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Au", "=", "1"}], " ", ";", "  ", 
  RowBox[{"Bu", "=", "3"}], " ", ";", "   ", 
  RowBox[{"Av", "=", "0"}], " ", ";", "  ", 
  RowBox[{"Bv", "=", 
   RowBox[{"2", "Pi"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Integrand", "=", 
   RowBox[{"FullSimplify", "[", "  ", 
    RowBox[{
     RowBox[{
      RowBox[{"f", "[", 
       RowBox[{"Surf", "[", 
        RowBox[{"u", ",", "v"}], "]"}], "]"}], " ", "*", " ", 
      RowBox[{"Norm", "[", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"Surf", "[", 
           RowBox[{"u", ",", "v"}], "]"}], ",", "u"}], "]"}], "\[Cross]", 
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"Surf", "[", 
           RowBox[{"u", ",", "v"}], "]"}], ",", "v"}], "]"}]}], "]"}]}], ",", 
     RowBox[{"Assumptions", "\[Rule]", 
      RowBox[{"{", " ", 
       RowBox[{
        RowBox[{"Av", "\[LessEqual]", "v", "\[LessEqual]", "Bv"}], " ", 
        "\[And]", " ", 
        RowBox[{"Au", "\[LessEqual]", "u", "\[LessEqual]", "Bu"}]}], 
       "}"}]}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SFI", "=", 
   RowBox[{"Integrate", "[", "  ", 
    RowBox[{
     RowBox[{
      RowBox[{"f", "[", 
       RowBox[{"Surf", "[", 
        RowBox[{"u", ",", "v"}], "]"}], "]"}], " ", "*", " ", 
      RowBox[{"Norm", "[", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"Surf", "[", 
           RowBox[{"u", ",", "v"}], "]"}], ",", "u"}], "]"}], "\[Cross]", 
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"Surf", "[", 
           RowBox[{"u", ",", "v"}], "]"}], ",", "v"}], "]"}]}], "]"}]}], ",", 
     " ", 
     RowBox[{"{", 
      RowBox[{"u", ",", "Au", ",", "Bu"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"v", ",", "Av", ",", "Bv"}], "}"}]}], "  ", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SFA", "=", 
    RowBox[{"Integrate", "[", "  ", 
     RowBox[{
      RowBox[{"Norm", "[", 
       RowBox[{
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"Surf", "[", 
           RowBox[{"u", ",", "v"}], "]"}], ",", "u"}], "]"}], "\[Cross]", 
        RowBox[{"D", "[", 
         RowBox[{
          RowBox[{"Surf", "[", 
           RowBox[{"u", ",", "v"}], "]"}], ",", "v"}], "]"}]}], "]"}], ",", 
      " ", 
      RowBox[{"{", 
       RowBox[{"u", ",", "Au", ",", "Bu"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"v", ",", "Av", ",", "Bv"}], "}"}]}], "  ", "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{
   RowBox[{"StyleForm", "[", 
    RowBox[{"\"\<Integrand: fdS=\>\"", ",", "Bold", ",", "16"}], "]"}], ",", 
   " ", 
   RowBox[{"Style", "[", 
    RowBox[{"Integrand", ",", "Bold", ",", "16"}], "]"}]}], " ", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{
   RowBox[{"StyleForm", "[", 
    RowBox[{
    "\"\<Surface Integral: \[Integral]\[Integral]fdS=\>\"", ",", "Bold", ",", 
     "16"}], "]"}], ",", " ", 
   RowBox[{"Style", "[", 
    RowBox[{"SFI", ",", "Bold", ",", "16"}], "]"}]}], "  ", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{"Print", "[", 
  RowBox[{
   RowBox[{"StyleForm", "[", 
    RowBox[{
    "\"\<Surface Area: \[Integral]\[Integral]dS=\>\"", ",", "Bold", ",", 
     "16"}], "]"}], ",", "  ", 
   RowBox[{"Style", "[", 
    RowBox[{"SFA", ",", "Bold", ",", "16"}], "]"}]}], " ", 
  "]"}], "\[IndentingNewLine]", 
 RowBox[{
  StyleBox["SD",
   FormatType->StandardForm], 
  StyleBox["=",
   FormatType->StandardForm], 
  StyleBox[
   RowBox[{"ParametricPlot3D", "[", " ", 
    RowBox[{
     RowBox[{"Surf", "[", 
      RowBox[{"u", ",", "v"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"u", ",", "Au", ",", "Bu"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"v", ",", "Av", ",", "Bv"}], "}"}]}], "]"}],
   FormatType->StandardForm], "          "}]}], "Input",
 CellChangeTimes->{{3.41185432184375*^9, 3.41185433915625*^9}, {
   3.41185449015625*^9, 3.411854505578125*^9}, 3.4118547773125*^9, 
   3.4118549671875*^9, {3.411855028890625*^9, 3.41185509928125*^9}, {
   3.4118553169375*^9, 3.411855323015625*^9}, {3.411856047828125*^9, 
   3.41185604940625*^9}, {3.41185608828125*^9, 3.411856125*^9}, {
   3.41185660959375*^9, 3.411856615984375*^9}, {3.411856826109375*^9, 
   3.411856848203125*^9}, {3.471215017984375*^9, 3.471215025421875*^9}, {
   3.4723519751349983`*^9, 3.4723520320099983`*^9}, {3.4723522127287483`*^9, 
   3.4723523162756233`*^9}}]
},
WindowSize->{1194, 740},
WindowMargins->{{15, Automatic}, {Automatic, 70}},
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, 5165, 149, 257, "Input"]
}
]
*)

(* End of internal cache information *)