Cell[CellGroupData[{Cell[BoxData[
 RowBox[{"Manipulate", "[", 
  RowBox[{
   RowBox[{"Graphics3D", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"ControlActive", "[", 
        RowBox[{
         RowBox[{"Opacity", "[", "1", "]"}], ",", 
         RowBox[{"Opacity", "[", ".6", "]"}]}], "]"}], ",", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "q"}], "/", 
            RowBox[{"(", 
             RowBox[{"1", "+", "q"}], ")"}]}], ",", "0", ",", "0"}], 
          "}"}], ",", "r1"}], "]"}], ",", 
       RowBox[{"Sphere", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{
           RowBox[{"1", "/", 
            RowBox[{"(", 
             RowBox[{"1", "+", "q"}], ")"}]}], ",", "0", ",", "0"}], 
          "}"}], ",", "r2"}], "]"}], ",", 
       RowBox[{"Opacity", "[", "1", "]"}], ",", 
       RowBox[{"RGBColor", "[", 
        RowBox[{".6", ",", ".74", ",", ".36"}], "]"}], ",", 
       RowBox[{"PointSize", "[", ".02", "]"}], ",", 
       RowBox[{"Point", "[", 
        RowBox[{"{", 
         RowBox[{"0", ",", "0", ",", "0"}], "}"}], "]"}], ",", 
       "Black"}], "}"}], ",", 
     RowBox[{"PlotRange", "->", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "2"}], ",", "2"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "2"}], ",", "2"}], "}"}]}], "}"}]}], ",", 
     RowBox[{"SphericalRegion", "->", "True"}], ",", 
     RowBox[{"ViewAngle", "->", 
      RowBox[{"\[Pi]", "/", "20"}]}], ",", 
     RowBox[{"Boxed", "->", "False"}], ",", 
     RowBox[{"ImageSize", "->", 
      RowBox[{"{", 
       RowBox[{"500", ",", "340"}], "}"}]}], ",", 
     RowBox[{"Background", "->", "Black"}], ",", 
     RowBox[{"ViewPoint", "->", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"2", " ", 
         RowBox[{"Cos", "[", 
          RowBox[{"-", "t"}], "]"}]}], ",", 
        RowBox[{"2", " ", 
         RowBox[{"Sin", "[", 
          RowBox[{"-", "t"}], "]"}]}], ",", "1"}], "}"}]}]}], "]"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"q", ",", ".5", ",", "\"\<mass 2 / mass 1\>\""}], "}"}],
      ",", ".1", ",", "1", ",", 
     RowBox[{"Appearance", "->", "\"\<Labeled\>\""}]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"r1", ",", ".4", ",", "\"\<radius of mass 1\>\""}], 
      "}"}], ",", ".1", ",", ".5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"r2", ",", ".1", ",", "\"\<radius of mass 2\>\""}], 
      "}"}], ",", ".1", ",", ".5"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"t", ",", "0", ",", "\"\<rotate\>\""}], "}"}], ",", "0",
      ",", 
     RowBox[{"4", " ", "\[Pi]"}]}], "}"}], ",", 
   RowBox[{"AutorunSequencing", "->", 
    RowBox[{"{", "4", "}"}]}]}], "]"}]], "Input",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{
  3.35757176568782*^9, {3.3649446654375*^9, 3.36494468267188*^9}, {
   3.36494568079688*^9, 3.36494569275*^9}, {3.36494656417188*^9, 
   3.3649465646875*^9}, {3.36494661334375*^9, 3.36494661339063*^9}, 
   3.36494679795313*^9, {3.364946844125*^9, 3.36494691471875*^9}, {
   3.36667671165625*^9, 3.36667675279688*^9}, {3.36917466365625*^9, 
   3.36917467596875*^9}, {3.3701230366875*^9, 3.370123079890625*^9}, {
   3.37012311765625*^9, 3.370123118609375*^9}, {
   3.3720111236254187`*^9, 3.372011141219056*^9}, {
   3.372026690515625*^9, 3.37202670165625*^9}, {3.372026746359375*^9, 
   3.372026746421875*^9}, {3.3792545835578413`*^9, 
   3.379254590339048*^9}, {3.3792546241669564`*^9, 
   3.379254628245055*^9}, {3.381846717702618*^9, 
   3.381846717843243*^9}, 3.760765340740444*^9},
 CellID->1496021318],

Cell[BoxData[
 TagBox[
  StyleBox[
   DynamicModuleBox[{$CellContext`q$$ = 0.5, $CellContext`r1$$ = 
    0.4, $CellContext`r2$$ = 0.1, $CellContext`t$$ = 0, 
    Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, 
    Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, 
    Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", 
    Typeset`specs$$ = {{{
       Hold[$CellContext`q$$], 0.5, "mass 2 / mass 1"}, 0.1, 1}, {{
       Hold[$CellContext`r1$$], 0.4, "radius of mass 1"}, 0.1, 0.5}, {{
       Hold[$CellContext`r2$$], 0.1, "radius of mass 2"}, 0.1, 0.5}, {{
       Hold[$CellContext`t$$], 0, "rotate"}, 0, 4 Pi}}, 
    Typeset`size$$ = {500., {168., 172.}}, Typeset`update$$ = 0, 
    Typeset`initDone$$, Typeset`skipInitDone$$ = 
    True, $CellContext`q$15547$$ = 0, $CellContext`r1$15548$$ = 
    0, $CellContext`r2$15549$$ = 0, $CellContext`t$15550$$ = 0}, 
    DynamicBox[Manipulate`ManipulateBoxes[
     1, StandardForm, 
      "Variables" :> {$CellContext`q$$ = 0.5, $CellContext`r1$$ = 
        0.4, $CellContext`r2$$ = 0.1, $CellContext`t$$ = 0}, 
      "ControllerVariables" :> {
        Hold[$CellContext`q$$, $CellContext`q$15547$$, 0], 
        Hold[$CellContext`r1$$, $CellContext`r1$15548$$, 0], 
        Hold[$CellContext`r2$$, $CellContext`r2$15549$$, 0], 
        Hold[$CellContext`t$$, $CellContext`t$15550$$, 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" :> 
      Graphics3D[{
         ControlActive[
          Opacity[1], 
          Opacity[0.6]], 
         
         Sphere[{(-$CellContext`q$$)/(1 + $CellContext`q$$), 0, 
           0}, $CellContext`r1$$], 
         Sphere[{1/(1 + $CellContext`q$$), 0, 0}, $CellContext`r2$$], 
         
         Opacity[1], 
         RGBColor[0.6, 0.74, 0.36], 
         PointSize[0.02], 
         Point[{0, 0, 0}], Black}, 
        PlotRange -> {{-2, 2}, {-2, 2}, {-2, 2}}, SphericalRegion -> 
        True, ViewAngle -> Pi/20, Boxed -> False, 
        ImageSize -> {500, 340}, Background -> Black, 
        ViewPoint -> {
         2 Cos[-$CellContext`t$$], 2 Sin[-$CellContext`t$$], 1}], 
      "Specifications" :> {{{$CellContext`q$$, 0.5, 
          "mass 2 / mass 1"}, 0.1, 1, Appearance -> 
         "Labeled"}, {{$CellContext`r1$$, 0.4, "radius of mass 1"}, 
         0.1, 0.5}, {{$CellContext`r2$$, 0.1, "radius of mass 2"}, 
         0.1, 0.5}, {{$CellContext`t$$, 0, "rotate"}, 0, 4 Pi}}, 
      "Options" :> {AutorunSequencing -> {4}}, 
      "DefaultOptions" :> {ControllerLinking -> True}],
     ImageSizeCache->{545., {255., 261.}},
     SingleEvaluation->True],
    Deinitialization:>None,
    DynamicModuleValues:>{},
    SynchronousInitialization->True,
    UnsavedVariables:>{Typeset`initDone$$},
    UntrackedVariables:>{Typeset`size$$}], "Manipulate",
   Deployed->True,
   StripOnInput->False],
  Manipulate`InterpretManipulate[1]]], "Output",
 CellGroupingRules->{"GroupTogetherGrouping", 10000.},
 CellChangeTimes->{3.7607653407407637`*^9},
 CellID->402127256]
}, {2}]]