(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 11.1' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 158, 7] NotebookDataLength[ 14259, 421] NotebookOptionsPosition[ 11975, 357] NotebookOutlinePosition[ 12319, 372] CellTagsIndexPosition[ 12276, 369] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["Representando as fun\[CCedilla]\[OTilde]es de onda angulares", "Title", CellChangeTimes->{{3.719163570931831*^9, 3.7191635826332784`*^9}},ExpressionUUID->"8c0d1364-e48a-4ffa-86cb-\ 4cb1f6a16c4f"], Cell[CellGroupData[{ Cell["F\[OAcute]rmulas anal\[IAcute]ticas", "Section", CellChangeTimes->{{3.7191675867489843`*^9, 3.71916759087607*^9}},ExpressionUUID->"05876292-811e-4bdd-968f-\ 579e0ad04f47"], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"SphericalHarmonicY", "[", RowBox[{"3", ",", "2", ",", "\[Theta]", ",", "\[Phi]"}], "]"}]], "Input", CellChangeTimes->{{3.719163591072381*^9, 3.719163600514268*^9}, { 3.7191636864695063`*^9, 3.7191636950778966`*^9}},ExpressionUUID->"3425dc6b-4f7f-47cd-991d-\ 7374bfb316ab"], Cell[BoxData[ RowBox[{ FractionBox["1", "4"], " ", SuperscriptBox["\[ExponentialE]", RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Phi]"}]], " ", SqrtBox[ FractionBox["105", RowBox[{"2", " ", "\[Pi]"}]]], " ", RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", SuperscriptBox[ RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"]}]], "Output", CellChangeTimes->{3.719163696898553*^9, 3.719167859534482*^9, 3.7191694175804405`*^9},ExpressionUUID->"49147400-7ed8-4810-9e4d-\ b79600f7ab07"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{" ", RowBox[{ RowBox[{"SphericalHarmonicY", "[", RowBox[{"3", ",", "2", ",", "\[Theta]", ",", "\[Phi]"}], "]"}], " ", "//", "ExpToTrig"}]}]], "Input", CellChangeTimes->{{3.7191679448510904`*^9, 3.719168018855941*^9}},ExpressionUUID->"27b22e28-a4fc-4e62-a61c-\ 22ecc0d29329"], Cell[BoxData[ RowBox[{ FractionBox["1", "4"], " ", SqrtBox[ FractionBox["105", RowBox[{"2", " ", "\[Pi]"}]]], " ", RowBox[{"Cos", "[", "\[Theta]", "]"}], " ", SuperscriptBox[ RowBox[{"Sin", "[", "\[Theta]", "]"}], "2"], " ", RowBox[{"(", RowBox[{ RowBox[{"Cos", "[", RowBox[{"2", " ", "\[Phi]"}], "]"}], "+", RowBox[{"\[ImaginaryI]", " ", RowBox[{"Sin", "[", RowBox[{"2", " ", "\[Phi]"}], "]"}]}]}], ")"}]}]], "Output", CellChangeTimes->{{3.71916795217148*^9, 3.719168019820962*^9}, 3.719169417627322*^9},ExpressionUUID->"8ab98a5c-7431-4a4c-9787-\ 2c9bb6283cf6"] }, Open ]], Cell[CellGroupData[{ Cell[BoxData[ RowBox[{"LegendreP", "[", RowBox[{"3", ",", "3", ",", "x"}], "]"}]], "Input", CellChangeTimes->{{3.719167378518381*^9, 3.719167383299034*^9}},ExpressionUUID->"00914568-9d6e-4ba8-b9fa-\ 2c1b30d4988b"], Cell[BoxData[ RowBox[{ RowBox[{"-", "15"}], " ", SuperscriptBox[ RowBox[{"(", RowBox[{"1", "-", SuperscriptBox["x", "2"]}], ")"}], RowBox[{"3", "/", "2"}]]}]], "Output", CellChangeTimes->{3.7191673838538313`*^9, 3.719167859717326*^9, 3.719169417658575*^9},ExpressionUUID->"431d1a07-deaf-42cd-a149-\ 9c7f48452e86"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Gr\[AAcute]ficos 3D", "Section", CellChangeTimes->{{3.719167596939734*^9, 3.719167599731931*^9}},ExpressionUUID->"67fd0eb8-97c4-4b2c-94b4-\ 2b64f2e54656"], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"SphericalPlot3D", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"SphericalHarmonicY", "[", RowBox[{"l", ",", "m", ",", "\[Theta]", ",", "\[Phi]"}], "]"}], " ", RowBox[{"SphericalHarmonicY", "[", RowBox[{"l", ",", RowBox[{"-", "m"}], ",", "\[Theta]", ",", "\[Phi]"}], "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"\[Theta]", ",", "0", ",", "Pi"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Phi]", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", RowBox[{"PerformanceGoal", "\[Rule]", "\"\\""}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}], ",", RowBox[{"{", RowBox[{"l", ",", "0", ",", "7", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "l", ",", "1"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.7191637033320723`*^9, 3.7191637079826927`*^9}, { 3.7191638312563314`*^9, 3.719163933325055*^9}, {3.719163963339925*^9, 3.7191639714938006`*^9}, {3.719164037767338*^9, 3.7191641999259844`*^9}, { 3.719164301538289*^9, 3.719164306969014*^9}, {3.719167012153313*^9, 3.7191670188030205`*^9}, {3.719167060588503*^9, 3.7191670641139135`*^9}},ExpressionUUID->"b4141710-e21d-4ffe-8507-\ 64d034992071"], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"SphericalPlot3D", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{ RowBox[{"LegendreP", "[", RowBox[{"l", ",", "m", ",", RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "]"}], " ", "^", "2"}], "]"}], ",", RowBox[{"{", RowBox[{"\[Theta]", ",", "0", ",", "Pi"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Phi]", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", RowBox[{"PerformanceGoal", "\[Rule]", "\"\\""}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}], ",", RowBox[{"{", RowBox[{"l", ",", "0", ",", "7", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "l", ",", "1"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.719167468912098*^9, 3.719167541754669*^9}},ExpressionUUID->"a0e8d787-3c2b-47e5-84ce-\ a58155e4a953"], Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{"SphericalPlot3D", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"Re", "[", RowBox[{"SphericalHarmonicY", "[", RowBox[{"l", ",", "m", ",", "\[Theta]", ",", "\[Phi]"}], "]"}], " ", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"\[Theta]", ",", "0", ",", "Pi"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Phi]", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", RowBox[{"PerformanceGoal", "\[Rule]", "\"\\""}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}], ",", RowBox[{"{", RowBox[{"l", ",", "0", ",", "7", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "l", ",", "1"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.719167905683113*^9, 3.719167914767215*^9}},ExpressionUUID->"15766f74-0a30-4c25-b02d-\ 816cdfbbae8f"] }, Open ]], Cell[CellGroupData[{ Cell["Gr\[AAcute]fico da parte \[Theta] do harm\[OHat]nico esf\[EAcute]rico", \ "Section", CellChangeTimes->{{3.719167624839609*^9, 3.71916765871189*^9}},ExpressionUUID->"fdf291e7-7fbc-49f7-a4f9-\ 7617e2937eee"], Cell[BoxData[ RowBox[{"Manipulate", "[", " ", RowBox[{ RowBox[{"Plot", "[", RowBox[{ RowBox[{"LegendreP", "[", RowBox[{"l", ",", "m", ",", RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "]"}], ",", RowBox[{"{", RowBox[{"\[Theta]", ",", "0", ",", "Pi"}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"l", ",", "0", ",", "7", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"m", ",", "0", ",", "l", ",", "1"}], "}"}]}], "]"}]], "Input", CellChangeTimes->{{3.719164342652461*^9, 3.7191643753747597`*^9}, { 3.719167120501026*^9, 3.7191671450983152`*^9}, {3.7191671916348157`*^9, 3.719167200824576*^9}, {3.719167359802356*^9, 3.7191673619082246`*^9}, { 3.719167392560518*^9, 3.719167416848174*^9}},ExpressionUUID->"7f6b0824-6278-4ce5-9f9c-\ 9d53345b3162"] }, Open ]], Cell[CellGroupData[{ Cell["Fun\[CCedilla]\[OTilde]es de onda de verdade do \[AAcute]tomo", \ "Section", CellChangeTimes->{{3.7191695142118654`*^9, 3.719169520228634*^9}},ExpressionUUID->"5dbf49c5-0cfe-4be5-a968-\ 3ccc13b3b249"], Cell[BoxData[ RowBox[{ RowBox[{"p3meios", "[", RowBox[{"\[Theta]_", ",", "\[Phi]_"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{"ClebschGordan", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "/", "2"}], ",", RowBox[{"1", "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"3", "/", "2"}], ",", RowBox[{"3", "/", "2"}]}], "}"}]}], "]"}], "^", "2"}], RowBox[{"SphericalHarmonicY", "[", RowBox[{"1", ",", "1", ",", "\[Theta]", ",", "\[Phi]"}], "]"}], RowBox[{"SphericalHarmonicY", "[", RowBox[{"1", ",", RowBox[{"-", "1"}], ",", "\[Theta]", ",", "\[Phi]"}], "]"}]}]}]], "Input", CellChangeTimes->{{3.719169536859349*^9, 3.719169619188605*^9}, { 3.71916965413029*^9, 3.719169657605802*^9}, {3.7191697837275815`*^9, 3.7191698106870947`*^9}},ExpressionUUID->"74bdeba0-bd86-498a-985f-\ 3a51cc891eb6"], Cell[BoxData[ RowBox[{ RowBox[{"pmeio", "[", RowBox[{"\[Theta]_", ",", "\[Phi]_"}], "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"ClebschGordan", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "/", "2"}], ",", RowBox[{"1", "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"3", "/", "2"}], ",", RowBox[{"1", "/", "2"}]}], "}"}]}], "]"}], "^", "2"}], RowBox[{ RowBox[{"SphericalHarmonicY", "[", RowBox[{"1", ",", "0", ",", "\[Theta]", ",", "\[Phi]"}], "]"}], "^", "2"}]}], "+", RowBox[{ RowBox[{ RowBox[{"ClebschGordan", "[", RowBox[{ RowBox[{"{", RowBox[{"1", ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"1", "/", "2"}], ",", RowBox[{ RowBox[{"-", "1"}], "/", "2"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"3", "/", "2"}], ",", RowBox[{"1", "/", "2"}]}], "}"}]}], "]"}], "^", "2"}], RowBox[{"SphericalHarmonicY", "[", RowBox[{"1", ",", "1", ",", "\[Theta]", ",", "\[Phi]"}], "]"}], RowBox[{"SphericalHarmonicY", "[", RowBox[{"1", ",", RowBox[{"-", "1"}], ",", "\[Theta]", ",", "\[Phi]"}], "]"}]}]}]}]], "Input", CellChangeTimes->{{3.719169629833848*^9, 3.719169692391239*^9}},ExpressionUUID->"d09095ea-2551-4396-aaad-\ 2ba436bb9843"], Cell[BoxData[ RowBox[{"GraphicsRow", "[", RowBox[{"{", RowBox[{ RowBox[{"SphericalPlot3D", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"p3meios", "[", RowBox[{"\[Theta]", ",", "\[Phi]"}], "]"}], " ", "]"}], ",", RowBox[{"{", RowBox[{"\[Theta]", ",", "0", ",", "Pi"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Phi]", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", RowBox[{"PerformanceGoal", "\[Rule]", "\"\\""}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}], ",", RowBox[{"SphericalPlot3D", "[", RowBox[{ RowBox[{"Evaluate", "[", RowBox[{"pmeio", "[", RowBox[{"\[Theta]", ",", "\[Phi]"}], "]"}], " ", "]"}], ",", RowBox[{"{", RowBox[{"\[Theta]", ",", "0", ",", "Pi"}], "}"}], ",", RowBox[{"{", RowBox[{"\[Phi]", ",", "0", ",", RowBox[{"2", "Pi"}]}], "}"}], ",", RowBox[{"PerformanceGoal", "\[Rule]", "\"\\""}], ",", RowBox[{"AspectRatio", "\[Rule]", "Automatic"}]}], "]"}]}], "}"}], "]"}]], "Input", CellChangeTimes->{{3.719169716609864*^9, 3.719169724462906*^9}, { 3.7191698792768555`*^9, 3.7191698936011724`*^9}},ExpressionUUID->"c044a90a-43c2-42f5-9ae7-\ 371373e74fd2"] }, Open ]] }, Open ]] }, WindowSize->{996, 833}, WindowMargins->{{Automatic, 335}, {64, Automatic}}, FrontEndVersion->"11.1 for Microsoft Windows (64-bit) (April 18, 2017)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[580, 22, 205, 3, 101, "Title", "ExpressionUUID" -> \ "8c0d1364-e48a-4ffa-86cb-4cb1f6a16c4f"], Cell[CellGroupData[{ Cell[810, 29, 181, 3, 70, "Section", "ExpressionUUID" -> \ "05876292-811e-4bdd-968f-579e0ad04f47"], Cell[CellGroupData[{ Cell[1016, 36, 305, 6, 30, "Input", "ExpressionUUID" -> \ "3425dc6b-4f7f-47cd-991d-7374bfb316ab"], Cell[1324, 44, 502, 13, 71, "Output", "ExpressionUUID" -> \ "49147400-7ed8-4810-9e4d-b79600f7ab07"] }, Open ]], Cell[CellGroupData[{ Cell[1863, 62, 316, 8, 30, "Input", "ExpressionUUID" -> \ "27b22e28-a4fc-4e62-a61c-22ecc0d29329"], Cell[2182, 72, 625, 18, 71, "Output", "ExpressionUUID" -> \ "8ab98a5c-7431-4a4c-9787-2c9bb6283cf6"] }, Open ]], Cell[CellGroupData[{ Cell[2844, 95, 221, 5, 30, "Input", "ExpressionUUID" -> \ "00914568-9d6e-4ba8-b9fa-2c1b30d4988b"], Cell[3068, 102, 341, 10, 34, "Output", "ExpressionUUID" -> \ "431d1a07-deaf-42cd-a149-9c7f48452e86"] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[3458, 118, 164, 3, 70, "Section", "ExpressionUUID" -> \ "67fd0eb8-97c4-4b2c-94b4-2b64f2e54656"], Cell[3625, 123, 1351, 30, 50, "Input", "ExpressionUUID" -> \ "b4141710-e21d-4ffe-8507-64d034992071"], Cell[4979, 155, 932, 24, 50, "Input", "ExpressionUUID" -> \ "a0e8d787-3c2b-47e5-84ce-a58155e4a953"], Cell[5914, 181, 926, 23, 50, "Input", "ExpressionUUID" -> \ "15766f74-0a30-4c25-b02d-816cdfbbae8f"] }, Open ]], Cell[CellGroupData[{ Cell[6877, 209, 215, 4, 70, "Section", "ExpressionUUID" -> \ "fdf291e7-7fbc-49f7-a4f9-7617e2937eee"], Cell[7095, 215, 812, 19, 30, "Input", "ExpressionUUID" -> \ "7f6b0824-6278-4ce5-9f9c-9d53345b3162"] }, Open ]], Cell[CellGroupData[{ Cell[7944, 239, 210, 4, 70, "Section", "ExpressionUUID" -> \ "5dbf49c5-0cfe-4be5-a968-3ccc13b3b249"], Cell[8157, 245, 979, 26, 50, "Input", "ExpressionUUID" -> \ "74bdeba0-bd86-498a-985f-3a51cc891eb6"], Cell[9139, 273, 1506, 46, 50, "Input", "ExpressionUUID" -> \ "d09095ea-2551-4396-aaad-2ba436bb9843"], Cell[10648, 321, 1299, 32, 69, "Input", "ExpressionUUID" -> \ "c044a90a-43c2-42f5-9ae7-371373e74fd2"] }, Open ]] }, Open ]] } ] *)