(* Content-type: application/vnd.wolfram.cdf.text *)

(*** Wolfram CDF File ***)
(* http://www.wolfram.com/cdf *)

(* CreatedBy='Mathematica 11.2' *)

(***************************************************************************)
(*                                                                         *)
(*                                                                         *)
(*  Under the Wolfram FreeCDF terms of use, this file and its content are  *)
(*  bound by the Creative Commons BY-SA Attribution-ShareAlike license.    *)
(*                                                                         *)
(*        For additional information concerning CDF licensing, see:        *)
(*                                                                         *)
(*         www.wolfram.com/cdf/adopting-cdf/licensing-options.html         *)
(*                                                                         *)
(*                                                                         *)
(***************************************************************************)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[      1088,         20]
NotebookDataLength[      6644,        175]
NotebookOptionsPosition[      7144,        172]
NotebookOutlinePosition[      7490,        187]
CellTagsIndexPosition[      7447,        184]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{
    RowBox[{"R", "=", "0.6"}], ";", 
    RowBox[{"SphericalPlot3D", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"Abs", "[", "\[IndentingNewLine]", "  ", 
        RowBox[{
         RowBox[{"A", "*", 
          RowBox[{"1", "/", 
           RowBox[{"Sqrt", "[", 
            RowBox[{"4", "*", "Pi"}], "]"}]}]}], "+", "\[IndentingNewLine]", 
         RowBox[{"B", "*", 
          RowBox[{"Sqrt", "[", 
           RowBox[{
            RowBox[{"3", "/", "8"}], "/", "Pi"}], "]"}], "*", 
          RowBox[{"Cos", "[", "\[Theta]", "]"}]}], "+", "\[IndentingNewLine]", 
         RowBox[{"C", "*", 
          RowBox[{"Sqrt", "[", 
           RowBox[{
            RowBox[{"3", "/", "8"}], "/", "Pi"}], "]"}], "*", 
          RowBox[{"Sin", "[", "\[Theta]", "]"}], "*", 
          RowBox[{"Cos", "[", "\[Phi]", "]"}]}], "+", "\[IndentingNewLine]", 
         RowBox[{"D", "*", 
          RowBox[{"Sqrt", "[", 
           RowBox[{
            RowBox[{"3", "/", "8"}], "/", "Pi"}], "]"}], "*", 
          RowBox[{"Sin", "[", "\[Theta]", "]"}], "*", 
          RowBox[{"Sin", "[", "\[Phi]", "]"}]}]}], "\[IndentingNewLine]", 
        "]"}], "^", "2"}], ",", 
      RowBox[{"{", 
       RowBox[{"\[Theta]", ",", "0", ",", "\[Pi]"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"\[Phi]", ",", "0", ",", 
        RowBox[{"2", "\[Pi]"}]}], "}"}], ",", " ", 
      RowBox[{"PlotRange", "\[Rule]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "R"}], ",", "R"}], "}"}], ",", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "R"}], ",", "R"}], "}"}], ",", " ", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{"-", "R"}], ",", "R"}], "}"}]}], "}"}]}]}], "]"}]}], ",", 
   "\[IndentingNewLine]", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"A", ",", "1"}], "}"}], ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"B", ",", "0"}], "}"}], ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"C", ",", "0"}], "}"}], ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", " ", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"D", ",", "0"}], "}"}], ",", 
     RowBox[{"-", "1"}], ",", "1"}], "}"}], " ", ",", "\[IndentingNewLine]", 
   RowBox[{"ControlPlacement", "\[Rule]", "Left"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.736304202593012*^9, 3.7363042032505054`*^9}, {
  3.7363043006027403`*^9, 3.736304327720254*^9}, {3.7363043939011126`*^9, 
  3.7363044530039177`*^9}, {3.736304496677346*^9, 3.7363044973483686`*^9}, {
  3.736304539791117*^9, 
  3.736304556964204*^9}},ExpressionUUID->"d6f84575-2824-4d64-9431-\
ac1cc65df743"],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`A$$ = 1, $CellContext`B$$ = 1., C$$ = 1., 
    D$$ = 1., Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 
    1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{
       Hold[$CellContext`A$$], 1}, -1, 1}, {{
       Hold[$CellContext`B$$], 0}, -1, 1}, {{
       Hold[C$$], 0}, -1, 1}, {{
       Hold[D$$], 0}, -1, 1}}, Typeset`size$$ = {332., {164., 168.}}, 
    Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`A$34188$$ = 0, $CellContext`B$34189$$ = 0, C$34190$$ = 
    0, D$34191$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`A$$ = 1, $CellContext`B$$ = 0, C$$ = 0, 
        D$$ = 0}, "ControllerVariables" :> {
        Hold[$CellContext`A$$, $CellContext`A$34188$$, 0], 
        Hold[$CellContext`B$$, $CellContext`B$34189$$, 0], 
        Hold[C$$, C$34190$$, 0], 
        Hold[D$$, D$34191$$, 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" :> ($CellContext`R = 0.6; 
       SphericalPlot3D[
        Abs[$CellContext`A$$ (1/Sqrt[4 Pi]) + $CellContext`B$$ Sqrt[(3/8)/Pi] 
            Cos[$CellContext`\[Theta]] + 
           C$$ Sqrt[(3/8)/Pi] Sin[$CellContext`\[Theta]] 
            Cos[$CellContext`\[Phi]] + 
           D$$ Sqrt[(3/8)/Pi] Sin[$CellContext`\[Theta]] 
            Sin[$CellContext`\[Phi]]]^2, {$CellContext`\[Theta], 0, 
          Pi}, {$CellContext`\[Phi], 0, 2 Pi}, 
         PlotRange -> {{-$CellContext`R, $CellContext`R}, {-$CellContext`R, \
$CellContext`R}, {-$CellContext`R, $CellContext`R}}]), 
      "Specifications" :> {{{$CellContext`A$$, 1}, -1, 
         1}, {{$CellContext`B$$, 0}, -1, 1}, {{C$$, 0}, -1, 1}, {{D$$, 0}, -1,
          1}}, "Options" :> {ControlPlacement -> Left}, 
      "DefaultOptions" :> {}],
     ImageSizeCache->{613., {195., 201.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UndoTrackedVariables:>{Typeset`show$$, Typeset`bookmarkMode$$},
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellChangeTimes->{3.736304205056153*^9, 3.7363044053966255`*^9, 
  3.73630445633685*^9, 
  3.7363045032681155`*^9},ExpressionUUID->"ce6afa2a-adc3-4a9f-be74-\
4311ea1562f1"]
}, Open  ]]
},
WindowSize->{1584, 808},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"11.2 for Microsoft Windows (64-bit) (September 10, 2017)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[1510, 35, 2854, 76, 162, "Input",ExpressionUUID->"d6f84575-2824-4d64-9431-ac1cc65df743"],
Cell[4367, 113, 2761, 56, 415, "Output",ExpressionUUID->"ce6afa2a-adc3-4a9f-be74-4311ea1562f1"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)

(* NotebookSignature @uDu6tbE3NE5gAwJVJZSLMAy *)