(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 7.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 31713, 946] NotebookOptionsPosition[ 30710, 907] NotebookOutlinePosition[ 31069, 923] CellTagsIndexPosition[ 31026, 920] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Part 1: Several origin centered circles.", "Subtitle", CellChangeTimes->{{3.446836648563673*^9, 3.4468366977623377`*^9}}], Cell[BoxData[ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ FractionBox["1", "3"], "*", RowBox[{"Cos", "[", "t", "]"}]}], ",", RowBox[{ FractionBox["1", "3"], "*", RowBox[{"Sin", "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{".5", "*", RowBox[{"Cos", "[", "t", "]"}]}], ",", RowBox[{".5", "*", RowBox[{"Sin", "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", "t", "]"}], ",", RowBox[{"Sin", "[", "t", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"2", "*", RowBox[{"Cos", "[", "t", "]"}]}], ",", RowBox[{"2", "*", RowBox[{"Sin", "[", "t", "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"3", "*", RowBox[{"Cos", "[", "t", "]"}]}], ",", RowBox[{"3", "*", RowBox[{"Sin", "[", "t", "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", "\[Pi]"}], ",", "\[Pi]"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.446826427407381*^9, 3.446826476909637*^9}, { 3.446826513654009*^9, 3.4468266537267103`*^9}, {3.446826864913954*^9, 3.4468268774015017`*^9}, {3.446827340337452*^9, 3.446827356335618*^9}, { 3.446832132175397*^9, 3.446832135935326*^9}, {3.446832244699451*^9, 3.446832287041347*^9}, {3.44683415080869*^9, 3.4468341661766653`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Part 2: The graph z\[Rule]", Cell[BoxData[ FormBox[ SuperscriptBox["\[ExponentialE]", "z"], TraditionalForm]]], " of the circles from part 1." }], "Subtitle", CellChangeTimes->{{3.4468367067616177`*^9, 3.4468367952809896`*^9}}], Cell[BoxData[ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ FractionBox["1", "3"], "*", RowBox[{"Cos", "[", "t", "]"}]}]], RowBox[{"Cos", "[", RowBox[{ FractionBox["1", "3"], "*", RowBox[{"Sin", "[", "t", "]"}]}], "]"}]}], ",", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ FractionBox["1", "3"], "*", RowBox[{"Cos", "[", "t", "]"}]}]], RowBox[{"Sin", "[", RowBox[{ FractionBox["1", "3"], "*", RowBox[{"Sin", "[", "t", "]"}]}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{".5", "*", RowBox[{"Cos", "[", "t", "]"}]}]], RowBox[{"Cos", "[", RowBox[{".5", "*", RowBox[{"Sin", "[", "t", "]"}]}], "]"}]}], ",", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{".5", "*", RowBox[{"Cos", "[", "t", "]"}]}]], RowBox[{"Sin", "[", RowBox[{".5", "*", RowBox[{"Sin", "[", "t", "]"}]}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"Cos", "[", "t", "]"}]], RowBox[{"Cos", "[", RowBox[{"Sin", "[", "t", "]"}], "]"}]}], ",", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"Cos", "[", "t", "]"}]], RowBox[{"Sin", "[", RowBox[{"Sin", "[", "t", "]"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"2", "*", RowBox[{"Cos", "[", "t", "]"}]}]], RowBox[{"Cos", "[", RowBox[{"2", "*", RowBox[{"Sin", "[", "t", "]"}]}], "]"}]}], ",", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"2", "*", RowBox[{"Cos", "[", "t", "]"}]}]], RowBox[{"Sin", "[", RowBox[{"2", "*", RowBox[{"Sin", "[", "t", "]"}]}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"3", "*", RowBox[{"Cos", "[", "t", "]"}]}]], RowBox[{"Cos", "[", RowBox[{"3", "*", RowBox[{"Sin", "[", "t", "]"}]}], "]"}]}], ",", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"3", "*", RowBox[{"Cos", "[", "t", "]"}]}]], RowBox[{"Sin", "[", RowBox[{"3", "*", RowBox[{"Sin", "[", "t", "]"}]}], "]"}]}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", "\[Pi]"}], ",", "\[Pi]"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.446827040481215*^9, 3.446827259152999*^9}, { 3.446827366956113*^9, 3.446827427354124*^9}, {3.446832326349976*^9, 3.446832360492805*^9}, 3.446834179298319*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"X", "[", RowBox[{"x_", ",", "y_"}], "]"}], ":=", " ", RowBox[{"2", " ", RowBox[{"x", "/", RowBox[{"(", RowBox[{"1", " ", "+", " ", RowBox[{"x", "^", "2"}], " ", "+", " ", RowBox[{"y", "^", "2"}]}], ")"}]}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Y", "[", RowBox[{"x_", ",", "y_"}], "]"}], ":=", " ", RowBox[{"2", " ", RowBox[{"y", "/", RowBox[{"(", RowBox[{"1", " ", "+", " ", RowBox[{"x", "^", "2"}], " ", "+", " ", RowBox[{"y", "^", "2"}]}], ")"}]}]}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"Z", "[", RowBox[{"x_", ",", "y_"}], "]"}], ":=", " ", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"x", "^", "2"}], " ", "+", " ", RowBox[{"y", "^", "2"}]}], ")"}], " ", "-", " ", "1"}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"x", "^", "2"}], " ", "+", " ", RowBox[{"y", "^", "2"}], " ", "+", " ", "1"}], ")"}]}]}], ";"}]}], "Input"] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Part 3 : Several origin centered circles plotted on a Riemann Sphere.\ \>", "Subtitle", CellChangeTimes->{{3.446836826531857*^9, 3.446836831621685*^9}, { 3.4468368688573427`*^9, 3.446836884848055*^9}}], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", ".3", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"Axes", "\[Rule]", "True"}]}], "]"}], ",", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"X", "[", RowBox[{ RowBox[{ FractionBox["1", "3"], RowBox[{"Cos", "[", "t", "]"}]}], ",", RowBox[{ FractionBox["1", "3"], RowBox[{"Sin", "[", "t", "]"}]}]}], "]"}], ",", RowBox[{"Y", "[", RowBox[{ RowBox[{ FractionBox["1", "3"], RowBox[{"Cos", "[", "t", "]"}]}], ",", RowBox[{ FractionBox["1", "3"], RowBox[{"Sin", "[", "t", "]"}]}]}], "]"}], ",", RowBox[{"Z", "[", RowBox[{ RowBox[{ FractionBox["1", "3"], RowBox[{"Cos", "[", "t", "]"}]}], ",", RowBox[{ FractionBox["1", "3"], RowBox[{"Sin", "[", "t", "]"}]}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"X", "[", RowBox[{ RowBox[{".5", RowBox[{"Cos", "[", "t", "]"}]}], ",", RowBox[{".5", " ", RowBox[{"Sin", "[", "t", "]"}]}]}], "]"}], ",", RowBox[{"Y", "[", RowBox[{ RowBox[{".5", RowBox[{"Cos", "[", "t", "]"}]}], ",", RowBox[{".5", RowBox[{"Sin", "[", "t", "]"}]}]}], "]"}], ",", RowBox[{"Z", "[", RowBox[{ RowBox[{".5", RowBox[{"Cos", "[", "t", "]"}]}], ",", RowBox[{".5", RowBox[{"Sin", "[", "t", "]"}]}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"X", "[", RowBox[{ RowBox[{"Cos", "[", "t", "]"}], ",", RowBox[{"Sin", "[", "t", "]"}]}], "]"}], ",", RowBox[{"Y", "[", RowBox[{ RowBox[{"Cos", "[", "t", "]"}], ",", RowBox[{"Sin", "[", "t", "]"}]}], "]"}], ",", RowBox[{"Z", "[", " ", RowBox[{ RowBox[{"Cos", "[", "t", "]"}], ",", RowBox[{"Sin", "[", "t", "]"}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"X", "[", RowBox[{ RowBox[{"2", " ", RowBox[{"Cos", "[", "t", "]"}]}], ",", RowBox[{"2", " ", RowBox[{"Sin", "[", "t", "]"}]}]}], "]"}], ",", RowBox[{"Y", "[", RowBox[{ RowBox[{"2", " ", RowBox[{"Cos", "[", "t", "]"}]}], ",", RowBox[{"2", " ", RowBox[{"Sin", "[", "t", "]"}]}]}], "]"}], ",", RowBox[{"Z", "[", RowBox[{ RowBox[{"2", " ", RowBox[{"Cos", "[", "t", "]"}]}], ",", RowBox[{"2", " ", RowBox[{"Sin", "[", "t", "]"}]}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"X", "[", RowBox[{ RowBox[{"3", " ", RowBox[{"Cos", "[", "t", "]"}]}], ",", RowBox[{"3", " ", RowBox[{"Sin", "[", "t", "]"}]}]}], "]"}], ",", RowBox[{"Y", "[", RowBox[{ RowBox[{"3", " ", RowBox[{"Cos", "[", "t", "]"}]}], ",", RowBox[{"3", " ", RowBox[{"Sin", "[", "t", "]"}]}]}], "]"}], ",", RowBox[{"Z", "[", RowBox[{ RowBox[{"3", " ", RowBox[{"Cos", "[", "t", "]"}]}], ",", RowBox[{"3", " ", RowBox[{"Sin", "[", "t", "]"}]}]}], "]"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", "Pi"}], ",", "Pi"}], "}"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.446831775258046*^9, 3.4468319621745167`*^9}, { 3.446832434176695*^9, 3.446832490799492*^9}, {3.446832637968315*^9, 3.4468326597742853`*^9}, {3.4468327103095407`*^9, 3.4468327539237747`*^9}, {3.446832906737845*^9, 3.446832912328518*^9}, { 3.446832959271709*^9, 3.446833074423696*^9}, 3.446833130192505*^9, { 3.446833325182852*^9, 3.446833344811137*^9}, {3.4468333783645983`*^9, 3.446833382076243*^9}, {3.4468337261902657`*^9, 3.4468337376789713`*^9}, 3.446834011009571*^9}] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "Part 4: The graph z\[Rule]", Cell[BoxData[ FormBox[ SuperscriptBox["\[ExponentialE]", "z"], TraditionalForm]]], " of the circles from part 1 on a Riemann Sphere." }], "Subtitle", CellChangeTimes->{{3.446836937815922*^9, 3.446836948238777*^9}, { 3.446836999912622*^9, 3.446837016343207*^9}}], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", ".3", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"Axes", "\[Rule]", "True"}]}], "]"}], ",", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"X", "[", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ FractionBox["1", "3"], "*", RowBox[{"Cos", "[", "t", "]"}]}]], RowBox[{"Cos", "[", RowBox[{ FractionBox["1", "3"], "*", RowBox[{"Sin", "[", "t", "]"}]}], "]"}]}], ",", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ FractionBox["1", "3"], "*", RowBox[{"Cos", "[", "t", "]"}]}]], RowBox[{"Sin", "[", RowBox[{ FractionBox["1", "3"], "*", RowBox[{"Sin", "[", "t", "]"}]}], "]"}]}]}], "]"}], ",", RowBox[{"Y", "[", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ FractionBox["1", "3"], "*", RowBox[{"Cos", "[", "t", "]"}]}]], RowBox[{"Cos", "[", RowBox[{ FractionBox["1", "3"], "*", RowBox[{"Sin", "[", "t", "]"}]}], "]"}]}], ",", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ FractionBox["1", "3"], "*", RowBox[{"Cos", "[", "t", "]"}]}]], RowBox[{"Sin", "[", RowBox[{ FractionBox["1", "3"], "*", RowBox[{"Sin", "[", "t", "]"}]}], "]"}]}]}], "]"}], ",", RowBox[{"Z", "[", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ FractionBox["1", "3"], "*", RowBox[{"Cos", "[", "t", "]"}]}]], RowBox[{"Cos", "[", RowBox[{ FractionBox["1", "3"], "*", RowBox[{"Sin", "[", "t", "]"}]}], "]"}]}], ",", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ FractionBox["1", "3"], "*", RowBox[{"Cos", "[", "t", "]"}]}]], RowBox[{"Sin", "[", RowBox[{ FractionBox["1", "3"], "*", RowBox[{"Sin", "[", "t", "]"}]}], "]"}]}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"X", "[", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{".5", "*", RowBox[{"Cos", "[", "t", "]"}]}]], RowBox[{"Cos", "[", RowBox[{".5", "*", RowBox[{"Sin", "[", "t", "]"}]}], "]"}]}], ",", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{".5", "*", RowBox[{"Cos", "[", "t", "]"}]}]], RowBox[{"Sin", "[", RowBox[{".5", "*", RowBox[{"Sin", "[", "t", "]"}]}], "]"}]}]}], "]"}], ",", RowBox[{"Y", "[", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{".5", "*", RowBox[{"Cos", "[", "t", "]"}]}]], RowBox[{"Cos", "[", RowBox[{".5", "*", RowBox[{"Sin", "[", "t", "]"}]}], "]"}]}], ",", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{".5", "*", RowBox[{"Cos", "[", "t", "]"}]}]], RowBox[{"Sin", "[", RowBox[{".5", "*", RowBox[{"Sin", "[", "t", "]"}]}], "]"}]}]}], "]"}], ",", RowBox[{"Z", "[", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{".5", "*", RowBox[{"Cos", "[", "t", "]"}]}]], RowBox[{"Cos", "[", RowBox[{".5", "*", RowBox[{"Sin", "[", "t", "]"}]}], "]"}]}], ",", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{".5", "*", RowBox[{"Cos", "[", "t", "]"}]}]], RowBox[{"Sin", "[", RowBox[{".5", "*", RowBox[{"Sin", "[", "t", "]"}]}], "]"}]}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"X", "[", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"Cos", "[", "t", "]"}]], RowBox[{"Cos", "[", RowBox[{"Sin", "[", "t", "]"}], "]"}]}], ",", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"Cos", "[", "t", "]"}]], RowBox[{"Sin", "[", RowBox[{"Sin", "[", "t", "]"}], "]"}]}]}], "]"}], ",", RowBox[{"Y", "[", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"Cos", "[", "t", "]"}]], RowBox[{"Cos", "[", RowBox[{"Sin", "[", "t", "]"}], "]"}]}], ",", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"Cos", "[", "t", "]"}]], RowBox[{"Sin", "[", RowBox[{"Sin", "[", "t", "]"}], "]"}]}]}], "]"}], ",", RowBox[{"Z", "[", " ", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"Cos", "[", "t", "]"}]], RowBox[{"Cos", "[", RowBox[{"Sin", "[", "t", "]"}], "]"}]}], ",", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"Cos", "[", "t", "]"}]], RowBox[{"Sin", "[", RowBox[{"Sin", "[", "t", "]"}], "]"}]}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"X", "[", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"2", "*", RowBox[{"Cos", "[", "t", "]"}]}]], RowBox[{"Cos", "[", RowBox[{"2", "*", RowBox[{"Sin", "[", "t", "]"}]}], "]"}]}], ",", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"2", "*", RowBox[{"Cos", "[", "t", "]"}]}]], RowBox[{"Sin", "[", RowBox[{"2", "*", RowBox[{"Sin", "[", "t", "]"}]}], "]"}]}]}], "]"}], ",", RowBox[{"Y", "[", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"2", "*", RowBox[{"Cos", "[", "t", "]"}]}]], RowBox[{"Cos", "[", RowBox[{"2", "*", RowBox[{"Sin", "[", "t", "]"}]}], "]"}]}], ",", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"2", "*", RowBox[{"Cos", "[", "t", "]"}]}]], RowBox[{"Sin", "[", RowBox[{"2", "*", RowBox[{"Sin", "[", "t", "]"}]}], "]"}]}]}], "]"}], ",", RowBox[{"Z", "[", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"2", "*", RowBox[{"Cos", "[", "t", "]"}]}]], RowBox[{"Cos", "[", RowBox[{"2", "*", RowBox[{"Sin", "[", "t", "]"}]}], "]"}]}], ",", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"2", "*", RowBox[{"Cos", "[", "t", "]"}]}]], RowBox[{"Sin", "[", RowBox[{"2", "*", RowBox[{"Sin", "[", "t", "]"}]}], "]"}]}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"X", "[", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"3", "*", RowBox[{"Cos", "[", "t", "]"}]}]], RowBox[{"Cos", "[", RowBox[{"3", "*", RowBox[{"Sin", "[", "t", "]"}]}], "]"}]}], ",", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"3", "*", RowBox[{"Cos", "[", "t", "]"}]}]], RowBox[{"Sin", "[", RowBox[{"3", "*", RowBox[{"Sin", "[", "t", "]"}]}], "]"}]}]}], "]"}], ",", RowBox[{"Y", "[", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"3", "*", RowBox[{"Cos", "[", "t", "]"}]}]], RowBox[{"Cos", "[", RowBox[{"3", "*", RowBox[{"Sin", "[", "t", "]"}]}], "]"}]}], ",", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"3", "*", RowBox[{"Cos", "[", "t", "]"}]}]], RowBox[{"Sin", "[", RowBox[{"3", "*", RowBox[{"Sin", "[", "t", "]"}]}], "]"}]}]}], "]"}], ",", RowBox[{"Z", "[", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"3", "*", RowBox[{"Cos", "[", "t", "]"}]}]], RowBox[{"Cos", "[", RowBox[{"3", "*", RowBox[{"Sin", "[", "t", "]"}]}], "]"}]}], ",", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"3", "*", RowBox[{"Cos", "[", "t", "]"}]}]], RowBox[{"Sin", "[", RowBox[{"3", "*", RowBox[{"Sin", "[", "t", "]"}]}], "]"}]}]}], "]"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", "Pi"}], ",", "Pi"}], "}"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{ 3.44683444508426*^9, {3.446834494257193*^9, 3.4468345047344093`*^9}, { 3.446834563586897*^9, 3.4468345657807198`*^9}, {3.446834631948863*^9, 3.446834644876683*^9}, {3.446834685805808*^9, 3.446834709054923*^9}, { 3.446834740560006*^9, 3.446834824374517*^9}}], Cell[BoxData[""], "Input", CellChangeTimes->{3.44683494339548*^9}] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "The graph z\[Rule]", Cell[BoxData[ FormBox[ SuperscriptBox["\[ExponentialE]", "z"], TraditionalForm]]], " of the circles from part 1 with the unit circle included." }], "Subtitle", CellChangeTimes->{{3.446837242615843*^9, 3.446837263620393*^9}}], Cell[BoxData[ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ FractionBox["1", "3"], "*", RowBox[{"Cos", "[", "t", "]"}]}]], RowBox[{"Cos", "[", RowBox[{ FractionBox["1", "3"], "*", RowBox[{"Sin", "[", "t", "]"}]}], "]"}]}], ",", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{ FractionBox["1", "3"], "*", RowBox[{"Cos", "[", "t", "]"}]}]], RowBox[{"Sin", "[", RowBox[{ FractionBox["1", "3"], "*", RowBox[{"Sin", "[", "t", "]"}]}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{".5", "*", RowBox[{"Cos", "[", "t", "]"}]}]], RowBox[{"Cos", "[", RowBox[{".5", "*", RowBox[{"Sin", "[", "t", "]"}]}], "]"}]}], ",", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{".5", "*", RowBox[{"Cos", "[", "t", "]"}]}]], RowBox[{"Sin", "[", RowBox[{".5", "*", RowBox[{"Sin", "[", "t", "]"}]}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"Cos", "[", "t", "]"}]], RowBox[{"Cos", "[", RowBox[{"Sin", "[", "t", "]"}], "]"}]}], ",", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"Cos", "[", "t", "]"}]], RowBox[{"Sin", "[", RowBox[{"Sin", "[", "t", "]"}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"2", "*", RowBox[{"Cos", "[", "t", "]"}]}]], RowBox[{"Cos", "[", RowBox[{"2", "*", RowBox[{"Sin", "[", "t", "]"}]}], "]"}]}], ",", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"2", "*", RowBox[{"Cos", "[", "t", "]"}]}]], RowBox[{"Sin", "[", RowBox[{"2", "*", RowBox[{"Sin", "[", "t", "]"}]}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"3", "*", RowBox[{"Cos", "[", "t", "]"}]}]], RowBox[{"Cos", "[", RowBox[{"3", "*", RowBox[{"Sin", "[", "t", "]"}]}], "]"}]}], ",", RowBox[{ SuperscriptBox["\[ExponentialE]", RowBox[{"3", "*", RowBox[{"Cos", "[", "t", "]"}]}]], RowBox[{"Sin", "[", RowBox[{"3", "*", RowBox[{"Sin", "[", "t", "]"}]}], "]"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Cos", "[", "t", "]"}], ",", RowBox[{"Sin", "[", "t", "]"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", "\[Pi]"}], ",", "\[Pi]"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.446835125297627*^9, 3.44683515853261*^9}, 3.446837503608281*^9, {3.4468384618018923`*^9, 3.446838463231992*^9}}] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "This is the graph of the unit circles from part 1 on the Riemann Sphere \ under the mapping z\[Rule]", Cell[BoxData[ FormBox[ FractionBox["1", "z"], TraditionalForm]]], "." }], "Subtitle", CellChangeTimes->{{3.446837616688365*^9, 3.44683768468495*^9}}], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Opacity", "[", ".3", "]"}], ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", "1"}], "]"}]}], "}"}], ",", RowBox[{"Axes", "\[Rule]", "True"}]}], "]"}], ",", RowBox[{"ParametricPlot3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"X", "[", RowBox[{ RowBox[{"3", RowBox[{"Cos", "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "3"}], RowBox[{"Sin", "[", "t", "]"}]}]}], "]"}], ",", RowBox[{"Y", "[", RowBox[{ RowBox[{"3", RowBox[{"Cos", "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "3"}], RowBox[{"Sin", "[", "t", "]"}]}]}], "]"}], ",", RowBox[{"Z", "[", RowBox[{ RowBox[{"3", RowBox[{"Cos", "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "3"}], RowBox[{"Sin", "[", "t", "]"}]}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"X", "[", RowBox[{ RowBox[{"2", RowBox[{"Cos", "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], " ", RowBox[{"Sin", "[", "t", "]"}]}]}], "]"}], ",", RowBox[{"Y", "[", RowBox[{ RowBox[{"2", RowBox[{"Cos", "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], RowBox[{"Sin", "[", "t", "]"}]}]}], "]"}], ",", RowBox[{"Z", "[", RowBox[{ RowBox[{"2", RowBox[{"Cos", "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", "2"}], RowBox[{"Sin", "[", "t", "]"}]}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"X", "[", RowBox[{ RowBox[{"Cos", "[", "t", "]"}], ",", RowBox[{"-", RowBox[{"Sin", "[", "t", "]"}]}]}], "]"}], ",", RowBox[{"Y", "[", RowBox[{ RowBox[{"Cos", "[", "t", "]"}], ",", RowBox[{"-", RowBox[{"Sin", "[", "t", "]"}]}]}], "]"}], ",", RowBox[{"Z", "[", " ", RowBox[{ RowBox[{"Cos", "[", "t", "]"}], ",", RowBox[{"-", RowBox[{"Sin", "[", "t", "]"}]}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"X", "[", RowBox[{ RowBox[{".5", " ", RowBox[{"Cos", "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", ".5"}], " ", RowBox[{"Sin", "[", "t", "]"}]}]}], "]"}], ",", RowBox[{"Y", "[", RowBox[{ RowBox[{".5", " ", RowBox[{"Cos", "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", ".5"}], " ", RowBox[{"Sin", "[", "t", "]"}]}]}], "]"}], ",", RowBox[{"Z", "[", RowBox[{ RowBox[{".5", RowBox[{"Cos", "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", ".5"}], " ", RowBox[{"Sin", "[", "t", "]"}]}]}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"X", "[", RowBox[{ RowBox[{ FractionBox["1", "3"], " ", RowBox[{"Cos", "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "3"]}], RowBox[{"Sin", "[", "t", "]"}]}]}], "]"}], ",", RowBox[{"Y", "[", RowBox[{ RowBox[{ FractionBox["1", "3"], " ", RowBox[{"Cos", "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "3"]}], RowBox[{"Sin", "[", "t", "]"}]}]}], "]"}], ",", RowBox[{"Z", "[", RowBox[{ RowBox[{ FractionBox["1", "3"], RowBox[{"Cos", "[", "t", "]"}]}], ",", RowBox[{ RowBox[{"-", FractionBox["1", "3"]}], RowBox[{"Sin", "[", "t", "]"}]}]}], "]"}]}], "}"}]}], "}"}], ",", RowBox[{"{", RowBox[{"t", ",", RowBox[{"-", "Pi"}], ",", "Pi"}], "}"}]}], "]"}]}], "]"}]], "Input", CellChangeTimes->{{3.44683740510918*^9, 3.4468374874431067`*^9}, { 3.4468375176231127`*^9, 3.446837567836762*^9}}] }, Open ]] }, WindowSize->{727, 925}, WindowMargins->{{Automatic, 269}, {14, Automatic}}, ShowSelection->True, FrontEndVersion->"7.0 for Linux x86 (64-bit) (November 11, 2008)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[567, 22, 128, 1, 53, "Subtitle"], Cell[698, 25, 1519, 42, 113, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[2254, 72, 253, 7, 53, "Subtitle"], Cell[2510, 81, 3096, 90, 149, "Input"], Cell[5609, 173, 1061, 34, 77, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[6707, 212, 215, 4, 85, "Subtitle"], Cell[6925, 218, 4614, 129, 237, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[11576, 352, 318, 8, 85, "Subtitle"], Cell[11897, 362, 10308, 279, 477, "Input"], Cell[22208, 643, 67, 1, 32, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[22312, 649, 271, 7, 85, "Subtitle"], Cell[22586, 658, 3180, 93, 178, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[25803, 756, 278, 8, 96, "Subtitle"], Cell[26084, 766, 4610, 138, 273, "Input"] }, Open ]] } ] *) (* End of internal cache information *)