(* Content-type: application/vnd.wolfram.mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 8.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 157, 7] NotebookDataLength[ 123087, 2350] NotebookOptionsPosition[ 104853, 2007] NotebookOutlinePosition[ 121523, 2306] CellTagsIndexPosition[ 121480, 2303] WindowFrame->Normal*) (* Beginning of Notebook Content *) Notebook[{ Cell[CellGroupData[{ Cell["\<\ Set up two angle tables, one for not quite a circle, and one for a complete \ circle, 12 elements, and 13 elements respectively\ \>", "Subtitle", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{ 3.49157722418288*^9, {3.491577307272769*^9, 3.4915773289739647`*^9}, 3.4915773810077677`*^9, 3.491577419545559*^9, {3.4915839840848427`*^9, 3.491584017597035*^9}, {3.497118192119955*^9, 3.497118267844452*^9}, { 3.497119774211048*^9, 3.497119776585535*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"angletable", "=", RowBox[{"Table", "[", RowBox[{"x", ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", RowBox[{ RowBox[{"2", "Pi"}], "-", RowBox[{"Pi", "/", "6"}]}], ",", RowBox[{"Pi", "/", "6"}]}], "}"}]}], "]"}]}], ";"}], RowBox[{"(*", RowBox[{"starts", " ", "at", " ", "3", " ", RowBox[{"o", "'"}], "clock", " ", "and", " ", "goes", " ", "CCW"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"twopiangletable", "=", RowBox[{"Table", "[", RowBox[{"x", ",", RowBox[{"{", RowBox[{"x", ",", "Pi", ",", RowBox[{"3", "Pi"}], ",", RowBox[{"Pi", "/", "12"}]}], "}"}]}], "]"}]}], ";"}], " ", RowBox[{"(*", RowBox[{"starts", " ", "at", " ", "9", " ", RowBox[{"o", "'"}], "clock", " ", "and", " ", "goes", " ", "CCW"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"hoursangletable", "=", RowBox[{"Table", "[", RowBox[{"x", ",", RowBox[{"{", RowBox[{"x", ",", "0", ",", RowBox[{ RowBox[{"2", "Pi"}], "-", RowBox[{"Pi", "/", "12"}]}], ",", RowBox[{"Pi", "/", "12"}]}], "}"}]}], "]"}]}], ";"}], RowBox[{"(*", RowBox[{"starts", " ", "at", " ", "3", " ", RowBox[{"o", "'"}], "clock", " ", "and", " ", "goes", " ", "CCW"}], "*)"}]}], "\[IndentingNewLine]"}], "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.491577161541802*^9, 3.491577232354789*^9}, 3.4915773810078497`*^9, 3.491577419545637*^9, {3.491583929620263*^9, 3.491583930993703*^9}, {3.491677832077594*^9, 3.49167783301962*^9}, { 3.49184647810506*^9, 3.491846483657321*^9}, {3.4918465141409492`*^9, 3.491846567415351*^9}, {3.491847276335841*^9, 3.491847291448454*^9}, { 3.493996443620994*^9, 3.493996443963229*^9}, {3.494010121967709*^9, 3.494010127797975*^9}, {3.494014139558744*^9, 3.494014166518284*^9}, { 3.494014246739708*^9, 3.494014263060791*^9}, {3.494868911454352*^9, 3.4948689365277653`*^9}, {3.494869311765502*^9, 3.494869397327827*^9}, { 3.494869432423091*^9, 3.494869443563369*^9}, 3.4948718926336937`*^9}] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Set up three radii tables, one for the circle, one for the Zodiac, and one \ for labeling at the outside. All three at 13 values\ \>", "Subtitle", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellChangeTimes->{ 3.49157722418288*^9, {3.491577336214241*^9, 3.491577381007918*^9}, 3.491577423921956*^9, {3.491577461222761*^9, 3.491577489622847*^9}, { 3.491676579123581*^9, 3.4916765897068768`*^9}, 3.491676928782097*^9}], Cell[BoxData[{ RowBox[{ RowBox[{"orbitradiustable", "=", RowBox[{"Table", "[", RowBox[{"1.4", ",", RowBox[{"{", "25", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"offsetradiustable", "=", RowBox[{"Table", "[", RowBox[{".25", ",", RowBox[{"{", "25", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"textradiustable", "=", RowBox[{"Table", "[", RowBox[{"1.8", ",", RowBox[{"{", "25", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"RAarrowsradiustable", "=", RowBox[{"Table", "[", RowBox[{"2.2", ",", RowBox[{"{", "25", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"dateradiustable", "=", RowBox[{"Table", "[", RowBox[{"1.4", ",", RowBox[{"{", "25", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellChangeTimes->{{3.491577161541802*^9, 3.491577232354789*^9}, 3.4915773019899273`*^9, 3.4915773810079823`*^9, 3.49157742392205*^9, { 3.491577500231743*^9, 3.4915775021282377`*^9}, {3.4916765565226793`*^9, 3.491676566387651*^9}, {3.491677834356332*^9, 3.4916778357711773`*^9}, { 3.491846697750165*^9, 3.491846699197103*^9}, {3.4918468609443083`*^9, 3.4918468720444517`*^9}, 3.49184703979458*^9, {3.491847888738181*^9, 3.4918479093228617`*^9}, {3.491848220981476*^9, 3.491848264921275*^9}, { 3.491848405792385*^9, 3.4918484069271097`*^9}, {3.493064057420027*^9, 3.4930640583945*^9}, {3.493064096456252*^9, 3.493064099396892*^9}, { 3.493064252598982*^9, 3.493064253029508*^9}, {3.493996599877054*^9, 3.49399660485188*^9}, 3.4940140502712517`*^9, 3.494869446378427*^9, { 3.495393321093049*^9, 3.4953933439431973`*^9}, {3.495394628242745*^9, 3.495394632185129*^9}, {3.4953947165596848`*^9, 3.495394717877846*^9}, { 3.495394757897952*^9, 3.495394758936184*^9}, {3.495394810141033*^9, 3.495394810659297*^9}, {3.495394858767685*^9, 3.495394881583218*^9}, 3.4953949235716143`*^9, {3.49539497730256*^9, 3.495394997727734*^9}, { 3.495395030962864*^9, 3.4953950312800283`*^9}, {3.495395065459668*^9, 3.495395067050069*^9}, {3.495395100285796*^9, 3.4953951164132547`*^9}, { 3.495395183594561*^9, 3.495395219092478*^9}, {3.495395469498932*^9, 3.4953955186445704`*^9}, 3.4953955872735853`*^9, {3.4954658937872753`*^9, 3.4954658960575542`*^9}, {3.4954659336375103`*^9, 3.495465953901031*^9}, 3.495473897903303*^9, 3.4954756146410513`*^9, {3.495479570812632*^9, 3.4954795818436203`*^9}, {3.4954796205335627`*^9, 3.495479630773913*^9}, 3.495480545164545*^9, 3.495480598991857*^9}] }, Open ]], Cell[CellGroupData[{ Cell["\<\ Set up two sets of x and y tables, one for not quite a circle, and one for a \ complete circle, 12 elements, and 13 elements respectively\ \>", "Subtitle", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{ 3.49157722418288*^9, {3.491577307272769*^9, 3.4915773289739647`*^9}, 3.4915773810077677`*^9, 3.491577419545559*^9, {3.4915775496029053`*^9, 3.491577555898959*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"xtable", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"orbitradiustable", " ", "[", RowBox[{"[", "i", "]"}], "]"}], "*", " ", RowBox[{"Cos", "[", RowBox[{"twopiangletable", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "25"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ytable", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"orbitradiustable", " ", "[", RowBox[{"[", "i", "]"}], "]"}], "*", " ", RowBox[{"Sin", "[", RowBox[{"twopiangletable", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "25"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"xoffsettable", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"offsetradiustable", " ", "[", RowBox[{"[", "i", "]"}], "]"}], "*", " ", RowBox[{"Cos", "[", RowBox[{"twopiangletable", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "25"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"yoffsettable", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"offsetradiustable", " ", "[", RowBox[{"[", "i", "]"}], "]"}], "*", " ", RowBox[{"Sin", "[", RowBox[{"twopiangletable", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "25"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"twopixtable", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"orbitradiustable", " ", "[", RowBox[{"[", "i", "]"}], "]"}], "*", " ", RowBox[{"Cos", "[", RowBox[{"twopiangletable", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "25"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"twopiytable", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"orbitradiustable", " ", "[", RowBox[{"[", "i", "]"}], "]"}], "*", " ", RowBox[{"Sin", "[", RowBox[{"twopiangletable", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "25"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"hoursxtable", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"orbitradiustable", " ", "[", RowBox[{"[", "i", "]"}], "]"}], "*", " ", RowBox[{"Cos", "[", RowBox[{"hoursangletable", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "24"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"hoursytable", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"orbitradiustable", " ", "[", RowBox[{"[", "i", "]"}], "]"}], "*", " ", RowBox[{"Sin", "[", RowBox[{"hoursangletable", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "24"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"datextable", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"dateradiustable", " ", "[", RowBox[{"[", "i", "]"}], "]"}], "*", " ", RowBox[{"Cos", "[", RowBox[{"hoursangletable", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "24"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"dateytable", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"dateradiustable", " ", "[", RowBox[{"[", "i", "]"}], "]"}], "*", " ", RowBox[{"Sin", "[", RowBox[{"hoursangletable", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "24"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"RAarrowxtable", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"RAarrowsradiustable", " ", "[", RowBox[{"[", "i", "]"}], "]"}], "*", " ", RowBox[{"Cos", "[", RowBox[{"twopiangletable", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "25"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"RAarrowytable", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"RAarrowsradiustable", " ", "[", RowBox[{"[", "i", "]"}], "]"}], "*", " ", RowBox[{"Sin", "[", RowBox[{"twopiangletable", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "25"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.491577161541802*^9, 3.491577232354789*^9}, 3.4915773810078497`*^9, 3.491577419545637*^9, 3.4915775407891417`*^9, { 3.491676644419446*^9, 3.491676646831067*^9}, {3.491677839447918*^9, 3.4916778423571*^9}, {3.491846631635392*^9, 3.4918466520179863`*^9}, { 3.491846902586124*^9, 3.491846906672464*^9}, {3.4918474074628677`*^9, 3.491847432406846*^9}, {3.491847927021649*^9, 3.491848010658881*^9}, { 3.493064167340069*^9, 3.4930641707466373`*^9}, {3.4939966112062693`*^9, 3.493996612213593*^9}, {3.49401406627495*^9, 3.494014096186986*^9}, { 3.494014228204466*^9, 3.494014230467019*^9}, {3.494014320762019*^9, 3.4940143245761137`*^9}, {3.494868730821877*^9, 3.494868807112132*^9}, 3.494869240538484*^9, {3.494869272490617*^9, 3.4948692965784187`*^9}, { 3.49539336011453*^9, 3.495393380836854*^9}, {3.495479521930341*^9, 3.495479555793071*^9}, {3.495479654633383*^9, 3.495479673235849*^9}}], Cell["\<\ Set up two x and y tables, one for the Zodiac, and one for the text. Rotate \ the Zodiac by pi/12\ \>", "Subtitle", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{ 3.49157722418288*^9, {3.491577336214241*^9, 3.491577381007918*^9}, 3.491577423921956*^9, {3.4915777559428387`*^9, 3.491577779599186*^9}, { 3.4915778464195004`*^9, 3.491577856267989*^9}, 3.491676672758616*^9, 3.4916769806333113`*^9}], Cell[BoxData[ RowBox[{"\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"xtabletext", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"textradiustable", " ", "[", RowBox[{"[", "i", "]"}], "]"}], "*", " ", RowBox[{"Cos", "[", RowBox[{"angletable", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "12"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"ytabletext", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"textradiustable", " ", "[", RowBox[{"[", "i", "]"}], "]"}], "*", " ", RowBox[{"Sin", "[", RowBox[{"angletable", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "12"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"hoursxtabletext", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"textradiustable", " ", "[", RowBox[{"[", "i", "]"}], "]"}], "*", " ", RowBox[{"Cos", "[", RowBox[{"hoursangletable", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "24"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"hoursytabletext", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"textradiustable", " ", "[", RowBox[{"[", "i", "]"}], "]"}], "*", " ", RowBox[{"Sin", "[", RowBox[{"hoursangletable", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "24"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"RAarrowsxtabletext", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"RAarrowsradiustable", " ", "[", RowBox[{"[", "i", "]"}], "]"}], "*", " ", RowBox[{"Cos", "[", RowBox[{"hoursangletable", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "24"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"RAarrowsytabletext", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"RAarrowsradiustable", " ", "[", RowBox[{"[", "i", "]"}], "]"}], "*", " ", RowBox[{"Sin", "[", RowBox[{"hoursangletable", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "24"}], "}"}]}], "]"}]}], ";"}]}]}]], "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.491577161541802*^9, 3.491577232354789*^9}, 3.4915773019899273`*^9, 3.4915773810079823`*^9, 3.49157742392205*^9, { 3.491577726342895*^9, 3.4915777460072203`*^9}, {3.4915778703876753`*^9, 3.4915778997818737`*^9}, {3.4915779674024057`*^9, 3.49157798212761*^9}, 3.49167667275885*^9, {3.491676703479396*^9, 3.491676735554326*^9}, { 3.491677846360907*^9, 3.491677849461357*^9}, {3.4918466695894127`*^9, 3.4918466775397797`*^9}, {3.4918467333989143`*^9, 3.491846735383115*^9}, { 3.491846914067421*^9, 3.4918469177295313`*^9}, {3.491848140530068*^9, 3.491848150139347*^9}, {3.491848182086095*^9, 3.491848189389049*^9}, { 3.4918485012965918`*^9, 3.4918485061599207`*^9}, {3.491848547650784*^9, 3.491848554770458*^9}, {3.493996618391127*^9, 3.4939966296649942`*^9}, { 3.494014338991871*^9, 3.494014347465746*^9}, 3.495473799226207*^9}], Cell["\<\ Set up an x and y table set for the rotating arrow. Should start and finish \ with the same values.\ \>", "Subtitle", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{ 3.49157722418288*^9, {3.491577336214241*^9, 3.491577381007918*^9}, 3.491577423921956*^9, {3.4915777559428387`*^9, 3.491577779599186*^9}, { 3.4915778464195004`*^9, 3.491577856267989*^9}, 3.491676672758616*^9, 3.4916769806333113`*^9, {3.49167708576781*^9, 3.4916770958303013`*^9}, { 3.491677139498457*^9, 3.491677148409532*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"twopixtabletext", "=", RowBox[{"Table", "[", " ", RowBox[{ RowBox[{"Cos", "[", RowBox[{"twopiangletable", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "25"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"twopiytabletext", "=", RowBox[{"Table", "[", " ", RowBox[{ RowBox[{"Sin", "[", RowBox[{"twopiangletable", "[", RowBox[{"[", "i", "]"}], "]"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "25"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}, CellChangeTimes->{{3.491577161541802*^9, 3.491577232354789*^9}, 3.4915773019899273`*^9, 3.4915773810079823`*^9, 3.49157742392205*^9, { 3.491577726342895*^9, 3.4915777460072203`*^9}, {3.4915778703876753`*^9, 3.4915778997818737`*^9}, {3.4915779674024057`*^9, 3.49157798212761*^9}, 3.49167667275885*^9, {3.491676703479396*^9, 3.491676735554326*^9}, 3.491677073807815*^9, {3.4916771222767363`*^9, 3.4916771232911787`*^9}, { 3.491677852198502*^9, 3.4916778530460243`*^9}, {3.49399650739261*^9, 3.4939965090710163`*^9}, {3.493996633150681*^9, 3.49399663679041*^9}, { 3.495465671173704*^9, 3.495465677212344*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Zodiac", "Subsection", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellChangeTimes->{ 3.49157722418288*^9, {3.491577336214241*^9, 3.491577381007918*^9}, 3.491577423921956*^9, {3.4915777559428387`*^9, 3.491577779599186*^9}, { 3.4915778464195004`*^9, 3.491577856267989*^9}, 3.491676672758616*^9, 3.4916769806333113`*^9, {3.49167708576781*^9, 3.4916770958303013`*^9}, { 3.491677139498457*^9, 3.491677148409532*^9}, {3.4916771898056602`*^9, 3.4916773380206947`*^9}, {3.491677380873766*^9, 3.491677424033486*^9}, 3.491846368946351*^9, {3.495473687150786*^9, 3.495473708822398*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"Zodiactable", "=", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Zodiacradiustable", "=", RowBox[{"Table", "[", RowBox[{"2.2", ",", RowBox[{"{", "12", "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"xZodiactabletext", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Zodiacradiustable", " ", "[", RowBox[{"[", "i", "]"}], "]"}], "*", " ", RowBox[{"Cos", "[", RowBox[{ RowBox[{"angletable", "[", RowBox[{"[", "i", "]"}], "]"}], "+", RowBox[{"Pi", "/", "12"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "12"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"yZodiactabletext", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{ RowBox[{"Zodiacradiustable", " ", "[", RowBox[{"[", "i", "]"}], "]"}], "*", " ", RowBox[{"Sin", "[", RowBox[{ RowBox[{"angletable", "[", RowBox[{"[", "i", "]"}], "]"}], "+", RowBox[{"Pi", "/", "12"}]}], "]"}]}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "12"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Zodiaccircletable", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{"Zodiactable", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"xZodiactabletext", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"yZodiactabletext", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "12"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellGroupingRules->{GroupTogetherGrouping, 10001.}, CellChangeTimes->{{3.4954735731321373`*^9, 3.495473574475604*^9}, 3.495473687150885*^9, {3.495473769925838*^9, 3.495473808626976*^9}, { 3.495473904056467*^9, 3.4954739229489117`*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Earths", "Subsection", CellChangeTimes->{ 3.49157722418288*^9, {3.491577336214241*^9, 3.491577381007918*^9}, 3.491577423921956*^9, {3.4915777559428387`*^9, 3.491577779599186*^9}, { 3.4915778464195004`*^9, 3.491577856267989*^9}, 3.491676672758616*^9, 3.4916769806333113`*^9, {3.49167708576781*^9, 3.4916770958303013`*^9}, { 3.491677139498457*^9, 3.491677148409532*^9}, {3.4916771898056602`*^9, 3.4916773380206947`*^9}, {3.491677380873766*^9, 3.491677424033486*^9}, 3.491846368946351*^9, {3.495473687150786*^9, 3.495473708822398*^9}, { 3.495474521959096*^9, 3.495474524957755*^9}, 3.495474814247484*^9, { 3.495474875409953*^9, 3.495474877793294*^9}, {3.495475002920973*^9, 3.4954750046406593`*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"Earths", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xtable", "[", RowBox[{"[", "i", "]"}], "]"}], ",", RowBox[{"ytable", "[", RowBox[{"[", "i", "]"}], "]"}]}], "}"}], ",", "0.2"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "25"}], "}"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"Observers", "=", RowBox[{"Table", "[", RowBox[{ RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"xtable", "[", RowBox[{"[", "i", "]"}], "]"}], "+", RowBox[{"xoffsettable", "[", RowBox[{"[", "j", "]"}], "]"}]}], ",", RowBox[{ RowBox[{"ytable", "[", RowBox[{"[", "i", "]"}], "]"}], "+", RowBox[{"yoffsettable", "[", RowBox[{"[", "j", "]"}], "]"}]}]}], "}"}], ",", "0.05"}], "]"}], ",", RowBox[{"{", RowBox[{"i", ",", "1", ",", "25"}], "}"}], ",", RowBox[{"{", RowBox[{"j", ",", "1", ",", "25"}], "}"}]}], "]"}]}], ";"}]}], "Input", CellChangeTimes->{{3.4954735731321373`*^9, 3.495473574475604*^9}, 3.495473687150885*^9, {3.495473769925838*^9, 3.495473808626976*^9}, { 3.495473904056467*^9, 3.4954739229489117`*^9}, 3.495474542277371*^9, 3.495474814247313*^9, {3.495474887140892*^9, 3.495474889021163*^9}, 3.495475001555132*^9, {3.495475031724721*^9, 3.4954750549825783`*^9}, { 3.495475211776943*^9, 3.4954752128412*^9}, {3.495475264715654*^9, 3.4954752656258173`*^9}, 3.4954757929942703`*^9, {3.4954768282270403`*^9, 3.495476857781396*^9}, {3.4954794719594707`*^9, 3.495479479525343*^9}, { 3.49547971322064*^9, 3.4954797429498796`*^9}, {3.4954797761134*^9, 3.495479798162816*^9}, {3.49548002347948*^9, 3.4954800451276083`*^9}, 3.495480359827235*^9, 3.495480495811345*^9, {3.4954805291909647`*^9, 3.495480529531184*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Data", "Subtitle", CellChangeTimes->{ 3.49157722418288*^9, {3.491577336214241*^9, 3.491577381007918*^9}, 3.491577423921956*^9, {3.4915777559428387`*^9, 3.491577779599186*^9}, { 3.4915778464195004`*^9, 3.491577856267989*^9}, 3.491676672758616*^9, 3.4916769806333113`*^9, {3.49167708576781*^9, 3.4916770958303013`*^9}, { 3.491677139498457*^9, 3.491677148409532*^9}, {3.4916771898056602`*^9, 3.4916773380206947`*^9}, {3.491677380873766*^9, 3.491677424033486*^9}, 3.491846368946351*^9, 3.495474846488474*^9, {3.4954772469789677`*^9, 3.495477247753469*^9}}], Cell[BoxData[{ RowBox[{ RowBox[{"hourstable", "=", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{"time", "=", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\<1AM\>\"", ",", "\"\<2AM\>\"", ",", "\"\<3AM\>\"", ",", "\"\<4AM\>\"", ",", "\"\<5 AM\>\"", ",", "\"\<6 AM\>\"", ",", "\"\<7 AM\>\"", ",", "\"\<8 AM\>\"", ",", "\"\<9 AM\>\"", ",", "\"\<10 AM\>\"", ",", "\"\<11 AM\>\"", ",", "\[IndentingNewLine]", " ", "\"\\"", ",", "\"\<1 PM\>\"", ",", "\"\<2 PM\>\"", ",", "\"\<3 PM\>\"", ",", "\"\<4 PM\>\"", ",", "\"\<5 PM\>\"", ",", "\"\<6 PM\>\"", ",", "\"\<7 PM\>\"", ",", "\"\<8 PM\>\"", ",", "\"\<9 PM\>\"", ",", "\"\<10 PM\>\"", ",", "\"\<11 PM\>\"", ",", "\"\\""}], "}"}]}], ";"}], "\[IndentingNewLine]", RowBox[{ RowBox[{ RowBox[{"date", "=", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\[IndentingNewLine]", " ", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\"", ",", "\"\\""}], "}"}]}], ";"}], " ", RowBox[{"(*", RowBox[{ "dates", " ", "are", " ", "from", " ", "Earth", " ", "centered", " ", "Ephemeris", " ", "for", " ", "2010"}], "*)"}]}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.491577161541802*^9, 3.491577232354789*^9}, 3.4915773019899273`*^9, 3.4915773810079823`*^9, 3.49157742392205*^9, { 3.491577726342895*^9, 3.4915777460072203`*^9}, {3.4915778703876753`*^9, 3.4915778997818737`*^9}, {3.4915779674024057`*^9, 3.49157798212761*^9}, 3.49167667275885*^9, {3.491676703479396*^9, 3.491676735554326*^9}, 3.491677073807815*^9, {3.4916771222767363`*^9, 3.4916771232911787`*^9}, 3.491677185237937*^9, {3.4916773431468153`*^9, 3.491677352151639*^9}, { 3.491677856600854*^9, 3.491677864549818*^9}, {3.491751192625201*^9, 3.491751197807234*^9}, {3.491751228245668*^9, 3.4917513025737886`*^9}, { 3.491752197702448*^9, 3.4917522900044518`*^9}, {3.4918467631936626`*^9, 3.49184677368898*^9}, 3.491846952598002*^9, {3.4918471072220707`*^9, 3.491847170800312*^9}, {3.491847302858159*^9, 3.4918473280681753`*^9}, 3.4939965670578203`*^9, {3.49401431233223*^9, 3.494014313724227*^9}, 3.494014364210197*^9, {3.494868820167646*^9, 3.4948688276331587`*^9}, { 3.494869026568878*^9, 3.494869027854203*^9}, {3.494869806335949*^9, 3.494869806646522*^9}, 3.494872025328124*^9, {3.495464712886055*^9, 3.495464716246132*^9}, {3.495464762576392*^9, 3.4954647988030643`*^9}, { 3.495464872286264*^9, 3.49546488167144*^9}, {3.495464999182453*^9, 3.495464999693509*^9}, 3.495465254741503*^9, {3.495473550005267*^9, 3.495473570665633*^9}, {3.495474193829143*^9, 3.4954741970610228`*^9}, { 3.495474336869341*^9, 3.495474349367552*^9}, {3.495474384556368*^9, 3.495474397826866*^9}, 3.4954745342362003`*^9, 3.495474846488574*^9, 3.495474884657445*^9, {3.495475096210676*^9, 3.4954751049157*^9}, { 3.495475442927466*^9, 3.495475443350049*^9}, {3.495475544213655*^9, 3.49547555715736*^9}, 3.4954758201494226`*^9, {3.495476208714382*^9, 3.4954762473979053`*^9}, 3.4954770945007057`*^9, {3.495477235937172*^9, 3.495477262476256*^9}, {3.495477349008788*^9, 3.495477350279601*^9}, { 3.495480636088357*^9, 3.495480655952138*^9}, {3.49555872367205*^9, 3.495558725182288*^9}, {3.4971184755303164`*^9, 3.4971185719701223`*^9}, { 3.4971187698772163`*^9, 3.497118777846078*^9}, {3.497118815151681*^9, 3.497118977084654*^9}, {3.497730227913192*^9, 3.4977302987443523`*^9}, { 3.5052277280568323`*^9, 3.505227738822495*^9}, {3.505227839396431*^9, 3.505227848986306*^9}}] }, Open ]], Cell[CellGroupData[{ Cell["Make the interactive", "Subtitle", CellChangeTimes->{ 3.49157722418288*^9, {3.491577336214241*^9, 3.491577381007918*^9}, 3.491577423921956*^9, {3.4915777559428387`*^9, 3.491577779599186*^9}, { 3.4915778464195004`*^9, 3.491577856267989*^9}, 3.491676672758616*^9, 3.4916769806333113`*^9, {3.49167708576781*^9, 3.4916770958303013`*^9}, { 3.491677139498457*^9, 3.491677148409532*^9}, {3.491677457933342*^9, 3.4916774658681192`*^9}, {3.491743908429881*^9, 3.49174392838906*^9}, { 3.491751563375403*^9, 3.491751566541947*^9}, 3.495474846488781*^9, { 3.495477271732328*^9, 3.495477277643136*^9}}], Cell[CellGroupData[{ Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"trunc", "[", RowBox[{"x_", ",", "v_"}], "]"}], ":=", " ", RowBox[{"If", "[", " ", RowBox[{ RowBox[{"x", ">=", " ", "v"}], ",", RowBox[{"x", "-", RowBox[{"2", RowBox[{"(", RowBox[{"x", "-", "v"}], ")"}]}]}], ",", "x"}], "]"}]}], " ", RowBox[{"(*", RowBox[{"isosceles", " ", "triangle", " ", "function"}], "*)"}]}], "\[IndentingNewLine]", RowBox[{"q", "=", RowBox[{"Magnify", "[", RowBox[{ RowBox[{"Manipulate", "[", "\[IndentingNewLine]", RowBox[{ RowBox[{"Show", "[", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"Graphics", "[", RowBox[{"Zodiaccircletable", ",", RowBox[{"BaseStyle", "->", RowBox[{"{", RowBox[{ RowBox[{"FontWeight", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "12"}]}], "}"}]}]}], RowBox[{"(*", RowBox[{"end", " ", "Graphics"}], "*)"}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"Disk", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", "0.4"}], "]"}]}], "}"}], RowBox[{"(*", RowBox[{"end", " ", "Graphics"}], "*)"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"Circle", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0"}], "}"}], ",", "1.4"}], "]"}], RowBox[{"(*", RowBox[{"end", " ", "Graphics"}], "*)"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"LightBrown", ",", "Earths"}], "}"}], RowBox[{"(*", RowBox[{"end", " ", "Graphics"}], "*)"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Arrowheads", "[", ".05", "]"}], ",", RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.0", ",", "0.0"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"0.7", "*", RowBox[{"twopixtabletext", "[", RowBox[{"[", "RAplus1", "]"}], "]"}]}], ",", RowBox[{"0.7", "*", RowBox[{"twopiytabletext", "[", RowBox[{"[", "RAplus1", "]"}], "]"}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], RowBox[{"(*", RowBox[{"end", " ", "Graphics"}], "*)"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{ RowBox[{"Arrowheads", "[", ".05", "]"}], ",", RowBox[{"Arrow", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"xtable", "[", RowBox[{"[", "date1", "]"}], "]"}], ",", RowBox[{"ytable", "[", RowBox[{"[", "date1", "]"}], "]"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{ RowBox[{"xtable", "[", RowBox[{"[", "date1", "]"}], "]"}], "+", RowBox[{"0.7", "*", RowBox[{"twopixtabletext", "[", RowBox[{"[", "RAplus1", "]"}], "]"}]}]}], ",", RowBox[{ RowBox[{"ytable", "[", RowBox[{"[", "date1", "]"}], "]"}], "+", RowBox[{"0.7", "*", RowBox[{"twopiytabletext", "[", RowBox[{"[", "RAplus1", "]"}], "]"}]}]}]}], "}"}]}], "}"}], "]"}]}], "}"}], RowBox[{"(*", RowBox[{"end", " ", "Graphics"}], "*)"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"{", RowBox[{"Blue", ",", RowBox[{"Earths", "[", RowBox[{"[", "date1", "]"}], "]"}]}], "}"}], RowBox[{"(*", RowBox[{"end", " ", "Graphics"}], "*)"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"Observers", "[", RowBox[{"[", RowBox[{"date1", ",", RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{"time1", "+", "date1", "-", "2"}], ",", "24"}], "]"}], "+", "1"}]}], "]"}], "]"}], RowBox[{"(*", RowBox[{"end", " ", "Graphics"}], "*)"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"Text", "[", RowBox[{ RowBox[{"date", "[", RowBox[{"[", "date1", "]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "1.8"}], ",", RowBox[{"-", "2.0"}]}], "}"}]}], "]"}], RowBox[{"(*", RowBox[{"end", " ", "Graphics"}], "*)"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"Text", "[", RowBox[{ RowBox[{"time", "[", RowBox[{"[", "time1", "]"}], "]"}], ",", RowBox[{"{", RowBox[{"0.0", ",", RowBox[{"+", "1.8"}]}], "}"}]}], "]"}], RowBox[{"(*", RowBox[{"end", " ", "Graphics"}], "*)"}], "]"}], ",", " ", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"Text", "[", RowBox[{"\"\<\[CapitalDelta] = \>\"", ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.2"}], ",", RowBox[{"-", "0.7"}]}], "}"}]}], "]"}], RowBox[{"(*", RowBox[{"end", " ", "Graphics"}], "*)"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"Text", "[", RowBox[{ RowBox[{ RowBox[{"-", "1"}], "+", RowBox[{"Abs", "[", RowBox[{"trunc", "[", RowBox[{ RowBox[{ RowBox[{"Mod", "[", RowBox[{ RowBox[{ RowBox[{"-", "RAplus1"}], "+", "time1", "+", "date1", "-", "1"}], ",", "24"}], "]"}], "+", "1"}], ",", "13"}], "]"}], "]"}]}], ",", RowBox[{"{", RowBox[{"0.0", ",", RowBox[{"-", "0.7"}]}], "}"}]}], "]"}], "]"}], RowBox[{"(*", RowBox[{"end", " ", "Graphics"}], "*)"}], ",", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{"Text", "[", RowBox[{"\"\\"", ",", RowBox[{"{", RowBox[{"0.0", ",", RowBox[{"-", "3.0"}]}], "}"}]}], "]"}], RowBox[{"(*", RowBox[{"end", " ", "Graphics"}], "*)"}], "]"}], ",", " ", "\[IndentingNewLine]", RowBox[{"Graphics", "[", RowBox[{ RowBox[{"Text", "[", RowBox[{ RowBox[{"hourstable", "[", RowBox[{"[", "RAplus1", "]"}], "]"}], ",", RowBox[{"{", RowBox[{ RowBox[{"+", "1.8"}], ",", RowBox[{"-", "2"}]}], "}"}]}], "]"}], ",", RowBox[{"BaseStyle", "->", RowBox[{"{", RowBox[{ RowBox[{"FontWeight", "->", "\"\\""}], ",", RowBox[{"FontSize", "\[Rule]", "18"}]}], "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", RowBox[{ "PlotLabel", "->", "\"\\""}]}], RowBox[{"(*", RowBox[{"end", " ", "Show"}], "*)"}], "]"}], ",", "\[IndentingNewLine]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"RAplus1", ",", "1", ",", "\"\\""}], "}"}], ",", "1", ",", "25", ",", "1", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"date1", ",", "1", ",", "\"\\""}], "}"}], ",", "1", ",", "25", ",", "1", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"time1", ",", "1", ",", "\"\\""}], "}"}], ",", "1", ",", "25", ",", "1", ",", RowBox[{"Appearance", "\[Rule]", "\"\\""}]}], "}"}], ",", RowBox[{"ControlPlacement", "->", " ", "Left"}], ",", RowBox[{"SaveDefinitions", "->", "True"}]}], RowBox[{"(*", RowBox[{"end", " ", "Manipulate"}], "*)"}], "]"}], " ", ",", "1.5"}], " ", RowBox[{"(*", RowBox[{"end", " ", "magnify"}], "*)"}], "]"}]}], "\[IndentingNewLine]"}], "Input", CellChangeTimes->{{3.491577161541802*^9, 3.491577232354789*^9}, 3.4915773019899273`*^9, 3.4915773810079823`*^9, 3.49157742392205*^9, { 3.491577726342895*^9, 3.4915777460072203`*^9}, {3.4915778703876753`*^9, 3.4915778997818737`*^9}, {3.4915779674024057`*^9, 3.49157798212761*^9}, 3.49167667275885*^9, {3.491676703479396*^9, 3.491676735554326*^9}, 3.491677073807815*^9, {3.4916771222767363`*^9, 3.4916771232911787`*^9}, { 3.4916774768303747`*^9, 3.491677489239195*^9}, {3.4916778688415127`*^9, 3.49167787509391*^9}, {3.491751589424645*^9, 3.491751746806857*^9}, 3.491751866676194*^9, {3.491751985681283*^9, 3.491752028457451*^9}, { 3.491752145018914*^9, 3.491752145272979*^9}, {3.493064221379635*^9, 3.493064236818837*^9}, {3.493996198691133*^9, 3.4939962283082047`*^9}, { 3.493996466931725*^9, 3.493996467138091*^9}, 3.4940100391533327`*^9, { 3.494014431948687*^9, 3.4940145211545563`*^9}, {3.494014576701313*^9, 3.4940145847805357`*^9}, {3.4940146449689083`*^9, 3.494014656972891*^9}, { 3.4948683615137672`*^9, 3.494868599079459*^9}, {3.494869492924508*^9, 3.49486950685513*^9}, {3.4948698690750237`*^9, 3.4948698711049633`*^9}, { 3.4948699139256983`*^9, 3.494870014313613*^9}, 3.494870058134068*^9, { 3.494870097703865*^9, 3.494870131033825*^9}, {3.494870186285372*^9, 3.49487020962144*^9}, {3.494870252081217*^9, 3.494870293234025*^9}, { 3.494870325967019*^9, 3.494870354619081*^9}, {3.49487050068113*^9, 3.494870522047143*^9}, {3.4948705635551567`*^9, 3.4948706868095922`*^9}, { 3.494870761001267*^9, 3.494870773862987*^9}, {3.494870804385181*^9, 3.494870814195787*^9}, {3.494870891630279*^9, 3.49487090474722*^9}, { 3.4948709509349613`*^9, 3.4948709640320473`*^9}, {3.494871071385116*^9, 3.494871112282651*^9}, {3.494871249996674*^9, 3.494871259097747*^9}, { 3.4948712932389727`*^9, 3.494871296427473*^9}, {3.49487133086512*^9, 3.4948713518083897`*^9}, {3.494871408157406*^9, 3.4948714126694527`*^9}, 3.494871851197982*^9, {3.494871970733927*^9, 3.4948719799239492`*^9}, { 3.49487333279557*^9, 3.494873392342313*^9}, {3.494873427530101*^9, 3.494873431398905*^9}, {3.495388051191827*^9, 3.4953880762469254`*^9}, { 3.495388138773056*^9, 3.4953881513241577`*^9}, {3.495388314797491*^9, 3.495388324981318*^9}, {3.495388408842944*^9, 3.4953884124567823`*^9}, { 3.495388487175082*^9, 3.49538849973499*^9}, {3.495393110583605*^9, 3.495393140542283*^9}, {3.4953931804582367`*^9, 3.495393192377928*^9}, { 3.495393226621346*^9, 3.49539327627285*^9}, {3.4953934230093117`*^9, 3.495393446512712*^9}, {3.4953934883343973`*^9, 3.4953935211752653`*^9}, { 3.495395259578414*^9, 3.495395401688766*^9}, {3.495462647803172*^9, 3.495462718797627*^9}, {3.4954629150030003`*^9, 3.495462925442944*^9}, { 3.495463003970127*^9, 3.495463012927902*^9}, 3.495463566817461*^9, { 3.495463615891531*^9, 3.495463740978527*^9}, {3.495463994971971*^9, 3.495464011260631*^9}, {3.495464185104987*^9, 3.495464486547494*^9}, { 3.49546456905037*^9, 3.495464598012609*^9}, {3.495464629460656*^9, 3.4954646495738487`*^9}, {3.495464828519661*^9, 3.4954648301804943`*^9}, { 3.495464941498783*^9, 3.495464981568465*^9}, {3.4954650587303543`*^9, 3.495465063022358*^9}, 3.495465101953409*^9, 3.495465134534686*^9, { 3.495465276730629*^9, 3.495465316451352*^9}, {3.495465465001947*^9, 3.495465474957069*^9}, {3.495465608068012*^9, 3.4954656347076902`*^9}, { 3.495465796910947*^9, 3.495465835798942*^9}, {3.4954659799112988`*^9, 3.495466004598448*^9}, {3.495466415183601*^9, 3.495466466288505*^9}, { 3.495473193554853*^9, 3.495473219904221*^9}, {3.4954732685049953`*^9, 3.495473308944434*^9}, {3.4954733453731833`*^9, 3.495473346782195*^9}, { 3.49547360521299*^9, 3.495473619510044*^9}, {3.495474003238945*^9, 3.495474060454193*^9}, {3.4954741661248627`*^9, 3.4954742681301737`*^9}, { 3.495474424767838*^9, 3.495474479719359*^9}, {3.495474570827694*^9, 3.495474579877159*^9}, 3.495474846488842*^9, {3.4954749451197968`*^9, 3.495474957249525*^9}, {3.4954751151451893`*^9, 3.495475172261073*^9}, { 3.4954753652969847`*^9, 3.495475373422471*^9}, {3.495475458951158*^9, 3.4954755105170193`*^9}, {3.495475578813096*^9, 3.49547557964147*^9}, { 3.49547564288947*^9, 3.495475652969529*^9}, {3.4954763132525043`*^9, 3.495476366498014*^9}, 3.4954763972490788`*^9, {3.4954764281374817`*^9, 3.495476453517316*^9}, {3.495476576552273*^9, 3.495476596521657*^9}, { 3.4954766540638742`*^9, 3.495476658116746*^9}, {3.495476795771989*^9, 3.495476797383338*^9}, {3.4954770157337713`*^9, 3.495477023483014*^9}, { 3.495477255630907*^9, 3.495477281048617*^9}, {3.4954773377611237`*^9, 3.495477344192299*^9}, {3.4954773984974403`*^9, 3.495477401198553*^9}, { 3.495477647072418*^9, 3.495477681296823*^9}, {3.4954777191430073`*^9, 3.495477753165032*^9}, {3.4954803975488577`*^9, 3.495480472134905*^9}, { 3.495482309524878*^9, 3.495482311977182*^9}, {3.495482359261984*^9, 3.495482409576778*^9}, {3.495557850655751*^9, 3.495557860846191*^9}, { 3.495557918790518*^9, 3.4955579189877996`*^9}, {3.49555803561307*^9, 3.495558051166016*^9}, {3.495558117363193*^9, 3.495558138107422*^9}, { 3.4955582237771*^9, 3.495558329763402*^9}, {3.495558359991873*^9, 3.4955583726295843`*^9}, {3.495558447947701*^9, 3.495558456397505*^9}, 3.495558550754734*^9, {3.4955587674634113`*^9, 3.495558783517219*^9}, { 3.495558950337885*^9, 3.495559036105105*^9}, 3.495559068809003*^9, { 3.495559128409235*^9, 3.495559200198451*^9}, {3.4955599801662607`*^9, 3.495560016614447*^9}, {3.495560182122143*^9, 3.4955602119844933`*^9}, { 3.4955603564023438`*^9, 3.495560364315508*^9}, {3.495560403407078*^9, 3.495560417184269*^9}, {3.4955604992278643`*^9, 3.495560502898575*^9}, { 3.4955606943766413`*^9, 3.495560709301022*^9}, {3.4955608674015627`*^9, 3.495560870705244*^9}, {3.49556094102914*^9, 3.4955609914624367`*^9}, { 3.4955610293066597`*^9, 3.495561034367975*^9}, {3.495561098574398*^9, 3.495561119229596*^9}, {3.495561385748234*^9, 3.495561485306075*^9}, { 3.495561553768716*^9, 3.49556156924827*^9}, {3.4955616119722843`*^9, 3.495561612201714*^9}, {3.495561654678649*^9, 3.495561679149173*^9}, { 3.495562582531229*^9, 3.495562615951735*^9}, {3.4955626639544983`*^9, 3.49556270262514*^9}, 3.4955690748010893`*^9, {3.4955691210434837`*^9, 3.495569137242535*^9}, 3.495569192135694*^9, {3.495569223985413*^9, 3.49556927185235*^9}, {3.495569344873103*^9, 3.495569350702301*^9}, { 3.495569381770741*^9, 3.4955693826489*^9}, {3.4955694754639797`*^9, 3.495569497334238*^9}, 3.495569539267128*^9, 3.495569595766304*^9, { 3.4958191428308783`*^9, 3.495819175264641*^9}, {3.495819214365674*^9, 3.495819231038793*^9}, {3.495819789011904*^9, 3.495819843472392*^9}, { 3.495980347965784*^9, 3.4959803822372026`*^9}, {3.49598051039318*^9, 3.495980582057591*^9}, {3.495980635534667*^9, 3.49598063924876*^9}, { 3.495981073089099*^9, 3.4959812494400167`*^9}, 3.495981285900296*^9, { 3.495981380575205*^9, 3.4959813917764463`*^9}, {3.495981445347974*^9, 3.4959814565451593`*^9}, {3.4959815188657312`*^9, 3.495981551375876*^9}, { 3.4959815934607153`*^9, 3.495981696926386*^9}, {3.495981765523201*^9, 3.495981776398164*^9}, {3.495981835520393*^9, 3.495981872860219*^9}, { 3.4959819334720078`*^9, 3.495981946070471*^9}, {3.495981985223748*^9, 3.4959820895945387`*^9}, {3.4959821609972553`*^9, 3.4959821748191643`*^9}, {3.495982213262103*^9, 3.49598221741991*^9}, { 3.495982295888792*^9, 3.4959823005831223`*^9}, {3.496069084573112*^9, 3.496069111460186*^9}, {3.4960691600227337`*^9, 3.496069212203281*^9}, { 3.496069248392261*^9, 3.496069320154811*^9}, {3.496069841390374*^9, 3.496069867984391*^9}, 3.49606994243229*^9, {3.4960700105542994`*^9, 3.496070080637347*^9}, {3.496070341797523*^9, 3.496070369381337*^9}, 3.4960704104495564`*^9, {3.4960704599790287`*^9, 3.496070495394895*^9}, { 3.496070552233436*^9, 3.4960705764082813`*^9}, {3.496070628862136*^9, 3.496070630932117*^9}, {3.496070664182922*^9, 3.496070694766366*^9}, { 3.496070991935227*^9, 3.49607102241483*^9}, {3.496071326827334*^9, 3.496071350682961*^9}, {3.496071387387388*^9, 3.496071408657982*^9}, { 3.496071542929393*^9, 3.496071549552351*^9}, {3.497040104468094*^9, 3.497040132563685*^9}, {3.497040275633232*^9, 3.4970403207757797`*^9}, 3.497040352312827*^9, {3.497104405164155*^9, 3.497104411772016*^9}, { 3.497104476354397*^9, 3.497104495433576*^9}, {3.497104530170706*^9, 3.497104550816142*^9}, 3.4971046057972393`*^9, 3.497104750365954*^9, 3.497104786648325*^9, 3.49710481733932*^9, {3.497105094734111*^9, 3.497105099601552*^9}, 3.4971058856784554`*^9, {3.497105944569454*^9, 3.4971059449341908`*^9}, {3.4971060165709133`*^9, 3.497106034992374*^9}, { 3.497106082970402*^9, 3.49710612157759*^9}, {3.49710622556961*^9, 3.497106266094035*^9}, {3.497106958125595*^9, 3.497106966453951*^9}, { 3.497107078340577*^9, 3.4971070810665197`*^9}, {3.497107137320347*^9, 3.497107140822456*^9}, {3.497115981285448*^9, 3.4971160446038723`*^9}, { 3.4971160784106092`*^9, 3.4971161080920277`*^9}, 3.4971162490489197`*^9, 3.497116381684182*^9, {3.497116499631227*^9, 3.4971165295983973`*^9}, { 3.497116633447041*^9, 3.49711663721506*^9}, {3.4971166944691*^9, 3.497116719321891*^9}, {3.497117118061487*^9, 3.4971171783706427`*^9}, { 3.49711738183565*^9, 3.497117414977695*^9}, {3.497117459106474*^9, 3.4971174801143217`*^9}, {3.497117555332773*^9, 3.4971175639083147`*^9}, { 3.497117672567752*^9, 3.497117673645376*^9}, {3.497117795009101*^9, 3.4971178211001997`*^9}, {3.497118083366778*^9, 3.497118179196631*^9}, 3.497118290088298*^9, {3.497118344008967*^9, 3.4971183910299997`*^9}, 3.497119017982851*^9, {3.497119100694562*^9, 3.497119108784564*^9}, { 3.497119142193778*^9, 3.497119162130644*^9}, {3.49711924211033*^9, 3.497119272278566*^9}, {3.497119320518627*^9, 3.497119370504793*^9}, { 3.4971196646682777`*^9, 3.49711971629602*^9}, {3.497119813538356*^9, 3.4971198406602716`*^9}, {3.497119966748901*^9, 3.497120012227686*^9}, { 3.49712007853085*^9, 3.497120079170377*^9}, {3.497120165348547*^9, 3.4971202205193987`*^9}, {3.497120255745802*^9, 3.497120301796379*^9}, { 3.497120346809203*^9, 3.497120368232664*^9}, {3.4971206282798767`*^9, 3.4971206491250143`*^9}, {3.4971207216103773`*^9, 3.497120764369638*^9}, { 3.497121631393012*^9, 3.497121664378634*^9}, {3.497121699669211*^9, 3.497121733556644*^9}, {3.497121854309895*^9, 3.497121854978561*^9}, { 3.497121898680727*^9, 3.4971218989418573`*^9}, {3.497122001553672*^9, 3.497122003918449*^9}, 3.4971221245093927`*^9, 3.4971222418438787`*^9, { 3.497122310369204*^9, 3.497122310838368*^9}, {3.497122365917573*^9, 3.497122371410466*^9}, {3.4971225956737833`*^9, 3.497122599869026*^9}, { 3.4971227251242*^9, 3.497122733538526*^9}, {3.49712283933768*^9, 3.497122869121459*^9}, {3.497122905411334*^9, 3.497122906488002*^9}, { 3.4971229624296618`*^9, 3.497122966922305*^9}, {3.4977303545678177`*^9, 3.497730389644952*^9}, 3.497730433788747*^9, {3.50522768572196*^9, 3.505227685878263*^9}, {3.505227922419056*^9, 3.505227926799417*^9}, { 3.505227960322978*^9, 3.505227998642467*^9}, {3.5052298511997547`*^9, 3.5052298631634827`*^9}, {3.505236146066462*^9, 3.5052361634013443`*^9}, { 3.505236212208465*^9, 3.5052362920951366`*^9}, {3.5052363410159187`*^9, 3.505236347429224*^9}, {3.505236377523871*^9, 3.505236377752122*^9}, { 3.505236449651586*^9, 3.505236450047716*^9}, {3.505236533333403*^9, 3.505236536810667*^9}, {3.505236571807682*^9, 3.505236592441187*^9}, { 3.505236751261301*^9, 3.505236754115925*^9}, {3.5052368431963873`*^9, 3.505236856530889*^9}, {3.505236924703232*^9, 3.505236967758813*^9}, { 3.50523716939187*^9, 3.505237183045685*^9}, {3.5052372248260803`*^9, 3.5052372279171743`*^9}, {3.505237267835452*^9, 3.505237296303214*^9}, { 3.505237334567746*^9, 3.505237346951591*^9}, {3.505242338571257*^9, 3.505242389323065*^9}, {3.506275705792013*^9, 3.5062757287914886`*^9}}], Cell[BoxData[ StyleBox[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`date1$$ = 1, $CellContext`RAplus1$$ = 1, $CellContext`time1$$ = 1, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`RAplus1$$], 1, "Right Ascension"}, 1, 25, 1}, {{ Hold[$CellContext`date1$$], 1, "Date"}, 1, 25, 1}, {{ Hold[$CellContext`time1$$], 1, "Solar Time"}, 1, 25, 1}}, Typeset`size$$ = {540., {302., 314.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`RAplus1$603$$ = 0, $CellContext`date1$608$$ = 0, $CellContext`time1$609$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`date1$$ = 1, $CellContext`RAplus1$$ = 1, $CellContext`time1$$ = 1}, "ControllerVariables" :> { Hold[$CellContext`RAplus1$$, $CellContext`RAplus1$603$$, 0], Hold[$CellContext`date1$$, $CellContext`date1$608$$, 0], Hold[$CellContext`time1$$, $CellContext`time1$609$$, 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" :> Show[ Graphics[$CellContext`Zodiaccircletable, BaseStyle -> {FontWeight -> "Bold", FontSize -> 12}], Graphics[{Yellow, Disk[{0, 0}, 0.4]}], Graphics[ Circle[{0, 0}, 1.4]], Graphics[{LightBrown, $CellContext`Earths}], Graphics[{ Arrowheads[0.05], Arrow[{{0., 0.}, { 0.7 Part[$CellContext`twopixtabletext, $CellContext`RAplus1$$], 0.7 Part[$CellContext`twopiytabletext, \ $CellContext`RAplus1$$]}}]}], Graphics[{ Arrowheads[0.05], Arrow[{{ Part[$CellContext`xtable, $CellContext`date1$$], Part[$CellContext`ytable, $CellContext`date1$$]}, { Part[$CellContext`xtable, $CellContext`date1$$] + 0.7 Part[$CellContext`twopixtabletext, $CellContext`RAplus1$$], Part[$CellContext`ytable, $CellContext`date1$$] + 0.7 Part[$CellContext`twopiytabletext, \ $CellContext`RAplus1$$]}}]}], Graphics[{Blue, Part[$CellContext`Earths, $CellContext`date1$$]}], Graphics[ Part[$CellContext`Observers, $CellContext`date1$$, Mod[$CellContext`time1$$ + $CellContext`date1$$ - 2, 24] + 1]], Graphics[ Text[ Part[$CellContext`date, $CellContext`date1$$], {-1.8, -2.}]], Graphics[ Text[ Part[$CellContext`time, $CellContext`time1$$], {0., Plus[1.8]}]], Graphics[ Text["\[CapitalDelta] = ", {-0.2, -0.7}]], Graphics[ Text[-1 + Abs[ $CellContext`trunc[ Mod[-$CellContext`RAplus1$$ + $CellContext`time1$$ + \ $CellContext`date1$$ - 1, 24] + 1, 13]], {0., -0.7}]], Graphics[ Text["dates from Earth centered Ephemeris for 2010", {0., -3.}]], Graphics[ Text[ Part[$CellContext`hourstable, $CellContext`RAplus1$$], { Plus[1.8], -2}], BaseStyle -> {FontWeight -> "Bold", FontSize -> 18}], PlotLabel -> "Date, Time, Right Ascension Calculator 2010"], "Specifications" :> {{{$CellContext`RAplus1$$, 1, "Right Ascension"}, 1, 25, 1, Appearance -> "Labeled"}, {{$CellContext`date1$$, 1, "Date"}, 1, 25, 1, Appearance -> "Labeled"}, {{$CellContext`time1$$, 1, "Solar Time"}, 1, 25, 1, Appearance -> "Labeled"}}, "Options" :> {ControlPlacement -> Left}, "DefaultOptions" :> {}], ImageSizeCache->{1139., {352.53125, 368.46875}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>({$CellContext`Zodiaccircletable = { Text["Virgo", {2.12503681783595, 0.5694018992255456}], Text["Libra", {1.5556349186104046`, 1.5556349186104046`}], Text["Scorpius", {0.5694018992255456, 2.12503681783595}], Text["Sagittarius", {-0.5694018992255456, 2.12503681783595}], Text["Capricornus", {-1.5556349186104046`, 1.5556349186104046`}], Text["Aquarius", {-2.12503681783595, 0.5694018992255456}], Text["Pisces", {-2.12503681783595, -0.5694018992255456}], Text["Aries", {-1.5556349186104046`, -1.5556349186104046`}], Text["Taurus", {-0.5694018992255456, -2.12503681783595}], Text["Gemini", {0.5694018992255456, -2.12503681783595}], Text["Cancer", {1.5556349186104046`, -1.5556349186104046`}], Text[ "Leo", {2.12503681783595, -0.5694018992255456}]}, \ $CellContext`Earths = { Disk[{-1.4, 0}, 0.2], Disk[{-1.3522961568046954`, -0.362346663143529}, 0.2], Disk[{-1.212435565298214, -0.7}, 0.2], Disk[{-0.9899494936611664, -0.9899494936611664}, 0.2], Disk[{-0.7, -1.212435565298214}, 0.2], Disk[{-0.362346663143529, -1.3522961568046954`}, 0.2], Disk[{0, -1.4}, 0.2], Disk[{0.362346663143529, -1.3522961568046954`}, 0.2], Disk[{0.7, -1.212435565298214}, 0.2], Disk[{0.9899494936611664, -0.9899494936611664}, 0.2], Disk[{1.212435565298214, -0.7}, 0.2], Disk[{1.3522961568046954`, -0.362346663143529}, 0.2], Disk[{1.4, 0}, 0.2], Disk[{1.3522961568046954`, 0.362346663143529}, 0.2], Disk[{1.212435565298214, 0.7}, 0.2], Disk[{0.9899494936611664, 0.9899494936611664}, 0.2], Disk[{0.7, 1.212435565298214}, 0.2], Disk[{0.362346663143529, 1.3522961568046954`}, 0.2], Disk[{0, 1.4}, 0.2], Disk[{-0.362346663143529, 1.3522961568046954`}, 0.2], Disk[{-0.7, 1.212435565298214}, 0.2], Disk[{-0.9899494936611664, 0.9899494936611664}, 0.2], Disk[{-1.212435565298214, 0.7}, 0.2], Disk[{-1.3522961568046954`, 0.362346663143529}, 0.2], Disk[{-1.4, 0}, 0.2]}, $CellContext`twopixtabletext = {-1, -(1 + Sqrt[3])/(2 Sqrt[2]), -Sqrt[3]/2, -(1/Sqrt[2]), (-1)/ 2, -(-1 + Sqrt[3])/(2 Sqrt[2]), 0, (-1 + Sqrt[3])/(2 Sqrt[2]), 1/2, 1/Sqrt[2], Sqrt[3]/2, (1 + Sqrt[3])/(2 Sqrt[2]), 1, (1 + Sqrt[3])/( 2 Sqrt[2]), Sqrt[3]/2, 1/Sqrt[2], 1/2, (-1 + Sqrt[3])/(2 Sqrt[2]), 0, -(-1 + Sqrt[3])/(2 Sqrt[2]), (-1)/2, -(1/Sqrt[2]), -Sqrt[3]/ 2, -(1 + Sqrt[3])/(2 Sqrt[2]), -1}, $CellContext`twopiytabletext = { 0, -(-1 + Sqrt[3])/(2 Sqrt[2]), (-1)/2, -(1/Sqrt[2]), -Sqrt[3]/ 2, -(1 + Sqrt[3])/(2 Sqrt[2]), -1, -(1 + Sqrt[3])/(2 Sqrt[2]), - Sqrt[3]/2, -(1/Sqrt[2]), (-1)/2, -(-1 + Sqrt[3])/(2 Sqrt[2]), 0, (-1 + Sqrt[3])/(2 Sqrt[2]), 1/2, 1/Sqrt[2], Sqrt[3]/ 2, (1 + Sqrt[3])/(2 Sqrt[2]), 1, (1 + Sqrt[3])/(2 Sqrt[2]), Sqrt[3]/ 2, 1/Sqrt[2], 1/2, (-1 + Sqrt[3])/(2 Sqrt[2]), 0}, $CellContext`xtable = {-1.4, -1.3522961568046954`, \ -1.212435565298214, -0.9899494936611664, -0.7, -0.362346663143529, 0, 0.362346663143529, 0.7, 0.9899494936611664, 1.212435565298214, 1.3522961568046954`, 1.4, 1.3522961568046954`, 1.212435565298214, 0.9899494936611664, 0.7, 0.362346663143529, 0, -0.362346663143529, -0.7, -0.9899494936611664, \ -1.212435565298214, -1.3522961568046954`, -1.4}, $CellContext`ytable = { 0, -0.362346663143529, -0.7, -0.9899494936611664, \ -1.212435565298214, -1.3522961568046954`, -1.4, -1.3522961568046954`, \ -1.212435565298214, -0.9899494936611664, -0.7, -0.362346663143529, 0, 0.362346663143529, 0.7, 0.9899494936611664, 1.212435565298214, 1.3522961568046954`, 1.4, 1.3522961568046954`, 1.212435565298214, 0.9899494936611664, 0.7, 0.362346663143529, 0}, $CellContext`Observers = {{ Disk[{-1.65, 0}, 0.05], Disk[{-1.6414814565722669`, -0.06470476127563017}, 0.05], Disk[{-1.6165063509461095`, -0.125}, 0.05], Disk[{-1.5767766952966369`, -0.17677669529663687`}, 0.05], Disk[{-1.525, -0.21650635094610965`}, 0.05], Disk[{-1.46470476127563, -0.24148145657226705`}, 0.05], Disk[{-1.4, -0.25}, 0.05], Disk[{-1.3352952387243697`, -0.24148145657226705`}, 0.05], Disk[{-1.275, -0.21650635094610965`}, 0.05], Disk[{-1.223223304703363, -0.17677669529663687`}, 0.05], Disk[{-1.1834936490538903`, -0.125}, 0.05], Disk[{-1.158518543427733, -0.06470476127563017}, 0.05], Disk[{-1.15, 0}, 0.05], Disk[{-1.158518543427733, 0.06470476127563017}, 0.05], Disk[{-1.1834936490538903`, 0.125}, 0.05], Disk[{-1.223223304703363, 0.17677669529663687`}, 0.05], Disk[{-1.275, 0.21650635094610965`}, 0.05], Disk[{-1.3352952387243697`, 0.24148145657226705`}, 0.05], Disk[{-1.4, 0.25}, 0.05], Disk[{-1.46470476127563, 0.24148145657226705`}, 0.05], Disk[{-1.525, 0.21650635094610965`}, 0.05], Disk[{-1.5767766952966369`, 0.17677669529663687`}, 0.05], Disk[{-1.6165063509461095`, 0.125}, 0.05], Disk[{-1.6414814565722669`, 0.06470476127563017}, 0.05], Disk[{-1.65, 0}, 0.05]}, { Disk[{-1.6022961568046954`, -0.362346663143529}, 0.05], Disk[{-1.5937776133769623`, -0.42705142441915916`}, 0.05], Disk[{-1.568802507750805, -0.487346663143529}, 0.05], Disk[{-1.5290728521013324`, -0.5391233584401658}, 0.05], Disk[{-1.4772961568046954`, -0.5788530140896386}, 0.05], Disk[{-1.4170009180803256`, -0.603828119715796}, 0.05], Disk[{-1.3522961568046954`, -0.612346663143529}, 0.05], Disk[{-1.2875913955290652`, -0.603828119715796}, 0.05], Disk[{-1.2272961568046954`, -0.5788530140896386}, 0.05], Disk[{-1.1755194615080584`, -0.5391233584401658}, 0.05], Disk[{-1.1357898058585858`, -0.487346663143529}, 0.05], Disk[{-1.1108147002324285`, -0.42705142441915916`}, 0.05], Disk[{-1.1022961568046954`, -0.362346663143529}, 0.05], Disk[{-1.1108147002324285`, -0.2976419018678988}, 0.05], Disk[{-1.1357898058585858`, -0.23734666314352898`}, 0.05], Disk[{-1.1755194615080584`, -0.18556996784689211`}, 0.05], Disk[{-1.2272961568046954`, -0.14584031219741933`}, 0.05], Disk[{-1.2875913955290652`, -0.12086520657126193`}, 0.05], Disk[{-1.3522961568046954`, -0.11234666314352898`}, 0.05], Disk[{-1.4170009180803256`, -0.12086520657126193`}, 0.05], Disk[{-1.4772961568046954`, -0.14584031219741933`}, 0.05], Disk[{-1.5290728521013324`, -0.18556996784689211`}, 0.05], Disk[{-1.568802507750805, -0.23734666314352898`}, 0.05], Disk[{-1.5937776133769623`, -0.2976419018678988}, 0.05], Disk[{-1.6022961568046954`, -0.362346663143529}, 0.05]}, { Disk[{-1.462435565298214, -0.7}, 0.05], Disk[{-1.453917021870481, -0.7647047612756301}, 0.05], Disk[{-1.4289419162443235`, -0.825}, 0.05], Disk[{-1.3892122605948507`, -0.8767766952966368}, 0.05], Disk[{-1.337435565298214, -0.9165063509461095}, 0.05], Disk[{-1.2771403265738441`, -0.941481456572267}, 0.05], Disk[{-1.212435565298214, -0.95}, 0.05], Disk[{-1.1477308040225838`, -0.941481456572267}, 0.05], Disk[{-1.087435565298214, -0.9165063509461095}, 0.05], Disk[{-1.0356588700015772`, -0.8767766952966368}, 0.05], Disk[{-0.9959292143521044, -0.825}, 0.05], Disk[{-0.9709541087259469, -0.7647047612756301}, 0.05], Disk[{-0.962435565298214, -0.7}, 0.05], Disk[{-0.9709541087259469, -0.6352952387243698}, 0.05], Disk[{-0.9959292143521044, -0.575}, 0.05], Disk[{-1.0356588700015772`, -0.5232233047033631}, 0.05], Disk[{-1.087435565298214, -0.4834936490538903}, 0.05], Disk[{-1.1477308040225838`, -0.4585185434277329}, 0.05], Disk[{-1.212435565298214, -0.44999999999999996`}, 0.05], Disk[{-1.2771403265738441`, -0.4585185434277329}, 0.05], Disk[{-1.337435565298214, -0.4834936490538903}, 0.05], Disk[{-1.3892122605948507`, -0.5232233047033631}, 0.05], Disk[{-1.4289419162443235`, -0.575}, 0.05], Disk[{-1.453917021870481, -0.6352952387243698}, 0.05], Disk[{-1.462435565298214, -0.7}, 0.05]}, { Disk[{-1.2399494936611664`, -0.9899494936611664}, 0.05], Disk[{-1.2314309502334333`, -1.0546542549367965`}, 0.05], Disk[{-1.206455844607276, -1.1149494936611664`}, 0.05], Disk[{-1.1667261889578033`, -1.1667261889578033`}, 0.05], Disk[{-1.1149494936611664`, -1.206455844607276}, 0.05], Disk[{-1.0546542549367965`, -1.2314309502334333`}, 0.05], Disk[{-0.9899494936611664, -1.2399494936611664`}, 0.05], Disk[{-0.9252447323855362, -1.2314309502334333`}, 0.05], Disk[{-0.8649494936611664, -1.206455844607276}, 0.05], Disk[{-0.8131727983645295, -1.1667261889578033`}, 0.05], Disk[{-0.7734431427150568, -1.1149494936611664`}, 0.05], Disk[{-0.7484680370888993, -1.0546542549367965`}, 0.05], Disk[{-0.7399494936611664, -0.9899494936611664}, 0.05], Disk[{-0.7484680370888993, -0.9252447323855362}, 0.05], Disk[{-0.7734431427150568, -0.8649494936611664}, 0.05], Disk[{-0.8131727983645295, -0.8131727983645295}, 0.05], Disk[{-0.8649494936611664, -0.7734431427150568}, 0.05], Disk[{-0.9252447323855362, -0.7484680370888993}, 0.05], Disk[{-0.9899494936611664, -0.7399494936611664}, 0.05], Disk[{-1.0546542549367965`, -0.7484680370888993}, 0.05], Disk[{-1.1149494936611664`, -0.7734431427150568}, 0.05], Disk[{-1.1667261889578033`, -0.8131727983645295}, 0.05], Disk[{-1.206455844607276, -0.8649494936611664}, 0.05], Disk[{-1.2314309502334333`, -0.9252447323855362}, 0.05], Disk[{-1.2399494936611664`, -0.9899494936611664}, 0.05]}, { Disk[{-0.95, -1.212435565298214}, 0.05], Disk[{-0.941481456572267, -1.2771403265738441`}, 0.05], Disk[{-0.9165063509461095, -1.337435565298214}, 0.05], Disk[{-0.8767766952966368, -1.3892122605948507`}, 0.05], Disk[{-0.825, -1.4289419162443235`}, 0.05], Disk[{-0.7647047612756301, -1.453917021870481}, 0.05], Disk[{-0.7, -1.462435565298214}, 0.05], Disk[{-0.6352952387243698, -1.453917021870481}, 0.05], Disk[{-0.575, -1.4289419162443235`}, 0.05], Disk[{-0.5232233047033631, -1.3892122605948507`}, 0.05], Disk[{-0.4834936490538903, -1.337435565298214}, 0.05], Disk[{-0.4585185434277329, -1.2771403265738441`}, 0.05], Disk[{-0.44999999999999996`, -1.212435565298214}, 0.05], Disk[{-0.4585185434277329, -1.1477308040225838`}, 0.05], Disk[{-0.4834936490538903, -1.087435565298214}, 0.05], Disk[{-0.5232233047033631, -1.0356588700015772`}, 0.05], Disk[{-0.575, -0.9959292143521044}, 0.05], Disk[{-0.6352952387243698, -0.9709541087259469}, 0.05], Disk[{-0.7, -0.962435565298214}, 0.05], Disk[{-0.7647047612756301, -0.9709541087259469}, 0.05], Disk[{-0.825, -0.9959292143521044}, 0.05], Disk[{-0.8767766952966368, -1.0356588700015772`}, 0.05], Disk[{-0.9165063509461095, -1.087435565298214}, 0.05], Disk[{-0.941481456572267, -1.1477308040225838`}, 0.05], Disk[{-0.95, -1.212435565298214}, 0.05]}, { Disk[{-0.612346663143529, -1.3522961568046954`}, 0.05], Disk[{-0.603828119715796, -1.4170009180803256`}, 0.05], Disk[{-0.5788530140896386, -1.4772961568046954`}, 0.05], Disk[{-0.5391233584401658, -1.5290728521013324`}, 0.05], Disk[{-0.487346663143529, -1.568802507750805}, 0.05], Disk[{-0.42705142441915916`, -1.5937776133769623`}, 0.05], Disk[{-0.362346663143529, -1.6022961568046954`}, 0.05], Disk[{-0.2976419018678988, -1.5937776133769623`}, 0.05], Disk[{-0.23734666314352898`, -1.568802507750805}, 0.05], Disk[{-0.18556996784689211`, -1.5290728521013324`}, 0.05], Disk[{-0.14584031219741933`, -1.4772961568046954`}, 0.05], Disk[{-0.12086520657126193`, -1.4170009180803256`}, 0.05], Disk[{-0.11234666314352898`, -1.3522961568046954`}, 0.05], Disk[{-0.12086520657126193`, -1.2875913955290652`}, 0.05], Disk[{-0.14584031219741933`, -1.2272961568046954`}, 0.05], Disk[{-0.18556996784689211`, -1.1755194615080584`}, 0.05], Disk[{-0.23734666314352898`, -1.1357898058585858`}, 0.05], Disk[{-0.2976419018678988, -1.1108147002324285`}, 0.05], Disk[{-0.362346663143529, -1.1022961568046954`}, 0.05], Disk[{-0.42705142441915916`, -1.1108147002324285`}, 0.05], Disk[{-0.487346663143529, -1.1357898058585858`}, 0.05], Disk[{-0.5391233584401658, -1.1755194615080584`}, 0.05], Disk[{-0.5788530140896386, -1.2272961568046954`}, 0.05], Disk[{-0.603828119715796, -1.2875913955290652`}, 0.05], Disk[{-0.612346663143529, -1.3522961568046954`}, 0.05]}, { Disk[{-0.25, -1.4}, 0.05], Disk[{-0.24148145657226705`, -1.46470476127563}, 0.05], Disk[{-0.21650635094610965`, -1.525}, 0.05], Disk[{-0.17677669529663687`, -1.5767766952966369`}, 0.05], Disk[{-0.125, -1.6165063509461095`}, 0.05], Disk[{-0.06470476127563017, -1.6414814565722669`}, 0.05], Disk[{0, -1.65}, 0.05], Disk[{0.06470476127563017, -1.6414814565722669`}, 0.05], Disk[{0.125, -1.6165063509461095`}, 0.05], Disk[{0.17677669529663687`, -1.5767766952966369`}, 0.05], Disk[{0.21650635094610965`, -1.525}, 0.05], Disk[{0.24148145657226705`, -1.46470476127563}, 0.05], Disk[{0.25, -1.4}, 0.05], Disk[{0.24148145657226705`, -1.3352952387243697`}, 0.05], Disk[{0.21650635094610965`, -1.275}, 0.05], Disk[{0.17677669529663687`, -1.223223304703363}, 0.05], Disk[{0.125, -1.1834936490538903`}, 0.05], Disk[{0.06470476127563017, -1.158518543427733}, 0.05], Disk[{0, -1.15}, 0.05], Disk[{-0.06470476127563017, -1.158518543427733}, 0.05], Disk[{-0.125, -1.1834936490538903`}, 0.05], Disk[{-0.17677669529663687`, -1.223223304703363}, 0.05], Disk[{-0.21650635094610965`, -1.275}, 0.05], Disk[{-0.24148145657226705`, -1.3352952387243697`}, 0.05], Disk[{-0.25, -1.4}, 0.05]}, { Disk[{0.11234666314352898`, -1.3522961568046954`}, 0.05], Disk[{0.12086520657126193`, -1.4170009180803256`}, 0.05], Disk[{0.14584031219741933`, -1.4772961568046954`}, 0.05], Disk[{0.18556996784689211`, -1.5290728521013324`}, 0.05], Disk[{0.23734666314352898`, -1.568802507750805}, 0.05], Disk[{0.2976419018678988, -1.5937776133769623`}, 0.05], Disk[{0.362346663143529, -1.6022961568046954`}, 0.05], Disk[{0.42705142441915916`, -1.5937776133769623`}, 0.05], Disk[{0.487346663143529, -1.568802507750805}, 0.05], Disk[{0.5391233584401658, -1.5290728521013324`}, 0.05], Disk[{0.5788530140896386, -1.4772961568046954`}, 0.05], Disk[{0.603828119715796, -1.4170009180803256`}, 0.05], Disk[{0.612346663143529, -1.3522961568046954`}, 0.05], Disk[{0.603828119715796, -1.2875913955290652`}, 0.05], Disk[{0.5788530140896386, -1.2272961568046954`}, 0.05], Disk[{0.5391233584401658, -1.1755194615080584`}, 0.05], Disk[{0.487346663143529, -1.1357898058585858`}, 0.05], Disk[{0.42705142441915916`, -1.1108147002324285`}, 0.05], Disk[{0.362346663143529, -1.1022961568046954`}, 0.05], Disk[{0.2976419018678988, -1.1108147002324285`}, 0.05], Disk[{0.23734666314352898`, -1.1357898058585858`}, 0.05], Disk[{0.18556996784689211`, -1.1755194615080584`}, 0.05], Disk[{0.14584031219741933`, -1.2272961568046954`}, 0.05], Disk[{0.12086520657126193`, -1.2875913955290652`}, 0.05], Disk[{0.11234666314352898`, -1.3522961568046954`}, 0.05]}, { Disk[{0.44999999999999996`, -1.212435565298214}, 0.05], Disk[{0.4585185434277329, -1.2771403265738441`}, 0.05], Disk[{0.4834936490538903, -1.337435565298214}, 0.05], Disk[{0.5232233047033631, -1.3892122605948507`}, 0.05], Disk[{0.575, -1.4289419162443235`}, 0.05], Disk[{0.6352952387243698, -1.453917021870481}, 0.05], Disk[{0.7, -1.462435565298214}, 0.05], Disk[{0.7647047612756301, -1.453917021870481}, 0.05], Disk[{0.825, -1.4289419162443235`}, 0.05], Disk[{0.8767766952966368, -1.3892122605948507`}, 0.05], Disk[{0.9165063509461095, -1.337435565298214}, 0.05], Disk[{0.941481456572267, -1.2771403265738441`}, 0.05], Disk[{0.95, -1.212435565298214}, 0.05], Disk[{0.941481456572267, -1.1477308040225838`}, 0.05], Disk[{0.9165063509461095, -1.087435565298214}, 0.05], Disk[{0.8767766952966368, -1.0356588700015772`}, 0.05], Disk[{0.825, -0.9959292143521044}, 0.05], Disk[{0.7647047612756301, -0.9709541087259469}, 0.05], Disk[{0.7, -0.962435565298214}, 0.05], Disk[{0.6352952387243698, -0.9709541087259469}, 0.05], Disk[{0.575, -0.9959292143521044}, 0.05], Disk[{0.5232233047033631, -1.0356588700015772`}, 0.05], Disk[{0.4834936490538903, -1.087435565298214}, 0.05], Disk[{0.4585185434277329, -1.1477308040225838`}, 0.05], Disk[{0.44999999999999996`, -1.212435565298214}, 0.05]}, { Disk[{0.7399494936611664, -0.9899494936611664}, 0.05], Disk[{0.7484680370888993, -1.0546542549367965`}, 0.05], Disk[{0.7734431427150568, -1.1149494936611664`}, 0.05], Disk[{0.8131727983645295, -1.1667261889578033`}, 0.05], Disk[{0.8649494936611664, -1.206455844607276}, 0.05], Disk[{0.9252447323855362, -1.2314309502334333`}, 0.05], Disk[{0.9899494936611664, -1.2399494936611664`}, 0.05], Disk[{1.0546542549367965`, -1.2314309502334333`}, 0.05], Disk[{1.1149494936611664`, -1.206455844607276}, 0.05], Disk[{1.1667261889578033`, -1.1667261889578033`}, 0.05], Disk[{1.206455844607276, -1.1149494936611664`}, 0.05], Disk[{1.2314309502334333`, -1.0546542549367965`}, 0.05], Disk[{1.2399494936611664`, -0.9899494936611664}, 0.05], Disk[{1.2314309502334333`, -0.9252447323855362}, 0.05], Disk[{1.206455844607276, -0.8649494936611664}, 0.05], Disk[{1.1667261889578033`, -0.8131727983645295}, 0.05], Disk[{1.1149494936611664`, -0.7734431427150568}, 0.05], Disk[{1.0546542549367965`, -0.7484680370888993}, 0.05], Disk[{0.9899494936611664, -0.7399494936611664}, 0.05], Disk[{0.9252447323855362, -0.7484680370888993}, 0.05], Disk[{0.8649494936611664, -0.7734431427150568}, 0.05], Disk[{0.8131727983645295, -0.8131727983645295}, 0.05], Disk[{0.7734431427150568, -0.8649494936611664}, 0.05], Disk[{0.7484680370888993, -0.9252447323855362}, 0.05], Disk[{0.7399494936611664, -0.9899494936611664}, 0.05]}, { Disk[{0.962435565298214, -0.7}, 0.05], Disk[{0.9709541087259469, -0.7647047612756301}, 0.05], Disk[{0.9959292143521044, -0.825}, 0.05], Disk[{1.0356588700015772`, -0.8767766952966368}, 0.05], Disk[{1.087435565298214, -0.9165063509461095}, 0.05], Disk[{1.1477308040225838`, -0.941481456572267}, 0.05], Disk[{1.212435565298214, -0.95}, 0.05], Disk[{1.2771403265738441`, -0.941481456572267}, 0.05], Disk[{1.337435565298214, -0.9165063509461095}, 0.05], Disk[{1.3892122605948507`, -0.8767766952966368}, 0.05], Disk[{1.4289419162443235`, -0.825}, 0.05], Disk[{1.453917021870481, -0.7647047612756301}, 0.05], Disk[{1.462435565298214, -0.7}, 0.05], Disk[{1.453917021870481, -0.6352952387243698}, 0.05], Disk[{1.4289419162443235`, -0.575}, 0.05], Disk[{1.3892122605948507`, -0.5232233047033631}, 0.05], Disk[{1.337435565298214, -0.4834936490538903}, 0.05], Disk[{1.2771403265738441`, -0.4585185434277329}, 0.05], Disk[{1.212435565298214, -0.44999999999999996`}, 0.05], Disk[{1.1477308040225838`, -0.4585185434277329}, 0.05], Disk[{1.087435565298214, -0.4834936490538903}, 0.05], Disk[{1.0356588700015772`, -0.5232233047033631}, 0.05], Disk[{0.9959292143521044, -0.575}, 0.05], Disk[{0.9709541087259469, -0.6352952387243698}, 0.05], Disk[{0.962435565298214, -0.7}, 0.05]}, { Disk[{1.1022961568046954`, -0.362346663143529}, 0.05], Disk[{1.1108147002324285`, -0.42705142441915916`}, 0.05], Disk[{1.1357898058585858`, -0.487346663143529}, 0.05], Disk[{1.1755194615080584`, -0.5391233584401658}, 0.05], Disk[{1.2272961568046954`, -0.5788530140896386}, 0.05], Disk[{1.2875913955290652`, -0.603828119715796}, 0.05], Disk[{1.3522961568046954`, -0.612346663143529}, 0.05], Disk[{1.4170009180803256`, -0.603828119715796}, 0.05], Disk[{1.4772961568046954`, -0.5788530140896386}, 0.05], Disk[{1.5290728521013324`, -0.5391233584401658}, 0.05], Disk[{1.568802507750805, -0.487346663143529}, 0.05], Disk[{1.5937776133769623`, -0.42705142441915916`}, 0.05], Disk[{1.6022961568046954`, -0.362346663143529}, 0.05], Disk[{1.5937776133769623`, -0.2976419018678988}, 0.05], Disk[{1.568802507750805, -0.23734666314352898`}, 0.05], Disk[{1.5290728521013324`, -0.18556996784689211`}, 0.05], Disk[{1.4772961568046954`, -0.14584031219741933`}, 0.05], Disk[{1.4170009180803256`, -0.12086520657126193`}, 0.05], Disk[{1.3522961568046954`, -0.11234666314352898`}, 0.05], Disk[{1.2875913955290652`, -0.12086520657126193`}, 0.05], Disk[{1.2272961568046954`, -0.14584031219741933`}, 0.05], Disk[{1.1755194615080584`, -0.18556996784689211`}, 0.05], Disk[{1.1357898058585858`, -0.23734666314352898`}, 0.05], Disk[{1.1108147002324285`, -0.2976419018678988}, 0.05], Disk[{1.1022961568046954`, -0.362346663143529}, 0.05]}, { Disk[{1.15, 0}, 0.05], Disk[{1.158518543427733, -0.06470476127563017}, 0.05], Disk[{1.1834936490538903`, -0.125}, 0.05], Disk[{1.223223304703363, -0.17677669529663687`}, 0.05], Disk[{1.275, -0.21650635094610965`}, 0.05], Disk[{1.3352952387243697`, -0.24148145657226705`}, 0.05], Disk[{1.4, -0.25}, 0.05], Disk[{1.46470476127563, -0.24148145657226705`}, 0.05], Disk[{1.525, -0.21650635094610965`}, 0.05], Disk[{1.5767766952966369`, -0.17677669529663687`}, 0.05], Disk[{1.6165063509461095`, -0.125}, 0.05], Disk[{1.6414814565722669`, -0.06470476127563017}, 0.05], Disk[{1.65, 0}, 0.05], Disk[{1.6414814565722669`, 0.06470476127563017}, 0.05], Disk[{1.6165063509461095`, 0.125}, 0.05], Disk[{1.5767766952966369`, 0.17677669529663687`}, 0.05], Disk[{1.525, 0.21650635094610965`}, 0.05], Disk[{1.46470476127563, 0.24148145657226705`}, 0.05], Disk[{1.4, 0.25}, 0.05], Disk[{1.3352952387243697`, 0.24148145657226705`}, 0.05], Disk[{1.275, 0.21650635094610965`}, 0.05], Disk[{1.223223304703363, 0.17677669529663687`}, 0.05], Disk[{1.1834936490538903`, 0.125}, 0.05], Disk[{1.158518543427733, 0.06470476127563017}, 0.05], Disk[{1.15, 0}, 0.05]}, { Disk[{1.1022961568046954`, 0.362346663143529}, 0.05], Disk[{1.1108147002324285`, 0.2976419018678988}, 0.05], Disk[{1.1357898058585858`, 0.23734666314352898`}, 0.05], Disk[{1.1755194615080584`, 0.18556996784689211`}, 0.05], Disk[{1.2272961568046954`, 0.14584031219741933`}, 0.05], Disk[{1.2875913955290652`, 0.12086520657126193`}, 0.05], Disk[{1.3522961568046954`, 0.11234666314352898`}, 0.05], Disk[{1.4170009180803256`, 0.12086520657126193`}, 0.05], Disk[{1.4772961568046954`, 0.14584031219741933`}, 0.05], Disk[{1.5290728521013324`, 0.18556996784689211`}, 0.05], Disk[{1.568802507750805, 0.23734666314352898`}, 0.05], Disk[{1.5937776133769623`, 0.2976419018678988}, 0.05], Disk[{1.6022961568046954`, 0.362346663143529}, 0.05], Disk[{1.5937776133769623`, 0.42705142441915916`}, 0.05], Disk[{1.568802507750805, 0.487346663143529}, 0.05], Disk[{1.5290728521013324`, 0.5391233584401658}, 0.05], Disk[{1.4772961568046954`, 0.5788530140896386}, 0.05], Disk[{1.4170009180803256`, 0.603828119715796}, 0.05], Disk[{1.3522961568046954`, 0.612346663143529}, 0.05], Disk[{1.2875913955290652`, 0.603828119715796}, 0.05], Disk[{1.2272961568046954`, 0.5788530140896386}, 0.05], Disk[{1.1755194615080584`, 0.5391233584401658}, 0.05], Disk[{1.1357898058585858`, 0.487346663143529}, 0.05], Disk[{1.1108147002324285`, 0.42705142441915916`}, 0.05], Disk[{1.1022961568046954`, 0.362346663143529}, 0.05]}, { Disk[{0.962435565298214, 0.7}, 0.05], Disk[{0.9709541087259469, 0.6352952387243698}, 0.05], Disk[{0.9959292143521044, 0.575}, 0.05], Disk[{1.0356588700015772`, 0.5232233047033631}, 0.05], Disk[{1.087435565298214, 0.4834936490538903}, 0.05], Disk[{1.1477308040225838`, 0.4585185434277329}, 0.05], Disk[{1.212435565298214, 0.44999999999999996`}, 0.05], Disk[{1.2771403265738441`, 0.4585185434277329}, 0.05], Disk[{1.337435565298214, 0.4834936490538903}, 0.05], Disk[{1.3892122605948507`, 0.5232233047033631}, 0.05], Disk[{1.4289419162443235`, 0.575}, 0.05], Disk[{1.453917021870481, 0.6352952387243698}, 0.05], Disk[{1.462435565298214, 0.7}, 0.05], Disk[{1.453917021870481, 0.7647047612756301}, 0.05], Disk[{1.4289419162443235`, 0.825}, 0.05], Disk[{1.3892122605948507`, 0.8767766952966368}, 0.05], Disk[{1.337435565298214, 0.9165063509461095}, 0.05], Disk[{1.2771403265738441`, 0.941481456572267}, 0.05], Disk[{1.212435565298214, 0.95}, 0.05], Disk[{1.1477308040225838`, 0.941481456572267}, 0.05], Disk[{1.087435565298214, 0.9165063509461095}, 0.05], Disk[{1.0356588700015772`, 0.8767766952966368}, 0.05], Disk[{0.9959292143521044, 0.825}, 0.05], Disk[{0.9709541087259469, 0.7647047612756301}, 0.05], Disk[{0.962435565298214, 0.7}, 0.05]}, { Disk[{0.7399494936611664, 0.9899494936611664}, 0.05], Disk[{0.7484680370888993, 0.9252447323855362}, 0.05], Disk[{0.7734431427150568, 0.8649494936611664}, 0.05], Disk[{0.8131727983645295, 0.8131727983645295}, 0.05], Disk[{0.8649494936611664, 0.7734431427150568}, 0.05], Disk[{0.9252447323855362, 0.7484680370888993}, 0.05], Disk[{0.9899494936611664, 0.7399494936611664}, 0.05], Disk[{1.0546542549367965`, 0.7484680370888993}, 0.05], Disk[{1.1149494936611664`, 0.7734431427150568}, 0.05], Disk[{1.1667261889578033`, 0.8131727983645295}, 0.05], Disk[{1.206455844607276, 0.8649494936611664}, 0.05], Disk[{1.2314309502334333`, 0.9252447323855362}, 0.05], Disk[{1.2399494936611664`, 0.9899494936611664}, 0.05], Disk[{1.2314309502334333`, 1.0546542549367965`}, 0.05], Disk[{1.206455844607276, 1.1149494936611664`}, 0.05], Disk[{1.1667261889578033`, 1.1667261889578033`}, 0.05], Disk[{1.1149494936611664`, 1.206455844607276}, 0.05], Disk[{1.0546542549367965`, 1.2314309502334333`}, 0.05], Disk[{0.9899494936611664, 1.2399494936611664`}, 0.05], Disk[{0.9252447323855362, 1.2314309502334333`}, 0.05], Disk[{0.8649494936611664, 1.206455844607276}, 0.05], Disk[{0.8131727983645295, 1.1667261889578033`}, 0.05], Disk[{0.7734431427150568, 1.1149494936611664`}, 0.05], Disk[{0.7484680370888993, 1.0546542549367965`}, 0.05], Disk[{0.7399494936611664, 0.9899494936611664}, 0.05]}, { Disk[{0.44999999999999996`, 1.212435565298214}, 0.05], Disk[{0.4585185434277329, 1.1477308040225838`}, 0.05], Disk[{0.4834936490538903, 1.087435565298214}, 0.05], Disk[{0.5232233047033631, 1.0356588700015772`}, 0.05], Disk[{0.575, 0.9959292143521044}, 0.05], Disk[{0.6352952387243698, 0.9709541087259469}, 0.05], Disk[{0.7, 0.962435565298214}, 0.05], Disk[{0.7647047612756301, 0.9709541087259469}, 0.05], Disk[{0.825, 0.9959292143521044}, 0.05], Disk[{0.8767766952966368, 1.0356588700015772`}, 0.05], Disk[{0.9165063509461095, 1.087435565298214}, 0.05], Disk[{0.941481456572267, 1.1477308040225838`}, 0.05], Disk[{0.95, 1.212435565298214}, 0.05], Disk[{0.941481456572267, 1.2771403265738441`}, 0.05], Disk[{0.9165063509461095, 1.337435565298214}, 0.05], Disk[{0.8767766952966368, 1.3892122605948507`}, 0.05], Disk[{0.825, 1.4289419162443235`}, 0.05], Disk[{0.7647047612756301, 1.453917021870481}, 0.05], Disk[{0.7, 1.462435565298214}, 0.05], Disk[{0.6352952387243698, 1.453917021870481}, 0.05], Disk[{0.575, 1.4289419162443235`}, 0.05], Disk[{0.5232233047033631, 1.3892122605948507`}, 0.05], Disk[{0.4834936490538903, 1.337435565298214}, 0.05], Disk[{0.4585185434277329, 1.2771403265738441`}, 0.05], Disk[{0.44999999999999996`, 1.212435565298214}, 0.05]}, { Disk[{0.11234666314352898`, 1.3522961568046954`}, 0.05], Disk[{0.12086520657126193`, 1.2875913955290652`}, 0.05], Disk[{0.14584031219741933`, 1.2272961568046954`}, 0.05], Disk[{0.18556996784689211`, 1.1755194615080584`}, 0.05], Disk[{0.23734666314352898`, 1.1357898058585858`}, 0.05], Disk[{0.2976419018678988, 1.1108147002324285`}, 0.05], Disk[{0.362346663143529, 1.1022961568046954`}, 0.05], Disk[{0.42705142441915916`, 1.1108147002324285`}, 0.05], Disk[{0.487346663143529, 1.1357898058585858`}, 0.05], Disk[{0.5391233584401658, 1.1755194615080584`}, 0.05], Disk[{0.5788530140896386, 1.2272961568046954`}, 0.05], Disk[{0.603828119715796, 1.2875913955290652`}, 0.05], Disk[{0.612346663143529, 1.3522961568046954`}, 0.05], Disk[{0.603828119715796, 1.4170009180803256`}, 0.05], Disk[{0.5788530140896386, 1.4772961568046954`}, 0.05], Disk[{0.5391233584401658, 1.5290728521013324`}, 0.05], Disk[{0.487346663143529, 1.568802507750805}, 0.05], Disk[{0.42705142441915916`, 1.5937776133769623`}, 0.05], Disk[{0.362346663143529, 1.6022961568046954`}, 0.05], Disk[{0.2976419018678988, 1.5937776133769623`}, 0.05], Disk[{0.23734666314352898`, 1.568802507750805}, 0.05], Disk[{0.18556996784689211`, 1.5290728521013324`}, 0.05], Disk[{0.14584031219741933`, 1.4772961568046954`}, 0.05], Disk[{0.12086520657126193`, 1.4170009180803256`}, 0.05], Disk[{0.11234666314352898`, 1.3522961568046954`}, 0.05]}, { Disk[{-0.25, 1.4}, 0.05], Disk[{-0.24148145657226705`, 1.3352952387243697`}, 0.05], Disk[{-0.21650635094610965`, 1.275}, 0.05], Disk[{-0.17677669529663687`, 1.223223304703363}, 0.05], Disk[{-0.125, 1.1834936490538903`}, 0.05], Disk[{-0.06470476127563017, 1.158518543427733}, 0.05], Disk[{0, 1.15}, 0.05], Disk[{0.06470476127563017, 1.158518543427733}, 0.05], Disk[{0.125, 1.1834936490538903`}, 0.05], Disk[{0.17677669529663687`, 1.223223304703363}, 0.05], Disk[{0.21650635094610965`, 1.275}, 0.05], Disk[{0.24148145657226705`, 1.3352952387243697`}, 0.05], Disk[{0.25, 1.4}, 0.05], Disk[{0.24148145657226705`, 1.46470476127563}, 0.05], Disk[{0.21650635094610965`, 1.525}, 0.05], Disk[{0.17677669529663687`, 1.5767766952966369`}, 0.05], Disk[{0.125, 1.6165063509461095`}, 0.05], Disk[{0.06470476127563017, 1.6414814565722669`}, 0.05], Disk[{0, 1.65}, 0.05], Disk[{-0.06470476127563017, 1.6414814565722669`}, 0.05], Disk[{-0.125, 1.6165063509461095`}, 0.05], Disk[{-0.17677669529663687`, 1.5767766952966369`}, 0.05], Disk[{-0.21650635094610965`, 1.525}, 0.05], Disk[{-0.24148145657226705`, 1.46470476127563}, 0.05], Disk[{-0.25, 1.4}, 0.05]}, { Disk[{-0.612346663143529, 1.3522961568046954`}, 0.05], Disk[{-0.603828119715796, 1.2875913955290652`}, 0.05], Disk[{-0.5788530140896386, 1.2272961568046954`}, 0.05], Disk[{-0.5391233584401658, 1.1755194615080584`}, 0.05], Disk[{-0.487346663143529, 1.1357898058585858`}, 0.05], Disk[{-0.42705142441915916`, 1.1108147002324285`}, 0.05], Disk[{-0.362346663143529, 1.1022961568046954`}, 0.05], Disk[{-0.2976419018678988, 1.1108147002324285`}, 0.05], Disk[{-0.23734666314352898`, 1.1357898058585858`}, 0.05], Disk[{-0.18556996784689211`, 1.1755194615080584`}, 0.05], Disk[{-0.14584031219741933`, 1.2272961568046954`}, 0.05], Disk[{-0.12086520657126193`, 1.2875913955290652`}, 0.05], Disk[{-0.11234666314352898`, 1.3522961568046954`}, 0.05], Disk[{-0.12086520657126193`, 1.4170009180803256`}, 0.05], Disk[{-0.14584031219741933`, 1.4772961568046954`}, 0.05], Disk[{-0.18556996784689211`, 1.5290728521013324`}, 0.05], Disk[{-0.23734666314352898`, 1.568802507750805}, 0.05], Disk[{-0.2976419018678988, 1.5937776133769623`}, 0.05], Disk[{-0.362346663143529, 1.6022961568046954`}, 0.05], Disk[{-0.42705142441915916`, 1.5937776133769623`}, 0.05], Disk[{-0.487346663143529, 1.568802507750805}, 0.05], Disk[{-0.5391233584401658, 1.5290728521013324`}, 0.05], Disk[{-0.5788530140896386, 1.4772961568046954`}, 0.05], Disk[{-0.603828119715796, 1.4170009180803256`}, 0.05], Disk[{-0.612346663143529, 1.3522961568046954`}, 0.05]}, { Disk[{-0.95, 1.212435565298214}, 0.05], Disk[{-0.941481456572267, 1.1477308040225838`}, 0.05], Disk[{-0.9165063509461095, 1.087435565298214}, 0.05], Disk[{-0.8767766952966368, 1.0356588700015772`}, 0.05], Disk[{-0.825, 0.9959292143521044}, 0.05], Disk[{-0.7647047612756301, 0.9709541087259469}, 0.05], Disk[{-0.7, 0.962435565298214}, 0.05], Disk[{-0.6352952387243698, 0.9709541087259469}, 0.05], Disk[{-0.575, 0.9959292143521044}, 0.05], Disk[{-0.5232233047033631, 1.0356588700015772`}, 0.05], Disk[{-0.4834936490538903, 1.087435565298214}, 0.05], Disk[{-0.4585185434277329, 1.1477308040225838`}, 0.05], Disk[{-0.44999999999999996`, 1.212435565298214}, 0.05], Disk[{-0.4585185434277329, 1.2771403265738441`}, 0.05], Disk[{-0.4834936490538903, 1.337435565298214}, 0.05], Disk[{-0.5232233047033631, 1.3892122605948507`}, 0.05], Disk[{-0.575, 1.4289419162443235`}, 0.05], Disk[{-0.6352952387243698, 1.453917021870481}, 0.05], Disk[{-0.7, 1.462435565298214}, 0.05], Disk[{-0.7647047612756301, 1.453917021870481}, 0.05], Disk[{-0.825, 1.4289419162443235`}, 0.05], Disk[{-0.8767766952966368, 1.3892122605948507`}, 0.05], Disk[{-0.9165063509461095, 1.337435565298214}, 0.05], Disk[{-0.941481456572267, 1.2771403265738441`}, 0.05], Disk[{-0.95, 1.212435565298214}, 0.05]}, { Disk[{-1.2399494936611664`, 0.9899494936611664}, 0.05], Disk[{-1.2314309502334333`, 0.9252447323855362}, 0.05], Disk[{-1.206455844607276, 0.8649494936611664}, 0.05], Disk[{-1.1667261889578033`, 0.8131727983645295}, 0.05], Disk[{-1.1149494936611664`, 0.7734431427150568}, 0.05], Disk[{-1.0546542549367965`, 0.7484680370888993}, 0.05], Disk[{-0.9899494936611664, 0.7399494936611664}, 0.05], Disk[{-0.9252447323855362, 0.7484680370888993}, 0.05], Disk[{-0.8649494936611664, 0.7734431427150568}, 0.05], Disk[{-0.8131727983645295, 0.8131727983645295}, 0.05], Disk[{-0.7734431427150568, 0.8649494936611664}, 0.05], Disk[{-0.7484680370888993, 0.9252447323855362}, 0.05], Disk[{-0.7399494936611664, 0.9899494936611664}, 0.05], Disk[{-0.7484680370888993, 1.0546542549367965`}, 0.05], Disk[{-0.7734431427150568, 1.1149494936611664`}, 0.05], Disk[{-0.8131727983645295, 1.1667261889578033`}, 0.05], Disk[{-0.8649494936611664, 1.206455844607276}, 0.05], Disk[{-0.9252447323855362, 1.2314309502334333`}, 0.05], Disk[{-0.9899494936611664, 1.2399494936611664`}, 0.05], Disk[{-1.0546542549367965`, 1.2314309502334333`}, 0.05], Disk[{-1.1149494936611664`, 1.206455844607276}, 0.05], Disk[{-1.1667261889578033`, 1.1667261889578033`}, 0.05], Disk[{-1.206455844607276, 1.1149494936611664`}, 0.05], Disk[{-1.2314309502334333`, 1.0546542549367965`}, 0.05], Disk[{-1.2399494936611664`, 0.9899494936611664}, 0.05]}, { Disk[{-1.462435565298214, 0.7}, 0.05], Disk[{-1.453917021870481, 0.6352952387243698}, 0.05], Disk[{-1.4289419162443235`, 0.575}, 0.05], Disk[{-1.3892122605948507`, 0.5232233047033631}, 0.05], Disk[{-1.337435565298214, 0.4834936490538903}, 0.05], Disk[{-1.2771403265738441`, 0.4585185434277329}, 0.05], Disk[{-1.212435565298214, 0.44999999999999996`}, 0.05], Disk[{-1.1477308040225838`, 0.4585185434277329}, 0.05], Disk[{-1.087435565298214, 0.4834936490538903}, 0.05], Disk[{-1.0356588700015772`, 0.5232233047033631}, 0.05], Disk[{-0.9959292143521044, 0.575}, 0.05], Disk[{-0.9709541087259469, 0.6352952387243698}, 0.05], Disk[{-0.962435565298214, 0.7}, 0.05], Disk[{-0.9709541087259469, 0.7647047612756301}, 0.05], Disk[{-0.9959292143521044, 0.825}, 0.05], Disk[{-1.0356588700015772`, 0.8767766952966368}, 0.05], Disk[{-1.087435565298214, 0.9165063509461095}, 0.05], Disk[{-1.1477308040225838`, 0.941481456572267}, 0.05], Disk[{-1.212435565298214, 0.95}, 0.05], Disk[{-1.2771403265738441`, 0.941481456572267}, 0.05], Disk[{-1.337435565298214, 0.9165063509461095}, 0.05], Disk[{-1.3892122605948507`, 0.8767766952966368}, 0.05], Disk[{-1.4289419162443235`, 0.825}, 0.05], Disk[{-1.453917021870481, 0.7647047612756301}, 0.05], Disk[{-1.462435565298214, 0.7}, 0.05]}, { Disk[{-1.6022961568046954`, 0.362346663143529}, 0.05], Disk[{-1.5937776133769623`, 0.2976419018678988}, 0.05], Disk[{-1.568802507750805, 0.23734666314352898`}, 0.05], Disk[{-1.5290728521013324`, 0.18556996784689211`}, 0.05], Disk[{-1.4772961568046954`, 0.14584031219741933`}, 0.05], Disk[{-1.4170009180803256`, 0.12086520657126193`}, 0.05], Disk[{-1.3522961568046954`, 0.11234666314352898`}, 0.05], Disk[{-1.2875913955290652`, 0.12086520657126193`}, 0.05], Disk[{-1.2272961568046954`, 0.14584031219741933`}, 0.05], Disk[{-1.1755194615080584`, 0.18556996784689211`}, 0.05], Disk[{-1.1357898058585858`, 0.23734666314352898`}, 0.05], Disk[{-1.1108147002324285`, 0.2976419018678988}, 0.05], Disk[{-1.1022961568046954`, 0.362346663143529}, 0.05], Disk[{-1.1108147002324285`, 0.42705142441915916`}, 0.05], Disk[{-1.1357898058585858`, 0.487346663143529}, 0.05], Disk[{-1.1755194615080584`, 0.5391233584401658}, 0.05], Disk[{-1.2272961568046954`, 0.5788530140896386}, 0.05], Disk[{-1.2875913955290652`, 0.603828119715796}, 0.05], Disk[{-1.3522961568046954`, 0.612346663143529}, 0.05], Disk[{-1.4170009180803256`, 0.603828119715796}, 0.05], Disk[{-1.4772961568046954`, 0.5788530140896386}, 0.05], Disk[{-1.5290728521013324`, 0.5391233584401658}, 0.05], Disk[{-1.568802507750805, 0.487346663143529}, 0.05], Disk[{-1.5937776133769623`, 0.42705142441915916`}, 0.05], Disk[{-1.6022961568046954`, 0.362346663143529}, 0.05]}, { Disk[{-1.65, 0}, 0.05], Disk[{-1.6414814565722669`, -0.06470476127563017}, 0.05], Disk[{-1.6165063509461095`, -0.125}, 0.05], Disk[{-1.5767766952966369`, -0.17677669529663687`}, 0.05], Disk[{-1.525, -0.21650635094610965`}, 0.05], Disk[{-1.46470476127563, -0.24148145657226705`}, 0.05], Disk[{-1.4, -0.25}, 0.05], Disk[{-1.3352952387243697`, -0.24148145657226705`}, 0.05], Disk[{-1.275, -0.21650635094610965`}, 0.05], Disk[{-1.223223304703363, -0.17677669529663687`}, 0.05], Disk[{-1.1834936490538903`, -0.125}, 0.05], Disk[{-1.158518543427733, -0.06470476127563017}, 0.05], Disk[{-1.15, 0}, 0.05], Disk[{-1.158518543427733, 0.06470476127563017}, 0.05], Disk[{-1.1834936490538903`, 0.125}, 0.05], Disk[{-1.223223304703363, 0.17677669529663687`}, 0.05], Disk[{-1.275, 0.21650635094610965`}, 0.05], Disk[{-1.3352952387243697`, 0.24148145657226705`}, 0.05], Disk[{-1.4, 0.25}, 0.05], Disk[{-1.46470476127563, 0.24148145657226705`}, 0.05], Disk[{-1.525, 0.21650635094610965`}, 0.05], Disk[{-1.5767766952966369`, 0.17677669529663687`}, 0.05], Disk[{-1.6165063509461095`, 0.125}, 0.05], Disk[{-1.6414814565722669`, 0.06470476127563017}, 0.05], Disk[{-1.65, 0}, 0.05]}}, $CellContext`date = { "September, 23", "October, 9", "October, 25", "November, 9", "November, 24", "December, 8", "December, 21", "January, 4", "January, 18", "February, 1", "February, 16", "March, 4", "March, 20", "April, 5", "April, 22", "May, 7", "May, 23", "June, 6", "June, 21", "July, 5", "July, 20", "August, 4", "August, 20", "September, 6", "September, 23"}, $CellContext`time = { "Midnight", "1AM", "2AM", "3AM", "4AM", "5 AM", "6 AM", "7 AM", "8 AM", "9 AM", "10 AM", "11 AM", "Noon", "1 PM", "2 PM", "3 PM", "4 PM", "5 PM", "6 PM", "7 PM", "8 PM", "9 PM", "10 PM", "11 PM", "Midnight"}, $CellContext`trunc[ Pattern[$CellContext`x, Blank[]], Pattern[$CellContext`v, Blank[]]] := If[$CellContext`x >= $CellContext`v, $CellContext`x - 2 ($CellContext`x - $CellContext`v), $CellContext`x], \ $CellContext`hourstable = { "RA = 0 hours", "RA = 1 hours", "RA = 2 hours", "RA = 3 hours", "RA = 4 hours", "RA = 5 hours", "RA = 6 hours", "RA = 7 hours", "RA = 8 hours", "RA = 9 hours", "RA = 10 hours", "RA = 11 hours", "RA = 12 hours", "RA = 13 hours", "RA = 14 hours", "RA = 15 hours", "RA = 16 hours", "RA = 17 hours", "RA = 18 hours", "RA = 19 hours", "RA = 20 hours", "RA = 21 hours", "RA = 22 hours", "RA = 23 hours", "RA = 0 hours"}}; Typeset`initDone$$ = True), SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]], StripOnInput->False, Magnification->1.5 Inherited]], "Output", CellChangeTimes->{{3.497120276903165*^9, 3.497120303188446*^9}, { 3.497120351330185*^9, 3.497120371537504*^9}, 3.497120650546036*^9, 3.4971207259221277`*^9, 3.497120765719549*^9, 3.497121665760833*^9, { 3.497121712513352*^9, 3.497121734491933*^9}, 3.49712185688828*^9, 3.497121899812229*^9, 3.497122005262004*^9, 3.497122125369051*^9, 3.4971222436859694`*^9, 3.4971223118472023`*^9, 3.497122372588629*^9, 3.497122601696514*^9, 3.497122734554307*^9, 3.4971228460378838`*^9, { 3.497122885644528*^9, 3.4971229073114443`*^9}, 3.497122968942751*^9, 3.4977300388897343`*^9, {3.4977303573738623`*^9, 3.497730390195939*^9}, 3.497730434954492*^9, 3.5052276210126123`*^9, 3.505227686500972*^9, 3.505227745523435*^9, {3.5052278568853683`*^9, 3.505227885589473*^9}, 3.505227927854542*^9, 3.505227965975019*^9, {3.50522799962586*^9, 3.505228024260894*^9}, 3.505229867095664*^9, 3.5052361649114923`*^9, { 3.50523621329245*^9, 3.505236293431253*^9}, {3.505236353569613*^9, 3.505236379019799*^9}, 3.505236451248811*^9, 3.505236537812817*^9, { 3.505236572734603*^9, 3.505236593320632*^9}, 3.505236755123184*^9, 3.505236857582116*^9, {3.5052371701558933`*^9, 3.505237183446864*^9}, { 3.505237271012697*^9, 3.505237297260612*^9}, {3.5052373396848927`*^9, 3.505237348356773*^9}, 3.505242390463283*^9, 3.5052492489188137`*^9, 3.505250430214423*^9, 3.506275734938747*^9, 3.5062757923335447`*^9, 3.506276160224263*^9, 3.5062762631048527`*^9, 3.5062764365934753`*^9, 3.506276791073784*^9, 3.50628292664624*^9}] }, Open ]] }, Open ]] }, WindowSize->{1475, 786}, WindowMargins->{{4, Automatic}, {Automatic, 4}}, DockedCells->FEPrivate`If[ FEPrivate`SameQ[FEPrivate`$ProductIDName, "MathematicaPlayer"], FEPrivate`Join[{ Cell[ BoxData[ GraphicsBox[ RasterBox[CompressedData[" 1:eJztXXdYFNfaz3O/f+79vudek3vTLKBIEaQpTRC7BgtqLCTWGxNjYsFookE0 NoxRY6oFuyIiWJCO9N4WWHrZpSy7VKkiBo2iy+5+Z/fsHg4zO7NLUZJ4fs/I Mztz5j3v+87u+zvnPe+Meuu3L1v/P6+99poJ+Gf+t9dek+8LBwiBIHvu/Byd ManLXMoSE+ExkQoZX+8W641rHWPUaDZZav+BZOoa6ZRVkhkftXrdrC3lg60h JuGh667nVjNkJjbd4ywfjhzbcP7iQFUiICAgIHiVkHfVO0dHL0tnDFd/XNGH q/g3bgrz84VFRVmnznAMrGRjDCSjxz6xmCFx3iFZtl/ickC6ZK/U6YtnS7Y/ c/6s23Zpt8V73aaOz8wdn+pbto4yqI2NG2qDCAgICAj+HIBTHn5GRrGhMV9H r0hXr1hnbKGuQaGlQ6G9U5TJTJ7ZFJneaNnoMd0GZl1rjos3X+7efEn8uafk k1OSlUfFi78RO30htl/5fOK8p2ZTmnXHNxlbVWVzh9osAgICAoI/ByANVVVU 5DpMKRs1pnS0fumYcTwDywIjh6IJixMcVrWNt5HTkL5Bt/7YR9OXi9yv1+7y urfLu/1rryfbLnR/7iledUQ8b7vYcUXn+Ol1uhZ1EycLCwuH2iwCAgICgj8B 0AIQ2C9Yv0E4ckyNvmmh8YSs2U6chUvTlq9JcFnDc5pR9t4M/rw5/IULeDMd M9Z9lrTVLWXLDs7Wr3O3uhVt3sn79Ev+2k2lLmvy5r+fY2JXZjO9qrh4qC0j ICAgIPijQ4RB/vGAR72OUaHlpIqzhxsCL9QHXq4N9q4L8mryP9d051xT4IWm oEtNARca75yvC79eG+Fbd9e3/q5vQ4TvvfDrjaE+94KuNgRfFvmdips8jZ+W wd51VXl5bkCgIENDMwICAgKCvyoA9VSroOShbw7UjbXJ/+KzxqCrLSHhTZFJ dbEZnRFRv4eGPQqP7IyK64yN74yL7wwP74iOackrbCkobs0taOXmt3FyHyRx QPv6oIi68IhSz3NRK9bnht2tEgjwHiv4/JykpOgTJyI/3cBdubru7Pnq0tIh sp7g1YUgNFTg4zPUWhAQvLpA0x9IQDUKyJlIKCxfuqbOYm7RQbfG8KC2pLzG tIKWhHTeuXPtsUlPsoseZxU+zsp/xC14lMF9lJjSmc7pKK1oLxO2lQjasoub knKqYzKqIlOrEzOrwuJDxtpfe2fMRSs7/wWLvZe5/DR/wS7HyTuNx/365lvh 7wxvWLuuLi1tqD1B8CoCcBDvtdfAxtfRAfsvqJcMMs0n+OsiIiLC1dX12LFj PB6vfxJwGgIEVKuAqKKi6OB3FaZzBDPW5Xnsro2+W59e0JKc2ZGUGjppcqrD NN4V7/a84of5JR25RR25hR0cLjjVEZ/Qnpp2PzWtOT6pNjqxKiy2PCymMjaJ Fxrx7bsjdg1745dhbx/4xz+//Pv/nvjXsKi33m4Zrts9fkLzZa/B9QkBQZ9Q sXFj+cqVciYaNqwqOXnQ5efl5Z09e3bQxRIQ/EEARlmBgYF79uzx8tI2mPMz OKnXrqVcv56flFReVARmPVUCQSWPV87llsbF8QKDC095Zi9akW04JcveJXOB a46He/XdoObY5N/iku9ncFPmL7ynY1ww0iB5xWp+cFhTblFrTmEzh9uSmtma kNwaGdUYGlIXHCgM8C+/daPI93pxSFDW7ZtfvPPumRHjfN/R8X9nROUYPamh kUxPr9vSuj787gv1DwGBlgBkBJiozNFx0CUTGiJ4FeDn5weYSMvGIj6//nYQ d8VHZ/QND41491drK087uyAb23Rru6yJtlwbB96kqeWWtgJzxxqrWS02Mwr3 bK2/49MWGduWlH4vIztunnOVgUW1qW2Fnmmq/vikbV/yI2JqOTm1yZy6+OS6 qJi64BBRQED5rZulfr55167mBfjzbt3Ot5xeZ+oonjhdamYvNZkg0x/XbTmh PibmhbpF4OMzWDn/qvx8ubQXlrQhGHKAeRDMzg36OhGhIYJXAWBO5Orq2tf8 c11ymuiLr/JMLTMMxsUYjeNaTOh0mCab5CiznCgzMpTpj5YZjJWNG5/n7iq6 ff1eVEJdQpowNSNyrnOpkWWpmS3PzK7c1DZ/jEnkRLuUI9/zoxOq4lMFEdGV AcEVN2+X+PkW+Hhnel3m3bnTGp0iXXdIsnibZOpKqe08qYmtxNT6XkiI9qoC FoAhAmxgHx3nDxumNnTAkS3awEd0Cgx38UEv5SOA8pJdu9CRyiNHUEegJTiF LoH7PNXbk4AaFH3o0nCxcjlmZnjX8ryQykCYKULKI6PAcRAzgQJgQ8wIdvg6 OmiNA16LhKMYW3n6NHIpaAPtApeUL1gAdYZaIT/TL4S9QK1AG+hAIAfYCCRA reiug5pQtIJqg66VvjUzg47quQoY6OMD+gI74CDdh7gyFFA0x/0DRIFNfit7 X4hucS85DI6ie4YJ7DQEfrkRERG91ODxduzYAY6jI3CcCY6Av2Afbwwkg+Og PUzLA1EeHh6uCoCdhIQE1MWvv/4KW1IyJyzC1Z6CCwGoTWBgIPgI/lLsojTT pke6KyjScOADb2AR9BiwEe8XmA+9ARqDffAX6QncBVwHrwLHQfCER6CLgBzQ HuyjxQ7cz3gX4MJjx45BlcAOCsJ085F1LB2xeADvCBiFOxyZCQAkI53BFw/I RzayZMyABNwK+LXRaAjlFOgOfKR8hbSEKC1d9MmGBxNtH9o6dE6Z0WUzWapn IBujIzMykppPlJnZZbtvLb95XRQZL4hNKk9MCXCal2ZokWlmw1Fsmea2mSZW EToGd2bNST3pWRoaURYUzPP1LfT25l65zLl0oTImqS456/mus5JPjkmct0om L5WZTW07ea5PSqLwjkd4nJvwOI/CNdjB9+HZftAQCqTgYE/MHDANocVxxDuU xkq+UwRtxA7gI+iazr9IMcgIqH2PFTBiq4RDw6EhUCCQIFQ3KaBcqKQShflw XynEzAxpRXEd1EpOKL3dBfrq4XeFXWBDCoB+oWKwjVofQquZMmm45koOGjZM LlNHB9Ec/XZQRjVMjqJ7hgkaaYgSw8EPGQYE/COIIaAZ+Iv/0mEEAx/BKRQe QeQJVADswJYo4oGD4AjORCzCmU5B3sEVUBvf8GZ069T2qJbOcGmBGFC4hhwE nYCirlDF5iCoIquRfHAKhGV0FZAAgjxkJXgEXIWPBCh+RqaBO4u6QFeBg2rN R72zdMTkAdgRZB8AyGKoJXAFOILMhF82aD4kengKXM7iW9wKXDiLIZRTSI7a XjRCJBLVnvR8OnWWxH6a2G6m2Hy6ZKy+TE9XamErnfQex8211Ne7IjyaFxFb Eh3nPXvOTT3jAGPLO9gWaGJ5W8/44sjRN5a5ZF64WOzrV3DFK/X8uTy/myVx KRXxaR37Lki2npKs2C+dtqZr6QZh78ptjUDhC//V49yEIgPiJkowR9G+rzSE ekFkAQLmoNAQOgsb95RsqRbKkTTUEYh7yo5UjSm0AjlLnkJUNaDwFFSbfhZ2 B3coYZ8S6nGTYaeAjCinqOarpk6UflF71BdMfiodrnACOAKjvVquofifAlxz 5cxFNaVCrI2bD52P98XuKHYSROgTDcHoAQe38AgMWagBDDVwnxIH6DMd1AUe HHAJLMKZTlGCMIj8au1ioiGWHjXSkNpTFIEwigpVY3VICugjlA+ZC51il0Pv HX0Et5WyGgI+wnvNEr1ZOmLyAL0jaAK9JfInaAAu0Vi6BhrAoQt+EE6c4bXa 0xAwBE5y+10vV1NT0xAdI35vocx8Sre9i3juFrGVg1RXR2ppn+a2pcDnSmnQ 3cKQiILwyDMzZv48Su+0vvGp3hs44qlv/PNw3eO6erfWr088eTL70qXcsOiC qITSmKR7Hhefu52RfHxEOuPj5tt9SMdBKH/vivhPCXrKpJAqPleePo0HMSEt edJnGqLNWQYrKYd6h2fxMIhsRNLoasCZCOJfJU8NG8ZkCN4AJzgmrZgk99gY GorP1yDUzrmQKIpWTCQCnYCSXXBmh5uGQHc4Dlxz+BVCk+KeSZ8qq6nMkSqm PD1jA1ZH0X2uFn2iIRhG0A8c5tvxgAlTHzD5g8cBekumLpAEFuEsp2CncELB MvRVSxzs5vSDhugCUUuW+AlYnn5HoNvV9shEQ/RMFwz+7L2zdMTkAXpHTAsx cKoFbdSmbg1OSClfG3hT4OVa0hCkM8j1THlFjaiurq6trW1MSeuetkhq94Fk +Tf3N53onDpfNtaQ47al9Oa1irsxpZExJVFx52fNPqVrcM5wvNrtvJHpWX2T X94aecnCMvG7wwXR8fyk9PL4tFqPC4/czkjXH5HM21yf3OdnKGBwoyymKJdO 0GRHwTtqIxse+vqRlFPS34IFMGQNIg3BnCGM0vBaFAahObBreDlaWFEu4igI F8VAOv9SKACnD7QPJFM2IX3m1Xt6ghslXxtSjQ2UzsEsQh+RKGHvCRQTDSHe AUaBLtAMV22JCIuHe5kcGopmeXTfImWA5tCTymkjq6Nw+WrvL4T2NASnQjCL whRLhQxxgJ62QpkrcBzP9gtV6X0W4RpPwaEvy7hXrQR2c/pBQ/SVC5hAU3sJ e0cwgAOB9FkAEw3R5WhDgiwdMXlA7XFKwEfrO8hGmKnDQR+lwPtI7xGNMbSk IXgjgEXgKqYJskZAGgJzoubgMKn1YsnSPR2up0p2nm6fPDvX3VUQ4Fcdm1QZ l1yekHzDaV6YoXmkmbWazdQ6wnhCtIVV1jLn9N2uCefPlscnizg51enZdR7n H7if7t70o2zu9par/n3SDUUhtAOPwzAiXxZX7MDB84ugIbhIzcNqHgaLhpRU oojSMPbK47lCCAzUyikPNgGEjIxvKHnF671iTqcAHpaYogjpkYanxWCVAk0y Pi3FV/DRpmZyiuaSmFZ06sQ9A3vBN7VVCihHCtkBMhe6cfiFeDkE2np8q1AM X0iCN5HFURT5TNCehuiJr77SEB1CBhrShmtYTtFlUvByaIh+vN80JMRKHXDv 0UUNkIZYOuorDaGDcLUIr5FQ+2WgC2FKq8JVNnZD8FOgPaIttdlCjRCJRDUq gP0n63ZIF2x/4npC4Ha26Kufcr/5QhToVx+fIkpKr0zJCJo3P8PQgmtum22m 2FQ7WSbW3PFWJU6zit03JZ79pTAyuja3qCY9q5bDrePkNHx74b7bSfHG49LF X4udNtRmq0kdMEGZrVIELjxhguI/mhYJBy8ph6JTL00U8wh8jX6ANIR0AztQ FM6V4KByXoBRiRBVj/v4KCeJlBo2VV9q5kdw/K9ITFHK8HpmHD4+TLxDqdnD c3HQFnAthXfoBQ94JZ583Ye5/AC5VO7z3ik1HPQRgnwapeIFiuZKmYr7SMko 4glSlKBjd5Sw90IhE7SkITQVEmI/cO2TcpTKLngWDnQp8QdKAO0HkpQDYUeb 2RA+FAeNB5iUw6XBS6DV/UjKsSSsgGQgFmarKDIpH/uXlGPpqH80BJ1ASYXR 6x7VjhxcFZMmeo+Q19gNwU+hry76dtFlsgO9QgHS0MN9x6VzPn/+2Y+NOz0L 913IOexeH3SjKTGtPjVTmJYZNde5zMCy3NS23NRG8de23MS63Hhi9RRHkeva TM/jKX5+uf53mnLym3MLmzNzmrLzmji5Tfs9H+4+I/74kGSJm8x+RdfSTTV5 BVqq1ysJphqyKlNYihiCNxisEgVY2QWPgFiKD9dhSKSklWDcQzFWOVNADMg8 WkbrIDgNoQkRZUlIrgler06pYeu9Yo56RykyPGbCs6g+nBJdlVUBZmZKpyku lPsEy7z1kC+WklJTaNebaNRWKSDJOPAjOPVTgN8CNEhAHEq5EJdJKSbEaQip LSdlVkeh7liYVEsaYqo96FOJAmXtGw50XWklCoiwBlKiwM5E9NkZDE3sJQrs BQ84oBC4JKF2xZ8lfjIt3+NHWPyMPmosUUDUQAnOTB31j4bU1sZTdENJM7oQ bWhIrSHID5AH0USsT69TgMDf5CN/m1yloOv9jyWz1ks+PvJw55nyPWdzj+1r DLvdnpjakp5dz8mOn+dcrW9RPd5GvplYVxtNqJ9o27h2SdEvHlkB/qVhEcVh d0uDQ1q4+fdzi9oz8zpyCjoyczu2He3c9pN4nYdk/hbptLUyc6dn81fXJado oyF9mAp++2hHiC3uw/ZaFmzDJ0eUz4Mo6njxbBXKfcHROAzmeME2bIxioLIS WCVN/tHMDAlheUUMsg6nISE2IcKDHqxwpmiCFnRQaTFavOjRR0cH5bgQK6G1 NiQN+RB9xC9U2qXqpWdZ6sgR+QM1K1fKdVA1BgEfTvHQ0zqwjFzIUIkntwtK UNRsCxVUqEy1oQemsFIHBDQDRXM3pUDFFJIyXQVdyO0FXwygmMo58JTa0Qvk LxZHoXU0egU4gjY0hE+FhL3jHlOFMyzTRXMEdBVcEYCn0HNDrqpC7sEt2GZZ IWJKo7EXbMMlCfqzJ0zShLSCbWis2ksoE09U/wwLtgGQHLzymcnPQk0F2zsU wAuzoaOYOhL2l4agOej+wpuO13jDXtRSvDZJOSZDmOgYTQm1B+XVpk3B4RLz Gd3TVkpWHOjaerLB3bPghwMtkYG/JSQ9SM9uzs5NmK+kIZHRxBozq6YlcysO 78i84cNPSL6XlnEvLr4kNLwoOLiVW9CWU3ifk9uRV/woq+Dxp/t+X7VL+sEe yexPpPbLpDaLZTYLxI7zqry8NWqI103BsTSMJHjQoER7cBZ/YkXt46t4ETge glBMQ2tP8mdFe69T9KSnsKE46hE+HYk+sj9XgsIdVAzFUjQhoozSKasb8qCN TVjwDfgKVSmgSI7P8oSKxB3uKDRrQwmrXnadPt3LLqzqTK1/8Ae7cOail89R 1rwQxeNLTiyvHqXogxKDeDEGquvAO8JNpnAZZdbD5Cg0BEIlEHT1tKEhGChQ PKeEULXPe8IjCCj6oZYocMFQP1iPr+K6wSVpcJa+9s1CHGrFwnkNCKFQT+2l CbGlFkhhrljBNt6MMqpHDxmBWA31R4pBaoC3g+5nbR5fhTcCPjPrij1KTPEA 3pFwAGtDoF9Y5A+LH5CNUDdKLzi0KVFgMgRPTuLfcHqmVCNwGqrl8Z/OXSIx myK2X/h8weautYfuu/5c9P3+1siAR3HxD1Mz7mflRM53Lh5rxjOxEs6eLnD7 jHv1XEF4pCghpTktozklpSk2tvJueEFQUHN6dktmXms6tz2n6GFWwf3/7nm8 dPvTmRu6HVaJrRdLzGdLLabLLGdKJ0xt3/xlDSeTST16YS0Kvzw886MqpcOv VfsyH41JOYqEHk1UKzKMqioa4OvjkMKY2kOggjeKRUIsXNMnAjDA4sJ71b9t 3Ag1wSuK4doNntPDzdRsF94Xg11QDt4F/sgqTJohTdRm4egaMjXGQbmJFOqh DwbotxId6aU83ck0R+GiKF8ABI00BDkIpwD2qNvXZkzBrX8YXN0Gt9NB7/fF yVSLftNQv6GxYJsFg+sWxEQPP/28e7zVM3OHbus5YkeXZ4u2ta7en394T1PY rYfR0Q/iE9tSUv3nOCVbTCj5fFXOmR/ygoOFsQn1iUnC2PjqmNjGmJjau3cr Q0Jy7vjfi0u6l8Spi0tv4uS1cwoebvjuscuurtmfPrVdKLZ4T2LuJB0/VWZs JzOeJH9SyXJK20cbqgODhBUVFN3QyBYdQUkh/CDLEjYFfaKhl4CelwaoFiPQ KWQ7ngViB+XRKnqt9csHvZxMbcwfCChrVWi9RllF0PsZ25cPjTQERpj4VEio 9Q+c5YU5lC4IDQ0EWvp54Hj5NKTx8VUWvAhXV2zcLB5rLDaxemxo0TbOttl8 Vp3DysIFm7MPudcGXGsJCWoJC2uMiAxZOC/tm23ZftfKgsOEkVGCiKiy8IjS sPDCkJDioKDSO3cKb91Mu36tKiRSEJtWGZVSk5zdmpLzdN13Txdu67JZJjZ9 76nt3IdrtzzYe7j1hGfLxSvNV661el7o2Pvtgx27m05Rf614il6lpzLm4JVa 9GZMUEtDlFK0lww8TUQZbOOntKESuEZPf6eExveevVAAAoLrWRSt2NOVfZJP yf7hXw+1dX0vExppyJX2Ji7tf+DalCQNIQ3Ra9sG0qk20l7QzAX3M1q+H3S8 fBoSanqZj8YLB64AhIjHa3XdLh6l1zVKr11Hv1HXQDTWtGb8ZJ7V/Jx5GzkH vxb4Xay+4Su6dav61i3Ozz8WXvctvu1f4u8vCAgUBAYW37qVfv168rVrYMu4 ejXzypXYC+dLfG/zwxL4QbG1iZltabnPluwQO6zsdNnUeupiTXYOoyqCKsoB EGHQ0rayiSLPQzkIV8O1CWsUGkIpIxCmhmrADF/dqXyjWu8JgnyJSnWqf+/3 1vK9Zy8ZUKvBcjhcBcM3+GgtPEt5WevLh0YaokyFhIM9/B4SGqK/jLR/L71k ksbk0peQQBsSGqK/mkDtwf6B5dWmLBhEVzf53nruOKtzlF7NOLOaibaVVrZC m0k8Q9N8HeNsI/u0mavjN3/Gu+lVfsOv3P92xR1/fsCdquBgUWxcbSa3Pr+o LqegIT2zNia+MiiIc8Mv9qpXrNeVqCuXMq/5VIbHC6OSH1TV1kXEPp+8+vfl m0T8skHReSCAMR9P36F6hiEcML840O39IwAuu7yc/zgDkdRQ/T8dQ/4fPQxi vBK+xAxV//AHV48dg3unXjQGxdWi4mKB5/nwj9cH7tmTHxhUmZMjKCkRlpYK i4srk5MLz5xNfn9VmPX84ElTOD//IORmN1VWtolEbXX1bU3N91va2lsVW3PL g8bmjsam+w2NrbUNzVXCmoqKSj6/qozfJqp+9OBhe01N8axlT0xmNt64Myi2 ExD8uTDkNERA8IdFVWlpEZdLP44qFspzc8Ns5/jpG9wwNoqYM6dw3cYS96NZ e49x9hzJ3Hck99BxsHEPHM13P8jf8U32VveUDV8lfOYWu37nTecl+6c6Rs9b kL9kdan17DaL6Y8MrOvDyH+0SvAqAtYGD7UWBAR/MiAmCpjl9Mub/z45YozA dq5k44nn+7ybvrsuOOIjOHpN+IOv6Mfrwh98ag9d/H37MeHGw/lr92Ws+zZ9 1cGi5bt8jO02vvF6pZFZnfGEJkPz+7oGNX43h9osAgICAoI/E8rS0o6OHO7x +ptn39HvmuwiWbZXsun0E7eLD/Z6tRz0bvDwrj10tcbjSsO+i+0bj7as+7Z6 xYHyNYf5y3bxnT6vmvxhpJ55/CjdyrGGVXpG9Tp6Fd8dHWqDCAgICAj+PBAI kn788cib7+7/v9dTdMdJHN6XzNkgWbZb8slPkq1nn3198fHuK527L993v/Rg 57nfPj32ePV3vy37pn353ntzNtZMcqk0nV5mZJU1Wi911Oji0XplI3XLFi0V VlEL4QgICAgICNSiSiDITUw8NFLH45+vPzOxlk6cKZm0WDJtjWzWZtnifdI1 30s2/Nq98WT3phPP133/fOWhrkV7njq5ds5c/8hycfPUJTV2s/ijDXOGj4ob PjJ+pA5nhG6OoXGFuqUoAgICAgICtcgIDV3/93+kDB8pNZkgHW8nM50msXPu ctny++aDzz50k87cIlm0W7LIXeK8s9tp29MpH/9us/ypyezWo7+IioqFYAsK Llm5OmXM2MC33ol8e0TcuyNzvTW/QY6AgICAgADiyv59B//1L5m+vsxgnNTM utP1q7pU5ZPLovKKhx4nZXYrpFP+K53yUbfd8qcWzl2G03775AuKEF5sbMJS lytv/Mf/P29HOi8ieTkCAgICAm1QJRBstbYSDB8p09Pres+pITqG3qbzKw+Z zWLpxLkSG+cnxtO6jB3r45PUSuNcunRGR/fCsDdq1ckhICAgICCgICs5+ei/ /y3T0ev48isRwzvuqotKxLOWyl+UbT7tmZH9o8WrhAIBk8Di5OTjxkZx06eT CREBAQEBgUb8vGVz24jRTZ7n2Js13wyQjbeXmTmKDa3aftXw/kwel/uzpYXo 0uXBU5OAgICA4C+IHA7n0tvD205d0Kbx74s/lBlNkBpb18TFa2zMz8uLcd1a nZM7YB0JCAgICP6yuPT1zta9h7Vs3HLJS2Zs02ntWFFYqE378sLCCkJDBAQE BAQMyMrI4B//Rfv2osrKbodZ9xcseXEqERAQEBC8OqgoLu5rFcGTlRu4HwzZ /25JQEBAQPBHw/8DCp03+A== "], {{0, 0}, {557, 41}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {557, 41}, PlotRange -> {{0, 557}, {0, 41}}]], "DockedCell", Background -> GrayLevel[0.866682], CellFrame -> {{0, 0}, {0, 4}}, CellFrameColor -> RGBColor[0.690074, 0.12871, 0.194598], CellMargins -> {{0, 0}, {-3, 0}}, CellFrameMargins -> 0, ContextMenu -> None, ComponentwiseContextMenu -> {}], Cell[ BoxData[ GridBox[{{ GraphicsBox[ RasterBox[CompressedData[" 1:eJztWl1Ik1EYFrqNEoLMbHPmNkRrEhJERj93ra4cJvbDRIsyMk1pc03tTL1w aD+LfkQIJBkR/dBFdtHFDLywCykqoqgLIYRu6jbb8me933e+HT/P2fZN+sZ0 vg9n43zfec973nPe57zvOWNFDS2OhnU5OTlG+LyBj1S/ikAgEAgEAoFAIBAI xEpFMBh8jUgPYG0z7d7MAOYedm/Bko4Ca5tp92YGSCokle5AUiGpdAeSCkml O0RS/R1tjEajUIHvyIhdehPyLNZjrVSAgT5CK1Tmf32e+/qcdYEy+/4+vKTd oQJN89PjojbaHcrCzE8qn0RGfIxrEjcF0SomD49hYqDDUUSGKtUKWRMYz42L pFJDg1RPamGdlRWGuuDi2Yl+WHkoiy72W6jjgFeSm/wWKEAScCvtCxWpSzxt 1FPU9dJ76Lt8UnEmcVMQrWImUQE6nKJB7sgUKpb4LcpEtHiFpEpEKim2TI8n IhXv4pAHXCAJEAPIq7d5JFAOYYEGKHEstTbQAJKSx+XH5ZKKE+CmIFq1ZC/E SBVXoboJyMliKZKKgyapwLlK1ohHKgpYYfGRbnNpg4c8dP3prtckFQ0gUm5K miKpVZxnRZP4KcSziiU1bjhOobpJ2TtIqnhITipYZ7byydJfoDzMpT9ZWMo1 EHbgBBLyhOWzlmakUtKQnB/VuUYkFbWNjZXIJHEKnFVL0t+IXSQVU4iRKkUk JxVzhJI7hirpDpXOGzJ5eFLFvMNORxAlaJZhmtmZStQGAvSQA/FECSksH/kt VLMyokw5qHDOFU3ipiBaxZmtTSo8U2lBI1LF/BWNXZ0Y1LckLo9IqQdYIWdA 9T0uvPT2J2qjrUr2lGMRSzrq4eiIVIxFGC5bMZO4KYhWcWYnSn8gv3j7k+vJ GbVaSNXt9fo6O/XVib9Tpa+sClLdvtB0q+WSvjqRVGucVA/q6p9V1+irE0m1 xkk1cuLk2O49+upEUq1xUg1X14yZraSrS0ed+H+q9GFV/J+qx25/u9U40Nqa aUMQ2YMrFRWf8g0vDh9JvUvgYjPR+8KIyA5AyiNeb1Pe5ql840xxSV97eyq9 Hp1y3nE602waYoXC19GRqInIGHC57lY53Lm53/O2RQ3Fr6qqNXUG609/LLX1 ulOiHyL74D/XeLPxvPiexHDtsuulyexbv2GqwLRgNP8xl/W7XAQE1IUQ1nHw zNl5o2XYoc09RLbC5/E8te26V9+gfskY5SPkuss1abLc2Ljpm9E8Z7FFt++c POroJoQWn1wotQAPj9XMFZp/m6y9bndGpoNYCZBikbNuoqBwsPY4IxIrQJu+ trYf5pLRfOOXotJw6d7Zsv0LtkOPzzb1ENKjolagueVD5YGodUfEZH2372Cm p4X4X/wDFcRtOg== "], {{0, 0}, {199, 30}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {199, 30}, PlotRange -> {{0, 199}, {0, 30}}], ButtonBox[ GraphicsBox[ RasterBox[CompressedData[" 1:eJztlDFuhFAMRJHS5w45Re6RI+wFcoOUtNtR0lJSUlNSUtNS0m9JXjTKaPQh UfpgCeT1n2+Px15ebu9vt6eqqp55Xnm+/I/L/p+1bbtt277vvJumIcKbnwWs 73vBsHVdE1bXNQ55Ho8HMOEd3L9tWRZ+6tRBrrjEMAwigHO/37M6SII40zRB Q7QLkpQWjKOu63RqGHHVIoOYYAR16oucinYGxUo2jqMIzPNMnpQRPF2nMkeS cCBDXsm7ZNZp6oZRS3wsIBFNIYM2iY8gYmJA8imqawHcOAKqio4KSp4O7Qjp K1nOUygasaG2hoKSaud3krkArggZzyhhTohP3Uz7E0mNu9g98oj26exOSTon fRUtn8IUJL+W80gyuz6OW3mgrSXXEv5dSaRTaRz9KQpY/knxtVomKdFQxvFT JZFR6pFBJWT5tbEvR9+H3F6S+GOSMC+DTHtrHYyh32Qu855cdhn2CUundjY= "], {{0, 0}, {55, 14}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {55, 14}, PlotRange -> {{0, 55}, {0, 14}}], ButtonData -> { URL["http://store.wolfram.com/view/app/playerpro/"], None}, ButtonNote -> "http://store.wolfram.com/view/app/playerpro/"], GraphicsBox[ RasterBox[{{{132, 132, 132}, {156, 155, 155}}, {{138, 137, 137}, { 171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{ 138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, {171, 169, 169}}, {{138, 137, 137}, { 171, 169, 169}}, {{135, 135, 135}, {167, 166, 166}}}, {{0, 0}, {2, 14}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {2, 14}, PlotRange -> {{0, 2}, {0, 14}}], ButtonBox[ GraphicsBox[ RasterBox[CompressedData[" 1:eJztlSGSg2AMhTuzfu+wB1qzR+gF9gbIWhwSW4lEV1ZWYyvxSPZb3vAmDdDq zpCZdvKH5CUvfwhfx9+f48fhcPjk983vXy922eU9paqqcRx9HGcZhiE+PZ1O KHVd24KOgt0WFKLQ27ZdJrper0JGcS5CVqs6n89yRpGl73tZBK6kkvv97kCe ChOlLEvbVW2kiYPoxKcYRdwWld00jS2EcFSFMYXCqbOcBJzL5aJcxK7SFEFB GQFn8AWupPUkMRfIJEK53W5d1z2hGVP7yohVbfanWoxAJQTfeywbT1+xK9mi GQGTj8FT0uRAN3Tdjl3SlNANP5WoabIIRP+x52ojLEgXs8fxs7+R1cCXNFH6 SVJhKZwx0+BxBZ7nraGNpBSrEFlA1khgRDcCRg1navIWTeVKPVmliaeaL+c4 tCmcknRHfjtWaS6HNtYmC1wYjGJ+6eKjJcficWgVssz1nGbabFtD682gZaIO MHXqkq/vyW3GFaQXliNuOhbz9lOHU3a6SrhWkCmnXC9pUoPBt1aQpquYrtJt 0f6Pazkd497W1MkSlxierkrrN254iz8oHqS0ByzxGzfOHx2yq9plYSl8l13e Xf4ArlmHrg== "], {{0, 0}, {77, 14}}, {0, 255}, ColorFunction -> RGBColor], ImageSize -> {77, 14}, PlotRange -> {{0, 77}, {0, 14}}], ButtonData -> { URL[ "http://www.wolfram.com/solutions/interactivedeployment/\ licensingterms.html"], None}, ButtonNote -> "http://www.wolfram.com/solutions/interactivedeployment/\ licensingterms.html"]}}, ColumnsEqual -> False, GridBoxAlignment -> {"Columns" -> {{Center}}, "Rows" -> {{Center}}}]], "DockedCell", Background -> GrayLevel[0.494118], CellFrame -> {{0, 0}, {4, 0}}, CellFrameColor -> RGBColor[0.690074, 0.12871, 0.194598], CellMargins -> 0, CellFrameMargins -> {{0, 0}, {0, -1}}, ContextMenu -> None, ComponentwiseContextMenu -> {}, ButtonBoxOptions -> {ButtonFunction :> (FrontEndExecute[{ NotebookLocate[#2]}]& ), Appearance -> None, ButtonFrame -> None, Evaluator -> None, Method -> "Queued"}]}, FEPrivate`If[ FEPrivate`SameQ[ FrontEnd`CurrentValue[ FrontEnd`EvaluationNotebook[], ScreenStyleEnvironment], "SlideShow"], { Inherited}, {}]], Inherited], FrontEndVersion->"7.0 for Microsoft Windows (32-bit) (November 10, 2008)", StyleDefinitions->FrontEnd`FileName[{ "Users", "WRMcKinney", "Desktop", "Right Ascension"}, "Wayne_style.nb", CharacterEncoding -> "WindowsANSI"] ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{} *) (*CellTagsIndex CellTagsIndex->{} *) (*NotebookFileOutline Notebook[{ Cell[CellGroupData[{ Cell[579, 22, 500, 12, 121, "Subtitle", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[1082, 36, 2241, 54, 153, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}] }, Open ]], Cell[CellGroupData[{ Cell[3360, 95, 447, 9, 71, "Subtitle", CellGroupingRules->{GroupTogetherGrouping, 10001.}], Cell[3810, 106, 2722, 52, 243, "Input", CellGroupingRules->{GroupTogetherGrouping, 10001.}] }, Open ]], Cell[CellGroupData[{ Cell[6569, 163, 412, 9, 71, "Subtitle", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[6984, 174, 6089, 169, 393, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[13076, 345, 445, 9, 46, "Subtitle", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[13524, 356, 3694, 93, 243, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[17221, 451, 544, 10, 46, "Subtitle", CellGroupingRules->{GroupTogetherGrouping, 10000.}], Cell[17768, 463, 1352, 30, 123, "Input", CellGroupingRules->{GroupTogetherGrouping, 10000.}] }, Open ]], Cell[CellGroupData[{ Cell[19157, 498, 616, 9, 36, "Subsection", CellGroupingRules->{GroupTogetherGrouping, 10001.}], Cell[19776, 509, 2367, 64, 243, "Input", CellGroupingRules->{GroupTogetherGrouping, 10001.}] }, Open ]], Cell[CellGroupData[{ Cell[22180, 578, 737, 11, 36, "Subsection"], Cell[22920, 591, 2054, 50, 123, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[25011, 646, 587, 9, 46, "Subtitle"], Cell[25601, 657, 5153, 87, 543, "Input"] }, Open ]], Cell[CellGroupData[{ Cell[30791, 749, 622, 9, 46, "Subtitle"], Cell[CellGroupData[{ Cell[31438, 762, 21375, 403, 1053, "Input"], Cell[52816, 1167, 52009, 836, 762, "Output"] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *) (* NotebookSignature gw0LZX2K3bLugD1BlSuJnrCA *)