(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 12.2' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 57038, 1412] NotebookOptionsPosition[ 52534, 1335] NotebookOutlinePosition[ 53108, 1357] CellTagsIndexPosition[ 53065, 1354] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Scientific Programming 6", "Title", CellChangeTimes->{{3.724943992364118*^9, 3.724944007146431*^9}, 3.725524593957123*^9, 3.726336972840088*^9, {3.821347032422962*^9, 3.8213470388273163`*^9}, 3.821955106714554*^9, 3.8225584238953733`*^9, { 3.822913868369982*^9, 3.822913869025544*^9}},ExpressionUUID->"28513503-cae1-403e-8849-\ 3300f1c8ba08"], Cell[BoxData[ RowBox[{ RowBox[{"SetOptions", "[", RowBox[{ RowBox[{"EvaluationNotebook", "[", "]"}], ",", " ", RowBox[{"Background", " ", "\[Rule]", " ", "LightBlue"}], ",", RowBox[{"CellBracketOptions", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"\"\\"", "\[Rule]", "Blue"}], ",", RowBox[{"\"\\"", "\[Rule]", RowBox[{"{", RowBox[{"20", ",", "20"}], "}"}]}], ",", RowBox[{"\"\\"", "\[Rule]", "3.5"}]}], "}"}]}], ",", RowBox[{"FontColor", "\[Rule]", "Black"}]}], "]"}], ";"}]], "Input", CellChangeTimes->{{3.8203427063672333`*^9, 3.820342710366617*^9}, { 3.820342935130333*^9, 3.820342954631484*^9}, {3.8203429969742928`*^9, 3.820343001387989*^9}, {3.820343450595797*^9, 3.8203434962099524`*^9}, { 3.82133799284402*^9, 3.821337995589003*^9}, 3.821338037042634*^9, { 3.821338104274653*^9, 3.821338118749104*^9}, 3.8213382124094257`*^9, { 3.821338261882592*^9, 3.821338269905648*^9}, 3.821338306335579*^9, { 3.821339170488145*^9, 3.821339195906999*^9}}, CellLabel->"In[1]:=",ExpressionUUID->"ea488723-95d0-4f83-bdb4-9046c033fe06"] }, Open ]], Cell[CellGroupData[{ Cell["A first look at graphics", "Title", CellChangeTimes->{{3.727786809642146*^9, 3.727786824107071*^9}},ExpressionUUID->"20602f72-8ddc-4b8a-af2d-\ 2430408e66a7"], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"BesselJ", "[", RowBox[{"5", ",", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "4"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.727618564254525*^9, 3.727618598810732*^9}}, CellLabel->"In[2]:=",ExpressionUUID->"d3c47008-a7de-4515-abbf-c15d7d5519c9"], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Sin", "[", "x", "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", RowBox[{"6", "Pi"}]}], "}"}], ",", "\[IndentingNewLine]", " ", RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}]], "Input", CellChangeTimes->{{3.684111359090275*^9, 3.684111377766101*^9}, { 3.684115444578443*^9, 3.6841154458483763`*^9}}, CellLabel->"In[3]:=", CellID->7234, $CellContext`ExpressionUUID -> "6dd5c95e-5ef5-4677-b48a-e05e8da5c2a7",ExpressionUUID->"2df58eea-8de8-4fa2-\ bf9e-6323af33d85b"], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Sin", "[", "x", "]"}], ",", RowBox[{"Sin", "[", RowBox[{"2", "x"}], "]"}], ",", RowBox[{"Sin", "[", RowBox[{"3", "x"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", "\[IndentingNewLine]", " ", RowBox[{"PlotLegends", "\[Rule]", "\"\\""}], ",", "\[IndentingNewLine]", " ", RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}]], "Input", CellChangeTimes->{{3.684111455878169*^9, 3.684111483665676*^9}}, CellLabel->"In[4]:=", CellID->13384, $CellContext`ExpressionUUID -> "4f77f565-9466-4391-8d2d-9bbb24455545",ExpressionUUID->"f89e3e56-652e-477e-\ 832a-b84db8cf0dac"], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Sin", "[", RowBox[{"n", " ", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "3"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", "\[IndentingNewLine]", " ", RowBox[{"PlotLegends", "\[Rule]", "\"\\""}], ",", "\[IndentingNewLine]", " ", RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}]], "Input", CellChangeTimes->{{3.823254931708447*^9, 3.823255000237176*^9}, { 3.823256870694828*^9, 3.823256881130615*^9}}, CellLabel->"In[5]:=",ExpressionUUID->"88e484a1-fd29-457d-a2ec-898342914bbe"], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"Sin", "[", RowBox[{"n", " ", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "3"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", "\[IndentingNewLine]", " ", RowBox[{"PlotLegends", "\[Rule]", "\"\\""}], ",", "\[IndentingNewLine]", " ", RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}]], "Input", CellChangeTimes->{{3.823254931708447*^9, 3.823255000237176*^9}}, CellLabel->"In[6]:=",ExpressionUUID->"0826a298-1596-4129-8415-2ea0a652c39f"], Cell[BoxData[ RowBox[{"Plot", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"BesselJ", "[", RowBox[{"n", ",", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "3"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "10"}], "}"}], ",", "\[IndentingNewLine]", " ", RowBox[{"Filling", "\[Rule]", "Axis"}], ",", "\[IndentingNewLine]", " ", RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}]], "Input", CellChangeTimes->{{3.684111607103516*^9, 3.6841116157728643`*^9}, { 3.6841116499691677`*^9, 3.684111688029443*^9}, {3.684111723266425*^9, 3.684111742006866*^9}, {3.684115604556676*^9, 3.6841156081963453`*^9}, { 3.684119434885222*^9, 3.68411943702695*^9}, 3.8232569651983023`*^9}, CellLabel->"In[7]:=", CellID->1199689710, $CellContext`ExpressionUUID -> "5107cc8f-ecba-4e15-b353-66112dc1eae1",ExpressionUUID->"4b7b42dc-c7b2-4678-\ bc72-c38fa5c1ca64"], Cell[BoxData[ RowBox[{"g1", "=", "\[IndentingNewLine]", RowBox[{"Plot", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"BesselJ", "[", RowBox[{"n", ",", "x"}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "3"}], "}"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "10"}], "}"}], ",", "\[IndentingNewLine]", " ", RowBox[{"Filling", "\[Rule]", "Axis"}], ",", "\[IndentingNewLine]", " ", RowBox[{"PlotLegends", "\[Rule]", "\"\\""}], ",", "\[IndentingNewLine]", " ", RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.684111607103516*^9, 3.6841116157728643`*^9}, { 3.6841116499691677`*^9, 3.684111688029443*^9}, {3.684111723266425*^9, 3.684111742006866*^9}, {3.684119422222436*^9, 3.684119425324139*^9}, { 3.823259449804366*^9, 3.82325948809787*^9}}, CellID->540913238, $CellContext`ExpressionUUID -> "5107cc8f-ecba-4e15-b353-66112dc1eae1",ExpressionUUID->"d8696d97-aa74-4036-\ 916e-31e461d4783c"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"n_", ",", "x_"}], "]"}], ":=", FractionBox[ RowBox[{" ", SuperscriptBox[ RowBox[{"Abs", "[", " ", RowBox[{"HermiteH", "[", RowBox[{"n", ",", "x"}], "]"}], " ", "]"}], "2"]}], RowBox[{ SuperscriptBox["\[Pi]", RowBox[{"1", "/", "2"}]], " ", SuperscriptBox["2", "n"], RowBox[{"n", "!"}], " ", SuperscriptBox["\[ExponentialE]", SuperscriptBox["x", "2"]]}]]}], "\n"}], "\[IndentingNewLine]", RowBox[{"Plot", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Evaluate", "[", " ", RowBox[{"Append", "[", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"f", "[", RowBox[{"n", ",", "x"}], "]"}], "+", "n", "+", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "7"}], "}"}]}], "]"}], ",", RowBox[{ SuperscriptBox["x", "2"], "/", "2"}]}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "4"}], ",", "4"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Filling", "\[Rule]", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"n", "->", RowBox[{"n", "-", RowBox[{"1", "/", "2"}]}]}], ",", RowBox[{"{", RowBox[{"n", ",", "1", ",", "8"}], "}"}]}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}]}], "Input", CellChangeTimes->{{3.82316451586143*^9, 3.82316457411068*^9}, { 3.823164621837451*^9, 3.823164721861356*^9}, {3.823164758714344*^9, 3.823164850083549*^9}, 3.823165095555181*^9, {3.8231651408657427`*^9, 3.823165159384981*^9}, {3.823165228897047*^9, 3.823165235866459*^9}, { 3.82325634966887*^9, 3.82325635863379*^9}, {3.823256547878557*^9, 3.82325661187024*^9}, 3.823256684438908*^9, {3.823256717437977*^9, 3.823256744324795*^9}, {3.823256783244733*^9, 3.823256798700129*^9}}, CellLabel->"In[10]:=",ExpressionUUID->"f6262804-4a40-4c25-a8f4-483c4ea12aa9"], Cell[BoxData[ RowBox[{"Clear", "[", "f", "]"}]], "Input", CellChangeTimes->{{3.684111902009981*^9, 3.684111906108592*^9}}, CellLabel->"In[12]:=",ExpressionUUID->"fb7a8635-5e44-4296-8e69-fab621cbc805"], Cell[BoxData[ RowBox[{"Plot3D", "[", RowBox[{ RowBox[{"Sin", "[", RowBox[{"x", " ", "y"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", "0", ",", "3"}], "}"}], ",", "\[IndentingNewLine]", " ", RowBox[{"ImageSize", "\[Rule]", "400"}], ",", "\[IndentingNewLine]", " ", RowBox[{"BoxRatios", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}]}]}], "\[IndentingNewLine]", " ", "]"}]], "Input", CellChangeTimes->{ 3.823257271152996*^9, {3.823259924365741*^9, 3.823259935449204*^9}, 3.82325997102805*^9}, CellLabel->"In[14]:=",ExpressionUUID->"a1b01863-1262-420d-978e-ae0ee3d5f029"], Cell[BoxData[ RowBox[{"Plot3D", "[", RowBox[{ RowBox[{"Sin", "[", RowBox[{"x", " ", "y"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", "0", ",", "3"}], "}"}], ",", "\[IndentingNewLine]", " ", RowBox[{"ColorFunction", "\[Rule]", "\"\\""}], ",", "\[IndentingNewLine]", " ", RowBox[{"ImageSize", "\[Rule]", "400"}], ",", "\[IndentingNewLine]", " ", RowBox[{"BoxRatios", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}]}]}], "\[IndentingNewLine]", " ", "]"}]], "Input", CellChangeTimes->{3.823257271152996*^9}, CellLabel->"In[15]:=",ExpressionUUID->"49a5e550-352d-4311-9949-46fdc9c4683d"], Cell[BoxData[ RowBox[{"Plot3D", "[", RowBox[{ RowBox[{"Sin", "[", RowBox[{"x", " ", "y"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", "0", ",", "3"}], "}"}], ",", "\[IndentingNewLine]", " ", RowBox[{"ColorFunction", "\[Rule]", "\"\\""}], ",", "\[IndentingNewLine]", " ", RowBox[{"ImageSize", "\[Rule]", "400"}], ",", "\[IndentingNewLine]", " ", RowBox[{"BoxRatios", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "1", ",", "1"}], "}"}]}], ",", "\[IndentingNewLine]", " ", RowBox[{"ViewPoint", "\[Rule]", RowBox[{"{", RowBox[{"4", ",", RowBox[{"-", "1"}], ",", "1"}], "}"}]}]}], "\[IndentingNewLine]", " ", "]"}]], "Input", CellChangeTimes->{{3.684117238415029*^9, 3.68411727825716*^9}, { 3.6841173136058207`*^9, 3.684117320258589*^9}, {3.68411736090657*^9, 3.684117475256122*^9}, {3.684117543629534*^9, 3.684117622892219*^9}, { 3.823257057093815*^9, 3.823257241515457*^9}}, CellLabel->"In[16]:=", CellID->50579370,ExpressionUUID->"50aef7d6-6790-447e-bee2-0e6ef4245668"], Cell[BoxData[ RowBox[{"Plot3D", "[", RowBox[{ RowBox[{ RowBox[{"Cos", "[", "x", "]"}], "+", RowBox[{"Cos", "[", "y", "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", RowBox[{"4", "Pi"}]}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", "0", ",", RowBox[{"4", "Pi"}]}], "}"}], ",", "\[IndentingNewLine]", " ", RowBox[{"ColorFunction", "\[Rule]", "\"\\""}], ",", "\[IndentingNewLine]", " ", RowBox[{"ImageSize", "\[Rule]", "400"}], ",", "\[IndentingNewLine]", " ", RowBox[{"BoxRatios", "\[Rule]", RowBox[{"{", RowBox[{"1", ",", "1", ",", "0.7"}], "}"}]}]}], "\[IndentingNewLine]", " ", "]"}]], "Input", CellChangeTimes->{{3.684117238415029*^9, 3.68411727825716*^9}, { 3.6841173136058207`*^9, 3.684117320258589*^9}, {3.68411736090657*^9, 3.684117475256122*^9}, {3.684117543629534*^9, 3.684117622892219*^9}, 3.823165505823184*^9, {3.8231655555632*^9, 3.8231655923664618`*^9}, 3.823260325722665*^9}, CellLabel->"In[18]:=", CellID->347351342,ExpressionUUID->"62f36bf6-7d94-42d9-8bf4-f9922f816fbc"], Cell[BoxData[ RowBox[{"g3", "=", "\[IndentingNewLine]", RowBox[{"ContourPlot", "[", RowBox[{ RowBox[{ RowBox[{"Cos", "[", "x", "]"}], "+", RowBox[{"Cos", "[", "y", "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", RowBox[{"4", "Pi"}]}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", "0", ",", RowBox[{"4", "Pi"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"ColorFunction", "\[Rule]", "\"\\""}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.68411580127525*^9, 3.6841158189758863`*^9}, { 3.684119448139834*^9, 3.684119450649494*^9}, {3.823165643649261*^9, 3.8231657014270973`*^9}}, CellLabel->"In[19]:=", CellID->18467,ExpressionUUID->"395f4f11-e633-41a1-801f-a1aa6e3dee23"], Cell[BoxData[ RowBox[{"ContourPlot", "[", RowBox[{ RowBox[{ RowBox[{"Cos", "[", "x", "]"}], "+", RowBox[{"Cos", "[", "y", "]"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", RowBox[{"4", "Pi"}]}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", "0", ",", RowBox[{"4", "Pi"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"ColorFunction", "\[Rule]", "\"\\""}], ",", "\[IndentingNewLine]", RowBox[{"PlotPoints", "\[Rule]", "200"}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", "400"}], ",", "\[IndentingNewLine]", RowBox[{"PlotLegends", "\[Rule]", "Automatic"}]}], "]"}]], "Input", CellChangeTimes->{{3.8231643596436377`*^9, 3.8231643850692577`*^9}, { 3.823165327601904*^9, 3.82316533493534*^9}, {3.823165726850656*^9, 3.823165727834944*^9}, {3.823165841362303*^9, 3.823165854227379*^9}}, CellLabel->"In[20]:=", CellID->1462638079,ExpressionUUID->"23a19be9-5b07-4568-894e-3fb32be60369"], Cell[BoxData[ RowBox[{"Options", "[", "ContourPlot", "]"}]], "Input", CellChangeTimes->{{3.684115872658498*^9, 3.684115890628552*^9}}, CellLabel-> "In[127]:=",ExpressionUUID->"1091c50a-ea0a-4e91-b40c-edd0186e4eec"], Cell[BoxData[ RowBox[{"g4", "=", RowBox[{"ContourPlot", "[", RowBox[{ RowBox[{ RowBox[{ RowBox[{"Cos", "[", "x", "]"}], "+", RowBox[{"Cos", "[", "y", "]"}]}], "\[Equal]", RowBox[{"1", "/", "2"}]}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", RowBox[{"4", "Pi"}]}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", "0", ",", RowBox[{"4", "Pi"}]}], "}"}]}], "]"}]}]], "Input", CellChangeTimes->{{3.684119468553508*^9, 3.684119471063388*^9}}, CellLabel->"In[21]:=", CellID->19169,ExpressionUUID->"0b219160-9bfb-4f0d-b284-33b6614308fd"], Cell[BoxData[ RowBox[{"g2", "=", RowBox[{"Plot3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"x", "^", "2"}], "+", RowBox[{"y", "^", "2"}]}], ",", RowBox[{ RowBox[{"-", RowBox[{"x", "^", "2"}]}], "-", RowBox[{"y", "^", "2"}]}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", "\[IndentingNewLine]", " ", RowBox[{"PlotStyle", "\[Rule]", " ", RowBox[{"Opacity", "[", "0.5", "]"}]}]}], " ", "]"}]}]], "Input", CellChangeTimes->{{3.684117724591114*^9, 3.684117756486723*^9}, { 3.6841178064443808`*^9, 3.6841178127100487`*^9}, {3.6841178463579273`*^9, 3.684117868878722*^9}, {3.684117929273736*^9, 3.684118096853385*^9}, 3.684118142893291*^9, {3.684322678095986*^9, 3.684322681309183*^9}, { 3.684322851985223*^9, 3.6843228864928713`*^9}, {3.68432292537675*^9, 3.684322943224444*^9}, {3.823261113336097*^9, 3.823261115051051*^9}}, CellLabel->"In[27]:=", CellID->1202656900,ExpressionUUID->"82611272-6b25-4a68-8571-ce72c954b0b8"], Cell[BoxData[ RowBox[{"ParametricPlot3D", "[", RowBox[{ 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", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"u", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", RowBox[{"{", RowBox[{"v", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"ColorFunction", "\[Rule]", "\"\\""}], ",", "\[IndentingNewLine]", " ", RowBox[{"ImageSize", "\[Rule]", "400"}], ",", "\[IndentingNewLine]", " ", RowBox[{"Ticks", "\[Rule]", "False"}]}], "]"}]], "Input", CellChangeTimes->{{3.684118203330888*^9, 3.684118281688776*^9}, { 3.823260972163624*^9, 3.823261006091075*^9}}, CellLabel->"In[25]:=", CellID->1054715,ExpressionUUID->"5d7b8245-d1a4-4a38-b66d-18acc62292cb"], Cell[BoxData[ RowBox[{"GraphicsGrid", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"g1", ",", "g2"}], "}"}], ",", RowBox[{"{", RowBox[{"g3", ",", "g4"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", "400"}]}], "]"}]], "Input", CellChangeTimes->{{3.684119726679788*^9, 3.684119795566547*^9}}, CellLabel->"In[28]:=",ExpressionUUID->"275a3065-c3b3-4826-9eb2-8eac2ce85648"] }, Closed]], Cell[CellGroupData[{ Cell["A second look at graphics", "Title", CellChangeTimes->{{3.727786809642146*^9, 3.727786824107071*^9}, { 3.822916340128461*^9, 3.82291634231271*^9}},ExpressionUUID->"24f403c2-13b5-42e4-b5e4-\ a0c23bf76908"], Cell[BoxData[ RowBox[{"Graphics", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{"Blue", ",", RowBox[{"AbsoluteThickness", "[", "2", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "Red", ",", RowBox[{"AbsolutePointSize", "[", "5", "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], "]"}], ",", "\[IndentingNewLine]", "Green", ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "0"}], "}"}], ",", "1"}], "]"}], ",", "Pink", ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "0"}], "}"}], ",", "1.5", ",", RowBox[{"{", RowBox[{ RowBox[{"\[Pi]", "/", "4"}], ",", RowBox[{"7", RowBox[{"\[Pi]", "/", "4"}]}]}], "}"}]}], "]"}]}], "}"}], "\[IndentingNewLine]", " ", "]"}]], "Input", CellChangeTimes->{{3.684109328219758*^9, 3.684109501193636*^9}, { 3.68410953476975*^9, 3.684109682098577*^9}, {3.684109728760028*^9, 3.684109771121595*^9}, {3.6841098148446493`*^9, 3.6841098580127707`*^9}, { 3.727618546640931*^9, 3.727618560497759*^9}, {3.823166221407242*^9, 3.823166242205798*^9}}, CellLabel->"In[29]:=",ExpressionUUID->"a3e1a24d-576e-40df-b383-3b9c52ad887a"], Cell[BoxData[ RowBox[{"Graphics", "[", RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"{", RowBox[{"Cyan", ",", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ RowBox[{"AbsoluteThickness", "[", "3", "]"}], ",", RowBox[{"RGBColor", "[", RowBox[{"0", ",", "0", ",", "1"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Rectangle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"2", ",", "2"}], "}"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ RowBox[{"AbsoluteThickness", "[", "3", "]"}], ",", RowBox[{"RGBColor", "[", RowBox[{"1", ",", "0", ",", "0"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"FaceForm", "[", "LightPink", "]"}], ",", RowBox[{"Polygon", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "1"}], "}"}]}], "}"}], "]"}]}], "}"}]}], " ", "}"}], "\[IndentingNewLine]", " ", "]"}]], "Input", CellChangeTimes->{{3.684109328219758*^9, 3.684109501193636*^9}, { 3.68410953476975*^9, 3.684109682098577*^9}, {3.684109728760028*^9, 3.684109771121595*^9}, {3.6841098148446493`*^9, 3.6841098580127707`*^9}, { 3.684109902942502*^9, 3.6841099056919527`*^9}, {3.684109937078948*^9, 3.684109937541134*^9}, {3.6841100587459517`*^9, 3.684110285403623*^9}, 3.6841103154079323`*^9, {3.684110361091844*^9, 3.684110383219823*^9}, { 3.6841104338569717`*^9, 3.684110436197844*^9}, {3.684110565261202*^9, 3.684110612819528*^9}, {3.6841147916893873`*^9, 3.6841148830255737`*^9}, { 3.6841149533807993`*^9, 3.684114967518248*^9}}, CellLabel->"In[30]:=",ExpressionUUID->"cbf860b8-eb13-4a74-9fa4-64c489f7c679"], Cell[BoxData[ RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"AbsoluteThickness", "[", "2", "]"}], ",", "\[IndentingNewLine]", "Red", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "y"}], "}"}], ",", RowBox[{"{", RowBox[{"1", ",", "y"}], "}"}]}], "}"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"y", ",", "0", ",", "1", ",", "0.2"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Blue", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "1"}], "}"}]}], "}"}], "]"}], ",", " ", RowBox[{"{", RowBox[{"x", ",", "0", ",", "1", ",", "0.2"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", " ", "Cyan", ",", " ", RowBox[{"EdgeForm", "[", RowBox[{"{", RowBox[{ RowBox[{"AbsoluteThickness", "[", "3", "]"}], ",", RowBox[{"RGBColor", "[", RowBox[{"0", ",", "0", ",", "1"}], "]"}]}], "}"}], "]"}], ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "y"}], "}"}], ",", "0.075"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", "0.1", ",", "0.9", ",", "0.2"}], "}"}], ",", RowBox[{"{", RowBox[{"y", ",", "0.1", ",", "0.9", ",", "0.2"}], "}"}]}], "]"}]}], "}"}], "\[IndentingNewLine]", " ", "]"}]], "Input", CellChangeTimes->{{3.68411066653373*^9, 3.6841108360166388`*^9}, { 3.68411503825858*^9, 3.684115212052546*^9}, {3.6841152515489063`*^9, 3.6841152616020412`*^9}, {3.8232620343497057`*^9, 3.823262049222196*^9}}, CellLabel->"In[33]:=",ExpressionUUID->"860cc96c-a9af-4318-8e41-56dc73d50213"], Cell[BoxData[ RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{"Line", "[", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{"x", ",", " ", RowBox[{"BesselJ", "[", RowBox[{"n", ",", "x"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "3"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", "10", ",", "0.1"}], "}"}]}], "]"}], " ", "]"}], "}"}], ",", "\[IndentingNewLine]", " ", RowBox[{"AspectRatio", "\[Rule]", "1"}]}], "\[IndentingNewLine]", " ", "]"}]], "Input", CellChangeTimes->{{3.684110904181163*^9, 3.6841109513048363`*^9}, { 3.684110983442326*^9, 3.684111176265629*^9}, {3.823262251821424*^9, 3.82326227742*^9}}, CellLabel->"In[36]:=",ExpressionUUID->"b05d9c97-978f-4fd2-88c1-90935ab7a192"], Cell[BoxData["g1"], "Input", CellChangeTimes->{{3.68411948233365*^9, 3.684119483205782*^9}}, CellLabel->"In[37]:=",ExpressionUUID->"c5ba7329-f9ab-462c-8b4c-a8242a1883c1"], Cell[BoxData[ RowBox[{"Show", "[", RowBox[{ RowBox[{"{", RowBox[{"g1", ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Red", ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{"3", ",", "1.5"}], "}"}], ",", "0.5"}], "]"}]}], "}"}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Axes", "\[Rule]", "False"}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "->", "All"}], ",", "\[IndentingNewLine]", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}]], "Input", CellChangeTimes->{{3.684119500534851*^9, 3.68411962379709*^9}, { 3.684119663766673*^9, 3.684119676842972*^9}, {3.727619564019545*^9, 3.7276195732215433`*^9}, {3.823262412409986*^9, 3.8232624818916063`*^9}}, CellLabel->"In[41]:=",ExpressionUUID->"f57eeb68-3cbc-4058-8d90-079187a7877c"], Cell[BoxData[ RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{"{", RowBox[{"Dashed", ",", RowBox[{"GrayLevel", "[", "0.4", "]"}], ",", RowBox[{"AbsoluteThickness", "[", "0.7", "]"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"x", ",", "1.2"}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "32.2"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{"-", "55"}], ",", "55", ",", "5"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Table", "[", RowBox[{ RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "55"}], ",", "y"}], "}"}], ",", RowBox[{"{", RowBox[{"55", ",", "y"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"{", RowBox[{"y", ",", "5", ",", "30", ",", "5"}], "}"}]}], "]"}]}], "}"}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"AspectRatio", "\[Rule]", "0.8`"}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "58"}], ",", "58"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "33"}], "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Frame", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", RowBox[{"FrameTicks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Which", "[", RowBox[{ RowBox[{ RowBox[{"Mod", "[", RowBox[{"n", ",", "10"}], "]"}], "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"n", ",", "n", ",", RowBox[{"{", RowBox[{"0.02", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", " ", RowBox[{ RowBox[{"Mod", "[", RowBox[{"n", ",", "5"}], "]"}], "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"n", ",", "n", ",", RowBox[{"{", RowBox[{"0.015", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", " ", "True", ",", RowBox[{"{", RowBox[{"n", ",", "Null", ",", RowBox[{"{", RowBox[{"0.01", ",", "0"}], "}"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "33"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Which", "[", RowBox[{ RowBox[{ RowBox[{"Mod", "[", RowBox[{"n", ",", "10"}], "]"}], "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"n", ",", "Null", ",", RowBox[{"{", RowBox[{"0.02", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", " ", RowBox[{ RowBox[{"Mod", "[", RowBox[{"n", ",", "5"}], "]"}], "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"n", ",", "Null", ",", RowBox[{"{", RowBox[{"0.015", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", " ", "True", ",", RowBox[{"{", RowBox[{"n", ",", "Null", ",", RowBox[{"{", RowBox[{"0.01", ",", "0"}], "}"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "33"}], "}"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", " ", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"Which", "[", RowBox[{ RowBox[{ RowBox[{"Mod", "[", RowBox[{"n", ",", "10"}], "]"}], "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"If", "[", RowBox[{ RowBox[{"n", "\[GreaterEqual]", "0"}], ",", "n", " ", ",", RowBox[{"n", " ", RowBox[{"Spacer", "[", "10", "]"}]}]}], "]"}], ",", RowBox[{"{", RowBox[{"0.02", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", " ", RowBox[{ RowBox[{"Mod", "[", RowBox[{"n", ",", "5"}], "]"}], "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"n", ",", "Null", ",", RowBox[{"{", RowBox[{"0.015", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", " ", "True", ",", RowBox[{"{", RowBox[{"n", ",", "Null", ",", RowBox[{"{", RowBox[{"0.01", ",", "0"}], "}"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"-", "58"}], ",", "58"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", " ", RowBox[{"Table", "[", RowBox[{ RowBox[{"Which", "[", RowBox[{ RowBox[{ RowBox[{"Mod", "[", RowBox[{"n", ",", "10"}], "]"}], "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"n", ",", "Null", ",", RowBox[{"{", RowBox[{"0.02", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", " ", RowBox[{ RowBox[{"Mod", "[", RowBox[{"n", ",", "5"}], "]"}], "\[Equal]", "0"}], ",", RowBox[{"{", RowBox[{"n", ",", "Null", ",", RowBox[{"{", RowBox[{"0.015", ",", "0"}], "}"}]}], "}"}], ",", "\[IndentingNewLine]", " ", "True", ",", RowBox[{"{", RowBox[{"n", ",", "Null", ",", RowBox[{"{", RowBox[{"0.01", ",", "0"}], "}"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", RowBox[{"-", "58"}], ",", "58"}], "}"}]}], "]"}]}], "}"}]}], " ", "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"FrameStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{"{", RowBox[{ RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", " ", RowBox[{"FontSize", "\[Rule]", "17"}]}], "}"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", "600"}]}], "]"}]], "Input", CellChangeTimes->{ 3.6373080960359287`*^9, {3.637308435098134*^9, 3.637308456251855*^9}, { 3.6373084939100933`*^9, 3.6373086429022827`*^9}, {3.637308677685058*^9, 3.637308710510903*^9}, {3.637308744100864*^9, 3.637308798398027*^9}, { 3.637308830705615*^9, 3.637309116759213*^9}, {3.637309155984198*^9, 3.63730920681001*^9}, {3.637309247835495*^9, 3.6373092938807497`*^9}, { 3.637309360087213*^9, 3.637309504528501*^9}, {3.637309564599041*^9, 3.63730964728642*^9}, {3.63730970089497*^9, 3.6373097399532347`*^9}, { 3.637331539168296*^9, 3.6373315500457563`*^9}, {3.637331621588787*^9, 3.6373316229410973`*^9}, {3.637332039438962*^9, 3.6373320626197844`*^9}, { 3.6373321047309427`*^9, 3.637332219305904*^9}, {3.637332944792074*^9, 3.6373331081152363`*^9}, {3.637333198422056*^9, 3.637333308161477*^9}, { 3.6373341257876673`*^9, 3.6373341275140038`*^9}, {3.637334165563323*^9, 3.63733417979955*^9}, {3.637334220496953*^9, 3.637334258392336*^9}, { 3.637334450666341*^9, 3.63733446703515*^9}, {3.637334498072989*^9, 3.637334501233515*^9}, 3.637397996509445*^9, {3.637398074108388*^9, 3.63739809403413*^9}, {3.638045467952448*^9, 3.63804558027701*^9}, { 3.6380456141366863`*^9, 3.6380457475034237`*^9}, {3.63804676725303*^9, 3.638046832587335*^9}, {3.638046893995047*^9, 3.638046896588645*^9}, { 3.6380469378726397`*^9, 3.6380469383868628`*^9}, {3.684112729614399*^9, 3.684112741808971*^9}, {3.684112778176909*^9, 3.684112800155239*^9}, { 3.684114142242937*^9, 3.684114191356504*^9}, 3.684114261339068*^9, { 3.684116586513431*^9, 3.684116652585679*^9}, {3.822914519450527*^9, 3.822914520332155*^9}, {3.822914591029727*^9, 3.822914605791226*^9}, { 3.8231670431543016`*^9, 3.823167049290448*^9}, {3.823167104369376*^9, 3.8231671411398783`*^9}, {3.823167176132309*^9, 3.823167203276029*^9}, { 3.8232626837935457`*^9, 3.823262703733692*^9}, 3.823262735722361*^9, { 3.823262805732877*^9, 3.823262815330476*^9}, {3.8232628869615498`*^9, 3.8232628961517963`*^9}, {3.8232629526855173`*^9, 3.8232629560448103`*^9}, {3.823262995933484*^9, 3.823263004076726*^9}}, CellLabel->"In[47]:=",ExpressionUUID->"de44e2d4-0251-4432-a296-5255bb61c759"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"\[Psi]", "[", "n_", "]"}], ":=", RowBox[{ RowBox[{"-", SuperscriptBox[ RowBox[{"(", FractionBox["3", "2"], ")"}], "n"]}], FractionBox["1", "50"]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", "\[IndentingNewLine]", RowBox[{ RowBox[{"AbsoluteThickness", "[", "1.8", "]"}], ",", " ", "\[IndentingNewLine]", "Black", ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"1", "/", "25"}]}], "]"}], ",", "\[IndentingNewLine]", "Red", ",", RowBox[{"Table", "[", RowBox[{ RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Psi]", "[", "n", "]"}], ",", "0"}], "}"}], ",", RowBox[{"Abs", "[", RowBox[{"\[Psi]", "[", "n", "]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "5"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"AbsolutePointSize", "[", "7", "]"}], ",", "Black", ",", RowBox[{"Point", "[", RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Psi]", "[", "n", "]"}], ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "5"}], "}"}]}], "]"}], "]"}], ",", "\[IndentingNewLine]", "Red", ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "/", "7"}], ",", "0"}], "}"}], "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], "]"}], ",", "\[IndentingNewLine]", "Blue", ",", RowBox[{"Text", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "/", "7"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{ RowBox[{"-", "1"}], "/", "7"}], "-", "0.0015"}], ",", "0.016"}], "}"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", "600"}], ",", "\[IndentingNewLine]", RowBox[{"Axes", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", RowBox[{"AxesStyle", "\[Rule]", RowBox[{"Directive", "[", RowBox[{ RowBox[{"GrayLevel", "[", "0.6", "]"}], ",", "12"}], "]"}]}], ",", "\[IndentingNewLine]", RowBox[{"Method", "\[Rule]", RowBox[{"{", RowBox[{"\"\\"", "\[Rule]", "False"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Ticks", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"Table", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"\[Psi]", "[", "n", "]"}], ",", SubscriptBox["\[Psi]", "n"]}], "}"}], ",", RowBox[{"{", RowBox[{"n", ",", "0", ",", "5"}], "}"}]}], "]"}], ",", "None"}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"TicksStyle", "\[Rule]", " ", RowBox[{"Directive", "[", RowBox[{"Blue", ",", RowBox[{"FontFamily", "\[Rule]", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "17"}]}], "]"}]}]}], "\[IndentingNewLine]", " ", "]"}]}], "Input", CellChangeTimes->{{3.760515056287816*^9, 3.760515210340852*^9}, { 3.76051533451396*^9, 3.760515415296657*^9}, {3.760515715813105*^9, 3.76051584244009*^9}, {3.760515894305203*^9, 3.760516016988353*^9}, { 3.7605160545771914`*^9, 3.760516089964637*^9}, {3.7605161698868637`*^9, 3.760516176723138*^9}, {3.760516209872365*^9, 3.760516231218082*^9}, { 3.760516493092765*^9, 3.760516530816613*^9}, {3.760516566994811*^9, 3.7605168993379593`*^9}, {3.76051693257099*^9, 3.760516960333309*^9}, { 3.7605170022751617`*^9, 3.760517002817494*^9}, {3.760517115129754*^9, 3.7605172088083477`*^9}, {3.760517252596513*^9, 3.760517260281624*^9}, { 3.760517414697072*^9, 3.7605174222525263`*^9}, {3.760517554116663*^9, 3.7605176523068047`*^9}, {3.760517805107773*^9, 3.760517841518449*^9}, { 3.760518033068162*^9, 3.7605180423739367`*^9}, {3.7605180762491817`*^9, 3.760518107472763*^9}, {3.760518143472184*^9, 3.760518153507621*^9}, { 3.760518215214119*^9, 3.760518226207932*^9}, {3.760518294232277*^9, 3.7605183353099194`*^9}, 3.7605183721452713`*^9, {3.760518488116373*^9, 3.760518495963234*^9}, {3.760523442176882*^9, 3.760523476972226*^9}, { 3.760523549554914*^9, 3.7605235741269827`*^9}, {3.760523614990706*^9, 3.7605236731491632`*^9}, {3.760523781505332*^9, 3.760523806529892*^9}, { 3.7605238879702883`*^9, 3.7605239738164253`*^9}, {3.760524052961268*^9, 3.760524056751822*^9}, 3.760524781897203*^9, {3.7605252193107224`*^9, 3.760525228559154*^9}, {3.760525279312396*^9, 3.760525296898025*^9}, { 3.76052541319888*^9, 3.760525439104168*^9}, {3.822915200464704*^9, 3.8229152160914783`*^9}, 3.8231673076660013`*^9}, CellLabel->"In[48]:=",ExpressionUUID->"67908803-d24f-4590-bdc8-f529b5864b46"], Cell[CellGroupData[{ Cell["A hypocycloid", "Subsection", CellChangeTimes->{{3.728286525820457*^9, 3.728286538869321*^9}},ExpressionUUID->"8b918e0b-3a16-45d9-865e-\ abefc29e0e4e"], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"center", "[", RowBox[{"r_", ",", "\[Theta]_"}], "]"}], ":=", RowBox[{ RowBox[{"(", RowBox[{"1", "-", "r"}], ")"}], RowBox[{"{", RowBox[{ RowBox[{"Sin", "[", "\[Theta]", "]"}], ",", RowBox[{"-", RowBox[{"Cos", "[", "\[Theta]", "]"}]}]}], "}"}]}]}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"pt", "[", RowBox[{"r_", ",", "\[Theta]_"}], "]"}], ":=", " ", RowBox[{ RowBox[{"center", "[", RowBox[{"r", ",", "\[Theta]"}], "]"}], "-", RowBox[{"r", " ", RowBox[{"{", RowBox[{ RowBox[{"Sin", "[", RowBox[{ FractionBox[ RowBox[{"(", RowBox[{"1", "-", "r"}], ")"}], "r"], "\[Theta]"}], "]"}], ",", " ", RowBox[{"Cos", "[", RowBox[{ FractionBox[ RowBox[{"(", RowBox[{"1", "-", "r"}], ")"}], "r"], "\[Theta]"}], "]"}]}], "}"}]}]}]}]}], "Input", CellChangeTimes->{{3.728221100557925*^9, 3.728221251587146*^9}, 3.728221483730525*^9}, CellLabel->"In[50]:=",ExpressionUUID->"b0b4a429-025b-46cb-946b-bb20eb06f0f3"], Cell[BoxData[ RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"r", "=", RowBox[{"1", "/", "3"}]}], ",", RowBox[{"\[Theta]", "=", RowBox[{"\[Pi]", "/", "5"}]}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"AbsoluteThickness", "[", "3", "]"}], ",", "\[IndentingNewLine]", RowBox[{"GrayLevel", "[", "0.7", "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{ FractionBox["1", RowBox[{"1", "-", "r"}]], RowBox[{"center", "[", RowBox[{"r", ",", "\[Theta]"}], "]"}]}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", " ", RowBox[{"{", RowBox[{ RowBox[{"center", "[", RowBox[{"r", ",", "\[Theta]"}], "]"}], ",", RowBox[{"pt", "[", RowBox[{"r", ",", "\[Theta]"}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "Black", ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", "1"}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"center", "[", RowBox[{"r", ",", "\[Theta]"}], "]"}], ",", "r"}], "]"}], ",", "\[IndentingNewLine]", "Red", ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", "1", ",", RowBox[{"{", RowBox[{ FractionBox[ RowBox[{"3", "\[Pi]"}], "2"], ",", RowBox[{ FractionBox[ RowBox[{"3", "\[Pi]"}], "2"], "+", "\[Theta]"}]}], "}"}]}], "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"center", "[", RowBox[{"r", ",", "\[Theta]"}], "]"}], ",", "r", ",", RowBox[{"{", RowBox[{ RowBox[{ FractionBox[ RowBox[{"3", "\[Pi]"}], "2"], "+", "\[Theta]", "-", RowBox[{ FractionBox["1", "r"], "\[Theta]"}]}], ",", RowBox[{ FractionBox[ RowBox[{"3", "\[Pi]"}], "2"], "+", "\[Theta]"}]}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", "Blue", ",", RowBox[{"AbsolutePointSize", "[", "6.5", "]"}], ",", RowBox[{"Point", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{"0", ",", RowBox[{"-", "1"}]}], "}"}], ",", RowBox[{"center", "[", RowBox[{"r", ",", "\[Theta]"}], "]"}], ",", RowBox[{ FractionBox["1", RowBox[{"(", RowBox[{"1", "-", "r"}], ")"}]], RowBox[{"center", "[", RowBox[{"r", ",", "\[Theta]"}], "]"}]}], ",", " ", RowBox[{"pt", "[", RowBox[{"r", ",", "\[Theta]"}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", "Black", ",", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\<\[Theta]\>\"", ",", "Large"}], "]"}], ",", RowBox[{"{", RowBox[{"0.07", ",", RowBox[{"-", "0.23"}]}], "}"}]}], "]"}], ",", " ", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\<\[Phi]\>\"", ",", "Large"}], "]"}], ",", RowBox[{ RowBox[{"center", "[", RowBox[{"r", ",", "\[Theta]"}], "]"}], "+", RowBox[{"{", RowBox[{ RowBox[{"-", "0.03"}], ",", RowBox[{"-", "0.12"}]}], "}"}]}]}], "]"}], ",", " ", RowBox[{"Text", "[", RowBox[{ RowBox[{"Style", "[", RowBox[{ "\"\<\[Phi] = \!\(\*FractionBox[\(\[Theta]\), \(r\)]\)\>\"", " ", ",", "Large"}], "]"}], ",", RowBox[{"{", RowBox[{"1.3", ",", RowBox[{"-", "0.85"}]}], "}"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", " ", "500"}]}], " ", "]"}]}], "\[IndentingNewLine]", " ", "]"}]], "Input", CellChangeTimes->{ 3.823191228881049*^9, {3.823191297866551*^9, 3.823191344438018*^9}, { 3.823191388606676*^9, 3.823191394492362*^9}, {3.8231914480044317`*^9, 3.8231915029341593`*^9}, {3.823191771560485*^9, 3.8231918785582933`*^9}, { 3.823191930125348*^9, 3.823191963503628*^9}, {3.823192029130445*^9, 3.823192060870895*^9}, {3.8231924179599047`*^9, 3.8231924480206738`*^9}, { 3.8231925214160833`*^9, 3.823192529369618*^9}, {3.823193023971479*^9, 3.823193063438726*^9}, {3.823193572644099*^9, 3.823193663038179*^9}, { 3.823193830986072*^9, 3.823194222961581*^9}, {3.823194364617627*^9, 3.8231944779934053`*^9}, {3.8231945223424463`*^9, 3.8231945389807997`*^9}, {3.8231946256075068`*^9, 3.823194729304044*^9}, { 3.823194939864566*^9, 3.823194941440813*^9}, {3.82319514022899*^9, 3.8231951474861317`*^9}, {3.823195389711567*^9, 3.823195414269535*^9}, { 3.823195453302105*^9, 3.823195454994383*^9}, {3.82319579236117*^9, 3.823195816413925*^9}, 3.823195924216381*^9, {3.823196145265728*^9, 3.8231962619048347`*^9}, {3.823196294899551*^9, 3.823196303013982*^9}, { 3.8231972567300463`*^9, 3.823197267281046*^9}, {3.823240550541843*^9, 3.823240564312005*^9}, {3.8232406122712107`*^9, 3.8232407921689463`*^9}, { 3.823240917627575*^9, 3.82324092862472*^9}, {3.823264519106565*^9, 3.823264577576889*^9}}, CellLabel->"In[53]:=",ExpressionUUID->"ad15ae0b-dc43-481f-a937-40a384f70b98"], Cell[BoxData[ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"pt", "[", RowBox[{ RowBox[{"1", "/", "5"}], ",", "\[Theta]"}], "]"}], ",", RowBox[{"{", RowBox[{"\[Theta]", ",", "0", ",", RowBox[{"2", "\[Pi]"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.72822125945045*^9, 3.7282213588131742`*^9}}, CellLabel->"In[54]:=",ExpressionUUID->"4e3d43cf-13ef-4b5b-b3b9-abef0e4f0c80"], Cell[BoxData[ RowBox[{ RowBox[{"hcyc", "[", RowBox[{"r_", ",", "\[Phi]_"}], "]"}], ":=", "\[IndentingNewLine]", RowBox[{"Show", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"ParametricPlot", "[", RowBox[{ RowBox[{"pt", "[", RowBox[{"r", ",", "\[Theta]"}], "]"}], ",", RowBox[{"{", RowBox[{"\[Theta]", ",", "0", ",", "\[Phi]"}], "}"}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"AbsoluteThickness", "[", "3", "]"}], ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", "1"}], "]"}], ",", " ", RowBox[{"Circle", "[", RowBox[{ RowBox[{"center", "[", RowBox[{"r", ",", "\[Phi]"}], "]"}], ",", "r"}], "]"}], ",", " ", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"center", "[", RowBox[{"r", ",", "\[Phi]"}], "]"}], ",", RowBox[{"pt", "[", RowBox[{"r", ",", "\[Phi]"}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"AbsolutePointSize", "[", "6.5", "]"}], ",", RowBox[{"Point", "[", RowBox[{"center", "[", RowBox[{"r", ",", "\[Phi]"}], "]"}], "]"}], ",", " ", "Red", ",", " ", RowBox[{"Point", "[", RowBox[{"pt", "[", RowBox[{"r", ",", "\[Phi]"}], "]"}], "]"}]}], "}"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"PlotRange", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1.1"}], ",", "1.1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.1"}], ",", "1.1"}], "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", RowBox[{"Frame", "\[Rule]", "True"}], ",", "\[IndentingNewLine]", RowBox[{"ImageSize", "\[Rule]", "600"}]}], "\[IndentingNewLine]", " ", "]"}]}]], "Input", CellChangeTimes->{{3.728221504213777*^9, 3.728221692550219*^9}, { 3.728221731528607*^9, 3.728221884574442*^9}, {3.728221930491386*^9, 3.7282219648717537`*^9}, {3.728222014338619*^9, 3.728222242496516*^9}, { 3.7282223404661407`*^9, 3.72822240025101*^9}, {3.7282861546830463`*^9, 3.728286216401854*^9}, {3.728286277567183*^9, 3.728286353316801*^9}}, CellLabel->"In[55]:=",ExpressionUUID->"b4b07efa-72c6-419a-84ae-249977597378"], Cell[BoxData[ RowBox[{"hcyc", "[", RowBox[{ RowBox[{"2", "/", "7"}], ",", RowBox[{"3.7", "\[Pi]"}]}], "]"}]], "Input", CellChangeTimes->{{3.728221894692768*^9, 3.728221906483206*^9}, { 3.72822198349017*^9, 3.728222004092677*^9}, {3.72822226311519*^9, 3.7282222650526657`*^9}, 3.728286245567527*^9}, CellLabel->"In[56]:=",ExpressionUUID->"6b8aa988-d7b5-4a46-8f76-7a8df86d21c4"], Cell[BoxData[ RowBox[{"Animate", "[", RowBox[{ RowBox[{"hcyc", "[", RowBox[{ RowBox[{"2", "/", "9"}], ",", "\[Phi]"}], "]"}], ",", RowBox[{"{", RowBox[{"\[Phi]", ",", "0", ",", RowBox[{"4", "\[Pi]"}]}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.728222439719068*^9, 3.72822249952712*^9}, { 3.7282226537971067`*^9, 3.728222724423805*^9}}, CellLabel->"In[57]:=",ExpressionUUID->"6833a1c2-dfda-42d6-b643-daad370645ff"] }, Open ]] }, Closed]] }, WindowSize->{1792, 960}, WindowMargins->{{0, Automatic}, {1, Automatic}}, CellBracketOptions->{"Color"->RGBColor[0, 0, 1], "Thickness"->3.5, "Widths"->{20, 20}}, Magnification:>2. Inherited, FontColor->GrayLevel[0], Background->RGBColor[0.87, 0.94, 1], FrontEndVersion->"13.0 for Mac OS X x86 (64-bit) (December 2, 2021)", StyleDefinitions->"Default.nb", ExpressionUUID->"484142f0-4e67-461d-b32a-426caff51aaf" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 364, 6, 194, "Title",ExpressionUUID->"28513503-cae1-403e-8849-3300f1c8ba08"], Cell[947, 30, 1158, 22, 123, "Input",ExpressionUUID->"ea488723-95d0-4f83-bdb4-9046c033fe06"] }, Open ]], Cell[CellGroupData[{ Cell[2142, 57, 167, 3, 194, "Title",ExpressionUUID->"20602f72-8ddc-4b8a-af2d-2430408e66a7"], Cell[2312, 62, 343, 8, 81, "Input",ExpressionUUID->"d3c47008-a7de-4515-abbf-c15d7d5519c9"], Cell[2658, 72, 564, 14, 123, "Input",ExpressionUUID->"2df58eea-8de8-4fa2-bf9e-6323af33d85b", CellID->7234], Cell[3225, 88, 795, 21, 164, "Input",ExpressionUUID->"f89e3e56-652e-477e-832a-b84db8cf0dac", CellID->13384], Cell[4023, 111, 731, 17, 164, "Input",ExpressionUUID->"88e484a1-fd29-457d-a2ec-898342914bbe"], Cell[4757, 130, 724, 17, 164, "Input",ExpressionUUID->"0826a298-1596-4129-8415-2ea0a652c39f"], Cell[5484, 149, 969, 23, 164, "Input",ExpressionUUID->"4b7b42dc-c7b2-4678-bc72-c38fa5c1ca64", CellID->1199689710], Cell[6456, 174, 1129, 26, 224, "Input",ExpressionUUID->"d8696d97-aa74-4036-916e-31e461d4783c", CellID->540913238], Cell[7588, 202, 2073, 53, 355, "Input",ExpressionUUID->"f6262804-4a40-4c25-a8f4-483c4ea12aa9"], Cell[9664, 257, 203, 3, 81, "Input",ExpressionUUID->"fb7a8635-5e44-4296-8e69-fab621cbc805"], Cell[9870, 262, 757, 19, 205, "Input",ExpressionUUID->"a1b01863-1262-420d-978e-ae0ee3d5f029"], Cell[10630, 283, 793, 19, 246, "Input",ExpressionUUID->"49a5e550-352d-4311-9949-46fdc9c4683d"], Cell[11426, 304, 1206, 28, 287, "Input",ExpressionUUID->"50aef7d6-6790-447e-bee2-0e6ef4245668", CellID->50579370], Cell[12635, 334, 1163, 27, 246, "Input",ExpressionUUID->"62f36bf6-7d94-42d9-8bf4-f9922f816fbc", CellID->347351342], Cell[13801, 363, 839, 20, 205, "Input",ExpressionUUID->"395f4f11-e633-41a1-801f-a1aa6e3dee23", CellID->18467], Cell[14643, 385, 985, 21, 246, "Input",ExpressionUUID->"23a19be9-5b07-4568-894e-3fb32be60369", CellID->1462638079], Cell[15631, 408, 219, 4, 81, "Input",ExpressionUUID->"1091c50a-ea0a-4e91-b40c-edd0186e4eec"], Cell[15853, 414, 603, 17, 81, "Input",ExpressionUUID->"0b219160-9bfb-4f0d-b284-33b6614308fd", CellID->19169], Cell[16459, 433, 1204, 29, 123, "Input",ExpressionUUID->"82611272-6b25-4a68-8571-ce72c954b0b8", CellID->1202656900], Cell[17666, 464, 1119, 30, 205, "Input",ExpressionUUID->"5d7b8245-d1a4-4a38-b66d-18acc62292cb", CellID->1054715], Cell[18788, 496, 455, 11, 123, "Input",ExpressionUUID->"275a3065-c3b3-4826-9eb2-8eac2ce85648"] }, Closed]], Cell[CellGroupData[{ Cell[19280, 512, 216, 4, 138, "Title",ExpressionUUID->"24f403c2-13b5-42e4-b5e4-a0c23bf76908"], Cell[19499, 518, 1607, 42, 246, "Input",ExpressionUUID->"a3e1a24d-576e-40df-b383-3b9c52ad887a"], Cell[21109, 562, 2094, 49, 246, "Input",ExpressionUUID->"cbf860b8-eb13-4a74-9fa4-64c489f7c679"], Cell[23206, 613, 1947, 50, 287, "Input",ExpressionUUID->"860cc96c-a9af-4318-8e41-56dc73d50213"], Cell[25156, 665, 891, 21, 205, "Input",ExpressionUUID->"b05d9c97-978f-4fd2-88c1-90935ab7a192"], Cell[26050, 688, 172, 2, 81, "Input",ExpressionUUID->"c5ba7329-f9ab-462c-8b4c-a8242a1883c1"], Cell[26225, 692, 890, 19, 246, "Input",ExpressionUUID->"f57eeb68-3cbc-4058-8d90-079187a7877c"], Cell[27118, 713, 9465, 213, 902, "Input",ExpressionUUID->"de44e2d4-0251-4432-a296-5255bb61c759"], Cell[36586, 928, 5023, 116, 731, "Input",ExpressionUUID->"67908803-d24f-4590-bdc8-f529b5864b46"], Cell[CellGroupData[{ Cell[41634, 1048, 161, 3, 107, "Subsection",ExpressionUUID->"8b918e0b-3a16-45d9-865e-abefc29e0e4e"], Cell[41798, 1053, 1153, 36, 196, "Input",ExpressionUUID->"b0b4a429-025b-46cb-946b-bb20eb06f0f3"], Cell[42954, 1091, 5843, 143, 647, "Input",ExpressionUUID->"ad15ae0b-dc43-481f-a937-40a384f70b98"], Cell[48800, 1236, 415, 10, 81, "Input",ExpressionUUID->"4e3d43cf-13ef-4b5b-b3b9-abef0e4f0c80"], Cell[49218, 1248, 2431, 60, 451, "Input",ExpressionUUID->"b4b07efa-72c6-419a-84ae-249977597378"], Cell[51652, 1310, 396, 8, 81, "Input",ExpressionUUID->"6b8aa988-d7b5-4a46-8f76-7a8df86d21c4"], Cell[52051, 1320, 455, 11, 81, "Input",ExpressionUUID->"6833a1c2-dfda-42d6-b643-daad370645ff"] }, Open ]] }, Closed]] } ] *)