(* 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[     56031,       1210]
NotebookOptionsPosition[     55754,       1196]
NotebookOutlinePosition[     56116,       1212]
CellTagsIndexPosition[     56073,       1209]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Framed", "@", 
    RowBox[{"Pane", "[", 
     RowBox[{
      RowBox[{"DynamicModule", "[", " ", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"f", "=", 
           RowBox[{"{", 
            RowBox[{"x", ",", "y", ",", 
             RowBox[{"-", "z"}]}], "}"}]}], ",", 
          RowBox[{"g", "=", 
           RowBox[{"{", 
            RowBox[{
             RowBox[{
              RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", 
              RowBox[{"Sin", "[", "\[Phi]", "]"}]}], ",", 
             RowBox[{
              RowBox[{"-", 
               RowBox[{"Sin", "[", "\[Theta]", "]"}]}], " ", 
              RowBox[{"Sin", "[", "\[Phi]", "]"}]}], ",", 
             RowBox[{"Cos", "[", "\[Phi]", "]"}]}], "}"}]}]}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"ch", "\[Equal]", "1"}], ",", 
          StyleBox[
           RowBox[{"(*", "*)"}],
           Background->RGBColor[1, 0.5, 0.5]], 
          RowBox[{"Pane", "[", "  ", 
           RowBox[{
            RowBox[{"Column", "[", 
             RowBox[{"{", " ", 
              RowBox[{
               RowBox[{"Row", "[", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"Spacer", "[", "0", "]"}], ",", 
                  RowBox[{"Labeled", "[", 
                   RowBox[{
                    RowBox[{"InputField", "[", 
                    RowBox[{
                    RowBox[{"Dynamic", "[", "f", "]"}], ",", 
                    RowBox[{"ImageSize", "->", 
                    RowBox[{"{", 
                    RowBox[{"440", ",", "20"}], "}"}]}]}], "]"}], ",", 
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<\!\(\*
StyleBox[\"F\",
FontColor->RGBColor[0, 0, 1]]\)(x,y,z)=\>\"", ",", "13", ",", "Bold"}], "]"}],
                     ",", "Left"}], "]"}], ",", 
                  RowBox[{"Spacer", "[", "10", "]"}], ",", "    ", 
                  "\[IndentingNewLine]", 
                  "                                                ", 
                  RowBox[{"Labeled", "[", 
                   RowBox[{
                    RowBox[{"InputField", "[", 
                    RowBox[{
                    RowBox[{"Dynamic", "[", "g", "]"}], ",", 
                    RowBox[{"ImageSize", "->", 
                    RowBox[{"{", 
                    RowBox[{"445", ",", "20"}], "}"}]}]}], "]"}], ",", 
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<\!\(\*
StyleBox[\"F\",
FontColor->RGBColor[0, 0, 1]]\)(\[Theta],\[Phi])=\>\"", ",", "13", ",", 
                    "Bold"}], "]"}], ",", "Left"}], "]"}]}], "}"}], "]"}], 
               ",", "\[IndentingNewLine]", 
               RowBox[{"Row", "[", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{"Framed", "@", 
                   RowBox[{"Dynamic", "@", 
                    RowBox[{"Show", "[", " ", 
                    RowBox[{
                    RowBox[{"If", "[", 
                    RowBox[{"ct", ",", 
                    RowBox[{"ParametricPlot3D", "[", 
                    RowBox[{
                    RowBox[{"Surf", "[", 
                    RowBox[{"u", ",", "v"}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"u", ",", "0", ",", 
                    RowBox[{"2", "Pi"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"v", ",", "0", ",", "Pi"}], "}"}], ",", 
                    RowBox[{"PlotStyle", "\[Rule]", 
                    RowBox[{"Opacity", "[", "op", "]"}]}]}], "]"}], ",", 
                    RowBox[{"Graphics3D", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "op", "]"}], ",", 
                    RowBox[{"Sphere", "[", "]"}]}], "}"}], "]"}]}], "]"}], 
                    ",", "\[IndentingNewLine]", 
                    RowBox[{"Flatten", "[", 
                    RowBox[{
                    RowBox[{"Table", "[", "  ", 
                    RowBox[{
                    RowBox[{"Graphics3D", "[", "    ", 
                    RowBox[{"{", 
                    RowBox[{"Blue", ",", 
                    RowBox[{"Arrowheads", "\[Rule]", "Small"}], ",", " ", 
                    RowBox[{"Arrow", "[", 
                    RowBox[{"{", " ", 
                    RowBox[{
                    RowBox[{"Surf", "[", 
                    RowBox[{
                    RowBox[{
                    FractionBox[
                    RowBox[{"2", " ", "\[Pi]", " "}], "m"], "i"}], ",", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[Pi]", " "}], "n"], "j"}]}], "]"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"Surf", "[", 
                    RowBox[{
                    RowBox[{
                    FractionBox[
                    RowBox[{"2", " ", "\[Pi]", " "}], "m"], "i"}], ",", 
                    RowBox[{
                    FractionBox[
                    RowBox[{" ", "\[Pi]", " "}], "n"], "j"}]}], "]"}], "+", 
                    RowBox[{"w", "*", "f"}]}], "/.", 
                    RowBox[{"{", "\[InvisibleSpace]", 
                    RowBox[{
                    RowBox[{"x", "\[Rule]", 
                    RowBox[{
                    RowBox[{"Surf", "[", 
                    RowBox[{
                    RowBox[{
                    FractionBox[
                    RowBox[{"2", " ", "\[Pi]", " "}], "m"], " ", "i"}], ",", 
                    RowBox[{
                    FractionBox[
                    RowBox[{" ", "\[Pi]", " "}], "n"], " ", "j"}]}], "]"}], 
                    "[", 
                    RowBox[{"[", "1", "]"}], "]"}]}], ",", 
                    RowBox[{"y", "\[Rule]", 
                    RowBox[{
                    RowBox[{"Surf", "[", 
                    RowBox[{
                    RowBox[{
                    FractionBox[
                    RowBox[{"2", " ", "\[Pi]", " "}], "m"], " ", "i"}], ",", 
                    RowBox[{
                    FractionBox[
                    RowBox[{" ", "\[Pi]", " "}], "n"], " ", "j"}]}], "]"}], 
                    "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}], ",", 
                    RowBox[{"z", "\[Rule]", 
                    RowBox[{
                    RowBox[{"Surf", "[", 
                    RowBox[{
                    RowBox[{
                    FractionBox[
                    RowBox[{"2", " ", "\[Pi]", " "}], "m"], " ", "i"}], ",", 
                    RowBox[{
                    FractionBox[
                    RowBox[{" ", "\[Pi]", " "}], "n"], " ", "j"}]}], "]"}], 
                    "[", 
                    RowBox[{"[", "3", "]"}], "]"}]}]}], "}"}]}]}], "}"}], 
                    "]"}]}], " ", "}"}], " ", "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"i", ",", "1", ",", "m"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", 
                    "2"}], "]"}], ",", "\[IndentingNewLine]", 
                    RowBox[{"If", "[", 
                    RowBox[{"nrm", ",", 
                    RowBox[{"Flatten", "[", 
                    RowBox[{
                    RowBox[{"Table", "[", 
                    RowBox[{
                    RowBox[{"Graphics3D", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Arrowheads", "\[Rule]", "Small"}], ",", "Red", 
                    ",", " ", 
                    RowBox[{"Arrow", "[", 
                    RowBox[{"{", " ", 
                    RowBox[{
                    RowBox[{"Surf", "[", 
                    RowBox[{
                    RowBox[{
                    FractionBox[
                    RowBox[{"2", " ", "\[Pi]", " "}], "m"], "i"}], ",", 
                    RowBox[{
                    FractionBox[
                    RowBox[{" ", "\[Pi]", " "}], "n"], "j"}]}], "]"}], ",", 
                    RowBox[{
                    RowBox[{"Surf", "[", 
                    RowBox[{
                    RowBox[{
                    FractionBox[
                    RowBox[{"2", " ", "\[Pi]", " "}], "m"], "i"}], ",", 
                    RowBox[{
                    FractionBox[
                    RowBox[{" ", "\[Pi]", " "}], "n"], "j"}]}], "]"}], "+", 
                    RowBox[{"w", "*", 
                    RowBox[{"No", "[", 
                    RowBox[{
                    RowBox[{
                    FractionBox[
                    RowBox[{"2", " ", "\[Pi]", " "}], "m"], " ", "i"}], ",", 
                    RowBox[{
                    FractionBox[
                    RowBox[{" ", "\[Pi]", " "}], "n"], " ", "j"}]}], 
                    "]"}]}]}]}], "}"}], "]"}]}], "}"}], "  ", "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"i", ",", "1", ",", "m"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", 
                    "2"}], "]"}], ",", 
                    RowBox[{"Graphics3D", "[", "]"}]}], "]"}], ",", 
                    RowBox[{"ImageSize", " ", "->", " ", 
                    RowBox[{"{", 
                    RowBox[{"520", ",", "550"}], "}"}]}], ",", 
                    RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}]}], ",",
                   "\[IndentingNewLine]", 
                  RowBox[{"Framed", "@", 
                   RowBox[{"Dynamic", "@", 
                    RowBox[{"Show", "[", 
                    RowBox[{
                    RowBox[{"If", "[", 
                    RowBox[{"ct", ",", 
                    RowBox[{"ParametricPlot3D", "[", 
                    RowBox[{
                    RowBox[{"Surf", "[", 
                    RowBox[{"u", ",", "v"}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"u", ",", "0", ",", 
                    RowBox[{"2", "Pi"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"v", ",", "0", ",", "Pi"}], "}"}], ",", 
                    RowBox[{"PlotStyle", "\[Rule]", 
                    RowBox[{"Opacity", "[", "op", "]"}]}]}], "]"}], ",", 
                    RowBox[{"Graphics3D", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "op", "]"}], ",", 
                    RowBox[{"Sphere", "[", "]"}]}], "}"}], "]"}]}], "]"}], 
                    ",", 
                    RowBox[{"Flatten", "[", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{"Table", "[", 
                    RowBox[{
                    RowBox[{"Graphics3D", "[", 
                    RowBox[{"{", 
                    RowBox[{"Blue", ",", 
                    RowBox[{"Arrowheads", "\[Rule]", "Small"}], ",", " ", 
                    RowBox[{"Arrow", "[", 
                    RowBox[{"{", " ", 
                    RowBox[{
                    RowBox[{"Surf", "[", 
                    RowBox[{
                    RowBox[{
                    FractionBox[
                    RowBox[{"2", " ", "\[Pi]", " "}], "m"], "i"}], ",", 
                    RowBox[{
                    FractionBox[
                    RowBox[{" ", "\[Pi]", " "}], "n"], "j"}]}], "]"}], ",", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"Surf", "[", 
                    RowBox[{
                    RowBox[{
                    FractionBox[
                    RowBox[{"2", " ", "\[Pi]", " "}], "m"], "i"}], ",", 
                    RowBox[{
                    FractionBox[
                    RowBox[{" ", "\[Pi]", " "}], "n"], "j"}]}], "]"}], "+", 
                    RowBox[{"w", "*", "g"}]}], "/.", 
                    RowBox[{"{", "\[InvisibleSpace]", 
                    RowBox[{
                    RowBox[{"\[Theta]", "\[Rule]", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"2", " ", "\[Pi]", " "}], "m"], " ", "i"}]}], ",", 
                    RowBox[{"\[Phi]", "\[Rule]", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"\[Pi]", " "}], "n"], " ", "j"}]}]}], "}"}]}]}], 
                    "}"}], "]"}]}], "}"}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"i", ",", "1", ",", "m"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", 
                    "2"}], "]"}], ",", "\[IndentingNewLine]", 
                    RowBox[{"If", "[", 
                    RowBox[{"nrm", ",", 
                    RowBox[{"Flatten", "[", 
                    RowBox[{
                    RowBox[{"Table", "[", 
                    RowBox[{
                    RowBox[{"Graphics3D", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Arrowheads", "\[Rule]", "Small"}], ",", "Red", 
                    ",", " ", 
                    RowBox[{"Arrow", "[", 
                    RowBox[{"{", " ", 
                    RowBox[{
                    RowBox[{"Surf", "[", 
                    RowBox[{
                    RowBox[{
                    FractionBox[
                    RowBox[{"2", " ", "\[Pi]", " "}], "m"], "i"}], ",", 
                    RowBox[{
                    FractionBox[
                    RowBox[{" ", "\[Pi]", " "}], "n"], "j"}]}], "]"}], ",", 
                    RowBox[{
                    RowBox[{"Surf", "[", 
                    RowBox[{
                    RowBox[{
                    FractionBox[
                    RowBox[{"2", " ", "\[Pi]", " "}], "m"], "i"}], ",", 
                    RowBox[{
                    FractionBox[
                    RowBox[{" ", "\[Pi]", " "}], "n"], "j"}]}], "]"}], "+", 
                    RowBox[{"w", "*", 
                    RowBox[{"No", "[", 
                    RowBox[{
                    RowBox[{
                    FractionBox[
                    RowBox[{"2", " ", "\[Pi]", " "}], "m"], " ", "i"}], ",", 
                    RowBox[{
                    FractionBox[
                    RowBox[{" ", "\[Pi]", " "}], "n"], " ", "j"}]}], 
                    "]"}]}]}]}], "}"}], "]"}]}], "}"}], "  ", "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"i", ",", "1", ",", "m"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", 
                    "2"}], "]"}], ",", 
                    RowBox[{"Graphics3D", "[", "]"}]}], "]"}], ",", 
                    RowBox[{"ImageSize", " ", "->", 
                    RowBox[{"{", 
                    RowBox[{"520", ",", "550"}], "}"}]}], ",", 
                    RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}]}]}], 
                 "}"}], "]"}]}], "}"}], "]"}], ",", 
            RowBox[{"ImageSize", "\[Rule]", 
             StyleBox[
              RowBox[{"{", 
               RowBox[{"1070", ",", "600"}], "}"}],
              FontSize->16,
              FontColor->RGBColor[0, 1, 0]]}], 
            StyleBox[",",
             FontSize->16,
             FontColor->GrayLevel[0]], 
            RowBox[{
             StyleBox["Alignment",
              FontColor->GrayLevel[0]], 
             StyleBox["\[Rule]",
              FontColor->GrayLevel[0]], 
             RowBox[{"{", 
              RowBox[{"Center", ",", "Center"}], "}"}]}]}], "]"}], ",", 
          StyleBox["\[IndentingNewLine]",
           Background->RGBColor[1, 0.5, 0.5]], 
          StyleBox[
           RowBox[{"(*", "*)"}],
           Background->RGBColor[1, 0.5, 0.5]], 
          RowBox[{"Pane", "[", "  ", 
           RowBox[{
            RowBox[{"Row", "[", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{"Column", "[", 
                RowBox[{"{", " ", 
                 RowBox[{
                  RowBox[{"Row", "[", 
                   RowBox[{"{", 
                    RowBox[{"If", "[", 
                    RowBox[{"sp", ",", " ", 
                    RowBox[{"Labeled", "[", 
                    RowBox[{
                    RowBox[{"InputField", "[", 
                    RowBox[{
                    RowBox[{"Dynamic", "[", "g", "]"}], ",", 
                    RowBox[{"ImageSize", "->", 
                    RowBox[{"{", 
                    RowBox[{"585", ",", "20"}], "}"}]}]}], "]"}], ",", 
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<\!\(\*
StyleBox[\"F\",
FontColor->RGBColor[0, 0, 1]]\)(\[Theta],\[Phi])=\>\"", ",", "13", ",", 
                    "Bold"}], "]"}], ",", "Left"}], "]"}], ",", "      ", 
                    "\[IndentingNewLine]", 
                    "                                                      ", 
                    RowBox[{"Labeled", "[", 
                    RowBox[{
                    RowBox[{"InputField", "[", 
                    RowBox[{
                    RowBox[{"Dynamic", "[", "f", "]"}], ",", 
                    RowBox[{"ImageSize", "->", 
                    RowBox[{"{", 
                    RowBox[{"570", ",", "20"}], "}"}]}]}], "]"}], ",", 
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<G(x,y,z)=\>\"", ",", "13", ",", "Bold"}], 
                    "]"}], ",", "Left"}], "]"}]}], "]"}], "}"}], "]"}], ",", 
                  "\[IndentingNewLine]", 
                  RowBox[{"Framed", "@", 
                   RowBox[{"Dynamic", "@", 
                    RowBox[{"Show", "[", " ", 
                    RowBox[{
                    RowBox[{"If", "[", 
                    RowBox[{"ct", ",", 
                    RowBox[{"ParametricPlot3D", "[", 
                    RowBox[{
                    RowBox[{"Surf", "[", 
                    RowBox[{"u", ",", "v"}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"u", ",", "0", ",", 
                    RowBox[{"2", "Pi"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"v", ",", "0", ",", "Pi"}], "}"}], ",", 
                    RowBox[{"PlotStyle", "\[Rule]", 
                    RowBox[{"Opacity", "[", "op", "]"}]}]}], "]"}], ",", 
                    RowBox[{"Graphics3D", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Opacity", "[", "op", "]"}], ",", 
                    RowBox[{"Sphere", "[", "]"}]}], "}"}], "]"}]}], "]"}], 
                    ",", "\[IndentingNewLine]", 
                    RowBox[{"Flatten", "[", 
                    RowBox[{
                    RowBox[{"Table", "[", 
                    RowBox[{
                    RowBox[{"Graphics3D", "[", 
                    RowBox[{"{", 
                    RowBox[{"Blue", ",", 
                    RowBox[{"Arrowheads", "\[Rule]", "Small"}], ",", " ", 
                    RowBox[{"Arrow", "[", 
                    RowBox[{"{", " ", 
                    RowBox[{
                    RowBox[{"Surf", "[", 
                    RowBox[{
                    RowBox[{
                    FractionBox[
                    RowBox[{"2", " ", "\[Pi]", " "}], "m"], "i"}], ",", 
                    RowBox[{
                    FractionBox[
                    RowBox[{" ", "\[Pi]", " "}], "n"], "j"}]}], "]"}], ",", 
                    RowBox[{
                    RowBox[{"Surf", "[", 
                    RowBox[{
                    RowBox[{
                    FractionBox[
                    RowBox[{"2", " ", "\[Pi]", " "}], "m"], "i"}], ",", 
                    RowBox[{
                    FractionBox[
                    RowBox[{" ", "\[Pi]", " "}], "n"], "j"}]}], "]"}], "+", 
                    "\[IndentingNewLine]", 
                    RowBox[{"w", "*", 
                    RowBox[{"If", "[", 
                    RowBox[{"sp", ",", 
                    RowBox[{"g", "/.", 
                    RowBox[{"{", "\[InvisibleSpace]", 
                    RowBox[{
                    RowBox[{"\[Theta]", "\[Rule]", 
                    RowBox[{
                    FractionBox[
                    RowBox[{"2", " ", "\[Pi]", " "}], "m"], " ", "i"}]}], ",", 
                    RowBox[{"\[Phi]", "\[Rule]", 
                    RowBox[{
                    FractionBox[
                    RowBox[{" ", "\[Pi]", " "}], "n"], " ", "j"}]}]}], 
                    "}"}]}], ",", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"No", "[", 
                    RowBox[{
                    RowBox[{
                    FractionBox[
                    RowBox[{"2", " ", "\[Pi]", " "}], "m"], " ", "i"}], ",", 
                    RowBox[{
                    FractionBox[
                    RowBox[{" ", "\[Pi]", " "}], "n"], " ", "j"}]}], "]"}], 
                    "\[Cross]", "f"}], "/.", 
                    RowBox[{"{", "\[InvisibleSpace]", 
                    RowBox[{
                    RowBox[{"x", "\[Rule]", 
                    RowBox[{
                    RowBox[{"Surf", "[", 
                    RowBox[{
                    RowBox[{
                    FractionBox[
                    RowBox[{"2", " ", "\[Pi]", " "}], "m"], " ", "i"}], ",", 
                    RowBox[{
                    FractionBox[
                    RowBox[{" ", "\[Pi]", " "}], "n"], " ", "j"}]}], "]"}], 
                    "[", 
                    RowBox[{"[", "1", "]"}], "]"}]}], ",", 
                    RowBox[{"y", "\[Rule]", 
                    RowBox[{
                    RowBox[{"Surf", "[", 
                    RowBox[{
                    RowBox[{
                    FractionBox[
                    RowBox[{"2", " ", "\[Pi]", " "}], "m"], " ", "i"}], ",", 
                    RowBox[{
                    FractionBox[
                    RowBox[{" ", "\[Pi]", " "}], "n"], " ", "j"}]}], "]"}], 
                    "[", 
                    RowBox[{"[", "2", "]"}], "]"}]}], ",", 
                    RowBox[{"z", "\[Rule]", 
                    RowBox[{
                    RowBox[{"Surf", "[", 
                    RowBox[{
                    RowBox[{
                    FractionBox[
                    RowBox[{"2", " ", "\[Pi]", " "}], "m"], " ", "i"}], ",", 
                    RowBox[{
                    FractionBox[
                    RowBox[{" ", "\[Pi]", " "}], "n"], " ", "j"}]}], "]"}], 
                    "[", 
                    RowBox[{"[", "3", "]"}], "]"}]}]}], "}"}]}]}], 
                    "]"}]}]}]}], "      ", "\[IndentingNewLine]", "}"}], 
                    "]"}]}], " ", "}"}], " ", "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"i", ",", "1", ",", "m"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", 
                    "2"}], "]"}], ",", "\[IndentingNewLine]", 
                    RowBox[{"If", "[", 
                    RowBox[{"nrm", ",", 
                    RowBox[{"Flatten", "[", 
                    RowBox[{
                    RowBox[{"Table", "[", 
                    RowBox[{
                    RowBox[{"Graphics3D", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Arrowheads", "\[Rule]", "Small"}], ",", "Red", 
                    ",", " ", 
                    RowBox[{"Arrow", "[", 
                    RowBox[{"{", " ", 
                    RowBox[{
                    RowBox[{"Surf", "[", 
                    RowBox[{
                    RowBox[{
                    FractionBox[
                    RowBox[{"2", " ", "\[Pi]", " "}], "m"], "i"}], ",", 
                    RowBox[{
                    FractionBox[
                    RowBox[{" ", "\[Pi]", " "}], "n"], "j"}]}], "]"}], ",", 
                    RowBox[{
                    RowBox[{"Surf", "[", 
                    RowBox[{
                    RowBox[{
                    FractionBox[
                    RowBox[{"2", " ", "\[Pi]", " "}], "m"], "i"}], ",", 
                    RowBox[{
                    FractionBox[
                    RowBox[{" ", "\[Pi]", " "}], "n"], "j"}]}], "]"}], "+", 
                    RowBox[{"w", "*", 
                    RowBox[{"No", "[", 
                    RowBox[{
                    RowBox[{
                    FractionBox[
                    RowBox[{"2", " ", "\[Pi]", " "}], "m"], " ", "i"}], ",", 
                    RowBox[{
                    FractionBox[
                    RowBox[{" ", "\[Pi]", " "}], "n"], " ", "j"}]}], 
                    "]"}]}]}]}], "}"}], "]"}]}], "}"}], "  ", "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"i", ",", "1", ",", "m"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", 
                    "2"}], "]"}], ",", 
                    RowBox[{"Graphics3D", "[", "]"}]}], "]"}], ",", 
                    RowBox[{"ImageSize", " ", "->", " ", 
                    RowBox[{"{", 
                    RowBox[{"640", ",", "559"}], "}"}]}], ",", 
                    RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}]}]}], 
                 "}"}], "]"}], ",", "\[IndentingNewLine]", 
               RowBox[{"If", "[", 
                RowBox[{"sp", ",", 
                 RowBox[{"Dynamic", "@", 
                  RowBox[{"Column", "[", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Framed", "@", 
                    RowBox[{"Plot3D", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{
                    RowBox[{"No", "[", 
                    RowBox[{"u", ",", "v"}], "]"}], ".", " ", "g"}], "/.", 
                    RowBox[{"{", "\[InvisibleSpace]", 
                    RowBox[{
                    RowBox[{"\[Theta]", "\[Rule]", "u"}], ",", 
                    RowBox[{"\[Phi]", "\[Rule]", "v"}]}], "}"}]}], ",", 
                    RowBox[{"{", 
                    RowBox[{"u", ",", "0", ",", 
                    RowBox[{"2", "Pi"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"v", ",", "0", ",", "Pi"}], "}"}], ",", 
                    RowBox[{"AxesLabel", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<\[Theta]\>\"", ",", "Bold", ",", "15"}], 
                    "]"}], ",", 
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<\[Phi]\>\"", ",", "Bold", ",", "15"}], "]"}],
                     ",", "\"\<\>\""}], "}"}]}], ",", "\[IndentingNewLine]", 
                    RowBox[{"PlotRange", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"0", ",", 
                    RowBox[{"2", "Pi"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "Pi"}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"-", "1.2"}], ",", "1.2"}], "}"}]}], "}"}]}], ",", 
                    RowBox[{"ImageSize", " ", "->", " ", 
                    RowBox[{"{", 
                    RowBox[{"400", ",", "285"}], "}"}]}], ",", 
                    RowBox[{"PlotLabel", "\[Rule]", 
                    RowBox[{"Column", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<\!\(\*
StyleBox[\"N\",
FontColor->RGBColor[1, 0, 0]]\)(\[Theta],\[Phi])\[CenterDot]\!\(\*
StyleBox[\"F\",
FontColor->RGBColor[0, 0, 1]]\)(\[Theta],\[Phi])\>\"", ",", "20", ",", 
                    "Bold"}], "]"}], ",", "\"\<\>\""}], "}"}], "]"}]}]}], 
                    "]"}]}], ",", "\[IndentingNewLine]", "   ", 
                    RowBox[{"Framed", "@", 
                    RowBox[{"Show", "[", 
                    RowBox[{
                    RowBox[{"Plot3D", "[", 
                    RowBox[{
                    RowBox[{"Norm", "[", 
                    RowBox[{"g", "/.", 
                    RowBox[{"{", "\[InvisibleSpace]", 
                    RowBox[{
                    RowBox[{"\[Theta]", "\[Rule]", "u"}], ",", 
                    RowBox[{"\[Phi]", "\[Rule]", "v"}]}], "}"}]}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"u", ",", "0", ",", 
                    RowBox[{"2", "Pi"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"v", ",", "0", ",", "Pi"}], "}"}]}], "]"}], ",", 
                    RowBox[{"Plot3D", "[", 
                    RowBox[{"0", ",", 
                    RowBox[{"{", 
                    RowBox[{"u", ",", "0", ",", 
                    RowBox[{"2", "Pi"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"v", ",", "0", ",", "Pi"}], "}"}], ",", 
                    RowBox[{"PlotStyle", "\[Rule]", 
                    RowBox[{"{", "Red", "}"}]}]}], "]"}], ",", 
                    RowBox[{"PlotRange", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"0", ",", 
                    RowBox[{"2", "Pi"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "Pi"}], "}"}], ",", "Automatic"}], 
                    "}"}]}], ",", 
                    RowBox[{"AxesLabel", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<\[Theta]\>\"", ",", "Bold", ",", "15"}], 
                    "]"}], ",", 
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<\[Phi]\>\"", ",", "Bold", ",", "15"}], "]"}],
                     ",", "\"\<\>\""}], "}"}]}], ",", "\[IndentingNewLine]", 
                    RowBox[{"PlotLabel", "\[Rule]", 
                    RowBox[{"Column", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<\[LeftDoubleBracketingBar]\!\(\*
StyleBox[\"F\",
FontColor->RGBColor[0, 0, 1]]\)(\[Theta],\[Phi])\[RightDoubleBracketingBar]\>\
\"", ",", "20", ",", "Bold"}], "]"}], ",", "\"\<\>\""}], "}"}], "]"}]}], ",", 
                    RowBox[{"ImageSize", " ", "->", " ", 
                    RowBox[{"{", 
                    RowBox[{"400", ",", "285"}], "}"}]}]}], "]"}]}]}], "}"}], 
                    ",", "Center"}], "]"}]}], ",", "\[IndentingNewLine]", 
                 RowBox[{"Dynamic", "@", 
                  RowBox[{"Column", "[", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Framed", "@", 
                    RowBox[{"Column", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<   \!\(\*
StyleBox[\"F\",
FontColor->RGBColor[0, 0, 1]]\)(x,y,z)=\!\(\*
StyleBox[\"N\",
FontColor->RGBColor[1, 0, 0]]\)(x,y,z)\[Cross]G(x,y,z)    \>\"", ",", "20", 
                    ",", "Bold"}], "]"}], ",", "\[IndentingNewLine]", 
                    RowBox[{"Style", "[", 
                    RowBox[{
                    "\"\<is always Tangent to S\>\"", ",", "20", ",", 
                    "Bold"}], "]"}], ",", ",", ",", ",", 
                    RowBox[{"Row", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<F=\>\"", ",", "20", ",", "Bold"}], "]"}], 
                    ",", 
                    RowBox[{"Style", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"x", ",", "y", ",", "z"}], "}"}], "\[Cross]", 
                    "f"}], ",", "20", ",", "Bold"}], "]"}]}], "}"}], "]"}], 
                    ",", ",", ",", ",", ","}], "}"}], ",", "Center"}], 
                    "]"}]}], ",", "\[IndentingNewLine]", 
                    RowBox[{"Framed", "@", " ", 
                    RowBox[{"Show", "[", 
                    RowBox[{
                    RowBox[{"Plot3D", "[", 
                    RowBox[{
                    RowBox[{"Norm", "[", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"No", "[", 
                    RowBox[{"u", ",", "v"}], "]"}], "\[Cross]", "f"}], "/.", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"x", "\[Rule]", 
                    RowBox[{
                    RowBox[{"Cos", "[", "u", "]"}], " ", 
                    RowBox[{"Sin", "[", "v", "]"}]}]}], ",", 
                    RowBox[{"y", "\[Rule]", 
                    RowBox[{
                    RowBox[{"Sin", "[", "u", "]"}], " ", 
                    RowBox[{"Sin", "[", "v", "]"}]}]}], ",", 
                    RowBox[{"z", "->", 
                    RowBox[{"Cos", "[", "v", "]"}]}]}], "}"}]}], "]"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"u", ",", "0", ",", 
                    RowBox[{"2", "Pi"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"v", ",", "0", ",", "Pi"}], "}"}]}], "]"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"Plot3D", "[", 
                    RowBox[{"0", ",", 
                    RowBox[{"{", 
                    RowBox[{"u", ",", "0", ",", 
                    RowBox[{"2", "Pi"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"v", ",", "0", ",", "Pi"}], "}"}], ",", 
                    RowBox[{"PlotStyle", "\[Rule]", 
                    RowBox[{"{", "Red", "}"}]}]}], "]"}], ",", 
                    RowBox[{"PlotLabel", "\[Rule]", 
                    RowBox[{"Column", "[", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"Style", "[", 
                    RowBox[{"\"\<\[LeftDoubleBracketingBar]\!\(\*
StyleBox[\"F\",
FontColor->RGBColor[0, 0, 1]]\)(x,y,z)\[RightDoubleBracketingBar]\>\"", ",", 
                    "20", ",", "Bold"}], "]"}], ",", "\"\<\>\""}], "}"}], 
                    "]"}]}], ",", "\[IndentingNewLine]", 
                    RowBox[{"PlotRange", "\[Rule]", 
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"0", ",", 
                    RowBox[{"2", "Pi"}]}], "}"}], ",", 
                    RowBox[{"{", 
                    RowBox[{"0", ",", "Pi"}], "}"}], ",", "Automatic"}], 
                    "}"}]}], ",", 
                    RowBox[{"ImageSize", "->", 
                    RowBox[{"{", 
                    RowBox[{"400", ",", "390"}], "}"}]}]}], "]"}]}]}], "}"}], 
                    ",", "Center"}], "]"}]}]}], "     ", "]"}]}], "   ", 
              "}"}], "]"}], ",", 
            RowBox[{"ImageSize", "\[Rule]", 
             StyleBox[
              RowBox[{"{", 
               RowBox[{"1070", ",", "600"}], "}"}],
              FontSize->16,
              FontColor->RGBColor[0, 1, 0]]}], 
            StyleBox[",",
             FontSize->16,
             FontColor->GrayLevel[0]], 
            RowBox[{
             StyleBox["Alignment",
              FontColor->GrayLevel[0]], 
             StyleBox["\[Rule]",
              FontColor->GrayLevel[0]], 
             RowBox[{"{", 
              RowBox[{"Center", ",", "Center"}], "}"}]}]}], "]"}]}], 
         "\[IndentingNewLine]", " ", "]"}]}], 
       StyleBox[
        RowBox[{"(*", "*)"}],
        Background->RGBColor[1, 0.5, 0.5]], "]"}], 
      RowBox[{"(*", 
       RowBox[{"End", " ", "Module"}], "*)"}], ",", 
      RowBox[{"ImageSize", "\[Rule]", 
       StyleBox[
        RowBox[{"{", 
         RowBox[{"1080", ",", "600"}], "}"}],
        FontSize->16,
        FontColor->RGBColor[0, 1, 0]]}], 
      StyleBox[",",
       FontSize->16,
       FontColor->GrayLevel[0]], 
      RowBox[{
       StyleBox["Alignment",
        FontColor->GrayLevel[0]], 
       StyleBox["\[Rule]",
        FontColor->GrayLevel[0]], 
       RowBox[{"{", 
        RowBox[{"Center", ",", "Center"}], "}"}]}]}], "]"}]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"ch", ",", "2", ",", 
       RowBox[{"Row", "[", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"Spacer", "[", "30", "]"}], ",", 
          RowBox[{"Style", "[", 
           RowBox[{
           "\"\<Normals to the Unit Sphere S:    N={x,y,z}={Cos\[Theta] Sin\
\[Phi], Sin\[Theta] Sin\[Phi], Cos\[Phi]}\>\"", ",", "15", ",", "Bold", ",", 
            "Red"}], "]"}], ",", 
          RowBox[{"Spacer", "[", "100", "]"}], ",", 
          RowBox[{"Style", "[", 
           RowBox[{"\"\<\>\"", ",", "10", ",", "Bold", ",", "Blue"}], "]"}]}],
          "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"1", "\[Rule]", 
        RowBox[{"Style", "[", 
         RowBox[{"\"\<Plot a Vector Field\>\"", ",", "15", ",", "Bold"}], 
         "]"}]}], ",", 
       RowBox[{"2", "\[Rule]", 
        RowBox[{"Style", "[", 
         RowBox[{"\"\<Hairy Ball Theorem\>\"", ",", "15", ",", "Bold"}], 
         "]"}]}]}], "}"}], ",", 
     RowBox[{"ControlType", "\[Rule]", "RadioButtonBar"}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Style", "[", 
    RowBox[{"\"\<  N\>\"", ",", "13", ",", "Red", ",", "Bold"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"nrm", ",", "False", ",", "\"\<\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"True", ",", "False"}], "}"}]}], "}"}], ",", "\"\<\>\"", ",", 
   "\"\<\>\"", ",", "\"\<\>\"", ",", "\[IndentingNewLine]", 
   RowBox[{"Style", "[", 
    RowBox[{"\"\< \[Theta],\[Phi]\>\"", ",", "13", ",", "Bold"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"sp", ",", "True", ",", "\"\<\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"True", ",", "False"}], "}"}]}], "}"}], ",", "\"\<\>\"", ",", 
   "\"\<\>\"", ",", "\"\<\>\"", ",", "\[IndentingNewLine]", 
   RowBox[{"Style", "[", 
    RowBox[{"\"\<  \[CirclePlus]\>\"", ",", "13", ",", "Bold"}], "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"ct", ",", "False", ",", "\"\<\>\""}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"True", ",", "False"}], "}"}]}], "}"}], ",", "\"\<\>\"", ",", 
   "\"\<\>\"", ",", "\"\<\>\"", ",", "Delimiter", ",", "\[IndentingNewLine]", 
   "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\< Grid\>\"", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"m", ",", "10", ",", 
       RowBox[{"Style", "[", 
        RowBox[{"\"\<\>\"", ",", "Red", ",", "Bold", ",", "15"}], "]"}]}], 
      "}"}], ",", "0", ",", "100", ",", "1", ",", 
     RowBox[{"ControlType", "\[Rule]", "VerticalSlider"}], ",", 
     RowBox[{"ImageSize", "->", 
      RowBox[{"{", 
       RowBox[{"15", ",", "100"}], "}"}]}]}], "}"}], ",", 
   "\[IndentingNewLine]", "\"\<\>\"", ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"n", ",", "10", ",", 
       RowBox[{"Style", "[", 
        RowBox[{"\"\<\>\"", ",", "Red", ",", "Bold", ",", "15"}], "]"}]}], 
      "}"}], ",", "0", ",", "100", ",", "1", ",", 
     RowBox[{"ControlType", "\[Rule]", "VerticalSlider"}], ",", 
     RowBox[{"ImageSize", "->", 
      RowBox[{"{", 
       RowBox[{"15", ",", "100"}], "}"}]}]}], "}"}], ",", "\"\<\>\"", ",", 
   "\"\<\>\"", ",", "\"\<\>\"", ",", "Delimiter", ",", "\"\<\>\"", ",", 
   "\"\<\>\"", ",", "\"\<\>\"", ",", "\[IndentingNewLine]", 
   RowBox[{"Style", "[", "\"\<View\>\"", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"op", ",", "0.5", ",", "\"\<\>\""}], "}"}], ",", "0", ",", "1", 
     ",", "0.01", ",", 
     RowBox[{"ControlType", "\[Rule]", "VerticalSlider"}], ",", 
     RowBox[{"ImageSize", "->", 
      RowBox[{"{", 
       RowBox[{"15", ",", "50"}], "}"}]}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"Style", "[", "\"\<Scale\>\"", "]"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"w", ",", "1", ",", "\"\<\>\""}], "}"}], ",", "0", ",", "2", 
     ",", "0.01", ",", 
     RowBox[{"ControlType", "\[Rule]", "VerticalSlider"}], ",", 
     RowBox[{"ImageSize", "->", 
      RowBox[{"{", 
       RowBox[{"15", ",", "50"}], "}"}]}]}], "}"}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"ControlPlacement", "\[Rule]", 
    RowBox[{"Join", "[", 
     RowBox[{
      RowBox[{"{", "Top", "}"}], ",", 
      RowBox[{"Table", "[", 
       RowBox[{"Left", ",", 
        RowBox[{"{", 
         RowBox[{"i", ",", "1", ",", "33"}], "}"}]}], "]"}], ",", 
      RowBox[{"{", "}"}]}], "]"}]}], ",", 
   RowBox[{"TrackedSymbols", "\[Rule]", "Manipulate"}], ",", 
   RowBox[{"SaveDefinitions", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", 
   RowBox[{"Initialization", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"\"\<Spere \>\"", ";", "       ", 
      RowBox[{
       RowBox[{"Surf", "[", 
        RowBox[{"u_", ",", "v_"}], "]"}], ":=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"Cos", "[", "u", "]"}], " ", 
          RowBox[{"Sin", "[", "v", "]"}]}], ",", 
         RowBox[{
          RowBox[{"Sin", "[", "u", "]"}], " ", 
          RowBox[{"Sin", "[", "v", "]"}]}], ",", 
         RowBox[{"Cos", "[", "v", "]"}]}], "}"}]}], ";", 
      "\[IndentingNewLine]", "                                   ", 
      "\"\<Normals \>\"", ";", "  ", 
      RowBox[{
       RowBox[{"No", "[", 
        RowBox[{"u_", ",", "v_"}], "]"}], ":=", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"Cos", "[", "u", "]"}], " ", 
          RowBox[{"Sin", "[", "v", "]"}]}], ",", 
         RowBox[{
          RowBox[{"Sin", "[", "u", "]"}], " ", 
          RowBox[{"Sin", "[", "v", "]"}]}], ",", 
         RowBox[{"Cos", "[", "v", "]"}]}], "}"}]}], ";"}], " ", "}"}]}], ",", 
   RowBox[{"FrameLabel", "\[Rule]", 
    RowBox[{"{", "\"\<\!\(\*
StyleBox[\"\[Copyright]\",
FontSize->14]\)\!\(\*
StyleBox[\" \",
FontColor->RGBColor[0, 0, 1]]\)\!\(\*
StyleBox[\"N\",
FontColor->RGBColor[0, 0, 1]]\)\!\(\*
StyleBox[\".\",
FontColor->RGBColor[0, 0, 1]]\)\!\(\*
StyleBox[\" \",
FontColor->RGBColor[0, 0, 1]]\)\!\(\*
StyleBox[\"Bykov\",
FontColor->RGBColor[0, 0, 1]]\)\!\(\*
StyleBox[\",\",
FontColor->RGBColor[0, 0, 1]]\)\!\(\*
StyleBox[\" \",
FontColor->RGBColor[0, 0, 1]]\)\!\(\*
StyleBox[\"SJ\",
FontColor->RGBColor[0, 0, 1]]\)\!\(\*
StyleBox[\" \",
FontColor->RGBColor[0, 0, 1]]\)\!\(\*
StyleBox[\"Delta\",
FontColor->RGBColor[0, 0, 1]]\)\!\(\*
StyleBox[\" \",
FontColor->RGBColor[0, 0, 1]]\)\!\(\*
StyleBox[\"College\",
FontColor->RGBColor[0, 0, 1]]\)\>\"", "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.470666489078125*^9, 3.47066655040625*^9}, {
   3.47066659946875*^9, 3.47066662153125*^9}, {3.4706666685*^9, 
   3.470666700140625*^9}, {3.47066673640625*^9, 3.470666884421875*^9}, {
   3.4706669275625*^9, 3.470666976125*^9}, {3.470667012984375*^9, 
   3.47066711603125*^9}, {3.470668597734375*^9, 3.47066863115625*^9}, {
   3.470668768546875*^9, 3.470668810203125*^9}, {3.47066884425*^9, 
   3.47066885090625*^9}, {3.470668889078125*^9, 3.470668903546875*^9}, {
   3.47066897659375*^9, 3.470668978015625*^9}, 3.470669016625*^9, {
   3.47066905228125*^9, 3.470669070640625*^9}, {3.4706691029375*^9, 
   3.47066910775*^9}, {3.470669176296875*^9, 3.470669287765625*^9}, {
   3.47066932759375*^9, 3.4706693769375*^9}, {3.47066941359375*^9, 
   3.47066944740625*^9}, 3.47066948371875*^9, {3.470669548578125*^9, 
   3.470669583515625*^9}, {3.470669646625*^9, 3.470669680609375*^9}, 
   3.47066973659375*^9, {3.470669860421875*^9, 3.470669901234375*^9}, 
   3.47067004071875*^9, {3.470670073984375*^9, 3.470670101984375*^9}, {
   3.470670145203125*^9, 3.47067027321875*^9}, {3.4706703298125*^9, 
   3.470670336625*^9}, 3.470670374078125*^9, {3.47067043025*^9, 
   3.470670481765625*^9}, {3.4706710274375*^9, 3.47067104546875*^9}, {
   3.470671100125*^9, 3.470671191171875*^9}, {3.4706712911875*^9, 
   3.47067129309375*^9}, {3.470671395875*^9, 3.470671439046875*^9}, {
   3.470671656765625*^9, 3.47067171725*^9}, {3.470671781703125*^9, 
   3.470671823109375*^9}, {3.470671855640625*^9, 3.470671864078125*^9}, {
   3.4706718986875*^9, 3.47067193171875*^9}, {3.470672034484375*^9, 
   3.470672038390625*^9}, {3.4706720690625*^9, 3.47067214865625*^9}, {
   3.47067220278125*^9, 3.470672217921875*^9}, {3.47067242*^9, 
   3.470672506046875*^9}, {3.470672602140625*^9, 3.470672622515625*^9}, 
   3.4706726541875*^9, {3.470672706171875*^9, 3.47067288215625*^9}, {
   3.470672913140625*^9, 3.470673016734375*^9}, {3.470673089609375*^9, 
   3.47067309021875*^9}, {3.4706741484375*^9, 3.47067416375*^9}, {
   3.470674196953125*^9, 3.470674209734375*^9}, {3.47067424003125*^9, 
   3.4706745610625*^9}, {3.4706746073125*^9, 3.47067466534375*^9}, 
   3.47067868609375*^9, 3.47067875309375*^9, {3.470678867234375*^9, 
   3.470678873265625*^9}, 3.4706789043125*^9, 3.47067903365625*^9, {
   3.4706791305*^9, 3.470679199984375*^9}, {3.470695459*^9, 
   3.470695647171875*^9}, {3.470695937578125*^9, 3.47069595996875*^9}, {
   3.47069601315625*^9, 3.47069609290625*^9}, 3.470696153015625*^9, {
   3.470696185625*^9, 3.470696189328125*^9}, {3.470696224703125*^9, 
   3.470696358296875*^9}, {3.47069641278125*^9, 3.470696435984375*^9}, {
   3.47069648715625*^9, 3.47069672078125*^9}, 3.4706967620625*^9, {
   3.470696821125*^9, 3.470696865765625*^9}, {3.470696909921875*^9, 
   3.470696970484375*^9}, {3.470697053390625*^9, 3.470697142796875*^9}, {
   3.470697181296875*^9, 3.470697403625*^9}, {3.470697459796875*^9, 
   3.470697582484375*^9}, 3.470697868890625*^9, {3.470697949546875*^9, 
   3.4706979638125*^9}, {3.4706979996875*^9, 3.470698005203125*^9}, {
   3.470698076234375*^9, 3.470698079640625*^9}, {3.470698179984375*^9, 
   3.470698243265625*^9}, {3.470698436546875*^9, 3.4706984433125*^9}, {
   3.470698549734375*^9, 3.470698560421875*^9}, {3.47069860821875*^9, 
   3.470698670171875*^9}, {3.470698830578125*^9, 3.470698833484375*^9}, {
   3.470698890203125*^9, 3.470698919171875*^9}, {3.470699865328125*^9, 
   3.470699865625*^9}, {3.470700049703125*^9, 3.470700052046875*^9}, {
   3.47070009340625*^9, 3.470700144078125*^9}, {3.470700174953125*^9, 
   3.470700307453125*^9}, {3.47070036825*^9, 3.47070039403125*^9}, 
   3.47070042471875*^9, {3.47070048521875*^9, 3.470700602890625*^9}, {
   3.470700663796875*^9, 3.470700666640625*^9}, {3.4707007309375*^9, 
   3.4707007616875*^9}, {3.47070081790625*^9, 3.47070083578125*^9}, {
   3.470700981171875*^9, 3.4707010114375*^9}, {3.470701114484375*^9, 
   3.470701128015625*^9}, {3.47070119015625*^9, 3.4707012509375*^9}, {
   3.47070134640625*^9, 3.47070135865625*^9}, 3.470701409203125*^9, {
   3.470701631296875*^9, 3.470701641140625*^9}, {3.470701705921875*^9, 
   3.470701744515625*^9}, {3.470701794328125*^9, 3.4707018065625*^9}, {
   3.47070199340625*^9, 3.470702019671875*^9}, {3.47070213321875*^9, 
   3.47070231803125*^9}, {3.470702379078125*^9, 3.470702484953125*^9}, 
   3.470702533796875*^9, {3.470702593796875*^9, 3.470702657171875*^9}, 
   3.470702745359375*^9, {3.470702810203125*^9, 3.4707028655625*^9}, {
   3.47070294540625*^9, 3.470702955671875*^9}, {3.470702988921875*^9, 
   3.470703047609375*^9}, {3.470703093828125*^9, 3.47070319240625*^9}, {
   3.470703260453125*^9, 3.4707032973125*^9}, {3.47070333709375*^9, 
   3.470703354546875*^9}, {3.470703430734375*^9, 3.470703486046875*^9}, {
   3.47070381459375*^9, 3.470703873359375*^9}, {3.470703905390625*^9, 
   3.4707039508125*^9}, {3.470703985703125*^9, 3.4707040421875*^9}, {
   3.470707970734375*^9, 3.47070804971875*^9}, {3.470708098328125*^9, 
   3.4707081103125*^9}, {3.470708210578125*^9, 3.470708250765625*^9}, {
   3.47070830490625*^9, 3.470708340828125*^9}, {3.470708406875*^9, 
   3.470708447296875*^9}, {3.470708477625*^9, 3.470708497046875*^9}, {
   3.4707085656875*^9, 3.470708568515625*^9}, {3.470708612546875*^9, 
   3.47070863765625*^9}, {3.4707086866875*^9, 3.470708748171875*^9}, {
   3.470708873796875*^9, 3.47070887996875*^9}, {3.470708944046875*^9, 
   3.47070895615625*^9}, {3.47070901140625*^9, 3.470709088125*^9}, {
   3.470709119140625*^9, 3.4707093353125*^9}, {3.470709428359375*^9, 
   3.470709553953125*^9}, {3.470709598015625*^9, 3.47070960546875*^9}, {
   3.470709679359375*^9, 3.4707097196875*^9}, {3.470709789515625*^9, 
   3.4707098865625*^9}, {3.470709926140625*^9, 3.470709950625*^9}, {
   3.4707101503125*^9, 3.47071030771875*^9}, {3.470710350625*^9, 
   3.470710433921875*^9}, {3.470710465375*^9, 3.470710516328125*^9}, {
   3.470710549046875*^9, 3.47071057228125*^9}, {3.470710612296875*^9, 
   3.47071065528125*^9}, {3.470710690078125*^9, 3.470710718171875*^9}, {
   3.47071077403125*^9, 3.470710778171875*^9}, {3.470711053734375*^9, 
   3.470711109859375*^9}, {3.470711161640625*^9, 3.4707112115*^9}, {
   3.47071128109375*^9, 3.470711300078125*^9}, {3.470711341921875*^9, 
   3.470711380125*^9}, {3.470711469171875*^9, 3.47071148515625*^9}, {
   3.470711519078125*^9, 3.470711543515625*^9}, {3.470711594109375*^9, 
   3.4707115999375*^9}, {3.470711760625*^9, 3.470711784125*^9}, {
   3.470711818796875*^9, 3.470711939703125*^9}, {3.470711991734375*^9, 
   3.470712068515625*^9}, {3.470712118515625*^9, 3.470712190765625*^9}, {
   3.47071226246875*^9, 3.47071230453125*^9}, {3.470712358703125*^9, 
   3.470712439875*^9}, {3.470712469890625*^9, 3.470712487375*^9}, {
   3.470712520265625*^9, 3.470712562390625*^9}, {3.470712596046875*^9, 
   3.4707126845625*^9}, {3.470712830890625*^9, 3.4707128605*^9}, {
   3.470713187390625*^9, 3.470713199421875*^9}, 3.47071326759375*^9, {
   3.470713305109375*^9, 3.470713317453125*^9}, {3.470777299546875*^9, 
   3.470777318484375*^9}, {3.47077735371875*^9, 3.470777423796875*^9}, {
   3.47077747971875*^9, 3.470777496140625*^9}, {3.470777632765625*^9, 
   3.470777664859375*^9}, {3.47077777353125*^9, 3.470777819859375*^9}, {
   3.470777856125*^9, 3.4707779456875*^9}, {3.4707779838125*^9, 
   3.4707779846875*^9}, {3.470778042140625*^9, 3.470778271796875*^9}, {
   3.470778370515625*^9, 3.470778377515625*^9}, {3.470778553671875*^9, 
   3.470778580484375*^9}, {3.470778617140625*^9, 3.47077867571875*^9}, {
   3.470778719703125*^9, 3.470778734328125*^9}, {3.470778829046875*^9, 
   3.470778861265625*^9}, {3.47077890484375*^9, 3.470778914375*^9}, {
   3.47077905778125*^9, 3.47077907275*^9}, {3.470779278765625*^9, 
   3.470779300171875*^9}, {3.4707804370625*^9, 3.470780460828125*^9}, {
   3.470780940921875*^9, 3.4707812205625*^9}, {3.47078147890625*^9, 
   3.47078149778125*^9}, {3.4707815448125*^9, 3.470781569046875*^9}, {
   3.4707816636875*^9, 3.470781670546875*^9}, {3.47078172228125*^9, 
   3.47078174096875*^9}, {3.470781808546875*^9, 3.470781819375*^9}, {
   3.47078186003125*^9, 3.470781918203125*^9}, {3.470781978734375*^9, 
   3.470781987125*^9}, 3.4707820473125*^9, {3.470782133515625*^9, 
   3.47078221671875*^9}, 3.470782281984375*^9, {3.47078231415625*^9, 
   3.470782334265625*^9}, {3.4707823934375*^9, 3.470782404203125*^9}, {
   3.470782446890625*^9, 3.4707824855625*^9}, {3.47078251565625*^9, 
   3.470782539484375*^9}, {3.470782577375*^9, 3.4707825993125*^9}, {
   3.47078266128125*^9, 3.470782755734375*^9}, {3.470782803703125*^9, 
   3.4707828703125*^9}, {3.470782984328125*^9, 3.47078301996875*^9}, {
   3.470783078484375*^9, 3.470783092640625*^9}, {3.470783196375*^9, 
   3.470783208421875*^9}, {3.470783304671875*^9, 3.470783372484375*^9}, 
   3.4707834028125*^9, {3.470783664*^9, 3.470783697984375*^9}, 
   3.470783786796875*^9, {3.470783824234375*^9, 3.470783827515625*^9}, {
   3.47078388296875*^9, 3.47078389009375*^9}, {3.470783920578125*^9, 
   3.47078399328125*^9}, 3.470784077578125*^9, {3.470784121375*^9, 
   3.470784123375*^9}, {3.4707841560625*^9, 3.47078437328125*^9}, {
   3.47078581315625*^9, 3.470785854625*^9}, {3.470785929078125*^9, 
   3.470785941078125*^9}, {3.470786171953125*^9, 3.470786177078125*^9}, {
   3.47078622003125*^9, 3.47078622225*^9}, {3.47078630359375*^9, 
   3.470786431578125*^9}, {3.470786723453125*^9, 3.470786726640625*^9}, {
   3.470786961734375*^9, 3.4707869876875*^9}, {3.470787019296875*^9, 
   3.470787142078125*^9}, {3.470787187484375*^9, 3.470787213765625*^9}, {
   3.47078725628125*^9, 3.47078728078125*^9}, {3.470787313234375*^9, 
   3.4707873733125*^9}, {3.470787403578125*^9, 3.470787470109375*^9}, {
   3.470787588625*^9, 3.47078775465625*^9}, {3.470787821046875*^9, 
   3.47078785903125*^9}, {3.4707879478125*^9, 3.470788008125*^9}, {
   3.470788069640625*^9, 3.470788073*^9}, {3.47078811075*^9, 
   3.470788119265625*^9}, {3.4707881536875*^9, 3.47078833634375*^9}, {
   3.470788391828125*^9, 3.47078842965625*^9}, {3.470788514953125*^9, 
   3.47078852675*^9}, 3.470788761109375*^9, 3.470788830671875*^9, {
   3.47078886790625*^9, 3.470788913390625*^9}, 3.47078901825*^9, 
   3.470789060140625*^9, {3.4707890953125*^9, 3.470789096*^9}, {
   3.47078913996875*^9, 3.470789192625*^9}, {3.47078924425*^9, 
   3.47078932296875*^9}, {3.4707893645*^9, 3.4707893801875*^9}, {
   3.470789439015625*^9, 3.47078944059375*^9}, {3.4707895125625*^9, 
   3.4707895193125*^9}, {3.470789562734375*^9, 3.47078966453125*^9}, {
   3.47078976465625*^9, 3.47078977884375*^9}, 3.470789876828125*^9, {
   3.470790760484375*^9, 3.470790787078125*^9}, 3.470790892765625*^9, {
   3.470791050484375*^9, 3.4707910601875*^9}, {3.47079119440625*^9, 
   3.47079121396875*^9}, {3.47079140040625*^9, 3.47079146753125*^9}, {
   3.470791498953125*^9, 3.47079155284375*^9}, {3.470791604828125*^9, 
   3.470791633875*^9}, {3.470791668609375*^9, 3.47079168475*^9}, {
   3.470791724640625*^9, 3.470791753375*^9}, {3.47079181946875*^9, 
   3.4707918585*^9}, {3.47079195665625*^9, 3.470792000515625*^9}, {
   3.470792044953125*^9, 3.470792121140625*^9}, 3.470792447234375*^9, {
   3.470792530484375*^9, 3.470792561515625*^9}, {3.470792615375*^9, 
   3.470792617546875*^9}, {3.47079267434375*^9, 3.47079269440625*^9}, {
   3.47079284875*^9, 3.470792975*^9}, {3.47079302696875*^9, 
   3.470793041890625*^9}, {3.470793123328125*^9, 3.470793166265625*^9}, {
   3.47079323059375*^9, 3.470793249671875*^9}, {3.47079377734375*^9, 
   3.47079377775*^9}, {3.470793813890625*^9, 3.470793904734375*^9}, {
   3.47079396715625*^9, 3.470794205625*^9}, {3.470794299125*^9, 
   3.4707945063125*^9}, {3.470794557140625*^9, 3.47079457725*^9}, {
   3.47086373140625*^9, 3.47086387771875*^9}, {3.47086393878125*^9, 
   3.470863989859375*^9}, {3.470864147171875*^9, 3.4708641591875*^9}, {
   3.470864365703125*^9, 3.470864367015625*^9}, {3.470864515125*^9, 
   3.470864543609375*^9}, 3.470864578234375*^9, {3.470864706953125*^9, 
   3.470864733078125*^9}, {3.470864856359375*^9, 3.47086490996875*^9}, {
   3.4708794628125*^9, 3.470879524421875*^9}, {3.47087964990625*^9, 
   3.470879663859375*^9}, {3.4708796949375*^9, 3.47087973*^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, 55205, 1174, 1090, "Input"]
}
]
*)

(* End of internal cache information *)