(* 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[ 51127, 1052] NotebookOptionsPosition[ 50774, 1035] NotebookOutlinePosition[ 51136, 1051] CellTagsIndexPosition[ 51093, 1048] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"Pane", "[", " ", RowBox[{ RowBox[{"DynamicModule", "[", " ", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"f", "=", RowBox[{"{", RowBox[{"x", ",", "y", ",", "z"}], "}"}]}], ",", RowBox[{"g", "=", RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", "\[Theta]", "]"}], ",", " ", RowBox[{"Sin", "[", "\[Phi]", "]"}], ",", "1"}], "}"}]}]}], "}"}], ",", StyleBox["\[IndentingNewLine]", Background->RGBColor[1, 0.5, 0.5]], RowBox[{"Column", "[", RowBox[{ RowBox[{"{", " ", RowBox[{ RowBox[{"Framed", "@", RowBox[{"Style", "[", RowBox[{ "\"\RGBColor[1, 0, 0]]\)\!\(\* StyleBox[\":\", FontColor->RGBColor[1, 0, 0]]\)\!\(\* StyleBox[\" \", FontColor->RGBColor[1, 0, 0]]\)\!\(\* StyleBox[\"N\", FontColor->RGBColor[1, 0, 0]]\)={(3+Cos\[Theta])Cos\[Phi]Cos\[Theta],(3+Cos\ \[Theta])Sin\[Phi]Sin\[Theta],(3+Cos\[Theta])Sin\[Theta]}\>\"", ",", "15", ",", "Bold"}], "]"}]}], ",", ",", "\[IndentingNewLine]", 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[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"Surf", "[", RowBox[{"u", ",", "v"}], "]"}], ",", RowBox[{"{", RowBox[{"u", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", RowBox[{"{", RowBox[{"v", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", RowBox[{"Mesh", "\[Rule]", RowBox[{"If", "[", RowBox[{"ct", ",", "True", ",", "False"}], "]"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Opacity", "[", "op", "]"}]}]}], "]"}], ",", "\[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[{"2", "\[Pi]", " "}], "n"], "j"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Surf", "[", RowBox[{ RowBox[{ FractionBox[ RowBox[{"2", " ", "\[Pi]", " "}], "m"], "i"}], ",", RowBox[{ FractionBox[ RowBox[{" ", RowBox[{"2", "\[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[{" ", RowBox[{"2", "\[Pi]", " "}]}], "n"], " ", "j"}]}], "]"}], "[", RowBox[{"[", "1", "]"}], "]"}]}], ",", RowBox[{"y", "\[Rule]", RowBox[{ RowBox[{"Surf", "[", RowBox[{ RowBox[{ FractionBox[ RowBox[{"2", " ", "\[Pi]", " "}], "m"], " ", "i"}], ",", RowBox[{ FractionBox[ RowBox[{" ", RowBox[{"2", "\[Pi]", " "}]}], "n"], " ", "j"}]}], "]"}], "[", RowBox[{"[", "2", "]"}], "]"}]}], ",", RowBox[{"z", "\[Rule]", RowBox[{ RowBox[{"Surf", "[", RowBox[{ RowBox[{ FractionBox[ RowBox[{"2", " ", "\[Pi]", " "}], "m"], " ", "i"}], ",", RowBox[{ FractionBox[ RowBox[{" ", RowBox[{"2", "\[Pi]", " "}]}], "n"], " ", "j"}]}], "]"}], "[", RowBox[{"[", "3", "]"}], "]"}]}]}], "}"}]}]}], "}"}], "]"}]}], " ", "}"}], " ", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "m"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", "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[{" ", RowBox[{"2", "\[Pi]", " "}]}], "n"], "j"}]}], "]"}], ",", RowBox[{ RowBox[{"Surf", "[", RowBox[{ RowBox[{ FractionBox[ RowBox[{"2", " ", "\[Pi]", " "}], "m"], "i"}], ",", RowBox[{ FractionBox[ RowBox[{" ", RowBox[{"2", "\[Pi]", " "}]}], "n"], "j"}]}], "]"}], "+", RowBox[{"w", "*", RowBox[{"No", "[", RowBox[{ RowBox[{ FractionBox[ RowBox[{"2", " ", "\[Pi]", " "}], "m"], " ", "i"}], ",", RowBox[{ FractionBox[ RowBox[{" ", RowBox[{"2", "\[Pi]", " "}]}], "n"], " ", "j"}]}], "]"}]}]}]}], "}"}], "]"}]}], "}"}], " ", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "m"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", "2"}], "]"}], ",", RowBox[{"Graphics3D", "[", "]"}]}], "]"}], ",", RowBox[{"ImageSize", " ", "->", " ", RowBox[{"{", RowBox[{"520", ",", "610"}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}]}], ",", "\[IndentingNewLine]", RowBox[{"Framed", "@", RowBox[{"Dynamic", "@", RowBox[{"Show", "[", RowBox[{ RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"Surf", "[", RowBox[{"u", ",", "v"}], "]"}], ",", RowBox[{"{", RowBox[{"u", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", RowBox[{"{", RowBox[{"v", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", RowBox[{"Mesh", "\[Rule]", RowBox[{"If", "[", RowBox[{"ct", ",", "True", ",", "False"}], "]"}]}], ",", RowBox[{"PlotStyle", "\[Rule]", RowBox[{"Opacity", "[", "op", "]"}]}]}], "]"}], ",", " ", 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[{" ", RowBox[{"2", "\[Pi]", " "}]}], "n"], "j"}]}], "]"}], ",", RowBox[{ RowBox[{ RowBox[{"Surf", "[", RowBox[{ RowBox[{ FractionBox[ RowBox[{"2", " ", "\[Pi]", " "}], "m"], "i"}], ",", RowBox[{ FractionBox[ RowBox[{"2", " ", "\[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[{"2", "\[Pi]", " "}], "n"], " ", "j"}]}]}], "}"}]}]}], "}"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "m"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", "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[{" ", RowBox[{"2", "\[Pi]", " "}]}], "n"], "j"}]}], "]"}], ",", RowBox[{ RowBox[{"Surf", "[", RowBox[{ RowBox[{ FractionBox[ RowBox[{"2", " ", "\[Pi]", " "}], "m"], "i"}], ",", RowBox[{ FractionBox[ RowBox[{" ", RowBox[{"2", "\[Pi]", " "}]}], "n"], "j"}]}], "]"}], "+", RowBox[{"w", "*", RowBox[{"No", "[", RowBox[{ RowBox[{ FractionBox[ RowBox[{"2", " ", "\[Pi]", " "}], "m"], " ", "i"}], ",", RowBox[{ FractionBox[ RowBox[{" ", RowBox[{"2", "\[Pi]", " "}]}], "n"], " ", "j"}]}], "]"}]}]}]}], "}"}], "]"}]}], "}"}], " ", "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "0", ",", "m"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "0", ",", "n"}], "}"}]}], "]"}], ",", "2"}], "]"}], ",", RowBox[{"Graphics3D", "[", "]"}]}], "]"}], ",", RowBox[{"ImageSize", " ", "->", RowBox[{"{", RowBox[{"520", ",", "610"}], "}"}]}], ",", RowBox[{"PlotRange", "\[Rule]", "All"}]}], "]"}]}]}]}], "}"}], "]"}]}], "}"}], ",", "Center"}], "]"}]}], "]"}], ",", RowBox[{"ImageSize", "\[Rule]", StyleBox[ RowBox[{"{", RowBox[{"1080", ",", StyleBox[ RowBox[{"7", "00"}]]}], "}"}], 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[{"Style", "[", RowBox[{"\"\< N\>\"", ",", "13", ",", "Red", ",", "Bold"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"nrm", ",", "False", ",", "\"\<\>\""}], "}"}], ",", 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", ",", "20", ",", RowBox[{"Style", "[", RowBox[{"\"\<\>\"", ",", "Red", ",", "Bold", ",", "15"}], "]"}]}], "}"}], ",", "0", ",", "30", ",", "1", ",", RowBox[{"ControlType", "\[Rule]", "VerticalSlider"}], ",", RowBox[{"ImageSize", "->", RowBox[{"{", RowBox[{"15", ",", "100"}], "}"}]}]}], "}"}], ",", "\[IndentingNewLine]", "\"\<\>\"", ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"n", ",", "20", ",", RowBox[{"Style", "[", RowBox[{"\"\<\>\"", ",", "Red", ",", "Bold", ",", "15"}], "]"}]}], "}"}], ",", "0", ",", "30", ",", "1", ",", RowBox[{"ControlType", "\[Rule]", "VerticalSlider"}], ",", RowBox[{"ImageSize", "->", RowBox[{"{", RowBox[{"15", ",", "100"}], "}"}]}]}], "}"}], ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "Delimiter", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\[IndentingNewLine]", RowBox[{"Style", "[", "\"\\"", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"op", ",", "0.5", ",", "\"\<\>\""}], "}"}], ",", "0", ",", "1", ",", "0.01", ",", RowBox[{"ControlType", "\[Rule]", "VerticalSlider"}], ",", RowBox[{"ImageSize", "->", RowBox[{"{", RowBox[{"15", ",", "90"}], "}"}]}]}], "}"}], ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\"\<\>\"", ",", "\[IndentingNewLine]", RowBox[{"Style", "[", "\"\\"", "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"w", ",", "0.5", ",", "\"\<\>\""}], "}"}], ",", "0", ",", "1", ",", "0.01", ",", RowBox[{"ControlType", "\[Rule]", "VerticalSlider"}], ",", RowBox[{"ImageSize", "->", RowBox[{"{", RowBox[{"15", ",", "90"}], "}"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"ControlPlacement", "\[Rule]", RowBox[{"Join", "[", RowBox[{ RowBox[{"{", "Top", "}"}], ",", RowBox[{"Table", "[", RowBox[{"Left", ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "34"}], "}"}]}], "]"}], ",", RowBox[{"{", "}"}]}], "]"}]}], ",", RowBox[{"TrackedSymbols", "\[Rule]", "Manipulate"}], ",", RowBox[{"SaveDefinitions", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", RowBox[{"Initialization", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", ";", " ", RowBox[{ RowBox[{"Surf", "[", RowBox[{"u_", ",", "v_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"3", "+", RowBox[{"Cos", "[", "v", "]"}]}], ")"}], " ", RowBox[{"Cos", "[", "u", "]"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"3", "+", " ", RowBox[{"Cos", "[", "v", "]"}]}], ")"}], " ", RowBox[{"Sin", "[", "u", "]"}]}], ",", RowBox[{"Sin", "[", "v", "]"}]}], "}"}]}], ";", "\[IndentingNewLine]", " ", "\"\\"", ";", " ", RowBox[{ RowBox[{"No", "[", RowBox[{"u_", ",", "v_"}], "]"}], ":=", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"Cos", "[", "u", "]"}], " ", RowBox[{"Cos", "[", "v", "]"}], " ", RowBox[{"(", RowBox[{"3", "+", RowBox[{"Cos", "[", "v", "]"}]}], ")"}]}], ",", RowBox[{ RowBox[{"Cos", "[", "v", "]"}], " ", RowBox[{"(", RowBox[{"3", "+", RowBox[{"Cos", "[", "v", "]"}]}], ")"}], " ", RowBox[{"Sin", "[", "u", "]"}]}], ",", RowBox[{ RowBox[{"(", RowBox[{"3", "+", RowBox[{"Cos", "[", "v", "]"}]}], ")"}], " ", RowBox[{"Sin", "[", "v", "]"}]}]}], "}"}]}], ";"}], "\[IndentingNewLine]", " ", "}"}]}], ",", 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}, { 3.47093230003125*^9, 3.4709323289375*^9}, {3.470939957125*^9, 3.47094002084375*^9}, {3.470940093375*^9, 3.47094010975*^9}, { 3.4709402055625*^9, 3.470940278734375*^9}, {3.470940357484375*^9, 3.470940364546875*^9}, 3.47094039965625*^9, {3.47094044471875*^9, 3.470940482703125*^9}, {3.470940591796875*^9, 3.47094072703125*^9}, { 3.470940757671875*^9, 3.470940768265625*^9}, {3.47094080475*^9, 3.47094094521875*^9}, {3.470940993828125*^9, 3.470940997734375*^9}, { 3.47094104040625*^9, 3.470941061890625*^9}, {3.470941209390625*^9, 3.470941238015625*^9}, {3.470954249046875*^9, 3.470954262078125*^9}, { 3.470954336140625*^9, 3.47095434725*^9}, 3.470954400484375*^9, { 3.4709544683125*^9, 3.470954507171875*^9}, {3.470954538609375*^9, 3.470954592953125*^9}, {3.47095469509375*^9, 3.470954756953125*^9}, 3.47095484609375*^9, {3.47095497603125*^9, 3.47095504221875*^9}, { 3.470955192515625*^9, 3.47095527103125*^9}, {3.47095533303125*^9, 3.47095533690625*^9}, 3.470955420625*^9, {3.4709554828125*^9, 3.47095555215625*^9}, {3.470955603640625*^9, 3.470955630671875*^9}, 3.470955692625*^9, {3.4709557600625*^9, 3.4709558003125*^9}, { 3.47095583159375*^9, 3.47095586771875*^9}, {3.47095594125*^9, 3.470955948171875*^9}, {3.470955993078125*^9, 3.47095601409375*^9}, 3.47095646815625*^9, {3.4709565025*^9, 3.47095659753125*^9}, { 3.47095675596875*^9, 3.470956780953125*^9}, {3.47095686965625*^9, 3.4709569019375*^9}, {3.470956981*^9, 3.470956987515625*^9}, { 3.470957071578125*^9, 3.47095712471875*^9}, 3.47095718028125*^9, { 3.470957227390625*^9, 3.47095729021875*^9}, 3.47095735253125*^9, 3.470957804078125*^9, {3.470957863015625*^9, 3.470957877078125*^9}, { 3.47095801715625*^9, 3.470958029125*^9}, {3.470958724265625*^9, 3.47095874528125*^9}, {3.470959126015625*^9, 3.4709591655625*^9}, { 3.47095922028125*^9, 3.470959274265625*^9}, 3.470959440640625*^9, { 3.47095948309375*^9, 3.470959486421875*^9}, {3.470959871734375*^9, 3.47095990803125*^9}, {3.470960149203125*^9, 3.470960157984375*^9}, { 3.470960250984375*^9, 3.470960252828125*^9}, {3.470960874640625*^9, 3.470960892359375*^9}, {3.470960943671875*^9, 3.470960979109375*^9}, { 3.470961015671875*^9, 3.470961043390625*^9}, {3.47096107553125*^9, 3.470961087390625*^9}, {3.47096190228125*^9, 3.47096191828125*^9}, { 3.470961977375*^9, 3.470962001234375*^9}, 3.470962064*^9, { 3.470962163765625*^9, 3.47096219484375*^9}, {3.47096225*^9, 3.470962394078125*^9}, {3.470962451609375*^9, 3.470962604703125*^9}, { 3.470962635765625*^9, 3.47096264328125*^9}, {3.470962675390625*^9, 3.4709626939375*^9}, {3.4709641464375*^9, 3.47096417171875*^9}, { 3.470964272125*^9, 3.47096427325*^9}, {3.47096432396875*^9, 3.470964341796875*^9}, 3.4709643815*^9, 3.470964428625*^9, { 3.470964493796875*^9, 3.47096451678125*^9}, {3.470964573*^9, 3.470964576046875*^9}, {3.4709646790625*^9, 3.470964704046875*^9}, { 3.470964734640625*^9, 3.47096475*^9}, {3.47096479728125*^9, 3.470964826515625*^9}, {3.470964865359375*^9, 3.47096487853125*^9}, { 3.470964919*^9, 3.470964944125*^9}, {3.470964980375*^9, 3.4709649996875*^9}, {3.470965113015625*^9, 3.470965167453125*^9}, { 3.470965233765625*^9, 3.47096523621875*^9}, {3.47096531684375*^9, 3.47096536728125*^9}, {3.470965427703125*^9, 3.470965433484375*^9}, { 3.4709654684375*^9, 3.470965514765625*^9}}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`ct$$ = False, $CellContext`m$$ = 20, $CellContext`n$$ = 20, $CellContext`nrm$$ = False, $CellContext`op$$ = 0.5, $CellContext`w$$ = 0.5, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{ Hold[""], Manipulate`Dump`ThisIsNotAControl}, { Hold[""], Manipulate`Dump`ThisIsNotAControl}, { Hold[""], Manipulate`Dump`ThisIsNotAControl}, { Hold[ Style[" N", 13, RGBColor[1, 0, 0], Bold]], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`nrm$$], False, ""}, {True, False}}, { Hold[""], Manipulate`Dump`ThisIsNotAControl}, { Hold[""], Manipulate`Dump`ThisIsNotAControl}, { Hold[""], Manipulate`Dump`ThisIsNotAControl}, { Hold[ Style[" \[CirclePlus]", 13, Bold]], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`ct$$], False, ""}, {True, False}}, { Hold[""], Manipulate`Dump`ThisIsNotAControl}, { Hold[""], Manipulate`Dump`ThisIsNotAControl}, { Hold[""], Manipulate`Dump`ThisIsNotAControl}, { Hold[""], Manipulate`Dump`ThisIsNotAControl}, { Hold[""], Manipulate`Dump`ThisIsNotAControl}, { Hold[""], Manipulate`Dump`ThisIsNotAControl}, { Hold[" Grid"], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`m$$], 20, Style["", RGBColor[1, 0, 0], Bold, 15]}, 0, 30, 1}, { Hold[""], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`n$$], 20, Style["", RGBColor[1, 0, 0], Bold, 15]}, 0, 30, 1}, { Hold[""], Manipulate`Dump`ThisIsNotAControl}, { Hold[""], Manipulate`Dump`ThisIsNotAControl}, { Hold[""], Manipulate`Dump`ThisIsNotAControl}, { Hold[""], Manipulate`Dump`ThisIsNotAControl}, { Hold[""], Manipulate`Dump`ThisIsNotAControl}, { Hold[""], Manipulate`Dump`ThisIsNotAControl}, { Hold[ Style["View"]], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`op$$], 0.5, ""}, 0, 1, 0.01}, { Hold[""], Manipulate`Dump`ThisIsNotAControl}, { Hold[""], Manipulate`Dump`ThisIsNotAControl}, { Hold[""], Manipulate`Dump`ThisIsNotAControl}, { Hold[ Style["Scale"]], Manipulate`Dump`ThisIsNotAControl}, {{ Hold[$CellContext`w$$], 0.5, ""}, 0, 1, 0.01}}, Typeset`size$$ = { 1080., {347.5, 352.5}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`nrm$5796$$ = False, $CellContext`ct$5797$$ = False, $CellContext`m$5798$$ = 0, $CellContext`n$5799$$ = 0, $CellContext`op$5800$$ = 0, $CellContext`w$5801$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`ct$$ = False, $CellContext`m$$ = 20, $CellContext`n$$ = 20, $CellContext`nrm$$ = False, $CellContext`op$$ = 0.5, $CellContext`w$$ = 0.5}, "ControllerVariables" :> { Hold[$CellContext`nrm$$, $CellContext`nrm$5796$$, False], Hold[$CellContext`ct$$, $CellContext`ct$5797$$, False], Hold[$CellContext`m$$, $CellContext`m$5798$$, 0], Hold[$CellContext`n$$, $CellContext`n$5799$$, 0], Hold[$CellContext`op$$, $CellContext`op$5800$$, 0], Hold[$CellContext`w$$, $CellContext`w$5801$$, 0]}, "OtherVariables" :> { Typeset`show$$, Typeset`bookmarkList$$, Typeset`bookmarkMode$$, Typeset`animator$$, Typeset`animvar$$, Typeset`name$$, Typeset`specs$$, Typeset`size$$, Typeset`update$$, Typeset`initDone$$, Typeset`skipInitDone$$}, "Body" :> Pane[ DynamicModule[{$CellContext`f = {$CellContext`x, $CellContext`y, \ $CellContext`z}, $CellContext`g = { Cos[$CellContext`\[Theta]], Sin[$CellContext`\[Phi]], 1}}, Column[{ Framed[ Style[ "Torus: {(3+Cos\[Theta])Cos\[Phi],(3+Cos\[Theta])Sin\[Phi],Sin\ \[Theta]} \!\(\*\nStyleBox[\"Normals\",\nFontColor->RGBColor[1, 0, 0]]\)\ \!\(\*\nStyleBox[\":\",\nFontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\" \ \",\nFontColor->RGBColor[1, 0, 0]]\)\!\(\*\nStyleBox[\"N\",\n\ FontColor->RGBColor[1, 0, 0]]\)={(3+Cos\[Theta])Cos\[Phi]Cos\[Theta],(3+Cos\ \[Theta])Sin\[Phi]Sin\[Theta],(3+Cos\[Theta])Sin\[Theta]}", 15, Bold]], Null, Row[{ Spacer[0], Labeled[ InputField[ Dynamic[$CellContext`f], ImageSize -> {440, 20}], Style[ "\!\(\*\nStyleBox[\"F\",\nFontColor->RGBColor[0, 0, \ 1]]\)(x,y,z)=", 13, Bold], Left], Spacer[10], Labeled[ InputField[ Dynamic[$CellContext`g], ImageSize -> {445, 20}], Style[ "\!\(\*\nStyleBox[\"F\",\nFontColor->RGBColor[0, 0, 1]]\)(\ \[Theta],\[Phi])=", 13, Bold], Left]}], Row[{ Framed[ Dynamic[ Show[ ParametricPlot3D[ $CellContext`Surf[$CellContext`u, $CellContext`v], \ {$CellContext`u, 0, 2 Pi}, {$CellContext`v, 0, 2 Pi}, Mesh -> If[$CellContext`ct$$, True, False], PlotStyle -> Opacity[$CellContext`op$$]], Flatten[ Table[ Graphics3D[{Blue, Arrowheads -> Small, Arrow[{ $CellContext`Surf[(2 Pi/$CellContext`m$$) $CellContext`i, (2 Pi/$CellContext`n$$) $CellContext`j], ReplaceAll[$CellContext`Surf[(2 Pi/$CellContext`m$$) $CellContext`i, (2 Pi/$CellContext`n$$) $CellContext`j] + $CellContext`w$$ \ $CellContext`f, {$CellContext`x -> Part[ $CellContext`Surf[(2 Pi/$CellContext`m$$) $CellContext`i, (2 Pi/$CellContext`n$$) $CellContext`j], 1], $CellContext`y -> Part[ $CellContext`Surf[(2 Pi/$CellContext`m$$) $CellContext`i, (2 Pi/$CellContext`n$$) $CellContext`j], 2], $CellContext`z -> Part[ $CellContext`Surf[(2 Pi/$CellContext`m$$) $CellContext`i, (2 Pi/$CellContext`n$$) $CellContext`j], 3]}]}]}], {$CellContext`i, 0, $CellContext`m$$}, {$CellContext`j, 0, $CellContext`n$$}], 2], If[$CellContext`nrm$$, Flatten[ Table[ Graphics3D[{Arrowheads -> Small, Red, Arrow[{ $CellContext`Surf[(2 Pi/$CellContext`m$$) $CellContext`i, (2 Pi/$CellContext`n$$) $CellContext`j], $CellContext`Surf[( 2 Pi/$CellContext`m$$) $CellContext`i, (2 Pi/$CellContext`n$$) $CellContext`j] + $CellContext`w$$ \ $CellContext`No[(2 Pi/$CellContext`m$$) $CellContext`i, (2 Pi/$CellContext`n$$) $CellContext`j]}]}], {$CellContext`i, 0, $CellContext`m$$}, {$CellContext`j, 0, $CellContext`n$$}], 2], Graphics3D[]], ImageSize -> {520, 610}, PlotRange -> All]]], Framed[ Dynamic[ Show[ ParametricPlot3D[ $CellContext`Surf[$CellContext`u, $CellContext`v], \ {$CellContext`u, 0, 2 Pi}, {$CellContext`v, 0, 2 Pi}, Mesh -> If[$CellContext`ct$$, True, False], PlotStyle -> Opacity[$CellContext`op$$]], Flatten[ Table[ Graphics3D[{Blue, Arrowheads -> Small, Arrow[{ $CellContext`Surf[(2 Pi/$CellContext`m$$) $CellContext`i, (2 Pi/$CellContext`n$$) $CellContext`j], ReplaceAll[$CellContext`Surf[(2 Pi/$CellContext`m$$) $CellContext`i, (2 Pi/$CellContext`n$$) $CellContext`j] + $CellContext`w$$ \ $CellContext`g, {$CellContext`\[Theta] -> (2 Pi/$CellContext`m$$) $CellContext`i, $CellContext`\[Phi] -> \ (2 Pi/$CellContext`n$$) $CellContext`j}]}]}], {$CellContext`i, 0, $CellContext`m$$}, {$CellContext`j, 0, $CellContext`n$$}], 2], If[$CellContext`nrm$$, Flatten[ Table[ Graphics3D[{Arrowheads -> Small, Red, Arrow[{ $CellContext`Surf[(2 Pi/$CellContext`m$$) $CellContext`i, (2 Pi/$CellContext`n$$) $CellContext`j], $CellContext`Surf[( 2 Pi/$CellContext`m$$) $CellContext`i, (2 Pi/$CellContext`n$$) $CellContext`j] + $CellContext`w$$ \ $CellContext`No[(2 Pi/$CellContext`m$$) $CellContext`i, (2 Pi/$CellContext`n$$) $CellContext`j]}]}], {$CellContext`i, 0, $CellContext`m$$}, {$CellContext`j, 0, $CellContext`n$$}], 2], Graphics3D[]], ImageSize -> {520, 610}, PlotRange -> All]]]}]}, Center]], ImageSize -> {1080, 700}, Alignment -> {Center, Center}], "Specifications" :> {"", "", "", Style[" N", 13, RGBColor[1, 0, 0], Bold], {{$CellContext`nrm$$, False, ""}, { True, False}}, "", "", "", Style[ " \[CirclePlus]", 13, Bold], {{$CellContext`ct$$, False, ""}, { True, False}}, "", "", "", Delimiter, "", "", "", " Grid", {{$CellContext`m$$, 20, Style["", RGBColor[1, 0, 0], Bold, 15]}, 0, 30, 1, ControlType -> VerticalSlider, ImageSize -> {15, 100}}, "", {{$CellContext`n$$, 20, Style["", RGBColor[1, 0, 0], Bold, 15]}, 0, 30, 1, ControlType -> VerticalSlider, ImageSize -> {15, 100}}, "", "", "", Delimiter, "", "", "", Style[ "View"], {{$CellContext`op$$, 0.5, ""}, 0, 1, 0.01, ControlType -> VerticalSlider, ImageSize -> {15, 90}}, "", "", "", Style[ "Scale"], {{$CellContext`w$$, 0.5, ""}, 0, 1, 0.01, ControlType -> VerticalSlider, ImageSize -> {15, 90}}}, "Options" :> { ControlPlacement -> { Top, Left, Left, Left, Left, Left, Left, Left, Left, Left, Left, Left, Left, Left, Left, Left, Left, Left, Left, Left, Left, Left, Left, Left, Left, Left, Left, Left, Left, Left, Left, Left, Left, Left, Left}, TrackedSymbols -> Manipulate, FrameLabel -> { "\!\(\*\nStyleBox[\"\[Copyright]\",\nFontSize->14]\)\!\(\*\n\ StyleBox[\" \",\nFontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\"N\",\n\ FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\".\",\n\ FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\" \",\n\ FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\"Bykov\",\n\ FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\",\",\n\ FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\" \",\n\ FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\"SJ\",\n\ FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\" \",\n\ FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\"Delta\",\n\ FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\" \",\n\ FontColor->RGBColor[0, 0, 1]]\)\!\(\*\nStyleBox[\"College\",\n\ FontColor->RGBColor[0, 0, 1]]\)"}}, "DefaultOptions" :> {}], ImageSizeCache->{1151., {392., 397.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>({{$CellContext`Surf[ Pattern[$CellContext`u, Blank[]], Pattern[$CellContext`v, Blank[]]] := {(3 + Cos[$CellContext`v]) Cos[$CellContext`u], (3 + Cos[$CellContext`v]) Sin[$CellContext`u], Sin[$CellContext`v]}, $CellContext`No[ Pattern[$CellContext`u, Blank[]], Pattern[$CellContext`v, Blank[]]] := { Cos[$CellContext`u] Cos[$CellContext`v] (3 + Cos[$CellContext`v]), Cos[$CellContext`v] (3 + Cos[$CellContext`v]) Sin[$CellContext`u], (3 + Cos[$CellContext`v]) Sin[$CellContext`v]}}; {Null}}; Typeset`initDone$$ = True), SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellChangeTimes->{ 3.47096452190625*^9, 3.470964579*^9, 3.470964707375*^9, 3.470964753390625*^9, 3.470964830359375*^9, 3.4709648818125*^9, 3.470964947609375*^9, {3.470964987796875*^9, 3.47096500325*^9}, 3.470965143125*^9, 3.470965174078125*^9, 3.47096524428125*^9, 3.470965373140625*^9, 3.470965438015625*^9, 3.47096551915625*^9}] }, Open ]] }, WindowSize->{1267, 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[CellGroupData[{ Cell[567, 22, 37027, 744, 600, "Input"], Cell[37597, 768, 13161, 264, 806, "Output"] }, Open ]] } ] *) (* End of internal cache information *)