Cell[CellGroupData[{Cell[BoxData[ RowBox[{"Manipulate", "[", " ", RowBox[{ RowBox[{ RowBox[{"draken", "=", RowBox[{ "rstar", " ", "fp", " ", "ne", " ", "fl", " ", "fi", " ", "fc", " ", "l"}]}], ";", " ", RowBox[{"SeedRandom", "[", "1234", "]"}], ";", " ", RowBox[{"pts", "=", RowBox[{"RandomReal", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "1"}], ",", "1"}], "}"}], ",", RowBox[{"{", RowBox[{"10000", ",", "3"}], "}"}]}], "]"}]}], ";", " ", RowBox[{"rng", "=", RowBox[{"Range", "[", "10000", "]"}]}], ";", " ", RowBox[{"pick", "=", RowBox[{"Union", "[", RowBox[{"RandomChoice", "[", RowBox[{"rng", ",", RowBox[{"Round", "[", RowBox[{"draken", "*", RowBox[{"10", "^", RowBox[{"-", "3"}]}]}], "]"}]}], "]"}], "]"}]}], ";", "\n", RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"Lighter", "[", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"1", ",", ".47", ",", "0"}], "]"}], ",", "0.7"}], "]"}], ",", RowBox[{"Point", "[", RowBox[{"pts", "[", RowBox[{"[", RowBox[{"Complement", "[", RowBox[{"rng", ",", "pick"}], "]"}], "]"}], "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"ColorData", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}], ",", RowBox[{"Point", "[", RowBox[{"pts", "[", RowBox[{"[", "pick", "]"}], "]"}], "]"}]}], "}"}]}], "}"}], ",", RowBox[{"PlotLabel", "->", RowBox[{"Row", "[", RowBox[{"{", RowBox[{ RowBox[{"Style", "[", RowBox[{"\"\\"", ",", "Italic"}], "]"}], ",", "\"\< = \>\"", ",", " ", "draken"}], "}"}], "]"}]}], ",", RowBox[{"ImageSize", "->", RowBox[{"{", RowBox[{"500", ",", "300"}], "}"}]}], ",", RowBox[{"PlotRange", "->", "1"}], ",", RowBox[{"SphericalRegion", "->", "True"}], ",", RowBox[{"ViewAngle", "->", RowBox[{"\[Pi]", "/", "6"}]}]}], "]"}]}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"rstar", ",", "10", ",", RowBox[{"Row", "[", RowBox[{"{", RowBox[{ "\"\\"", ",", RowBox[{"Superscript", "[", RowBox[{"\"\\"", ",", "\"\<*\>\""}], "]"}]}], "}"}], "]"}]}], "}"}], ",", "0", ",", "10", ",", "1", ",", RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"fp", ",", "1", ",", RowBox[{"Row", "[", RowBox[{"{", RowBox[{"\"\\"", ",", RowBox[{"Subscript", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}], "}"}], "]"}]}], "}"}], ",", "0", ",", "1", ",", ".01", ",", RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"ne", ",", "10", ",", RowBox[{"Row", "[", RowBox[{"{", RowBox[{ "\"\\"", ",", RowBox[{"Subscript", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}], "}"}], "]"}]}], "}"}], ",", "0", ",", "10", ",", "1", ",", RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"fl", ",", "1", ",", RowBox[{"Row", "[", RowBox[{"{", RowBox[{ "\"\\"", ",", RowBox[{"Subscript", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}], "}"}], "]"}]}], "}"}], ",", "0", ",", "1", ",", ".01", ",", RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"fi", ",", "1", ",", RowBox[{"Row", "[", RowBox[{"{", RowBox[{ "\"\\"", ",", RowBox[{"Subscript", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}], "}"}], "]"}]}], "}"}], ",", "0", ",", "1", ",", ".01", ",", RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"fc", ",", "1", ",", RowBox[{"Row", "[", RowBox[{"{", RowBox[{ "\"\\"", ",", RowBox[{"Subscript", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}], "}"}], "]"}]}], "}"}], ",", "0", ",", "1", ",", ".01", ",", RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ "l", ",", "20000", ",", "\"\\""}], "}"}], ",", "0", ",", "20000", ",", "1", ",", RowBox[{"Appearance", "->", "\"\\""}]}], "}"}], ",", RowBox[{"TrackedSymbols", "->", "Manipulate"}], ",", RowBox[{"AutorunSequencing", "->", RowBox[{"{", RowBox[{"4", ",", "5", ",", "6", ",", "7"}], "}"}]}]}], "]"}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellChangeTimes->{ 3.35696210375764*^9, {3.4059477679418435`*^9, 3.4059478387543435`*^9}, {3.4059478807855935`*^9, 3.4059480161137185`*^9}, {3.4059480470668435`*^9, 3.4059483212855935`*^9}, {3.4059492909730935`*^9, 3.4059493216137185`*^9}, {3.4059493638012185`*^9, 3.4059494346605935`*^9}, {3.4059499941449685`*^9, 3.4059501085980935`*^9}, {3.4059501518168435`*^9, 3.4059501945199685`*^9}, {3.4059511204418435`*^9, 3.4059512430043435`*^9}, {3.4059512969574685`*^9, 3.4059512972699685`*^9}, {3.4059513287230935`*^9, 3.4059514082699685`*^9}, {3.4059520418324685`*^9, 3.4059520533949685`*^9}, {3.4059520899730935`*^9, 3.4059520993637185`*^9}, {3.4059522085668435`*^9, 3.4059522086762185`*^9}, {3.4059522681449685`*^9, 3.4059522730668435`*^9}, {3.4059523442543435`*^9, 3.4059523511762185`*^9}, {3.4059524920199685`*^9, 3.4059526429887185`*^9}, {3.4059527011605935`*^9, 3.4059527134105935`*^9}, {3.4059527466137185`*^9, 3.4059527520512185`*^9}, {3.4059528867074685`*^9, 3.4059529490668435`*^9}, {3.4059530378324685`*^9, 3.4059530416137185`*^9}, {3.4059531285043435`*^9, 3.4059531421605935`*^9}, {3.4059540129262185`*^9, 3.4059540643324685`*^9}, {3.4059541044574685`*^9, 3.4059541266137185`*^9}, {3.4059543559887185`*^9, 3.4059545063480935`*^9}, {3.4059589711265535`*^9, 3.405958971955309*^9}, {3.4059590181154375`*^9, 3.4059590418366146`*^9}, {3.4059639524262185`*^9, 3.4059639774262185`*^9}, 3.4059640331137185`*^9, { 3.4059644615714283`*^9, 3.4059644654932284`*^9}, { 3.4059651286679955`*^9, 3.405965146573901*^9}, { 3.4059652180412793`*^9, 3.405965222150575*^9}, { 3.4059652735870876`*^9, 3.405965280274459*^9}, { 3.405965360976035*^9, 3.405965376178868*^9}, { 3.4059654644584227`*^9, 3.4059654763175697`*^9}, { 3.406037364523548*^9, 3.4060373861016736`*^9}, 3.760817958235538*^9}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`fc$$ = 1, $CellContext`fi$$ = 1, $CellContext`fl$$ = 1, $CellContext`fp$$ = 1, $CellContext`l$$ = 20000, $CellContext`ne$$ = 10, $CellContext`rstar$$ = 10, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`rstar$$], 10, Row[{"average rate of stars formed per year ", Superscript["R", "*"]}]}, 0, 10, 1}, {{ Hold[$CellContext`fp$$], 1, Row[{"fraction of those stars with planets ", Subscript["f", "p"]}]}, 0, 1, 0.01}, {{ Hold[$CellContext`ne$$], 10, Row[{ "average number of planets that can support life per star ", Subscript["n", "e"]}]}, 0, 10, 1}, {{ Hold[$CellContext`fl$$], 1, Row[{"fraction of those planets that will develop life ", Subscript["f", "l"]}]}, 0, 1, 0.01}, {{ Hold[$CellContext`fi$$], 1, Row[{"fraction of those that will be intelligent life ", Subscript["f", "i"]}]}, 0, 1, 0.01}, {{ Hold[$CellContext`fc$$], 1, Row[{"fraction of those that are able to communicate ", Subscript["f", "c"]}]}, 0, 1, 0.01}, {{ Hold[$CellContext`l$$], 20000, "number of years they will release signals into space L"}, 0, 20000, 1}}, Typeset`size$$ = {500., {148., 152.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`rstar$21871$$ = 0, $CellContext`fp$21872$$ = 0, $CellContext`ne$21873$$ = 0, $CellContext`fl$21874$$ = 0, $CellContext`fi$21875$$ = 0, $CellContext`fc$21876$$ = 0, $CellContext`l$21877$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`fc$$ = 1, $CellContext`fi$$ = 1, $CellContext`fl$$ = 1, $CellContext`fp$$ = 1, $CellContext`l$$ = 20000, $CellContext`ne$$ = 10, $CellContext`rstar$$ = 10}, "ControllerVariables" :> { Hold[$CellContext`rstar$$, $CellContext`rstar$21871$$, 0], Hold[$CellContext`fp$$, $CellContext`fp$21872$$, 0], Hold[$CellContext`ne$$, $CellContext`ne$21873$$, 0], Hold[$CellContext`fl$$, $CellContext`fl$21874$$, 0], Hold[$CellContext`fi$$, $CellContext`fi$21875$$, 0], Hold[$CellContext`fc$$, $CellContext`fc$21876$$, 0], Hold[$CellContext`l$$, $CellContext`l$21877$$, 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`draken = ((((($CellContext`rstar$$ \ $CellContext`fp$$) $CellContext`ne$$) $CellContext`fl$$) \ $CellContext`fi$$) $CellContext`fc$$) $CellContext`l$$; SeedRandom[1234]; $CellContext`pts = RandomReal[{-1, 1}, {10000, 3}]; $CellContext`rng = Range[10000]; $CellContext`pick = Union[ RandomChoice[$CellContext`rng, Round[$CellContext`draken 10^(-3)]]]; Graphics3D[{{ Lighter[ RGBColor[1, 0.47, 0], 0.7], Point[ Part[$CellContext`pts, Complement[$CellContext`rng, $CellContext`pick]]]}, { ColorData["HTML", "SlateBlue"], Point[ Part[$CellContext`pts, $CellContext`pick]]}}, PlotLabel -> Row[{ Style["N", Italic], " = ", $CellContext`draken}], ImageSize -> {500, 300}, PlotRange -> 1, SphericalRegion -> True, ViewAngle -> Pi/6]), "Specifications" :> {{{$CellContext`rstar$$, 10, Row[{"average rate of stars formed per year ", Superscript["R", "*"]}]}, 0, 10, 1, Appearance -> "Labeled"}, {{$CellContext`fp$$, 1, Row[{"fraction of those stars with planets ", Subscript["f", "p"]}]}, 0, 1, 0.01, Appearance -> "Labeled"}, {{$CellContext`ne$$, 10, Row[{"average number of planets that can support life per \ star ", Subscript["n", "e"]}]}, 0, 10, 1, Appearance -> "Labeled"}, {{$CellContext`fl$$, 1, Row[{"fraction of those planets that will develop life ", Subscript["f", "l"]}]}, 0, 1, 0.01, Appearance -> "Labeled"}, {{$CellContext`fi$$, 1, Row[{"fraction of those that will be intelligent life ", Subscript["f", "i"]}]}, 0, 1, 0.01, Appearance -> "Labeled"}, {{$CellContext`fc$$, 1, Row[{"fraction of those that are able to communicate ", Subscript["f", "c"]}]}, 0, 1, 0.01, Appearance -> "Labeled"}, {{$CellContext`l$$, 20000, "number of years they will release signals into space L"}, 0, 20000, 1, Appearance -> "Labeled"}}, "Options" :> { TrackedSymbols -> Manipulate, AutorunSequencing -> {4, 5, 6, 7}}, "DefaultOptions" :> {ControllerLinking -> True}], ImageSizeCache->{545., {277., 283.}}, 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.760817958235818*^9}, CellID->54391568] }, {2}]]