Cell[CellGroupData[{Cell[BoxData[ RowBox[{"Manipulate", "[", RowBox[{ RowBox[{ RowBox[{"sunrad", "=", "1"}], ";", " ", RowBox[{"moonrad", "=", ".3"}], ";", " ", RowBox[{"earthrad", "=", "0.75"}], ";", " ", RowBox[{ RowBox[{"nsunpenumbraln", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "earthrad"}], "-", "sunrad"}], ")"}], "/", RowBox[{"(", RowBox[{"7", "-", "0"}], ")"}]}], " ", "x"}], "+", "sunrad"}]}], ";", " ", RowBox[{ RowBox[{"nsunumbraln", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"earthrad", "-", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"7", "-", "0"}], ")"}]}], " ", "x"}], "+", "sunrad"}]}], ";", " ", RowBox[{ RowBox[{"ssunpenumbraln", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{"earthrad", "+", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"7", "-", "0"}], ")"}]}], " ", "x"}], "-", "sunrad"}]}], ";", " ", RowBox[{ RowBox[{"ssunumbraln", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"-", "earthrad"}], "+", "1"}], ")"}], "/", RowBox[{"(", RowBox[{"7", "-", "0"}], ")"}]}], " ", "x"}], "-", "sunrad"}]}], ";", " ", RowBox[{ RowBox[{"nmoonpenumbraln", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"moonorb", " ", RowBox[{"Sin", "[", "t", "]"}]}], "-", "moonrad", "-", "sunrad"}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"moonorb", " ", RowBox[{"Cos", "[", "t", "]"}]}], "+", "7", "-", "0"}], ")"}]}], " ", "x"}], "+", "sunrad"}]}], ";", " ", RowBox[{ RowBox[{"nmoonumbraln", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"moonorb", " ", RowBox[{"Sin", "[", "t", "]"}]}], "+", "moonrad", "-", "sunrad"}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"moonorb", " ", RowBox[{"Cos", "[", "t", "]"}]}], "+", "7", "-", "0"}], ")"}]}], " ", "x"}], "+", "sunrad"}]}], ";", " ", RowBox[{ RowBox[{"smoonpenumbraln", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"moonorb", " ", RowBox[{"Sin", "[", "t", "]"}]}], "+", "moonrad", "+", "sunrad"}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"moonorb", " ", RowBox[{"Cos", "[", "t", "]"}]}], "+", "7", "-", "0"}], ")"}]}], " ", "x"}], "-", "sunrad"}]}], ";", " ", RowBox[{ RowBox[{"smoonumbraln", "[", "x_", "]"}], ":=", RowBox[{ RowBox[{ RowBox[{ RowBox[{"(", RowBox[{ RowBox[{"moonorb", " ", RowBox[{"Sin", "[", "t", "]"}]}], "-", "moonrad", "+", "sunrad"}], ")"}], "/", RowBox[{"(", RowBox[{ RowBox[{"moonorb", " ", RowBox[{"Cos", "[", "t", "]"}]}], "+", "7", "-", "0"}], ")"}]}], " ", "x"}], "-", "sunrad"}]}], ";", RowBox[{"Show", "[", RowBox[{ RowBox[{"Graphics", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{".3", ",", ".4", ",", "1"}], "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "0"}], "}"}], ",", "earthrad"}], "]"}], ",", "Gray", ",", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{"7", ",", "0"}], "}"}], ",", "moonorb"}], "]"}], ",", "White", ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"moonorb", " ", RowBox[{"Cos", "[", "t", "]"}]}], "+", "7"}], ",", RowBox[{"moonorb", " ", RowBox[{"Sin", "[", "t", "]"}]}]}], "}"}], ",", "moonrad"}], "]"}]}], "}"}], ",", RowBox[{"ImageSize", "->", RowBox[{"{", RowBox[{"478", ",", "400"}], "}"}]}], ",", RowBox[{"Background", "->", RowBox[{"RGBColor", "[", RowBox[{".1", ",", ".1", ",", ".1"}], "]"}]}], ",", RowBox[{"PlotRange", "->", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "2"}], ",", "15"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "6"}], ",", "6"}], "}"}]}], "}"}]}]}], "]"}], ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"nsunpenumbraln", "[", "x", "]"}], ",", RowBox[{"ssunpenumbraln", "[", "x", "]"}], ",", RowBox[{"nsunumbraln", "[", "x", "]"}], ",", RowBox[{"ssunumbraln", "[", "x", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", "7", ",", "15"}], "}"}], ",", RowBox[{"FillingStyle", "->", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", ".3", "]"}], ",", RowBox[{"Opacity", "[", ".3", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Opacity", "[", ".3", "]"}]}], "}"}]}], "}"}]}], ",", RowBox[{"Filling", "->", RowBox[{"{", RowBox[{ RowBox[{"1", "->", RowBox[{"{", "2", "}"}]}], ",", RowBox[{"3", "->", RowBox[{"{", "4", "}"}]}]}], "}"}]}], ",", RowBox[{"PlotStyle", "->", "Gray"}]}], "]"}], ",", RowBox[{"Plot", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"nmoonpenumbraln", "[", "x", "]"}], ",", RowBox[{"smoonpenumbraln", "[", "x", "]"}], ",", RowBox[{"nmoonumbraln", "[", "x", "]"}], ",", RowBox[{"smoonumbraln", "[", "x", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"x", ",", RowBox[{ RowBox[{"moonorb", " ", RowBox[{"Cos", "[", "t", "]"}]}], "+", "7"}], ",", "15"}], "}"}], ",", RowBox[{"FillingStyle", "->", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"GrayLevel", "[", ".3", "]"}], ",", RowBox[{"Opacity", "[", ".3", "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Black", ",", RowBox[{"Opacity", "[", ".3", "]"}]}], "}"}]}], "}"}]}], ",", RowBox[{"Filling", "->", RowBox[{"{", RowBox[{ RowBox[{"1", "->", RowBox[{"{", "2", "}"}]}], ",", RowBox[{"3", "->", RowBox[{"{", "4", "}"}]}]}], "}"}]}], ",", RowBox[{"PlotStyle", "->", "Gray"}]}], "]"}], ",", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"RGBColor", "[", RowBox[{"1", ",", ".7", ",", ".1"}], "]"}], ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", "sunrad"}], "]"}]}], "}"}], "]"}]}], "]"}]}], ",", RowBox[{"\"\\"", "->", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"t", ",", "0", ",", "\"\\""}], "}"}], ",", "0", ",", RowBox[{"2", " ", "\[Pi]"}]}], "}"}]}], ",", RowBox[{"\"\\"", "->", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"moonorb", ",", "2", ",", "\"\\""}], "}"}], ",", "1.5", ",", "3"}], "}"}]}], ",", RowBox[{"TrackedSymbols", ":>", RowBox[{"{", RowBox[{"t", ",", "moonorb"}], "}"}]}]}], "]"}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellChangeTimes->{ 3.356737195125*^9, {3.35677672628693*^9, 3.35677676714631*^9}, { 3.35677792758381*^9, 3.35677812059943*^9}, {3.35677832288068*^9, 3.35677832372443*^9}, {3.3570343251659*^9, 3.35703433875973*^9}, { 3.3582949671875*^9, 3.35829498589063*^9}, {3.36063297626563*^9, 3.36063299359375*^9}, {3.36277813192188*^9, 3.3627781551875*^9}, { 3.36346896478125*^9, 3.36346896484375*^9}, 3.36490162687533*^9, { 3.36490249116667*^9, 3.36490261394713*^9}, {3.3886065266875*^9, 3.388606529453125*^9}, 3.7608013487126513`*^9}, CellID->1496021318], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`moonorb$$ = 2, $CellContext`t$$ = 0, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`t$$], 0, "Moon position"}, 0, 2 Pi}, {{ Hold[$CellContext`moonorb$$], 2, "Moon distance"}, 1.5, 3}}, Typeset`size$$ = {478., {198., 202.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = True, $CellContext`t$568617$$ = 0, $CellContext`moonorb$568618$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`moonorb$$ = 2, $CellContext`t$$ = 0}, "ControllerVariables" :> { Hold[$CellContext`t$$, $CellContext`t$568617$$, 0], Hold[$CellContext`moonorb$$, $CellContext`moonorb$568618$$, 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`sunrad = 1; $CellContext`moonrad = 0.3; $CellContext`earthrad = 0.75; $CellContext`nsunpenumbraln[ Pattern[$CellContext`x, Blank[]]] := ((-$CellContext`earthrad - \ $CellContext`sunrad)/(7 + 0)) $CellContext`x + $CellContext`sunrad; \ $CellContext`nsunumbraln[ Pattern[$CellContext`x, Blank[]]] := (($CellContext`earthrad - 1)/(7 + 0)) $CellContext`x + $CellContext`sunrad; \ $CellContext`ssunpenumbraln[ Pattern[$CellContext`x, Blank[]]] := (($CellContext`earthrad + 1)/(7 + 0)) $CellContext`x - $CellContext`sunrad; \ $CellContext`ssunumbraln[ Pattern[$CellContext`x, Blank[]]] := ((-$CellContext`earthrad + 1)/(7 + 0)) $CellContext`x - $CellContext`sunrad; \ $CellContext`nmoonpenumbraln[ Pattern[$CellContext`x$, Blank[]]] := (($CellContext`moonorb$$ Sin[$CellContext`t$$] - $CellContext`moonrad - \ $CellContext`sunrad)/($CellContext`moonorb$$ Cos[$CellContext`t$$] + 7 + 0)) $CellContext`x$ + $CellContext`sunrad; \ $CellContext`nmoonumbraln[ Pattern[$CellContext`x$, Blank[]]] := (($CellContext`moonorb$$ Sin[$CellContext`t$$] + $CellContext`moonrad - \ $CellContext`sunrad)/($CellContext`moonorb$$ Cos[$CellContext`t$$] + 7 + 0)) $CellContext`x$ + $CellContext`sunrad; \ $CellContext`smoonpenumbraln[ Pattern[$CellContext`x$, Blank[]]] := (($CellContext`moonorb$$ Sin[$CellContext`t$$] + $CellContext`moonrad + \ $CellContext`sunrad)/($CellContext`moonorb$$ Cos[$CellContext`t$$] + 7 + 0)) $CellContext`x$ - $CellContext`sunrad; \ $CellContext`smoonumbraln[ Pattern[$CellContext`x$, Blank[]]] := (($CellContext`moonorb$$ Sin[$CellContext`t$$] - $CellContext`moonrad + \ $CellContext`sunrad)/($CellContext`moonorb$$ Cos[$CellContext`t$$] + 7 + 0)) $CellContext`x$ - $CellContext`sunrad; Show[ Graphics[{ RGBColor[0.3, 0.4, 1], Disk[{7, 0}, $CellContext`earthrad], Gray, Circle[{7, 0}, $CellContext`moonorb$$], White, Disk[{$CellContext`moonorb$$ Cos[$CellContext`t$$] + 7, $CellContext`moonorb$$ Sin[$CellContext`t$$]}, $CellContext`moonrad]}, ImageSize -> {478, 400}, Background -> RGBColor[0.1, 0.1, 0.1], PlotRange -> {{-2, 15}, {-6, 6}}], Plot[{ $CellContext`nsunpenumbraln[$CellContext`x], $CellContext`ssunpenumbraln[$CellContext`x], $CellContext`nsunumbraln[$CellContext`x], $CellContext`ssunumbraln[$CellContext`x]}, {$CellContext`x, 7, 15}, FillingStyle -> {{ GrayLevel[0.3], Opacity[0.3]}, {Black, Opacity[0.3]}}, Filling -> {1 -> {2}, 3 -> {4}}, PlotStyle -> Gray], Plot[{ $CellContext`nmoonpenumbraln[$CellContext`x], $CellContext`smoonpenumbraln[$CellContext`x], $CellContext`nmoonumbraln[$CellContext`x], $CellContext`smoonumbraln[$CellContext`x]}, \ {$CellContext`x, $CellContext`moonorb$$ Cos[$CellContext`t$$] + 7, 15}, FillingStyle -> {{ GrayLevel[0.3], Opacity[0.3]}, {Black, Opacity[0.3]}}, Filling -> {1 -> {2}, 3 -> {4}}, PlotStyle -> Gray], Graphics[{ RGBColor[1, 0.7, 0.1], Disk[{0, 0}, $CellContext`sunrad]}]]), "Specifications" :> { "XCyclic" -> {{$CellContext`t$$, 0, "Moon position"}, 0, 2 Pi}, "Y" -> {{$CellContext`moonorb$$, 2, "Moon distance"}, 1.5, 3}}, "Options" :> { TrackedSymbols :> {$CellContext`t$$, $CellContext`moonorb$$}}, "DefaultOptions" :> {ControllerLinking -> True}], ImageSizeCache->{523., {257., 263.}}, 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.35696210375764*^9, 3.388606595859375*^9, 3.76080134871292*^9}, CellID->414108644] }, {2}]]