(* 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[     66695,       1793]
NotebookOptionsPosition[     66285,       1776]
NotebookOutlinePosition[     66650,       1792]
CellTagsIndexPosition[     66607,       1789]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[{
 RowBox[{
  RowBox[{"Needs", "[", "\"\<VectorAnalysis`\>\"", "]"}], ";", "    ", 
  "\"\<Sphere\>\"", ";"}], "\[IndentingNewLine]", 
 RowBox[{"\"\<Vector Field\>\"", ";", " ", 
  RowBox[{
   RowBox[{"F", "[", 
    RowBox[{"{", 
     RowBox[{"x_", ",", "y_", ",", "z_"}], "}"}], "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{"x", ",", 
     RowBox[{"-", "y"}], ",", "z"}], "}"}]}], ";", 
  RowBox[{"DF", "=", 
   RowBox[{"Simplify", "[", 
    RowBox[{"Div", "[", 
     RowBox[{
      RowBox[{"F", "[", 
       RowBox[{"{", 
        RowBox[{"x", ",", "y", ",", "z"}], "}"}], "]"}], ",", 
      RowBox[{"Cartesian", "[", 
       RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "]"}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{"\"\<Solid \>\"", ";", " ", 
  RowBox[{
   RowBox[{"X", "[", 
    RowBox[{"u_", ",", "v_", ",", "w_"}], "]"}], ":=", 
   RowBox[{"u", " ", 
    RowBox[{"Cos", "[", "v", "]"}], " ", 
    RowBox[{"Sin", "[", "w", "]"}]}]}], ";", 
  RowBox[{
   RowBox[{"Y", "[", 
    RowBox[{"u_", ",", "v_", ",", "w_"}], "]"}], ":=", 
   RowBox[{"u", " ", 
    RowBox[{"Sin", "[", "v", "]"}], " ", 
    RowBox[{"Sin", "[", "w", "]"}]}]}], ";", 
  RowBox[{
   RowBox[{"Z", "[", 
    RowBox[{"u_", ",", "v_", ",", "w_"}], "]"}], ":=", 
   RowBox[{"u", " ", 
    RowBox[{"Cos", "[", "w", "]"}]}]}], ";"}], "\n", 
 RowBox[{"\"\<Sufrace\>\"", ";", " ", 
  RowBox[{
   RowBox[{"Surf", "[", 
    RowBox[{"v_", ",", "w_"}], "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"X", "[", 
      RowBox[{"1", ",", "v", ",", "w"}], "]"}], ",", 
     RowBox[{"Y", "[", 
      RowBox[{"1", ",", "v", ",", "w"}], "]"}], ",", 
     RowBox[{"Z", "[", 
      RowBox[{"1", ",", "v", ",", "w"}], "]"}]}], "}"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"NrLat", "[", 
    RowBox[{"v_", ",", "w_"}], "]"}], "=", 
   RowBox[{"OrLat", "*", 
    RowBox[{"Normalize", "[", 
     RowBox[{
      RowBox[{
       SubscriptBox["\[PartialD]", "v"], 
       RowBox[{"Surf", "[", 
        RowBox[{"v", ",", "w"}], "]"}]}], "\[Cross]", 
      RowBox[{
       SubscriptBox["\[PartialD]", "w"], 
       RowBox[{"Surf", "[", 
        RowBox[{"v", ",", "w"}], "]"}]}]}], "]"}]}]}], ";", 
  "                  ", 
  RowBox[{
  "\"\<Norm[\!\(\*SubscriptBox[\(\[PartialD]\), \(v\)]\)Surf[v,w]\[Cross]\!\(\
\*SubscriptBox[\(\[PartialD]\), \(w\)]\)Surf[v,w]]=Sin[w]  Off[Power::\>\"", 
   "infy", "\"\<];Off[\[Infinity]::\>\"", "indet", "\"\<] \>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"\"\<Sufrace and Solid Range\>\"", ";", 
  RowBox[{"Au", "=", "0"}], ";", 
  RowBox[{"Bu", "=", "1"}], ";", 
  RowBox[{"Av", "=", "0"}], ";", 
  RowBox[{"Bv", "=", 
   RowBox[{"2", " ", "\[Pi]"}]}], ";", 
  RowBox[{"Aw", "=", "0"}], ";", 
  RowBox[{"Bw", "=", "\[Pi]"}], ";"}], "\n", 
 RowBox[{"\"\<Surface Grid\>\"", ";", 
  RowBox[{"mv", "=", "10"}], ";", 
  RowBox[{"mw", "=", "10"}], ";", 
  RowBox[{"Sv", "=", 
   FractionBox[
    RowBox[{"Bv", "-", "Av"}], "mv"]}], ";", 
  RowBox[{"Sw", "=", 
   FractionBox[
    RowBox[{"Bw", "-", "Aw"}], "mw"]}], ";", "\"\<Orientation\>\"", ";", 
  RowBox[{"OrLat", "=", 
   RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FluxLat", "=", 
   RowBox[{"OrLat", " ", 
    RowBox[{
     SubsuperscriptBox["\[Integral]", "Av", "Bv"], 
     RowBox[{
      SubsuperscriptBox["\[Integral]", "Aw", "Bw"], 
      RowBox[{
       RowBox[{
        RowBox[{"F", "[", 
         RowBox[{"Surf", "[", 
          RowBox[{"v", ",", "w"}], "]"}], "]"}], ".", 
        RowBox[{
         RowBox[{
          SubscriptBox["\[PartialD]", "v"], 
          RowBox[{"Surf", "[", 
           RowBox[{"v", ",", "w"}], "]"}]}], "\[Cross]", 
         RowBox[{
          SubscriptBox["\[PartialD]", "w"], 
          RowBox[{"Surf", "[", 
           RowBox[{"v", ",", "w"}], "]"}]}]}]}], 
       RowBox[{"\[DifferentialD]", "w"}], 
       RowBox[{"\[DifferentialD]", "v"}]}]}]}]}]}], ";", 
  RowBox[{"TrDI", "=", 
   RowBox[{
    SubsuperscriptBox["\[Integral]", "Av", "Bv"], 
    RowBox[{
     SubsuperscriptBox["\[Integral]", "Aw", "Bw"], 
     RowBox[{
      SubsuperscriptBox["\[Integral]", "Au", "Bu"], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"DF", "/.", "\[InvisibleSpace]", 
           RowBox[{"x", "\[Rule]", 
            RowBox[{"X", "[", 
             RowBox[{"u", ",", "v", ",", "w"}], "]"}]}]}], "/.", 
          "\[InvisibleSpace]", 
          RowBox[{"y", "\[Rule]", 
           RowBox[{"Y", "[", 
            RowBox[{"u", ",", "v", ",", "w"}], "]"}]}]}], "/.", 
         "\[InvisibleSpace]", 
         RowBox[{"z", "\[Rule]", 
          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]", "u"}], 
       RowBox[{"\[DifferentialD]", "w"}], 
       RowBox[{"\[DifferentialD]", "v"}]}]}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SDB", "=", 
   RowBox[{"ParametricPlot3D", "[", 
    RowBox[{
     RowBox[{"Surf", "[", 
      RowBox[{"v", ",", "w"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"v", ",", "Av", ",", "Bv"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"w", ",", "Aw", ",", "Bw"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"P1", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", "  ", 
      RowBox[{
       RowBox[{"Graphics3D", "[", 
        RowBox[{"{", 
         RowBox[{"Red", ",", 
          RowBox[{"Arrowheads", "\[Rule]", "Small"}], ",", " ", 
          "\[IndentingNewLine]", 
          RowBox[{"Arrow", "[", 
           RowBox[{"{", " ", 
            RowBox[{
             RowBox[{"Surf", "[", 
              RowBox[{
               RowBox[{"Av", "+", 
                RowBox[{"Sv", " ", "i"}]}], ",", 
               RowBox[{"Aw", "+", 
                RowBox[{"Sw", " ", "j"}]}]}], "]"}], ",", 
             RowBox[{
              RowBox[{"Surf", "[", 
               RowBox[{
                RowBox[{"Av", "+", 
                 RowBox[{"Sv", " ", "i"}]}], ",", 
                RowBox[{"Aw", "+", 
                 RowBox[{"Sw", " ", "j"}]}]}], "]"}], "+", 
              RowBox[{"NrLat", "[", 
               RowBox[{
                RowBox[{"Av", "+", 
                 RowBox[{"Sv", " ", "i"}]}], ",", 
                RowBox[{"Aw", "+", 
                 RowBox[{"Sw", " ", "j"}]}]}], "]"}]}]}], "}"}], "]"}]}], " ",
          "}"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "mv"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"j", ",", "1", ",", 
         RowBox[{"mw", "-", "1"}]}], "}"}]}], "]"}], ",", "2"}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"P2", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", "  ", 
      RowBox[{
       RowBox[{"Graphics3D", "[", 
        RowBox[{"{", 
         RowBox[{"Blue", ",", 
          RowBox[{"Arrowheads", "\[Rule]", "Small"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"Arrow", "[", 
           RowBox[{"{", " ", 
            RowBox[{
             RowBox[{"Surf", "[", 
              RowBox[{
               RowBox[{"Av", "+", 
                RowBox[{"Sv", " ", "i"}]}], ",", 
               RowBox[{"Aw", "+", 
                RowBox[{"Sw", " ", "j"}]}]}], "]"}], ",", 
             RowBox[{
              RowBox[{"Surf", "[", 
               RowBox[{
                RowBox[{"Av", "+", 
                 RowBox[{"Sv", " ", "i"}]}], ",", 
                RowBox[{"Aw", "+", 
                 RowBox[{"Sw", " ", "j"}]}]}], "]"}], "+", " ", 
              RowBox[{"F", "[", 
               RowBox[{"Surf", "[", 
                RowBox[{
                 RowBox[{"Av", "+", 
                  RowBox[{"Sv", " ", "i"}]}], ",", 
                 RowBox[{"Aw", "+", 
                  RowBox[{"Sw", " ", "j"}]}]}], "]"}], "]"}]}]}], "}"}], 
           "]"}]}], " ", "}"}], " ", "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "mv"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"j", ",", "1", ",", "mw"}], "}"}]}], "]"}], ",", "2"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"g1", "=", 
    RowBox[{"Show", "[", 
     RowBox[{"SDB", ",", "P2", ",", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "}"}]}], ",", 
      RowBox[{"ViewPoint", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"1.3`", ",", 
         RowBox[{"-", "2.4`"}], ",", "2.`"}], "}"}]}]}], "]"}]}], ";", 
   RowBox[{"g2", "=", 
    RowBox[{"Show", "[", 
     RowBox[{"P1", ",", "P2", ",", "SDB", ",", 
      RowBox[{"ViewPoint", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"1.3`", ",", 
         RowBox[{"-", "2.4`"}], ",", "2.`"}], "}"}]}]}], "]"}]}], ";"}], 
  "\[IndentingNewLine]"}], "\n", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{
    RowBox[{"Style", "[", 
     RowBox[{"\"\<\!\(\*
StyleBox[\"Vector\",
FontColor->RGBColor[0, 0, 1]]\)\!\(\*
StyleBox[\" \",
FontColor->RGBColor[0, 0, 1]]\)\!\(\*
StyleBox[\"Field\",
FontColor->RGBColor[0, 0, 1]]\)  \!\(\*
StyleBox[\"Unit\",
FontColor->RGBColor[1, 0, 0]]\)\!\(\*
StyleBox[\" \",
FontColor->RGBColor[1, 0, 0]]\)\!\(\*
StyleBox[\"Normals\",
FontColor->RGBColor[1, 0, 0]]\)\>\"", ",", "Bold", ",", "13"}], "]"}], ",", 
    RowBox[{"Style", "[", 
     RowBox[{"\"\<    Div(F)=\>\"", ",", "Bold", ",", "13"}], "]"}], ",", 
    RowBox[{"Style", "[", 
     RowBox[{"DF", ",", "Bold", ",", "13"}], "]"}], ",", 
    "\[IndentingNewLine]", "         ", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<  Triple Integral:\[Integral]\[Integral]\[Integral]div(F)dV=\>\"", 
      ",", "Bold", ",", "13"}], "]"}], ",", 
    RowBox[{"Style", "[", 
     RowBox[{"TrDI", ",", "Bold", ",", "13"}], "]"}], ",", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<     Flux =\[Integral]\[Integral]F\[CenterDot]ndS=\>\"", ",", 
      "Bold", ",", "13"}], "]"}], ",", 
    RowBox[{"Style", "[", 
     RowBox[{"FluxLat", ",", "Bold", ",", "13"}], "]"}]}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{
    RowBox[{"Style", "[", 
     RowBox[{"\"\<ndS=\>\"", ",", "Bold", ",", "13"}], "]"}], ",", 
    RowBox[{"Style", "[", 
     RowBox[{
      RowBox[{"Simplify", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          SubscriptBox["\[PartialD]", "v"], 
          RowBox[{"Surf", "[", 
           RowBox[{"v", ",", "w"}], "]"}]}], "\[Cross]", 
         RowBox[{
          SubscriptBox["\[PartialD]", "w"], 
          RowBox[{"Surf", "[", 
           RowBox[{"v", ",", "w"}], "]"}]}]}], ",", 
        RowBox[{"Assumptions", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Av", "\[LessEqual]", "v", "\[LessEqual]", "Bv"}], "&&", 
           RowBox[{"Aw", "\[LessEqual]", "w", "\[LessEqual]", "Bw"}]}], 
          "}"}]}]}], "]"}], ",", "Bold", ",", "13"}], "]"}], ",", 
    "\[IndentingNewLine]", "         ", 
    RowBox[{"Style", "[", 
     RowBox[{"\"\<      F\[CenterDot]ndS=\>\"", ",", "Bold", ",", "13"}], 
     "]"}], ",", "  ", 
    RowBox[{"Style", "[", 
     RowBox[{
      RowBox[{"Simplify", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"F", "[", 
          RowBox[{"Surf", "[", 
           RowBox[{"v", ",", "w"}], "]"}], "]"}], ".", 
         RowBox[{
          RowBox[{
           SubscriptBox["\[PartialD]", "v"], 
           RowBox[{"Surf", "[", 
            RowBox[{"v", ",", "w"}], "]"}]}], "\[Cross]", 
          RowBox[{
           SubscriptBox["\[PartialD]", "w"], 
           RowBox[{"Surf", "[", 
            RowBox[{"v", ",", "w"}], "]"}]}]}]}], ",", 
        RowBox[{"Assumptions", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Av", "\[LessEqual]", "v", "\[LessEqual]", "Bv"}], "&&", 
           RowBox[{"Aw", "\[LessEqual]", "w", "\[LessEqual]", "Bw"}]}], 
          "}"}]}]}], "]"}], ",", "Bold", ",", "13"}], "]"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"GraphicsRow", "[", 
    RowBox[{"{", 
     RowBox[{"g1", ",", "g2"}], "}"}], "]"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"1000", ",", "500"}], "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.411860285078125*^9, 3.411860375421875*^9}, {
   3.4118607215625*^9, 3.411860736328125*^9}, 3.411860769921875*^9, {
   3.41229704875*^9, 3.41229704928125*^9}, {3.41229713190625*^9, 
   3.4122971918125*^9}, {3.472404043984375*^9, 3.4724041901875*^9}, 
   3.47240425703125*^9, {3.4724042965*^9, 3.472404337109375*^9}, {
   3.472404370390625*^9, 3.472404433046875*^9}, {3.47240449775*^9, 
   3.472404517140625*^9}, {3.472404576015625*^9, 3.472404578828125*^9}, 
   3.47240465884375*^9, {3.472404693484375*^9, 3.4724046955*^9}, {
   3.472404729328125*^9, 3.47240478121875*^9}, {3.47240483984375*^9, 
   3.47240484184375*^9}, {3.4724048934375*^9, 3.472404903625*^9}, 
   3.472405049765625*^9, {3.472406790265625*^9, 3.472406830296875*^9}, {
   3.472406906859375*^9, 3.472406928203125*^9}, {3.47240702615625*^9, 
   3.472407028359375*^9}, {3.472421648453125*^9, 3.472421665359375*^9}, {
   3.472421707453125*^9, 3.472421719*^9}, 3.472421916078125*^9, {
   3.472421958734375*^9, 3.472421981890625*^9}, {3.47242203409375*^9, 
   3.472422037046875*^9}, 3.472422109625*^9, {3.472422149703125*^9, 
   3.472422154515625*^9}, {3.472422188453125*^9, 3.47242219525*^9}, {
   3.472422238703125*^9, 3.472422274265625*^9}, 3.472422327875*^9, {
   3.472422359109375*^9, 3.472422482078125*^9}, {3.472422517359375*^9, 
   3.47242276290625*^9}, {3.472422802671875*^9, 3.47242280634375*^9}, {
   3.472422838671875*^9, 3.472422915515625*^9}, {3.472494055828125*^9, 
   3.47249406*^9}, {3.472494100015625*^9, 3.472494101828125*^9}, {
   3.47249427071875*^9, 3.472494287765625*^9}, {3.4724943535625*^9, 
   3.472494375640625*^9}, 3.47249446740625*^9, {3.472494526625*^9, 
   3.47249453896875*^9}, 3.472514304890625*^9},
 TextAlignment->Left],

Cell[BoxData[{
 RowBox[{
  RowBox[{"Needs", "[", "\"\<VectorAnalysis`\>\"", "]"}], ";", "   ", 
  "\"\<Torus\>\"", ";"}], "\n", 
 RowBox[{"\"\<Vector Field \>\"", ";", 
  RowBox[{
   RowBox[{"F", "[", 
    RowBox[{"{", 
     RowBox[{"x_", ",", "y_", ",", "z_"}], "}"}], "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], ";", "  ", 
  RowBox[{"DF", "=", 
   RowBox[{"Simplify", "[", 
    RowBox[{"Div", "[", 
     RowBox[{
      RowBox[{"F", "[", 
       RowBox[{"{", 
        RowBox[{"x", ",", "y", ",", "z"}], "}"}], "]"}], ",", 
      RowBox[{"Cartesian", "[", 
       RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "]"}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{"\"\<Outer Radius \>\"", ";", 
  RowBox[{"a", "=", "4"}], ";", "\"\<Inner Radius \>\"", ";", 
  RowBox[{"b", "=", "1"}], ";"}], "\n", 
 RowBox[{"\"\<Torus \>\"", ";", 
  RowBox[{
   RowBox[{"X", "[", 
    RowBox[{"u_", ",", "v_", ",", "w_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", "u", " ", 
       RowBox[{"Cos", "[", "v", "]"}]}]}], ")"}], " ", 
    RowBox[{"Cos", "[", "w", "]"}]}]}], ";", 
  RowBox[{
   RowBox[{"Y", "[", 
    RowBox[{"u_", ",", "v_", ",", "w_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", "u", " ", 
       RowBox[{"Cos", "[", "v", "]"}]}]}], ")"}], " ", 
    RowBox[{"Sin", "[", "w", "]"}]}]}], ";", 
  RowBox[{
   RowBox[{"Z", "[", 
    RowBox[{"u_", ",", "v_", ",", "w_"}], "]"}], ":=", 
   RowBox[{"b", " ", "u", " ", 
    RowBox[{"Sin", "[", "v", "]"}]}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"\"\<Sufrace\>\"", ";", 
   RowBox[{
    RowBox[{"Surf", "[", 
     RowBox[{"v_", ",", "w_"}], "]"}], ":=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"X", "[", 
       RowBox[{"1", ",", "v", ",", "w"}], "]"}], ",", 
      RowBox[{"Y", "[", 
       RowBox[{"1", ",", "v", ",", "w"}], "]"}], ",", 
      RowBox[{"Z", "[", 
       RowBox[{"1", ",", "v", ",", "w"}], "]"}]}], "}"}]}], ";"}], 
  "  "}], "\[IndentingNewLine]", 
 RowBox[{"\"\<Norm[\!\(\*SubscriptBox[\(\[PartialD]\), \(v\)]\)Surf[v,w]\
\[Cross]\!\(\*SubscriptBox[\(\[PartialD]\), \(w\)]\)Surf[v,w]]=4+Cos[v]\>\"", 
  ";", 
  RowBox[{
   RowBox[{"NrLat", "[", 
    RowBox[{"v_", ",", "w_"}], "]"}], "=", 
   RowBox[{"OrLat", " ", 
    RowBox[{"Normalize", "[", 
     RowBox[{
      RowBox[{
       SubscriptBox["\[PartialD]", "v"], 
       RowBox[{"Surf", "[", 
        RowBox[{"v", ",", "w"}], "]"}]}], "\[Cross]", 
      RowBox[{
       SubscriptBox["\[PartialD]", "w"], 
       RowBox[{"Surf", "[", 
        RowBox[{"v", ",", "w"}], "]"}]}]}], "]"}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"\"\<Sufrace and Solid Range\>\"", ";", 
  RowBox[{"Au", "=", "0"}], ";", 
  RowBox[{"Bu", "=", "1"}], ";", 
  RowBox[{"Av", "=", "0"}], ";", 
  RowBox[{"Bv", "=", 
   RowBox[{"2", " ", "\[Pi]"}]}], ";", 
  RowBox[{"Aw", "=", "0"}], ";", 
  RowBox[{"Bw", "=", 
   RowBox[{"2", " ", "\[Pi]"}]}], ";"}], "\n", 
 RowBox[{"\"\<Surface Grid\>\"", ";", 
  RowBox[{"mv", "=", "20"}], ";", 
  RowBox[{"mw", "=", "20"}], ";", 
  RowBox[{"Sv", "=", 
   FractionBox[
    RowBox[{"Bv", "-", "Av"}], "mv"]}], ";", 
  RowBox[{"Sw", "=", 
   FractionBox[
    RowBox[{"Bw", "-", "Aw"}], "mw"]}], ";", "\"\<Orientation\>\"", ";", 
  RowBox[{"OrLat", "=", 
   RowBox[{"-", "1"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"FluxLat", "=", 
   RowBox[{"OrLat", " ", 
    RowBox[{
     SubsuperscriptBox["\[Integral]", "Av", "Bv"], 
     RowBox[{
      SubsuperscriptBox["\[Integral]", "Aw", "Bw"], 
      RowBox[{
       RowBox[{
        RowBox[{"F", "[", 
         RowBox[{"Surf", "[", 
          RowBox[{"v", ",", "w"}], "]"}], "]"}], ".", 
        RowBox[{
         RowBox[{
          SubscriptBox["\[PartialD]", "v"], 
          RowBox[{"Surf", "[", 
           RowBox[{"v", ",", "w"}], "]"}]}], "\[Cross]", 
         RowBox[{
          SubscriptBox["\[PartialD]", "w"], 
          RowBox[{"Surf", "[", 
           RowBox[{"v", ",", "w"}], "]"}]}]}]}], 
       RowBox[{"\[DifferentialD]", "w"}], 
       RowBox[{"\[DifferentialD]", "v"}]}]}]}]}]}], ";", 
  RowBox[{"TrDI", "=", 
   RowBox[{
    SubsuperscriptBox["\[Integral]", "Av", "Bv"], 
    RowBox[{
     SubsuperscriptBox["\[Integral]", "Aw", "Bw"], 
     RowBox[{
      SubsuperscriptBox["\[Integral]", "Au", "Bu"], 
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"DF", "/.", "\[InvisibleSpace]", 
           RowBox[{"x", "\[Rule]", 
            RowBox[{"X", "[", 
             RowBox[{"u", ",", "v", ",", "w"}], "]"}]}]}], "/.", 
          "\[InvisibleSpace]", 
          RowBox[{"y", "\[Rule]", 
           RowBox[{"Y", "[", 
            RowBox[{"u", ",", "v", ",", "w"}], "]"}]}]}], "/.", 
         "\[InvisibleSpace]", 
         RowBox[{"z", "\[Rule]", 
          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]", "u"}], 
       RowBox[{"\[DifferentialD]", "w"}], 
       RowBox[{"\[DifferentialD]", "v"}]}]}]}]}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SDB", "=", 
   RowBox[{"ParametricPlot3D", "[", 
    RowBox[{
     RowBox[{"Surf", "[", 
      RowBox[{"v", ",", "w"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"v", ",", "Av", ",", "Bv"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"w", ",", "Aw", ",", "Bw"}], "}"}]}], "]"}]}], ";", 
  RowBox[{"SDBHalf", "=", 
   RowBox[{"ParametricPlot3D", "[", 
    RowBox[{
     RowBox[{"Surf", "[", 
      RowBox[{"v", ",", "w"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"v", ",", 
       FractionBox["Bv", "2"], ",", "Bv"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"w", ",", "Aw", ",", "Bw"}], "}"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"P1", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", "  ", 
      RowBox[{
       RowBox[{"Graphics3D", "[", 
        RowBox[{"{", 
         RowBox[{"Red", ",", 
          RowBox[{"Arrowheads", "\[Rule]", "Small"}], ",", " ", 
          "\[IndentingNewLine]", 
          RowBox[{"Arrow", "[", 
           RowBox[{"{", " ", 
            RowBox[{
             RowBox[{"Surf", "[", 
              RowBox[{
               RowBox[{"Av", "+", 
                RowBox[{"Sv", " ", "i"}]}], ",", 
               RowBox[{"Aw", "+", 
                RowBox[{"Sw", " ", "j"}]}]}], "]"}], ",", 
             RowBox[{
              RowBox[{"Surf", "[", 
               RowBox[{
                RowBox[{"Av", "+", 
                 RowBox[{"Sv", " ", "i"}]}], ",", 
                RowBox[{"Aw", "+", 
                 RowBox[{"Sw", " ", "j"}]}]}], "]"}], "+", 
              RowBox[{"NrLat", "[", 
               RowBox[{
                RowBox[{"Av", "+", 
                 RowBox[{"Sv", " ", "i"}]}], ",", 
                RowBox[{"Aw", "+", 
                 RowBox[{"Sw", " ", "j"}]}]}], "]"}]}]}], "}"}], "]"}]}], " ",
          "}"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "mv"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"j", ",", "1", ",", "mw"}], "}"}]}], "]"}], ",", "2"}], 
    "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"P2", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Table", "[", "  ", 
      RowBox[{
       RowBox[{"Graphics3D", "[", 
        RowBox[{"{", 
         RowBox[{"Blue", ",", 
          RowBox[{"Arrowheads", "\[Rule]", "Small"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"Arrow", "[", 
           RowBox[{"{", " ", 
            RowBox[{
             RowBox[{"Surf", "[", 
              RowBox[{
               RowBox[{"Av", "+", 
                RowBox[{"Sv", " ", "i"}]}], ",", 
               RowBox[{"Aw", "+", 
                RowBox[{"Sw", " ", "j"}]}]}], "]"}], ",", 
             RowBox[{
              RowBox[{"Surf", "[", 
               RowBox[{
                RowBox[{"Av", "+", 
                 RowBox[{"Sv", " ", "i"}]}], ",", 
                RowBox[{"Aw", "+", 
                 RowBox[{"Sw", " ", "j"}]}]}], "]"}], "+", " ", 
              RowBox[{"F", "[", 
               RowBox[{"Surf", "[", 
                RowBox[{
                 RowBox[{"Av", "+", 
                  RowBox[{"Sv", " ", "i"}]}], ",", 
                 RowBox[{"Aw", "+", 
                  RowBox[{"Sw", " ", "j"}]}]}], "]"}], "]"}]}]}], "}"}], 
           "]"}]}], " ", "}"}], " ", "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"i", ",", "1", ",", "mv"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"j", ",", "1", ",", "mw"}], "}"}]}], "]"}], ",", "2"}], 
    "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"PVF", "=", 
   RowBox[{"VectorPlot3D", "[", 
    RowBox[{
     RowBox[{"F", "[", 
      RowBox[{"{", 
       RowBox[{"x", ",", "y", ",", "z"}], "}"}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{"x", ",", 
       RowBox[{"-", "9"}], ",", "9"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"y", ",", 
       RowBox[{"-", "9"}], ",", "9"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"z", ",", 
       RowBox[{"-", "9"}], ",", "9"}], "}"}], ",", 
     RowBox[{"VectorPoints", "\[Rule]", "15"}], ",", 
     RowBox[{"VectorStyle", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"Arrowheads", "[", "Small", "]"}], "}"}]}], ",", 
     RowBox[{"VectorColorFunction", "\[Rule]", "Hue"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"g1", "=", 
    RowBox[{"Show", "[", 
     RowBox[{"SDBHalf", ",", "PVF", ",", 
      RowBox[{"ViewPoint", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"1.3`", ",", 
         RowBox[{"-", "2.4`"}], ",", "2.`"}], "}"}]}], ",", 
      RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}], ";", 
   RowBox[{"g2", "=", 
    RowBox[{"Show", "[", 
     RowBox[{"P1", ",", "P2", ",", "SDB", ",", 
      RowBox[{"ViewPoint", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{"1.3`", ",", 
         RowBox[{"-", "2.4`"}], ",", "2.`"}], "}"}]}]}], "]"}]}], ";"}], 
  "\n"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{
    RowBox[{"Style", "[", 
     RowBox[{"\"\<\!\(\*
StyleBox[\"Vector\",
FontColor->RGBColor[0, 0, 1]]\)\!\(\*
StyleBox[\" \",
FontColor->RGBColor[0, 0, 1]]\)\!\(\*
StyleBox[\"Field\",
FontColor->RGBColor[0, 0, 1]]\)  \!\(\*
StyleBox[\"Unit\",
FontColor->RGBColor[1, 0, 0]]\)\!\(\*
StyleBox[\" \",
FontColor->RGBColor[1, 0, 0]]\)\!\(\*
StyleBox[\"Normals\",
FontColor->RGBColor[1, 0, 0]]\)\>\"", ",", "Bold", ",", "13"}], "]"}], ",", 
    RowBox[{"Style", "[", 
     RowBox[{"\"\<    Div(F)=\>\"", ",", "Bold", ",", "13"}], "]"}], ",", 
    RowBox[{"Style", "[", 
     RowBox[{"DF", ",", "Bold", ",", "13"}], "]"}], ",", 
    "\[IndentingNewLine]", "         ", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<   Triple Integral:\[Integral]\[Integral]\[Integral]div(F)dV=\>\"", 
      ",", "Bold", ",", "13"}], "]"}], ",", 
    RowBox[{"Style", "[", 
     RowBox[{"TrDI", ",", "Bold", ",", "13"}], "]"}], ",", 
    RowBox[{"Style", "[", 
     RowBox[{
     "\"\<     Flux =\[Integral]\[Integral]F\[CenterDot]ndS=\>\"", ",", 
      "Bold", ",", "13"}], "]"}], ",", 
    RowBox[{"Style", "[", 
     RowBox[{"FluxLat", ",", "Bold", ",", "13"}], "]"}]}], "]"}], ";"}], "\n", 
 RowBox[{
  RowBox[{"Print", "[", 
   RowBox[{
    RowBox[{"Style", "[", 
     RowBox[{"\"\<ndS=\>\"", ",", "Bold", ",", "13"}], "]"}], ",", 
    RowBox[{"Style", "[", 
     RowBox[{
      RowBox[{"Simplify", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          SubscriptBox["\[PartialD]", "v"], 
          RowBox[{"Surf", "[", 
           RowBox[{"v", ",", "w"}], "]"}]}], "\[Cross]", 
         RowBox[{
          SubscriptBox["\[PartialD]", "w"], 
          RowBox[{"Surf", "[", 
           RowBox[{"v", ",", "w"}], "]"}]}]}], ",", 
        RowBox[{"Assumptions", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Av", "\[LessEqual]", "v", "\[LessEqual]", "Bv"}], "&&", 
           RowBox[{"Aw", "\[LessEqual]", "w", "\[LessEqual]", "Bw"}]}], 
          "}"}]}]}], "]"}], ",", "Bold", ",", "13"}], "]"}], ",", 
    "\[IndentingNewLine]", "         ", 
    RowBox[{"Style", "[", 
     RowBox[{"\"\<      F\[CenterDot]ndS=\>\"", ",", "Bold", ",", "13"}], 
     "]"}], ",", "  ", 
    RowBox[{"Style", "[", 
     RowBox[{
      RowBox[{"Simplify", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"F", "[", 
          RowBox[{"Surf", "[", 
           RowBox[{"v", ",", "w"}], "]"}], "]"}], ".", 
         RowBox[{
          RowBox[{
           SubscriptBox["\[PartialD]", "v"], 
           RowBox[{"Surf", "[", 
            RowBox[{"v", ",", "w"}], "]"}]}], "\[Cross]", 
          RowBox[{
           SubscriptBox["\[PartialD]", "w"], 
           RowBox[{"Surf", "[", 
            RowBox[{"v", ",", "w"}], "]"}]}]}]}], ",", 
        RowBox[{"Assumptions", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Av", "\[LessEqual]", "v", "\[LessEqual]", "Bv"}], "&&", 
           RowBox[{"Aw", "\[LessEqual]", "w", "\[LessEqual]", "Bw"}]}], 
          "}"}]}]}], "]"}], ",", "Bold", ",", "13"}], "]"}]}], "]"}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"Show", "[", 
  RowBox[{
   RowBox[{"GraphicsRow", "[", 
    RowBox[{"{", 
     RowBox[{"g1", ",", "g2"}], "}"}], "]"}], ",", 
   RowBox[{"ImageSize", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"1000", ",", "500"}], "}"}]}]}], "]"}]}], "Input",
 CellChangeTimes->{{3.411860285078125*^9, 3.411860375421875*^9}, {
   3.4118607215625*^9, 3.411860736328125*^9}, 3.411860769921875*^9, {
   3.41229704875*^9, 3.41229704928125*^9}, {3.41229713190625*^9, 
   3.4122971918125*^9}, {3.472404043984375*^9, 3.4724041901875*^9}, 
   3.47240425703125*^9, {3.4724042965*^9, 3.472404337109375*^9}, {
   3.472404370390625*^9, 3.472404433046875*^9}, {3.47240449775*^9, 
   3.472404517140625*^9}, {3.472404576015625*^9, 3.472404578828125*^9}, 
   3.47240465884375*^9, {3.472404693484375*^9, 3.4724046955*^9}, {
   3.472404729328125*^9, 3.47240478121875*^9}, {3.47240483984375*^9, 
   3.47240484184375*^9}, {3.4724048934375*^9, 3.472404903625*^9}, 
   3.472405049765625*^9, {3.472406790265625*^9, 3.472406830296875*^9}, {
   3.472406906859375*^9, 3.472406928203125*^9}, {3.47240702615625*^9, 
   3.472407028359375*^9}, {3.472421648453125*^9, 3.472421665359375*^9}, {
   3.472421707453125*^9, 3.472421719*^9}, 3.472421916078125*^9, {
   3.472421958734375*^9, 3.472421981890625*^9}, {3.47242203409375*^9, 
   3.472422037046875*^9}, 3.472422109625*^9, {3.472422149703125*^9, 
   3.472422154515625*^9}, {3.472422188453125*^9, 3.47242219525*^9}, {
   3.472422238703125*^9, 3.472422274265625*^9}, 3.472422327875*^9, {
   3.472422359109375*^9, 3.472422482078125*^9}, {3.472422517359375*^9, 
   3.47242276290625*^9}, {3.472422802671875*^9, 3.47242280634375*^9}, {
   3.472422838671875*^9, 3.472422915515625*^9}, {3.472494055828125*^9, 
   3.47249406*^9}, {3.472494100015625*^9, 3.472494101828125*^9}, {
   3.47249427071875*^9, 3.472494287765625*^9}, {3.4724943535625*^9, 
   3.472494375640625*^9}, {3.47249446740625*^9, 3.47249447434375*^9}, {
   3.47249456415625*^9, 3.4724945775625*^9}, 3.472514312328125*^9},
 TextAlignment->Left],

Cell[BoxData[
 RowBox[{"\[IndentingNewLine]", 
  RowBox[{
   RowBox[{
    RowBox[{"Needs", "[", "\"\<VectorAnalysis`\>\"", "]"}], ";"}], "\n", 
   StyleBox[
    RowBox[{
    "\"\<G is the solid bounded lateraly by surface \[Sigma] obtained \
revolving x=f(z) curve about z-axis\nSolid G: {u*Cos[v], u*Sin[v], f[w]}, 0 \
\[LessEqual] v \[LessEqual] 2Pi; Aw \[LessEqual] w \[LessEqual] Bw; 0 \
\[LessEqual] u \[LessEqual] f[w]  Surface \[Sigma]: {f[w] Cos[v],f[w] \
Sin[v],w}\>\"", ";"}],
    FontColor->GrayLevel[0]], "\[IndentingNewLine]", 
   RowBox[{"\"\<Vector Field\>\"", ";", 
    RowBox[{
     RowBox[{"F", "[", 
      RowBox[{"{", 
       RowBox[{"x_", ",", "y_", ",", "z_"}], "}"}], "]"}], ":=", 
     RowBox[{"{", 
      RowBox[{
       SuperscriptBox["x", "3"], ",", 
       SuperscriptBox["y", "3"], ",", 
       RowBox[{"z", "-", "2"}]}], "}"}]}], ";", 
    RowBox[{"DF", "=", 
     RowBox[{"Simplify", "[", 
      RowBox[{"Div", "[", 
       RowBox[{
        RowBox[{"F", "[", 
         RowBox[{"{", 
          RowBox[{"x", ",", "y", ",", "z"}], "}"}], "]"}], ",", 
        RowBox[{"Cartesian", "[", 
         RowBox[{"x", ",", "y", ",", "z"}], "]"}]}], "]"}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"f", "[", "w_", "]"}], "=", 
     SqrtBox["w"]}], ";", "  ", 
    RowBox[{
     RowBox[{"Surf", "[", 
      RowBox[{"v_", ",", "w_"}], "]"}], ":=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{"f", "[", "w", "]"}], " ", 
        RowBox[{"Cos", "[", "v", "]"}]}], ",", 
       RowBox[{
        RowBox[{"f", "[", "w", "]"}], " ", 
        RowBox[{"Sin", "[", "v", "]"}]}], ",", "w"}], "}"}]}], ";", " ", 
    RowBox[{
     RowBox[{"NrLat", "[", 
      RowBox[{"v_", ",", "w_"}], "]"}], "=", 
     RowBox[{"Normalize", "[", 
      RowBox[{
       RowBox[{
        SubscriptBox["\[PartialD]", "v"], 
        RowBox[{"Surf", "[", 
         RowBox[{"v", ",", "w"}], "]"}]}], "\[Cross]", 
       RowBox[{
        SubscriptBox["\[PartialD]", "w"], 
        RowBox[{"Surf", "[", 
         RowBox[{"v", ",", "w"}], "]"}]}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{"\"\<Sufrace and Solid Range\>\"", ";", 
    RowBox[{"Aw", "=", "1"}], ";", 
    RowBox[{"Bw", "=", "3"}], ";", "\"\<Surface Grid\>\"", ";", 
    RowBox[{"mu", "=", "5"}], ";", 
    RowBox[{"mv", "=", "10"}], ";", 
    RowBox[{"mw", "=", "5"}], ";", 
    RowBox[{"Av", "=", "0"}], ";", 
    RowBox[{"Bv", "=", 
     RowBox[{"2", " ", "\[Pi]"}]}], ";", 
    RowBox[{"Au", "=", "1"}], ";", 
    RowBox[{"Bu", "=", "2"}], ";", 
    RowBox[{"Su", "=", 
     FractionBox["1", "mu"]}], ";", 
    RowBox[{"Sv", "=", 
     FractionBox[
      RowBox[{"Bv", "-", "Av"}], "mv"]}], ";", 
    RowBox[{"Sw", "=", 
     FractionBox[
      RowBox[{"Bw", "-", "Aw"}], "mw"]}], ";"}], "\n", 
   RowBox[{
    RowBox[{"TrDI", "=", 
     RowBox[{
      SubsuperscriptBox["\[Integral]", "Av", "Bv"], 
      RowBox[{
       SubsuperscriptBox["\[Integral]", "Aw", "Bw"], 
       RowBox[{
        SubsuperscriptBox["\[Integral]", "0", 
         RowBox[{"f", "[", "w", "]"}]], 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"DF", "/.", "\[InvisibleSpace]", 
             RowBox[{"x", "\[Rule]", 
              RowBox[{"u", " ", 
               RowBox[{"Cos", "[", "v", "]"}]}]}]}], "/.", 
            "\[InvisibleSpace]", 
            RowBox[{"y", "\[Rule]", 
             RowBox[{"u", " ", 
              RowBox[{"Sin", "[", "v", "]"}]}]}]}], "/.", "\[InvisibleSpace]", 
           RowBox[{"z", "\[Rule]", "w"}]}], ")"}], " ", 
         RowBox[{"Abs", "[", 
          RowBox[{"Det", "[", 
           RowBox[{
            SubscriptBox["\[PartialD]", 
             RowBox[{"{", 
              RowBox[{"{", 
               RowBox[{"u", ",", "v", ",", "w"}], "}"}], "}"}]], 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"u", " ", 
               RowBox[{"Cos", "[", "v", "]"}]}], ",", 
              RowBox[{"u", " ", 
               RowBox[{"Sin", "[", "v", "]"}]}], ",", "w"}], "}"}]}], "]"}], 
          "]"}], 
         RowBox[{"\[DifferentialD]", "u"}], 
         RowBox[{"\[DifferentialD]", "w"}], 
         RowBox[{"\[DifferentialD]", "v"}]}]}]}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"FluxLat", "=", 
     RowBox[{
      SubsuperscriptBox["\[Integral]", "Av", "Bv"], 
      RowBox[{
       SubsuperscriptBox["\[Integral]", "Aw", "Bw"], 
       RowBox[{
        RowBox[{
         RowBox[{"F", "[", 
          RowBox[{"Surf", "[", 
           RowBox[{"v", ",", "w"}], "]"}], "]"}], ".", 
         RowBox[{
          RowBox[{
           SubscriptBox["\[PartialD]", "v"], 
           RowBox[{"Surf", "[", 
            RowBox[{"v", ",", "w"}], "]"}]}], "\[Cross]", 
          RowBox[{
           SubscriptBox["\[PartialD]", "w"], 
           RowBox[{"Surf", "[", 
            RowBox[{"v", ",", "w"}], "]"}]}]}]}], 
        RowBox[{"\[DifferentialD]", "w"}], 
        RowBox[{"\[DifferentialD]", "v"}]}]}]}]}], ";", 
    RowBox[{"SDB", "=", 
     RowBox[{"ParametricPlot3D", "[", 
      RowBox[{
       RowBox[{"Surf", "[", 
        RowBox[{"v", ",", "w"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"v", ",", "Av", ",", "Bv"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"w", ",", "Aw", ",", "Bw"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"P1", "=", 
     RowBox[{"Flatten", "[", 
      RowBox[{
       RowBox[{"Table", "[", "  ", 
        RowBox[{
         RowBox[{"Graphics3D", "[", 
          RowBox[{"{", 
           RowBox[{"Red", ",", 
            RowBox[{"Arrowheads", "\[Rule]", "Small"}], ",", " ", 
            "\[IndentingNewLine]", 
            RowBox[{"Arrow", "[", 
             RowBox[{"{", " ", 
              RowBox[{
               RowBox[{"Surf", "[", 
                RowBox[{
                 RowBox[{"Av", "+", 
                  RowBox[{"Sv", " ", "i"}]}], ",", 
                 RowBox[{"Aw", "+", 
                  RowBox[{"Sw", " ", "j"}]}]}], "]"}], ",", 
               RowBox[{
                RowBox[{"Surf", "[", 
                 RowBox[{
                  RowBox[{"Av", "+", 
                   RowBox[{"Sv", " ", "i"}]}], ",", 
                  RowBox[{"Aw", "+", 
                   RowBox[{"Sw", " ", "j"}]}]}], "]"}], "+", 
                RowBox[{"NrLat", "[", 
                 RowBox[{
                  RowBox[{"Av", "+", 
                   RowBox[{"Sv", " ", "i"}]}], ",", 
                  RowBox[{"Aw", "+", 
                   RowBox[{"Sw", " ", "j"}]}]}], "]"}]}]}], "}"}], "]"}]}], 
           " ", "}"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", "mv"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "1", ",", "mw"}], "}"}]}], "]"}], ",", "2"}], 
      "]"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{"P2", "=", 
     RowBox[{"Flatten", "[", 
      RowBox[{
       RowBox[{"Table", "[", "  ", 
        RowBox[{
         RowBox[{"Graphics3D", "[", 
          RowBox[{"{", 
           RowBox[{"Blue", ",", 
            RowBox[{"Arrowheads", "\[Rule]", "Small"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"Arrow", "[", 
             RowBox[{"{", " ", 
              RowBox[{
               RowBox[{"Surf", "[", 
                RowBox[{
                 RowBox[{"Av", "+", 
                  RowBox[{"Sv", " ", "i"}]}], ",", 
                 RowBox[{"Aw", "+", 
                  RowBox[{"Sw", " ", "j"}]}]}], "]"}], ",", 
               RowBox[{
                RowBox[{"Surf", "[", 
                 RowBox[{
                  RowBox[{"Av", "+", 
                   RowBox[{"Sv", " ", "i"}]}], ",", 
                  RowBox[{"Aw", "+", 
                   RowBox[{"Sw", " ", "j"}]}]}], "]"}], "+", " ", 
                RowBox[{"0.7", "*", 
                 RowBox[{"F", "[", 
                  RowBox[{"Surf", "[", 
                   RowBox[{
                    RowBox[{"Av", "+", 
                    RowBox[{"Sv", " ", "i"}]}], ",", 
                    RowBox[{"Aw", "+", 
                    RowBox[{"Sw", " ", "j"}]}]}], "]"}], "]"}]}]}]}], "}"}], 
             "]"}]}], " ", "}"}], " ", "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", "mv"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "1", ",", "mw"}], "}"}]}], "]"}], ",", "2"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", "\[IndentingNewLine]", 
   RowBox[{"\"\<Caps\>\"", ";", 
    RowBox[{"AuC", "=", "0"}], ";", 
    RowBox[{"BBC", "=", 
     RowBox[{"f", "[", "Aw", "]"}]}], ";", 
    RowBox[{"BTC", "=", 
     RowBox[{"f", "[", "Bw", "]"}]}], ";", 
    RowBox[{"STC", "=", 
     FractionBox["BTC", "mu"]}], ";", 
    RowBox[{"SBC", "=", 
     FractionBox["BBC", "mu"]}], ";", 
    RowBox[{"AvC", "=", "0"}], ";", 
    RowBox[{"BvC", "=", 
     RowBox[{"2", " ", "\[Pi]"}]}], ";", 
    RowBox[{"SuC", "=", 
     FractionBox[
      RowBox[{"BuC", "-", "AuC"}], "mu"]}], ";", 
    RowBox[{"SvC", "=", 
     FractionBox[
      RowBox[{"BvC", "-", "AvC"}], "mv"]}], ";"}], "\n", 
   RowBox[{
    RowBox[{
     RowBox[{"Cap1", "[", 
      RowBox[{"u_", ",", "v_"}], "]"}], ":=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"u", " ", 
        RowBox[{"Cos", "[", "v", "]"}]}], ",", 
       RowBox[{"u", " ", 
        RowBox[{"Sin", "[", "v", "]"}]}], ",", "Bw"}], "}"}]}], ";", 
    RowBox[{"SCap1", "=", 
     RowBox[{"ParametricPlot3D", "[", 
      RowBox[{
       RowBox[{"Cap1", "[", 
        RowBox[{"u", ",", "v"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"u", ",", "AuC", ",", "BTC"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"v", ",", "AvC", ",", "BvC"}], "}"}]}], "]"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{"FluxCap1", "=", 
     RowBox[{
      SubsuperscriptBox["\[Integral]", "AuC", "BTC"], 
      RowBox[{
       SubsuperscriptBox["\[Integral]", "AvC", "BvC"], 
       RowBox[{
        RowBox[{
         RowBox[{"F", "[", 
          RowBox[{"Cap1", "[", 
           RowBox[{"u", ",", "v"}], "]"}], "]"}], ".", 
         RowBox[{
          RowBox[{
           SubscriptBox["\[PartialD]", "u"], 
           RowBox[{"Cap1", "[", 
            RowBox[{"u", ",", "v"}], "]"}]}], "\[Cross]", 
          RowBox[{
           SubscriptBox["\[PartialD]", "v"], 
           RowBox[{"Cap1", "[", 
            RowBox[{"u", ",", "v"}], "]"}]}]}]}], 
        RowBox[{"\[DifferentialD]", "v"}], 
        RowBox[{"\[DifferentialD]", "u"}]}]}]}]}], ";", 
    RowBox[{
     RowBox[{"NrCap1", "[", 
      RowBox[{"u_", ",", "v_"}], "]"}], "=", " ", 
     RowBox[{"Normalize", "[", 
      RowBox[{
       RowBox[{
        SubscriptBox["\[PartialD]", "u"], 
        RowBox[{"Cap1", "[", 
         RowBox[{"u", ",", "v"}], "]"}]}], "\[Cross]", 
       RowBox[{
        SubscriptBox["\[PartialD]", "v"], 
        RowBox[{"Cap1", "[", 
         RowBox[{"u", ",", "v"}], "]"}]}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"P3", "=", 
     RowBox[{"Flatten", "[", 
      RowBox[{
       RowBox[{"Table", "[", "  ", 
        RowBox[{
         RowBox[{"Graphics3D", "[", 
          RowBox[{"{", 
           RowBox[{"Red", ",", 
            RowBox[{"Arrowheads", "\[Rule]", "Small"}], ",", " ", 
            "\[IndentingNewLine]", 
            RowBox[{"Arrow", "[", 
             RowBox[{"{", " ", 
              RowBox[{
               RowBox[{"Cap1", "[", 
                RowBox[{
                 RowBox[{"AuC", "+", 
                  RowBox[{"STC", " ", "i"}]}], ",", 
                 RowBox[{"AvC", "+", 
                  RowBox[{"SvC", " ", "j"}]}]}], "]"}], ",", 
               RowBox[{
                RowBox[{"Cap1", "[", 
                 RowBox[{
                  RowBox[{"AuC", "+", 
                   RowBox[{"STC", " ", "i"}]}], ",", 
                  RowBox[{"AvC", "+", 
                   RowBox[{"SvC", " ", "j"}]}]}], "]"}], "+", 
                RowBox[{"NrCap1", "[", 
                 RowBox[{
                  RowBox[{"AuC", "+", 
                   RowBox[{"STC", " ", "i"}]}], ",", 
                  RowBox[{"AvC", "+", 
                   RowBox[{"SvC", " ", "j"}]}]}], "]"}]}]}], "}"}], "]"}]}], 
           " ", "}"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", "mu"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "1", ",", "mw"}], "}"}]}], "]"}], ",", "2"}], 
      "]"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{"P4", "=", 
     RowBox[{"Flatten", "[", 
      RowBox[{
       RowBox[{"Table", "[", "  ", 
        RowBox[{
         RowBox[{"Graphics3D", "[", 
          RowBox[{"{", 
           RowBox[{"Blue", ",", 
            RowBox[{"Arrowheads", "\[Rule]", "Small"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"Arrow", "[", 
             RowBox[{"{", " ", 
              RowBox[{
               RowBox[{"Cap1", "[", 
                RowBox[{
                 RowBox[{"AuC", "+", 
                  RowBox[{"STC", " ", "i"}]}], ",", 
                 RowBox[{"AvC", "+", 
                  RowBox[{"SvC", " ", "j"}]}]}], "]"}], ",", 
               RowBox[{
                RowBox[{"Cap1", "[", 
                 RowBox[{
                  RowBox[{"AuC", "+", 
                   RowBox[{"STC", " ", "i"}]}], ",", 
                  RowBox[{"AvC", "+", 
                   RowBox[{"SvC", " ", "j"}]}]}], "]"}], "+", " ", 
                RowBox[{"0.7", "*", 
                 RowBox[{"F", "[", 
                  RowBox[{"Cap1", "[", 
                   RowBox[{
                    RowBox[{"AuC", "+", 
                    RowBox[{"STC", " ", "i"}]}], ",", 
                    RowBox[{"AvC", "+", 
                    RowBox[{"SvC", " ", "j"}]}]}], "]"}], "]"}]}]}]}], "}"}], 
             "]"}]}], " ", "}"}], " ", "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", "mu"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "1", ",", "mw"}], "}"}]}], "]"}], ",", "2"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{
     RowBox[{"Cap2", "[", 
      RowBox[{"u_", ",", "v_"}], "]"}], ":=", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"u", " ", 
        RowBox[{"Cos", "[", "v", "]"}]}], ",", 
       RowBox[{"u", " ", 
        RowBox[{"Sin", "[", "v", "]"}]}], ",", "Aw"}], "}"}]}], ";", 
    RowBox[{"SCap2", "=", 
     RowBox[{"ParametricPlot3D", "[", 
      RowBox[{
       RowBox[{"Cap2", "[", 
        RowBox[{"u", ",", "v"}], "]"}], ",", 
       RowBox[{"{", 
        RowBox[{"u", ",", "AuC", ",", "BBC"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"v", ",", "AvC", ",", "BvC"}], "}"}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"FluxCap2", "=", 
     RowBox[{"-", 
      RowBox[{
       SubsuperscriptBox["\[Integral]", "AuC", "BBC"], 
       RowBox[{
        SubsuperscriptBox["\[Integral]", "AvC", "BvC"], 
        RowBox[{
         RowBox[{
          RowBox[{"F", "[", 
           RowBox[{"Cap2", "[", 
            RowBox[{"u", ",", "v"}], "]"}], "]"}], ".", 
          RowBox[{
           RowBox[{
            SubscriptBox["\[PartialD]", "u"], 
            RowBox[{"Cap2", "[", 
             RowBox[{"u", ",", "v"}], "]"}]}], "\[Cross]", 
           RowBox[{
            SubscriptBox["\[PartialD]", "v"], 
            RowBox[{"Cap2", "[", 
             RowBox[{"u", ",", "v"}], "]"}]}]}]}], 
         RowBox[{"\[DifferentialD]", "v"}], 
         RowBox[{"\[DifferentialD]", "u"}]}]}]}]}]}], ";", 
    RowBox[{
     RowBox[{"NrCap2", "[", 
      RowBox[{"u_", ",", "v_"}], "]"}], "=", 
     RowBox[{"-", " ", 
      RowBox[{"Normalize", "[", 
       RowBox[{
        RowBox[{
         SubscriptBox["\[PartialD]", "u"], 
         RowBox[{"Cap2", "[", 
          RowBox[{"u", ",", "v"}], "]"}]}], "\[Cross]", 
        RowBox[{
         SubscriptBox["\[PartialD]", "v"], 
         RowBox[{"Cap2", "[", 
          RowBox[{"u", ",", "v"}], "]"}]}]}], "]"}]}]}], ";"}], 
   "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"P5", "=", 
     RowBox[{"Flatten", "[", 
      RowBox[{
       RowBox[{"Table", "[", "  ", 
        RowBox[{
         RowBox[{"Graphics3D", "[", 
          RowBox[{"{", 
           RowBox[{"Red", ",", 
            RowBox[{"Arrowheads", "\[Rule]", "Small"}], ",", " ", 
            "\[IndentingNewLine]", 
            RowBox[{"Arrow", "[", 
             RowBox[{"{", " ", 
              RowBox[{
               RowBox[{"Cap2", "[", 
                RowBox[{
                 RowBox[{"AuC", "+", 
                  RowBox[{"STC", " ", "i"}]}], ",", 
                 RowBox[{"AvC", "+", 
                  RowBox[{"SvC", " ", "j"}]}]}], "]"}], ",", 
               RowBox[{
                RowBox[{"Cap2", "[", 
                 RowBox[{
                  RowBox[{"AuC", "+", 
                   RowBox[{"STC", " ", "i"}]}], ",", 
                  RowBox[{"AvC", "+", 
                   RowBox[{"SvC", " ", "j"}]}]}], "]"}], "+", 
                RowBox[{"NrCap2", "[", 
                 RowBox[{
                  RowBox[{"AuC", "+", 
                   RowBox[{"STC", " ", "i"}]}], ",", 
                  RowBox[{"AvC", "+", 
                   RowBox[{"SvC", " ", "j"}]}]}], "]"}]}]}], "}"}], "]"}]}], 
           " ", "}"}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", "mu"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "1", ",", "mw"}], "}"}]}], "]"}], ",", "2"}], 
      "]"}]}], ";"}], "\n", 
   RowBox[{
    RowBox[{"P6", "=", 
     RowBox[{"Flatten", "[", 
      RowBox[{
       RowBox[{"Table", "[", "  ", 
        RowBox[{
         RowBox[{"Graphics3D", "[", 
          RowBox[{"{", 
           RowBox[{"Blue", ",", 
            RowBox[{"Arrowheads", "\[Rule]", "Small"}], ",", 
            "\[IndentingNewLine]", 
            RowBox[{"Arrow", "[", 
             RowBox[{"{", " ", 
              RowBox[{
               RowBox[{"Cap2", "[", 
                RowBox[{
                 RowBox[{"AuC", "+", 
                  RowBox[{"STC", " ", "i"}]}], ",", 
                 RowBox[{"AvC", "+", 
                  RowBox[{"SvC", " ", "j"}]}]}], "]"}], ",", 
               RowBox[{
                RowBox[{"Cap2", "[", 
                 RowBox[{
                  RowBox[{"AuC", "+", 
                   RowBox[{"STC", " ", "i"}]}], ",", 
                  RowBox[{"AvC", "+", 
                   RowBox[{"SvC", " ", "j"}]}]}], "]"}], "+", " ", 
                RowBox[{"0.7", "*", 
                 RowBox[{"F", "[", 
                  RowBox[{"Cap2", "[", 
                   RowBox[{
                    RowBox[{"AuC", "+", 
                    RowBox[{"STC", " ", "i"}]}], ",", 
                    RowBox[{"AvC", "+", 
                    RowBox[{"SvC", " ", "j"}]}]}], "]"}], "]"}]}]}]}], "}"}], 
             "]"}]}], " ", "}"}], " ", "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"i", ",", "1", ",", "mu"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{"j", ",", "1", ",", "mw"}], "}"}]}], "]"}], ",", "2"}], 
      "]"}]}], ";"}], "\[IndentingNewLine]", 
   RowBox[{
    RowBox[{"g1", "=", 
     RowBox[{"Show", "[", 
      RowBox[{
      "P1", ",", "P2", ",", "P3", ",", "P4", ",", "P5", ",", "P6", ",", "SDB",
        ",", "SCap1", ",", "SCap2", ",", 
       RowBox[{"ViewPoint", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"1.4", ",", 
          RowBox[{"-", "2.6"}], ",", "1.5"}], "}"}]}]}], "]"}]}], ";", 
    RowBox[{"g2", "=", 
     RowBox[{"Show", "[", 
      RowBox[{
      "P1", ",", "P2", ",", "P3", ",", "P4", ",", "P5", ",", "P6", ",", "SDB",
        ",", "SCap1", ",", "SCap2", ",", 
       RowBox[{"ViewPoint", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{"1.5", ",", 
          RowBox[{"-", "2.8"}], ",", 
          RowBox[{"-", "1.05"}]}], "}"}]}]}], "]"}]}], ";"}], 
   "\[IndentingNewLine]", "\n", 
   RowBox[{"Print", "[", 
    RowBox[{"Style", "[", "\"\<\!\(\*
StyleBox[\"Unit\",
FontColor->RGBColor[1, 0, 0]]\)\!\(\*
StyleBox[\" \",
FontColor->RGBColor[1, 0, 0]]\)\!\(\*
StyleBox[\"Normal\",
FontColor->RGBColor[1, 0, 0]]\) \!\(\*
StyleBox[\"Vector\",
FontColor->RGBColor[0, 0, 1]]\)\!\(\*
StyleBox[\" \",
FontColor->RGBColor[0, 0, 1]]\)\!\(\*
StyleBox[\"Field\",
FontColor->RGBColor[0, 0, 1]]\)\>\"", "]"}], "]"}], "\n", 
   RowBox[{
    RowBox[{"Print", "[", 
     RowBox[{
      RowBox[{"Style", "[", "\"\<Lateral Normals ndS=\>\"", "]"}], ",", 
      RowBox[{"Simplify", "[", 
       RowBox[{
        RowBox[{
         RowBox[{
          SubscriptBox["\[PartialD]", "v"], 
          RowBox[{"Surf", "[", 
           RowBox[{"v", ",", "w"}], "]"}]}], "\[Cross]", 
         RowBox[{
          SubscriptBox["\[PartialD]", "w"], 
          RowBox[{"Surf", "[", 
           RowBox[{"v", ",", "w"}], "]"}]}]}], ",", 
        RowBox[{"Assumptions", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Av", "\[LessEqual]", "v", "\[LessEqual]", "Bv"}], "&&", 
           RowBox[{"Aw", "\[LessEqual]", "w", "\[LessEqual]", "Bw"}]}], 
          "}"}]}]}], "]"}], ",", "\"\<;   \>\"", ",", 
      RowBox[{"Style", "[", "\"\<Lateral F\[CenterDot]ndS=\>\"", "]"}], ",", 
      RowBox[{"Simplify", "[", 
       RowBox[{
        RowBox[{"DotProduct", "[", 
         RowBox[{
          RowBox[{"F", "[", 
           RowBox[{"Surf", "[", 
            RowBox[{"v", ",", "w"}], "]"}], "]"}], ",", 
          RowBox[{
           RowBox[{
            SubscriptBox["\[PartialD]", "v"], 
            RowBox[{"Surf", "[", 
             RowBox[{"v", ",", "w"}], "]"}]}], "\[Cross]", 
           RowBox[{
            SubscriptBox["\[PartialD]", "w"], 
            RowBox[{"Surf", "[", 
             RowBox[{"v", ",", "w"}], "]"}]}]}]}], "]"}], ",", 
        RowBox[{"Assumptions", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"Av", "\[LessEqual]", "v", "\[LessEqual]", "Bv"}], "&&", 
           RowBox[{"Aw", "\[LessEqual]", "w", "\[LessEqual]", "Bw"}]}], 
          "}"}]}]}], "]"}], ",", "\"\<;   \>\"", ",", 
      RowBox[{
      "Style", "[", 
       "\"\<Lateral Flux=\[Integral]\[Integral]F\[CenterDot]ndS=\>\"", "]"}], 
      ",", "FluxLat"}], "]"}], ";"}], "\n", 
   RowBox[{"Print", "[", 
    RowBox[{
     RowBox[{"Style", "[", "\"\<Top Cap Normals n=\>\"", "]"}], ",", 
     RowBox[{"Simplify", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         SubscriptBox["\[PartialD]", "u"], 
         RowBox[{"Cap1", "[", 
          RowBox[{"u", ",", "v"}], "]"}]}], "\[Cross]", 
        RowBox[{
         SubscriptBox["\[PartialD]", "v"], 
         RowBox[{"Cap1", "[", 
          RowBox[{"u", ",", "v"}], "]"}]}]}], ",", 
       RowBox[{"Assumptions", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Av", "\[LessEqual]", "v", "\[LessEqual]", "Bv"}], "&&", 
          RowBox[{"Au", "\[LessEqual]", "u", "\[LessEqual]", "Bu"}]}], 
         "}"}]}]}], "]"}], ",", "\"\<;   \>\"", ",", 
     RowBox[{"Style", "[", "\"\<Top Cap F\[CenterDot]ndS=\>\"", "]"}], ",", 
     RowBox[{"Simplify", "[", 
      RowBox[{
       RowBox[{"DotProduct", "[", 
        RowBox[{
         RowBox[{"F", "[", 
          RowBox[{"Cap1", "[", 
           RowBox[{"u", ",", "v"}], "]"}], "]"}], ",", 
         RowBox[{
          RowBox[{
           SubscriptBox["\[PartialD]", "u"], 
           RowBox[{"Cap1", "[", 
            RowBox[{"u", ",", "v"}], "]"}]}], "\[Cross]", 
          RowBox[{
           SubscriptBox["\[PartialD]", "v"], 
           RowBox[{"Cap1", "[", 
            RowBox[{"u", ",", "v"}], "]"}]}]}]}], "]"}], ",", 
       RowBox[{"Assumptions", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Av", "\[LessEqual]", "v", "\[LessEqual]", "Bv"}], "&&", 
          RowBox[{"Au", "\[LessEqual]", "u", "\[LessEqual]", "Bu"}]}], 
         "}"}]}]}], "]"}], ",", "\"\<;   \>\"", ",", 
     RowBox[{
     "Style", "[", 
      "\"\<Top Cap Flux=\[Integral]\[Integral]F\[CenterDot]ndS=\>\"", "]"}], 
     ",", "FluxCap1"}], "]"}], "\n", 
   RowBox[{"Print", "[", 
    RowBox[{
     RowBox[{"Style", "[", "\"\<Bottom Cap Normals n=\>\"", "]"}], ",", 
     RowBox[{"Simplify", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         SubscriptBox["\[PartialD]", "u"], 
         RowBox[{"Cap2", "[", 
          RowBox[{"u", ",", "v"}], "]"}]}], "\[Cross]", 
        RowBox[{
         SubscriptBox["\[PartialD]", "v"], 
         RowBox[{"Cap2", "[", 
          RowBox[{"u", ",", "v"}], "]"}]}]}], ",", 
       RowBox[{"Assumptions", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Av", "\[LessEqual]", "v", "\[LessEqual]", "Bv"}], "&&", 
          RowBox[{"Au", "\[LessEqual]", "u", "\[LessEqual]", "Bu"}]}], 
         "}"}]}]}], "]"}], ",", "\"\<;   \>\"", ",", 
     RowBox[{"Style", "[", "\"\<Bottom Cap F\[CenterDot]ndS=\>\"", "]"}], ",", 
     RowBox[{"Simplify", "[", 
      RowBox[{
       RowBox[{"DotProduct", "[", 
        RowBox[{
         RowBox[{"F", "[", 
          RowBox[{"Cap2", "[", 
           RowBox[{"u", ",", "v"}], "]"}], "]"}], ",", 
         RowBox[{
          RowBox[{
           SubscriptBox["\[PartialD]", "u"], 
           RowBox[{"Cap2", "[", 
            RowBox[{"u", ",", "v"}], "]"}]}], "\[Cross]", 
          RowBox[{
           SubscriptBox["\[PartialD]", "v"], 
           RowBox[{"Cap2", "[", 
            RowBox[{"u", ",", "v"}], "]"}]}]}]}], "]"}], ",", 
       RowBox[{"Assumptions", "\[Rule]", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Av", "\[LessEqual]", "v", "\[LessEqual]", "Bv"}], "&&", 
          RowBox[{"Au", "\[LessEqual]", "u", "\[LessEqual]", "Bu"}]}], 
         "}"}]}]}], "]"}], ",", "\"\<;   \>\"", ",", 
     RowBox[{
     "Style", "[", 
      "\"\<Bottom Cap Flux=\[Integral]\[Integral]F\[CenterDot]ndS=\>\"", 
      "]"}], ",", "FluxCap2"}], "]"}], "\n", 
   RowBox[{
    RowBox[{"Print", "[", 
     RowBox[{
      RowBox[{
      "Style", "[", 
       "\"\<Total Flux=\[Integral]\[Integral]F\[CenterDot]ndS=\>\"", "]"}], 
      ",", 
      RowBox[{"Simplify", "[", 
       RowBox[{"FluxCap1", "+", "FluxCap2", "+", "FluxLat"}], "]"}], ",", 
      "\"\<;   \>\"", ",", 
      RowBox[{"Style", "[", "\"\<Div(F)=\>\"", "]"}], ",", "DF", ",", 
      "\"\<;   \>\"", ",", 
      RowBox[{
      "Style", "[", 
       "\"\<Triple Integral:\[Integral]\[Integral]\[Integral]div(F)dV=\>\"", 
       "]"}], ",", "TrDI"}], "]"}], ";"}], "\[IndentingNewLine]", 
   RowBox[{"Show", "[", 
    RowBox[{
     RowBox[{"GraphicsRow", "[", 
      RowBox[{"{", 
       RowBox[{"g1", ",", "g2"}], "}"}], "]"}], ",", 
     RowBox[{"ImageSize", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"1000", ",", "500"}], "}"}]}]}], "]"}], 
   "\[IndentingNewLine]"}]}]], "Input",
 CellChangeTimes->{{3.411860285078125*^9, 3.411860375421875*^9}, {
   3.4118607215625*^9, 3.411860736328125*^9}, 3.411860769921875*^9, {
   3.41229704875*^9, 3.41229704928125*^9}, {3.41229713190625*^9, 
   3.4122971918125*^9}, {3.472404043984375*^9, 3.4724041901875*^9}, 
   3.47240425703125*^9, {3.4724042965*^9, 3.472404337109375*^9}, {
   3.472404370390625*^9, 3.472404433046875*^9}, {3.47240449775*^9, 
   3.472404517140625*^9}, {3.472404576015625*^9, 3.472404578828125*^9}, 
   3.47240465884375*^9, {3.472404693484375*^9, 3.4724046955*^9}, {
   3.472404729328125*^9, 3.47240478121875*^9}, {3.47240483984375*^9, 
   3.47240484184375*^9}, {3.4724048934375*^9, 3.472404903625*^9}, 
   3.472405049765625*^9, {3.472406790265625*^9, 3.472406830296875*^9}, {
   3.472406906859375*^9, 3.472406928203125*^9}, {3.47240702615625*^9, 
   3.472407028359375*^9}, {3.472421648453125*^9, 3.472421665359375*^9}, {
   3.472421707453125*^9, 3.472421719*^9}, 3.472421916078125*^9, {
   3.472421958734375*^9, 3.472421981890625*^9}, {3.47242203409375*^9, 
   3.472422037046875*^9}, 3.472422109625*^9, {3.472422149703125*^9, 
   3.472422154515625*^9}, {3.472422188453125*^9, 3.47242219525*^9}, {
   3.472422238703125*^9, 3.472422274265625*^9}, 3.472422327875*^9, {
   3.472422359109375*^9, 3.472422482078125*^9}, {3.472422517359375*^9, 
   3.47242276290625*^9}, {3.472422802671875*^9, 3.47242280634375*^9}, {
   3.472422838671875*^9, 3.472422915515625*^9}, {3.472494055828125*^9, 
   3.47249406*^9}, {3.472494100015625*^9, 3.472494101828125*^9}, {
   3.47249427071875*^9, 3.472494287765625*^9}, {3.4724943535625*^9, 
   3.472494375640625*^9}, {3.47249446740625*^9, 3.472494483046875*^9}, {
   3.472494693890625*^9, 3.472494706671875*^9}, 3.472514320984375*^9},
 TextAlignment->Left],

Cell[BoxData[{"#15", "\[IndentingNewLine]", 
 RowBox[{"IN", "=", 
  RowBox[{"RegionPlot3D", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"0", "\[LessEqual]", "z", "\[LessEqual]", 
      RowBox[{"1", "-", 
       SuperscriptBox["x", "2"]}]}], "&&", 
     RowBox[{"0", "\[LessEqual]", 
      RowBox[{"y", "+", 
       RowBox[{"1.5`", " ", "z"}]}], "\[LessEqual]", "2"}], "&&", 
     RowBox[{"0", "\[LessEqual]", "y"}]}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", 
      RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"y", ",", "0", ",", "2"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"z", ",", "0", ",", "1"}], "}"}], ",", 
    RowBox[{"ViewPoint", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"0.245`", ",", "3.454`", ",", "1.247`"}], "}"}]}]}], 
   "]"}]}], "\n", 
 RowBox[{
  RowBox[{"C1", "=", 
   RowBox[{"ParametricPlot3D", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"-", "0.25`"}], " ", "u"}], "+", 
        RowBox[{"0.75`", " ", "v"}], "+", 
        RowBox[{"0.25`", " ", 
         RowBox[{"Abs", "[", 
          RowBox[{"u", "-", "v"}], "]"}]}]}], ",", 
       RowBox[{"2", "-", 
        RowBox[{"1.5`", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"0.75`", " ", "u"}], "-", 
           RowBox[{"0.25`", " ", "v"}], "+", 
           RowBox[{"0.25`", " ", 
            RowBox[{"Abs", "[", 
             RowBox[{"u", "-", "v"}], "]"}]}]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"0.25`", " ", "u"}], "+", 
           RowBox[{"0.75`", " ", "v"}], "+", 
           RowBox[{"0.25`", " ", 
            RowBox[{"Abs", "[", 
             RowBox[{"u", "-", "v"}], "]"}]}]}], ")"}]}]}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"0.75`", " ", "u"}], "-", 
          RowBox[{"0.25`", " ", "v"}], "+", 
          RowBox[{"0.25`", " ", 
           RowBox[{"Abs", "[", 
            RowBox[{"u", "-", "v"}], "]"}]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"0.25`", " ", "u"}], "+", 
          RowBox[{"0.75`", " ", "v"}], "+", 
          RowBox[{"0.25`", " ", 
           RowBox[{"Abs", "[", 
            RowBox[{"u", "-", "v"}], "]"}]}]}], ")"}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"u", ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"v", ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"ViewPoint", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"4.584`", ",", "1.57`", ",", "1.831`"}], "}"}]}]}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"C2", "=", 
   RowBox[{"ParametricPlot3D", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "0.25`"}], " ", "u"}], "+", 
          RowBox[{"0.75`", " ", "v"}], "+", 
          RowBox[{"0.25`", " ", 
           RowBox[{"Abs", "[", 
            RowBox[{"u", "-", "v"}], "]"}]}]}], ")"}]}], ",", 
       RowBox[{"2", "-", 
        RowBox[{"1.5`", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"0.75`", " ", "u"}], "-", 
           RowBox[{"0.25`", " ", "v"}], "+", 
           RowBox[{"0.25`", " ", 
            RowBox[{"Abs", "[", 
             RowBox[{"u", "-", "v"}], "]"}]}]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           RowBox[{"0.25`", " ", "u"}], "+", 
           RowBox[{"0.75`", " ", "v"}], "+", 
           RowBox[{"0.25`", " ", 
            RowBox[{"Abs", "[", 
             RowBox[{"u", "-", "v"}], "]"}]}]}], ")"}]}]}], ",", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"0.75`", " ", "u"}], "-", 
          RowBox[{"0.25`", " ", "v"}], "+", 
          RowBox[{"0.25`", " ", 
           RowBox[{"Abs", "[", 
            RowBox[{"u", "-", "v"}], "]"}]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{"0.25`", " ", "u"}], "+", 
          RowBox[{"0.75`", " ", "v"}], "+", 
          RowBox[{"0.25`", " ", 
           RowBox[{"Abs", "[", 
            RowBox[{"u", "-", "v"}], "]"}]}]}], ")"}]}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"u", ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"v", ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"ViewPoint", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{"0.779`", ",", "2.398`", ",", "4.421`"}], "}"}]}]}], "]"}]}], 
  ";"}], "\n", 
 RowBox[{
  RowBox[{"Show", "[", 
   RowBox[{"C1", ",", "C2", ",", "IN", ",", 
    RowBox[{"ViewPoint", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"0.779`", ",", "2.398`", ",", "4.421`"}], "}"}]}], ",", 
    RowBox[{"AxesLabel", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{"X", ",", "Y", ",", "Z"}], "}"}]}], ",", 
    RowBox[{"PlotRange", "\[Rule]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "2"}], "}"}], ",", 
       RowBox[{"{", 
        RowBox[{"0", ",", "1"}], "}"}]}], "}"}]}]}], "]"}], "\n", 
  "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input",
 CellChangeTimes->{{3.411860285078125*^9, 3.411860375421875*^9}, {
   3.4118607215625*^9, 3.411860736328125*^9}, 3.411860769921875*^9, {
   3.41229704875*^9, 3.41229704928125*^9}, {3.41229713190625*^9, 
   3.4122971918125*^9}, {3.472404043984375*^9, 3.4724041901875*^9}, 
   3.47240425703125*^9, {3.4724042965*^9, 3.472404337109375*^9}, {
   3.472404370390625*^9, 3.472404433046875*^9}, {3.47240449775*^9, 
   3.472404517140625*^9}, {3.472404576015625*^9, 3.472404578828125*^9}, 
   3.47240465884375*^9, {3.472404693484375*^9, 3.4724046955*^9}, {
   3.472404729328125*^9, 3.47240478121875*^9}, {3.47240483984375*^9, 
   3.47240484184375*^9}, {3.4724048934375*^9, 3.472404903625*^9}, 
   3.472405049765625*^9, {3.472406790265625*^9, 3.472406830296875*^9}, {
   3.472406906859375*^9, 3.472406928203125*^9}, {3.47240702615625*^9, 
   3.472407028359375*^9}, {3.472421648453125*^9, 3.472421665359375*^9}, {
   3.472421707453125*^9, 3.472421719*^9}, 3.472421916078125*^9, {
   3.472421958734375*^9, 3.472421981890625*^9}, {3.47242203409375*^9, 
   3.472422037046875*^9}, 3.472422109625*^9, {3.472422149703125*^9, 
   3.472422154515625*^9}, {3.472422188453125*^9, 3.47242219525*^9}, {
   3.472422238703125*^9, 3.472422274265625*^9}, 3.472422327875*^9, {
   3.472422359109375*^9, 3.472422482078125*^9}, {3.472422517359375*^9, 
   3.47242276290625*^9}, {3.472422802671875*^9, 3.47242280634375*^9}, {
   3.472422838671875*^9, 3.472422915515625*^9}, {3.472494055828125*^9, 
   3.47249406*^9}, {3.472494100015625*^9, 3.472494101828125*^9}, {
   3.47249427071875*^9, 3.472494287765625*^9}, {3.4724943535625*^9, 
   3.472494375640625*^9}, {3.47249446740625*^9, 3.472494483046875*^9}},
 TextAlignment->Left]
},
WindowSize->{1272, 922},
WindowMargins->{{-41, Automatic}, {Automatic, 79}},
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, 14748, 398, 481, "Input"],
Cell[15296, 420, 15716, 425, 536, "Input"],
Cell[31015, 847, 28409, 752, 902, "Input"],
Cell[59427, 1601, 6854, 173, 215, "Input"]
}
]
*)

(* End of internal cache information *)