Cell[CellGroupData[{Cell[BoxData[ RowBox[{ RowBox[{"dat", "[", RowBox[{"t_", ",", "n_"}], "]"}], ":=", RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{"raw", "=", RowBox[{"AstronomicalData", "[", RowBox[{ RowBox[{"AstronomicalData", "[", "n", "]"}], ",", RowBox[{"{", RowBox[{"\"\\"", ",", "t"}], "}"}]}], "]"}]}], "}"}], ",", " ", RowBox[{ RowBox[{ FractionBox["#", RowBox[{"7", "*", RowBox[{"10", "^", "12"}]}]], "&"}], "/@", "raw"}]}], "]"}]}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, InitializationCell->True, CellChangeTimes->{{3.4362858520958834`*^9, 3.43628589906658*^9}, { 3.4362859580294757`*^9, 3.436285961135786*^9}, { 3.43628615149382*^9, 3.4362861610297737`*^9}, {3.43628620860053*^9, 3.436286246921362*^9}, {3.436286887525416*^9, 3.436286921079771*^9}, 3.4362869635770206`*^9, { 3.436287098030464*^9, 3.4362871353922*^9}, {3.436287440028661*^9, 3.4362874562692842`*^9}, {3.436287543409998*^9, 3.436287546097266*^9}, 3.436288618207467*^9, 3.760819188190236*^9}, CellID->579483311], Cell[BoxData[ RowBox[{ RowBox[{"paths", "=", RowBox[{"{", RowBox[{ RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.005659372748241117`", ",", RowBox[{"-", "0.007030408948308436`"}], ",", RowBox[{"-", "0.00109347019471388`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.00657946364442718`", ",", RowBox[{"-", "0.005727498661523015`"}], ",", RowBox[{"-", "0.0010718117412746204`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.007258517323396534`", ",", RowBox[{"-", "0.004216171001861179`"}], ",", RowBox[{"-", "0.0010110031901167317`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.007639185797884482`", ",", RowBox[{"-", "0.002533137830764956`"}], ",", RowBox[{"-", "0.0009087662866493011`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.007663153556927342`", ",", RowBox[{"-", "0.0007337210844731704`"}], ",", RowBox[{"-", "0.0007642511838059159`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.007277351688095494`", ",", "0.0011026674998459622`", ",", RowBox[{"-", "0.0005790544540362882`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.0064452076035374966`", ",", "0.0028687365946926586`", ",", RowBox[{"-", "0.00035856222630627297`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.005163330399424997`", ",", "0.004431523372345285`", ",", RowBox[{"-", "0.00011330389980106032`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.003479968545160723`", ",", "0.00564638965877669`", ",", "0.00014049234913892695`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.0015051699369075951`", ",", "0.006385413716490974`", ",", "0.000382280512340495`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.0005997612736888463`"}], ",", "0.006572120934210527`", ",", "0.0005909976664610973`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.0026555146795872744`"}], ",", "0.006203749195908249`", ",", "0.0007499358454213139`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.004504839173189019`"}], ",", "0.005346765374015502`", ",", "0.000850059406705424`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.006038441185347172`"}], ",", "0.004110622868413503`", ",", "0.0008902460242926816`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.007199253077406363`"}], ",", "0.002617447229739507`", ",", "0.0008752073430273641`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.00797225606481217`"}], ",", "0.0009808408933516973`", ",", "0.0008128253158319595`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.008370267521195835`"}], ",", RowBox[{"-", "0.0007037452616937778`"}], ",", "0.0007120606881960642`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.008421857687910688`"}], ",", RowBox[{"-", "0.0023606274818626775`"}], ",", "0.0005817105431999314`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.008163104043266667`"}], ",", RowBox[{"-", "0.0039316403574160014`"}], ",", "0.00042983368416302594`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.0076326960299257255`"}], ",", RowBox[{"-", "0.005372714046746392`"}], ",", "0.00026357972552427977`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.006869365362850373`"}], ",", RowBox[{"-", "0.006650566841660026`"}], ",", "0.00008922256484907719`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.005910756776300825`"}], ",", RowBox[{"-", "0.007739969381312724`"}], ",", RowBox[{"-", "0.00008772036638188214`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.004793135439715794`"}], ",", RowBox[{"-", "0.00862165020257869`"}], ",", RowBox[{"-", "0.0002623442129254706`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.003551563403071037`"}], ",", RowBox[{"-", "0.00928077193308742`"}], ",", RowBox[{"-", "0.000430216260062429`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.0022203367856050865`"}], ",", RowBox[{"-", "0.009705879239415759`"}], ",", RowBox[{"-", "0.0005872499315456643`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.0008335738176628578`"}], ",", RowBox[{"-", "0.009888234922818824`"}], ",", RowBox[{"-", "0.0007295966187057821`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.0005741002765969663`", ",", RowBox[{"-", "0.009821491973181733`"}], ",", RowBox[{"-", "0.0008535559536458667`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.0019667965214794072`", ",", RowBox[{"-", "0.00950168483754162`"}], ",", RowBox[{"-", "0.0009555055642157185`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.003306548865664131`", ",", RowBox[{"-", "0.008927562362631281`"}], ",", RowBox[{"-", "0.0010318534423499543`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.004552469380861639`", ",", RowBox[{"-", "0.008101328896610072`"}], ",", RowBox[{"-", "0.001079020701429234`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.005659932637325159`", ",", RowBox[{"-", "0.007029910720600011`"}], ",", RowBox[{"-", "0.0010934698276440006`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.006579927729653924`", ",", RowBox[{"-", "0.005726920065643174`"}], ",", RowBox[{"-", "0.001071805288195087`"}]}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.015335796183548635`"}], ",", RowBox[{"-", "0.0010056631592482192`"}], ",", "0.00087180564134778`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.014805848178741803`"}], ",", RowBox[{"-", "0.0042046338468542535`"}], ",", "0.0007977235900183019`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.013622927919121312`"}], ",", RowBox[{"-", "0.007218266245542913`"}], ",", "0.000688460258628586`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.011841557998504974`"}], ",", RowBox[{"-", "0.00991491625041165`"}], ",", "0.0005489528641412373`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.009542132968906282`"}], ",", RowBox[{"-", "0.012177934232758928`"}], ",", "0.000385428518351555`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.006826970862272004`"}], ",", RowBox[{"-", "0.013910542026109302`"}], ",", "0.00020511005928803923`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.003815537116367984`"}], ",", RowBox[{"-", "0.015039687195126385`"}], ",", "0.000015887916736858035`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.0006390977952689522`"}], ",", RowBox[{"-", "0.015518774118752323`"}], ",", RowBox[{"-", "0.00017402577503569883`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.002564947283579639`", ",", RowBox[{"-", "0.015329230866791442`"}], ",", RowBox[{"-", "0.00035644569230723893`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.005658818479707519`", ",", RowBox[{"-", "0.014480922260407737`"}], ",", RowBox[{"-", "0.0005235511056212849`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.008509990925419443`", ",", RowBox[{"-", "0.013011456569152587`"}], ",", RowBox[{"-", "0.0006682016978684087`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.010996529493889877`", ",", RowBox[{"-", "0.010984456429625903`"}], ",", RowBox[{"-", "0.0007842220507010849`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.013011965803913698`", ",", RowBox[{"-", "0.00848688222807311`"}], ",", RowBox[{"-", "0.0008666468918197053`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.014469578361283743`", ",", RowBox[{"-", "0.005625507587091215`"}], ",", RowBox[{"-", "0.0009119203492863112`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.015305950167491818`", ",", RowBox[{"-", "0.0025226550847983983`"}], ",", RowBox[{"-", "0.0009180433532620792`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.015483687221463918`", ",", "0.0006886873557073718`", ",", RowBox[{"-", "0.0008846641684720469`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.014993189051367858`", ",", "0.0038702316072543714`", ",", RowBox[{"-", "0.000813107727459074`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.013853373463216584`", ",", "0.006884076009535361`", ",", RowBox[{"-", "0.0007063402413104321`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.01211127587565379`", ",", "0.009598526652278429`", ",", RowBox[{"-", "0.0005688669565429167`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.009840470631030305`", ",", "0.011893836953963018`", ",", RowBox[{"-", "0.0004065629776470538`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.007138302311258912`", ",", "0.013667621274114323`", ",", RowBox[{"-", "0.0002264398516179951`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.0041219698364627294`", ",", "0.014839679531693167`", ",", RowBox[{"-", "0.000036353977665428516`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.0009235722437955405`", ",", "0.015355964217106863`", ",", "0.0001553332892835222`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.002315700772244107`"}], ",", "0.015191436693620814`", ",", "0.0003401298879107496`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.005451977167966395`"}], ",", "0.01435160054601371`", ",", "0.0005098039097383768`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.008345390595492037`"}], ",", "0.012872564469774719`", ",", "0.0006567705634333337`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.010866685261833051`"}], ",", "0.01081957481770829`", ",", "0.000774453507727652`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.012903360381056139`"}], ",", "0.008284060226068956`", ",", "0.0008575994416978597`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.014364995408985115`"}], ",", "0.005379334898088741`", ",", "0.0009025272509404931`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.015187448657507421`"}], ",", "0.0022352032633956667`", ",", "0.0009072971714494985`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.015335701972256498`"}], ",", RowBox[{"-", "0.0010082172153696653`"}], ",", "0.0008717910661364354`"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.003715542685162455`"}], ",", "0.020682865040126973`", ",", "4.589957511588355`*^-8"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.008076295132284531`"}], ",", "0.019404957908828745`", ",", RowBox[{"-", "2.3650550002352485`*^-8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.012063594102407725`"}], ",", "0.017235637204332504`", ",", "1.9389378175676477`*^-8"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.015500872656781354`"}], ",", "0.014277859220565872`", ",", "2.1434668592079315`*^-8"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.018230037496919007`"}], ",", "0.010667589211345`", ",", RowBox[{"-", "1.911732218872951`*^-8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.020135448273663134`"}], ",", "0.006576558269783607`", ",", "5.840324975937778`*^-8"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.02113689136451537`"}], ",", "0.0021875510954119126`", ",", RowBox[{"-", "4.655655767774448`*^-8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.021198218609548583`"}], ",", RowBox[{"-", "0.002296499056492105`"}], ",", "6.884585785587564`*^-8"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.02032796588926693`"}], ",", RowBox[{"-", "0.0066820250251252945`"}], ",", RowBox[{"-", "4.9271018436620865`*^-8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.018570396718271563`"}], ",", RowBox[{"-", "0.010775235842736394`"}], ",", "5.337143366084685`*^-8"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.016014525064357882`"}], ",", RowBox[{"-", "0.014405096190060284`"}], ",", RowBox[{"-", "2.883157738065317`*^-8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.012772104805296268`"}], ",", RowBox[{"-", "0.017420112529604122`"}], ",", "2.061304532911179`*^-8"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.008991156014462756`"}], ",", RowBox[{"-", "0.019696908888699544`"}], ",", "3.515416754866005`*^-11"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.0048300292221831655`"}], ",", RowBox[{"-", "0.02114734597134462`"}], ",", RowBox[{"-", "2.2133124414094265`*^-8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.0004681821232199898`"}], ",", RowBox[{"-", "0.021711431622889597`"}], ",", "2.7092891737668445`*^-8"}], "}"}], ",", RowBox[{"{", RowBox[{"0.0039138120103064744`", ",", RowBox[{"-", "0.02137337365997384`"}], ",", RowBox[{"-", "6.19264075015131`*^-8"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.008133330509797313`", ",", RowBox[{"-", "0.020143595593194844`"}], ",", "4.4666814998997116`*^-8"}], "}"}], ",", RowBox[{"{", RowBox[{"0.012013090630438879`", ",", RowBox[{"-", "0.01807761324535322`"}], ",", RowBox[{"-", "7.611506088521915`*^-8"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.015393266237150306`", ",", RowBox[{"-", "0.01525547258095011`"}], ",", "4.1989373140944055`*^-8"}], "}"}], ",", RowBox[{"{", RowBox[{"0.018125624597199474`", ",", RowBox[{"-", "0.011794931735190714`"}], ",", RowBox[{"-", "5.7354309112537136`*^-8"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.020095648839587962`", ",", RowBox[{"-", "0.007836720929748128`"}], ",", "1.624664867655036`*^-8"}], "}"}], ",", RowBox[{"{", RowBox[{"0.02120855257579566`", ",", RowBox[{"-", "0.0035448614224831295`"}], ",", RowBox[{"-", "1.5262105093276236`*^-8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.021413371149336745`", ",", "0.0008973561299715682`", ",", RowBox[{"-", "1.7305062498521077`*^-8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.020688616944624667`", ",", "0.005302435437366375`", ",", "3.006019310455681`*^-8"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.01905865210590239`", ",", "0.009472507969011277`", ",", RowBox[{"-", "3.90120675460228`*^-8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.016585618989522263`", ",", "0.013225701033415043`", ",", "6.38717678850499`*^-8"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.01337063704916238`", ",", "0.01638527066743121`", ",", RowBox[{"-", "4.017237484543691`*^-8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.009554698209708234`", ",", "0.01880772925950051`", ",", "8.09831514346675`*^-8"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.005302607401449463`", ",", "0.020374395105080007`", ",", RowBox[{"-", "1.8163866247356123`*^-8"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.0008108682697762802`", ",", "0.021010208564533298`", ",", "7.55354949591093`*^-8"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.0037205054234044116`"}], ",", "0.020682556260698474`", ",", "2.013549558360497`*^-8"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.008078689772681735`"}], ",", "0.019403108255075425`", ",", "4.296035323279132`*^-8"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.003666896946492971`"}], ",", "0.03365084394439302`", ",", "0.0007941974416002304`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.010105563812297394`"}], ",", "0.032847257765210226`", ",", "0.0009357713660911538`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.01617003400720767`"}], ",", "0.030821676002033255`", ",", "0.001042576935815637`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.02165683781823859`"}], ",", "0.027692246775562097`", ",", "0.00111208175334206`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.026392063805583187`"}], ",", "0.02360030684342729`", ",", "0.001142965793366802`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.030230143498701716`"}], ",", "0.018705363416021515`", ",", "0.0011349851900841537`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.03305267484703129`"}], ",", "0.013181762537043042`", ",", "0.0010888739169851683`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.03476777304103496`"}], ",", "0.007216616894900602`", ",", "0.0010062850284582926`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.035310270109640954`"}], ",", "0.001008523589515278`", ",", "0.0008897691801469365`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.03464296561795798`"}], ",", RowBox[{"-", "0.0052333501911088`"}], ",", "0.0007427860654711401`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.032759096098044276`"}], ",", RowBox[{"-", "0.011290308470017206`"}], ",", "0.0005697428598112623`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.02968610561716573`"}], ",", RowBox[{"-", "0.016935864436960848`"}], ",", "0.0003760514619958752`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.025490631936312274`"}], ",", RowBox[{"-", "0.021938892607997078`"}], ",", "0.00016818604359374108`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.02028438883516627`"}], ",", RowBox[{"-", "0.026069010230670608`"}], ",", RowBox[{"-", "0.00004628641506501858`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.014230227270827088`"}], ",", RowBox[{"-", "0.029105127900054005`"}], ",", RowBox[{"-", "0.0002587358860467717`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.007547076664635807`"}], ",", RowBox[{"-", "0.030848038765992958`"}], ",", RowBox[{"-", "0.0004596093977640954`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.0005116297324811881`"}], ",", RowBox[{"-", "0.031137498479652956`"}], ",", RowBox[{"-", "0.000638747135361564`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.006546058801896139`", ",", RowBox[{"-", "0.029873154766617446`"}], ",", RowBox[{"-", "0.0007859303055385932`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.01325608298632662`", ",", RowBox[{"-", "0.02703692187659126`"}], ",", RowBox[{"-", "0.0008916808999745346`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.019233273243212525`", ",", RowBox[{"-", "0.022712175715529533`"}], ",", RowBox[{"-", "0.000948267178169388`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.024112082852141177`", ",", RowBox[{"-", "0.01709342875752665`"}], ",", RowBox[{"-", "0.0009507649100042827`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.027586752317534047`", ",", RowBox[{"-", "0.010480448029078104`"}], ",", RowBox[{"-", "0.000897922855383582`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.029447955214103514`", ",", RowBox[{"-", "0.0032542826771357948`"}], ",", RowBox[{"-", "0.0007925618755807993`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.029606347037048845`", ",", "0.004161414496844838`", ",", RowBox[{"-", "0.0006413449480339263`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.028097049086680797`", ",", "0.011345028234550332`", ",", RowBox[{"-", "0.00045395477336979237`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.02506539854479716`", ",", "0.01791713255263257`", ",", RowBox[{"-", "0.00024190328195221978`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.020739947912139952`", ",", "0.023568453125115983`", ",", RowBox[{"-", "0.000017281486850645684`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.01540093318832309`", ",", "0.0280730497952527`", ",", "0.00020829154029993567`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.009351184197732667`", ",", "0.03128874477052772`", ",", "0.000424392128653182`"}], "}"}], ",", RowBox[{"{", RowBox[{ "0.0028933594316978154`", ",", "0.033149123282389704`", ",", "0.0006221853159905052`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.0036855195248435657`"}], ",", "0.033651528227968894`", ",", "0.000794554879527744`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.010123104537173532`"}], ",", "0.03284433302700046`", ",", "0.0009360585984496851`"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.003425313859653206`", ",", RowBox[{"-", "0.11209401946226391`"}], ",", "0.0003915708409585586`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.026206992225560014`", ",", RowBox[{"-", "0.10787970787907247`"}], ",", RowBox[{"-", "0.0001354514845415592`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.04783171106084068`", ",", RowBox[{"-", "0.09892465884898738`"}], ",", RowBox[{"-", "0.0006563963646705076`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.067283661689536`", ",", RowBox[{"-", "0.0854888045723545`"}], ",", RowBox[{"-", "0.0011474840402788161`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.08359108542323897`", ",", RowBox[{"-", "0.06806585845626507`"}], ",", RowBox[{"-", "0.001584934845870796`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.09588611032432857`", ",", RowBox[{"-", "0.047382151830437834`"}], ",", RowBox[{"-", "0.001946321472297312`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.10347279015130684`", ",", RowBox[{"-", "0.024376543718260927`"}], ",", RowBox[{"-", "0.0022121663731977156`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.10588822295021692`", ",", RowBox[{"-", "0.0001556520203238983`"}], ",", RowBox[{"-", "0.002367500590165277`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.1029502256074082`", ",", "0.024071353755323176`", ",", RowBox[{"-", "0.0024032000090092316`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.09478449348581248`", ",", "0.047075804415801004`", ",", RowBox[{"-", "0.0023169327564393737`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.08181847425529723`", ",", "0.0676977558944933`", ",", RowBox[{"-", "0.002113408804820097`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.06474895658882651`", ",", "0.08492789180114722`", ",", RowBox[{"-", "0.0018039687539055218`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.044484085964485984`", ",", "0.09797317245697905`", ",", RowBox[{"-", "0.0014055893791574989`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.022069261719820123`", ",", "0.10629525737623798`", ",", RowBox[{"-", "0.0009393870887636273`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.0013872944549291506`"}], ",", "0.10962527431396414`", ",", RowBox[{"-", "0.00042898416992176756`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.02478596802736362`"}], ",", "0.10795373198902403`", ",", "0.00010107671172369074`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.04709298558816739`"}], ",", "0.10150294690838285`", ",", "0.0006267703489101223`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.06738245253774632`"}], ",", "0.09069235200677025`", ",", "0.001125663544581371`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.08486514269956055`"}], ",", "0.07609632279563219`", ",", "0.0015776999928619982`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.09890295504050178`"}], ",", "0.05840604845040623`", ",", "0.0019657453083662306`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.10901595057868341`"}], ",", "0.03839465243675783`", ",", "0.0022758309870254895`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.11488210015087083`"}], ",", "0.01688467497409201`", ",", "0.002497305335259655`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.1163340896848306`"}], ",", RowBox[{"-", "0.005275616041543834`"}], ",", "0.002622890947124009`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.11335491535445497`"}], ",", RowBox[{"-", "0.02723571220923547`"}], ",", "0.0026486255292520284`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.10607179733368104`"}], ",", RowBox[{"-", "0.04816219780444619`"}], ",", "0.0025738577040543887`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.09475269843658464`"}], ",", RowBox[{"-", "0.06725517428248914`"}], ",", "0.002401218338931483`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.07980069951941515`"}], ",", RowBox[{"-", "0.0837680711495612`"}], ",", "0.0021365622711953434`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.06174964350937831`"}], ",", RowBox[{"-", "0.09702517632013422`"}], ",", "0.001788985223247428`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.041258878379746795`"}], ",", RowBox[{"-", "0.10644326719326584`"}], ",", "0.0013707590009393443`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.019102478901099722`"}], ",", RowBox[{"-", "0.11155598610620804`"}], ",", "0.0008972071237251029`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.003842712893118769`", ",", RowBox[{"-", "0.11203903589386568`"}], ",", "0.00038655137314443165`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.026619291533329967`", ",", RowBox[{"-", "0.10773923666786625`"}], ",", RowBox[{"-", "0.00014047524194305247`"}]}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.1767509932885593`"}], ",", "0.08913305476760018`", ",", "0.005470777802743553`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.1939219081274369`"}], ",", "0.049030850914462444`", ",", "0.00685353830850728`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.20214041286584958`"}], ",", "0.0066720229681608584`", ",", "0.007920325372363696`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.2013426952991241`"}], ",", RowBox[{"-", "0.03598436583893062`"}], ",", "0.008634146302481311`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.1918648079789703`"}], ",", RowBox[{"-", "0.07709879906974972`"}], ",", "0.00897600136279727`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.17437479771196157`"}], ",", RowBox[{"-", "0.11501365032606499`"}], ",", "0.00894343210381939`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.14980703281293295`"}], ",", RowBox[{"-", "0.14829129148606637`"}], ",", "0.00854857805440708`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.11930462832926124`"}], ",", RowBox[{"-", "0.1757360539207178`"}], ",", "0.007816227142841891`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.08416690189589827`"}], ",", RowBox[{"-", "0.1964059485573389`"}], ",", "0.006781788186528688`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.045803750000306606`"}], ",", RowBox[{"-", "0.20961857086655286`"}], ",", "0.0054894971492291155`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.005695741501852068`"}], ",", RowBox[{"-", "0.21495012419685652`"}], ",", "0.003990784698533821`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.0346412463760298`", ",", RowBox[{"-", "0.21223427421734958`"}], ",", "0.0023428003156885854`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.07368577621423066`", ",", RowBox[{"-", "0.20155907402458917`"}], ",", "0.0006071939393959107`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.10994363773664494`", ",", RowBox[{"-", "0.18326556116563256`"}], ",", RowBox[{"-", "0.0011511244899403757`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.14198498220807954`", ",", RowBox[{"-", "0.1579530225093225`"}], ",", RowBox[{"-", "0.002865161325297588`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.16848413835477652`", ",", RowBox[{"-", "0.12648813878763887`"}], ",", RowBox[{"-", "0.004467365526116575`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.18825801903735045`", ",", RowBox[{"-", "0.08999935501984767`"}], ",", RowBox[{"-", "0.005891447841849764`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.2003171238057913`", ",", RowBox[{"-", "0.04985659840078069`"}], ",", RowBox[{"-", "0.007074445144610521`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.20392347682282033`", ",", RowBox[{"-", "0.0076474961262685956`"}], ",", RowBox[{"-", "0.007959280486206182`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.19864857699430213`", ",", "0.034857494429981116`", ",", RowBox[{"-", "0.008497708396479555`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.18443304989558462`", ",", "0.07575888663153904`", ",", RowBox[{"-", "0.008653744068349475`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.16164135919895697`", ",", "0.1131052905300514`", ",", RowBox[{"-", "0.008407282535974189`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.13109807183716263`", ",", "0.1449986573108724`", ",", RowBox[{"-", "0.007757425926795766`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.0940943999244753`", ",", "0.16972157418988798`", ",", RowBox[{"-", "0.006725019852493112`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.05234875796657404`", ",", "0.18587363163587847`", ",", RowBox[{"-", "0.005353519442291206`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.007918941527955739`", ",", "0.19249994194170264`", ",", RowBox[{"-", "0.003707770158312042`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.03693174414425373`"}], ",", "0.18918560031919524`", ",", RowBox[{"-", "0.001870377717815275`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.07989871231025368`"}], ",", "0.17610227112863053`", ",", "0.00006404486984373487`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.11880539821971145`"}], ",", "0.1539943645893048`", ",", "0.001995958846029123`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.1517578996331837`"}], ",", "0.12411042317942343`", ",", "0.003828332362316547`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.17726235766025664`"}], ",", "0.08809111860205518`", ",", "0.00547334515240071`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.19429521946876885`"}], ",", "0.04783008036952458`", ",", "0.006857465385125243`"}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.41991654566650266`", ",", RowBox[{"-", "0.08985477858952831`"}], ",", RowBox[{"-", "0.0057740707748573`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.4292614279491709`", ",", RowBox[{"-", "0.008209160173564888`"}], ",", RowBox[{"-", "0.005594131225501668`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.421939320475291`", ",", "0.07374485232420964`", ",", RowBox[{"-", "0.005196104423282562`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.3983263916756385`", ",", "0.15266136749347714`", ",", RowBox[{"-", "0.004597625390487293`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.3593274734869463`", ",", "0.22559442562027684`", ",", RowBox[{"-", "0.0038241553432037203`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.30610039834856173`", ",", "0.2897455303245213`", ",", RowBox[{"-", "0.0029009888940285003`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.24026895970518572`", ",", "0.34220586384058443`", ",", RowBox[{"-", "0.0018562483963998628`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.16438080403713945`", ",", "0.3802485040914198`", ",", RowBox[{"-", "0.0007317078012132944`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.08164148817482213`", ",", "0.4019546600903354`", ",", "0.0004212264634714897`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.004568713800739622`"}], ",", "0.406108669203574`", ",", "0.0015529825580478142`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.09069674129897795`"}], ",", "0.3919692933218311`", ",", "0.002617286533024451`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.17269117015117974`"}], ",", "0.3593984482657421`", ",", "0.0035629807614101713`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.2462521633791099`"}], ",", "0.30949599208049755`", ",", "0.0043354419593675635`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.3075761986852153`"}], ",", "0.2445571015201515`", ",", "0.00489154100155145`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.35362806749994075`"}], ",", "0.16760634353746176`", ",", "0.005204833823201731`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.38198586469707335`"}], ",", "0.08211770154625546`", ",", "0.005259710785301115`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.39086237648641026`"}], ",", RowBox[{"-", "0.007693029308319606`"}], ",", "0.00504689909125479`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.3797502635898888`"}], ",", RowBox[{"-", "0.09705732502469117`"}], ",", "0.0045749321363304325`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.3495821069233814`"}], ",", RowBox[{"-", "0.18136685135222286`"}], ",", "0.0038738118242557396`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.30228962052428654`"}], ",", RowBox[{"-", "0.25673849524135123`"}], ",", "0.0029861455407652338`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.2402881529008695`"}], ",", RowBox[{"-", "0.3198689586958449`"}], ",", "0.0019543351991827287`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.16669795512178084`"}], ",", RowBox[{"-", "0.3678818324032308`"}], ",", "0.0008257268360829881`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.08535351695121776`"}], ",", RowBox[{"-", "0.3987793174149887`"}], ",", RowBox[{"-", "0.00034334123645268663`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.00034180572135376815`"}], ",", RowBox[{"-", "0.4117915354249154`"}], ",", RowBox[{"-", "0.0014941989801534863`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.08466897376271725`", ",", RowBox[{"-", "0.40708991583514303`"}], ",", RowBox[{"-", "0.0025793543989490295`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.1662962395489042`", ",", RowBox[{"-", "0.385238061437207`"}], ",", RowBox[{"-", "0.003559882785934575`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.24117842175452944`", ",", RowBox[{"-", "0.34735053633038004`"}], ",", RowBox[{"-", "0.004397087980951195`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.3061995603922347`", ",", RowBox[{"-", "0.29535706076861884`"}], ",", RowBox[{"-", "0.005054711437587685`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.3590195684720579`", ",", RowBox[{"-", "0.2318572607661468`"}], ",", RowBox[{"-", "0.00550980590649131`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.39800757626438077`", ",", RowBox[{"-", "0.15945603564980906`"}], ",", RowBox[{"-", "0.005753065031443838`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.4217910695774141`", ",", RowBox[{"-", "0.0808042415757155`"}], ",", RowBox[{"-", "0.005778080100684685`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.4292831266938845`", ",", "0.0010839455248505725`", ",", RowBox[{"-", "0.0055798215127874475`"}]}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"0.5022804397340372`", ",", RowBox[{"-", "0.3998989392318576`"}], ",", RowBox[{"-", "0.0033092129133169357`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.5739651099002762`", ",", RowBox[{"-", "0.28486845310081554`"}], ",", RowBox[{"-", "0.007305081649157803`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.6200379085562843`", ",", RowBox[{"-", "0.15749955179014594`"}], ",", RowBox[{"-", "0.01097583215037533`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.6384220556985868`", ",", RowBox[{"-", "0.022623279754918048`"}], ",", RowBox[{"-", "0.014162313995557705`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.627758033134215`", ",", "0.11293121698369289`", ",", RowBox[{"-", "0.01670667220543709`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.5889675949481434`", ",", "0.24360391014565286`", ",", RowBox[{"-", "0.018507084166537284`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.5231742566001394`", ",", "0.36295615109574314`", ",", RowBox[{"-", "0.0194680371260479`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.43409184360438774`", ",", "0.46597257134923725`", ",", RowBox[{"-", "0.01956595054867442`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.32489579219896375`", ",", "0.5478560372923431`", ",", RowBox[{"-", "0.018776545178577075`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.20131400603024285`", ",", "0.6048585691641402`", ",", RowBox[{"-", "0.017151796886431845`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.06816761429449843`", ",", "0.634585880240272`", ",", RowBox[{"-", "0.014748135703563377`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.06771013176082807`"}], ",", "0.6353450026506678`", ",", RowBox[{"-", "0.01169225605793382`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.20075360905435352`"}], ",", "0.6078213492616908`", ",", RowBox[{"-", "0.008115217997992566`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.32458103680147854`"}], ",", "0.5527666785289416`", ",", RowBox[{"-", "0.004185539576269829`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.43409322642296455`"}], ",", "0.4735306375644801`", ",", RowBox[{"-", "0.0000724445137674542`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.5244260750610722`"}], ",", "0.37288111642881094`", ",", "0.0040459825177800186`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.5915853328084442`"}], ",", "0.25612043086031017`", ",", "0.007984092482837159`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.6329108819315672`"}], ",", "0.12770138372384734`", ",", "0.0115773202770525`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.6463069700996701`"}], ",", RowBox[{"-", "0.0059361163322215246`"}], ",", "0.014658605090960496`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.631941585552413`"}], ",", RowBox[{"-", "0.13952211942401946`"}], ",", "0.01711512553865849`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.5898905088650587`"}], ",", RowBox[{"-", "0.26686760715857966`"}], ",", "0.01882950522211759`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.5227974272344834`"}], ",", RowBox[{"-", "0.3828336206590268`"}], ",", "0.019749880589513245`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.4326915503681497`"}], ",", RowBox[{"-", "0.48235060645339745`"}], ",", "0.019816830818488545`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.3242560535323657`"}], ",", RowBox[{"-", "0.5609501752480982`"}], ",", "0.019043395165321008`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.2014376962219814`"}], ",", RowBox[{"-", "0.615460136634381`"}], ",", "0.01744788298109192`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.07027461833170864`"}], ",", RowBox[{"-", "0.6430466214291839`"}], ",", "0.015113560052776111`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.06411302898775088`", ",", RowBox[{"-", "0.643109574894418`"}], ",", "0.012131349282181625`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.19554670473344715`", ",", RowBox[{"-", "0.6148774637491979`"}], ",", "0.008631321820927521`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.3185665223501171`", ",", RowBox[{"-", "0.5601900046755939`"}], ",", "0.004757841465407704`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.4276410700347191`", ",", RowBox[{"-", "0.4804309046070972`"}], ",", "0.0006748376057555084`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.5176743102289475`", ",", RowBox[{"-", "0.37979326412419906`"}], ",", RowBox[{"-", "0.003430757184288869`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.5848483526606784`", ",", RowBox[{"-", "0.2619334057327558`"}], ",", RowBox[{"-", "0.0073866592954839865`"}]}], "}"}]}], "}"}], "]"}], ",", RowBox[{"Line", "[", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"-", "0.023332639783457426`"}], ",", RowBox[{"-", "0.6662572034428715`"}], ",", "0.0757813755405787`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.18038738720708028`", ",", RowBox[{"-", "0.683180527569651`"}], ",", "0.018329305497437685`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.3714290042386827`", ",", RowBox[{"-", "0.6493138313727469`"}], ",", RowBox[{"-", "0.040614884719076434`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.5393086532379905`", ",", RowBox[{"-", "0.5749748496670667`"}], ",", RowBox[{"-", "0.09711902171470624`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.6789139403191737`", ",", RowBox[{"-", "0.4702169037710882`"}], ",", RowBox[{"-", "0.14859613362718674`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.7887948525114844`", ",", RowBox[{"-", "0.3442510640027728`"}], ",", RowBox[{"-", "0.19351786121666753`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.8684513360129594`", ",", RowBox[{"-", "0.20511306500826487`"}], ",", RowBox[{"-", "0.23104901681786655`"}]}], "}"}], ",", RowBox[{"{", RowBox[{"0.9185373522881354`", ",", RowBox[{"-", "0.05894895483900014`"}], ",", RowBox[{"-", "0.2608135826582776`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.9412852808070055`", ",", "0.0891807338649362`", ",", RowBox[{"-", "0.28275233092190033`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.9384704896943517`", ",", "0.23480879194605936`", ",", RowBox[{"-", "0.29695774818446746`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.9113832752082829`", ",", "0.3744982264431981`", ",", RowBox[{"-", "0.3036000387870586`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.8623855046515941`", ",", "0.5053490964627558`", ",", RowBox[{"-", "0.30294666938300835`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.7942188786579459`", ",", "0.6239570990315267`", ",", RowBox[{"-", "0.2952672237723135`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.7090883614096066`", ",", "0.7273977292735115`", ",", RowBox[{"-", "0.2809061153038499`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.6069706604007896`", ",", "0.8158611226553047`", ",", RowBox[{"-", "0.2610744916740798`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.4924081501248906`", ",", "0.8854806442979761`", ",", RowBox[{"-", "0.23544406985392846`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.3667867203815488`", ",", "0.9347802333585286`", ",", RowBox[{"-", "0.20339922560978796`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.22977667748131467`", ",", "0.962420435653885`", ",", RowBox[{"-", "0.16611343555454347`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ "0.08653482164096146`", ",", "0.964736837504517`", ",", RowBox[{"-", "0.1251214121621586`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.05771188813538349`"}], ",", "0.9392504213523221`", ",", RowBox[{"-", "0.08094272534640387`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.1997066566246379`"}], ",", "0.8848112938230178`", ",", RowBox[{"-", "0.03376809648466872`"}]}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.33554339867919625`"}], ",", "0.7994120320189454`", ",", "0.014952298425584582`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.45793798403975616`"}], ",", "0.6811142481587334`", ",", "0.06260879375292216`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.5581613290095818`"}], ",", "0.5309519913536592`", ",", "0.10681506543922323`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.6267075221987873`"}], ",", "0.3523820876730281`", ",", "0.1453421957979398`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.6535821077331719`"}], ",", "0.1501715692293066`", ",", "0.1745992870446224`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.6291156526959137`"}], ",", RowBox[{"-", "0.0644262004448948`"}], ",", "0.18969442999874847`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.5479330202866108`"}], ",", RowBox[{"-", "0.27196435228358146`"}], ",", "0.1871343805849281`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.41256430871026384`"}], ",", RowBox[{"-", "0.45170017566529225`"}], ",", "0.1663719895637233`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.2347595876671507`"}], ",", RowBox[{"-", "0.5861595702231736`"}], ",", "0.12909981483615468`"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"-", "0.03355560524615846`"}], ",", RowBox[{"-", "0.6638641520997522`"}], ",", "0.07881420481665341`"}], "}"}], ",", RowBox[{"{", RowBox[{"0.17046453668846262`", ",", RowBox[{"-", "0.6834362138510742`"}], ",", "0.02114092982331367`"}], "}"}]}], "}"}], "]"}]}], "}"}]}], ";"}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, InitializationCell->True, CellChangeTimes->{{3.436289537779415*^9, 3.4362895422738643`*^9}, { 3.43629008728836*^9, 3.4362900895235834`*^9}, 3.760819188190353*^9}, CellID->538129390], Cell[BoxData[ RowBox[{"Manipulate", "[", " ", RowBox[{ RowBox[{"With", "[", RowBox[{ RowBox[{"{", RowBox[{ RowBox[{"r", "=", "0.012"}], ",", RowBox[{"data", "=", RowBox[{ RowBox[{ RowBox[{"dat", "[", RowBox[{ RowBox[{"DatePlus", "[", RowBox[{ RowBox[{"{", "y", "}"}], ",", RowBox[{"{", RowBox[{"d", ",", "\"\\""}], "}"}]}], "]"}], ",", "#"}], "]"}], "&"}], "/@", RowBox[{"Range", "[", "9", "]"}]}]}]}], "}"}], ",", " ", RowBox[{"Graphics3D", "[", RowBox[{ RowBox[{"{", RowBox[{"paths", ",", RowBox[{ RowBox[{ RowBox[{"Sphere", "[", RowBox[{"#", ",", RowBox[{"Scaled", "[", "r", "]"}]}], "]"}], "&"}], "/@", "data"}], ",", RowBox[{"{", RowBox[{"Yellow", ",", RowBox[{"Sphere", "[", RowBox[{ RowBox[{"{", RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", RowBox[{"Scaled", "[", RowBox[{"1.5", "r"}], "]"}]}], "]"}]}], "}"}]}], "}"}], ",", RowBox[{"PlotRange", "->", RowBox[{"Exp", "[", RowBox[{"4.5", RowBox[{"(", RowBox[{"z", "-", "1"}], ")"}]}], "]"}]}], ",", RowBox[{"ImageSize", "->", RowBox[{"{", RowBox[{"400", ",", "400"}], "}"}]}], ",", RowBox[{"PlotLabel", "->", RowBox[{"DateString", "[", RowBox[{ RowBox[{"DatePlus", "[", RowBox[{ RowBox[{"{", "y", "}"}], ",", RowBox[{"{", RowBox[{"d", ",", "\"\\""}], "}"}]}], "]"}], ",", RowBox[{"{", RowBox[{ "\"\\"", ",", "\"\< \>\"", ",", "\"\\"", ",", "\"\<, \>\"", ",", "\"\\""}], "}"}]}], "]"}]}], ",", RowBox[{"SphericalRegion", "->", "True"}]}], "]"}]}], "]"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"d", ",", "0", ",", "\"\\""}], "}"}], ",", "0", ",", "1", ",", RowBox[{"ControlType", "->", "Slider"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"y", ",", "2008", ",", "\"\\""}], "}"}], ",", "2008", ",", RowBox[{"2008", "+", "200"}], ",", "1", ",", RowBox[{"ControlType", "->", "Slider"}]}], "}"}], ",", " ", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"z", ",", "1", ",", "\"\\""}], "}"}], ",", "0", ",", "1"}], "}"}], ",", RowBox[{"SaveDefinitions", "->", "True"}], ",", RowBox[{"SynchronousUpdating", "->", "False"}]}], "]"}]], "Input", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellChangeTimes->{ 3.35696210375764*^9, 3.4362904220308313`*^9, { 3.4362905797335997`*^9, 3.4362905841020365`*^9}, { 3.436291044537879*^9, 3.4362911412175455`*^9}, { 3.43655723577982*^9, 3.43655724118607*^9}, {3.43655744515482*^9, 3.43655744602982*^9}, {3.437169369421875*^9, 3.437169385390625*^9}, {3.437169460328125*^9, 3.437169460484375*^9}, 3.760819188182301*^9}], Cell[BoxData[ TagBox[ StyleBox[ DynamicModuleBox[{$CellContext`d$$ = 0, $CellContext`y$$ = 2008, $CellContext`z$$ = 1, Typeset`show$$ = True, Typeset`bookmarkList$$ = {}, Typeset`bookmarkMode$$ = "Menu", Typeset`animator$$, Typeset`animvar$$ = 1, Typeset`name$$ = "\"untitled\"", Typeset`specs$$ = {{{ Hold[$CellContext`d$$], 0, "date"}, 0, 1}, {{ Hold[$CellContext`y$$], 2008, "year"}, 2008, 2208, 1}, {{ Hold[$CellContext`z$$], 1, "plot scale"}, 0, 1}}, Typeset`size$$ = {400., {198., 202.}}, Typeset`update$$ = 0, Typeset`initDone$$, Typeset`skipInitDone$$ = False, $CellContext`d$852726$$ = 0, $CellContext`y$852727$$ = 0, $CellContext`z$852728$$ = 0}, DynamicBox[Manipulate`ManipulateBoxes[ 1, StandardForm, "Variables" :> {$CellContext`d$$ = 0, $CellContext`y$$ = 2008, $CellContext`z$$ = 1}, "ControllerVariables" :> { Hold[$CellContext`d$$, $CellContext`d$852726$$, 0], Hold[$CellContext`y$$, $CellContext`y$852727$$, 0], Hold[$CellContext`z$$, $CellContext`z$852728$$, 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" :> With[{$CellContext`r$ = 0.012, $CellContext`data$ = Map[$CellContext`dat[ DatePlus[{$CellContext`y$$}, {$CellContext`d$$, "Year"}], #]& , Range[9]]}, Graphics3D[{$CellContext`paths, Map[Sphere[#, Scaled[$CellContext`r$]]& , $CellContext`data$], { Yellow, Sphere[{0, 0, 0}, Scaled[1.5 $CellContext`r$]]}}, PlotRange -> Exp[4.5 ($CellContext`z$$ - 1)], ImageSize -> {400, 400}, PlotLabel -> DateString[ DatePlus[{$CellContext`y$$}, {$CellContext`d$$, "Year"}], { "DayShort", " ", "MonthName", ", ", "Year"}], SphericalRegion -> True]], "Specifications" :> {{{$CellContext`d$$, 0, "date"}, 0, 1, ControlType -> Slider}, {{$CellContext`y$$, 2008, "year"}, 2008, 2208, 1, ControlType -> Slider}, {{$CellContext`z$$, 1, "plot scale"}, 0, 1}}, "Options" :> {SynchronousUpdating -> False}, "DefaultOptions" :> {ControllerLinking -> True}], ImageSizeCache->{445., {270., 276.}}, SingleEvaluation->True], Deinitialization:>None, DynamicModuleValues:>{}, Initialization:>({$CellContext`dat[ Pattern[$CellContext`t, Blank[]], Pattern[$CellContext`n, Blank[]]] := With[{$CellContext`raw = AstronomicalData[ AstronomicalData[$CellContext`n], { "Position", $CellContext`t}]}, Map[#/(7 10^12)& , $CellContext`raw]], $CellContext`paths = { Line[CompressedData[" 1:eJwBEQPu/CFib1JlAgAAACAAAAADAAAAb8HpTUgudz8T+CoI68t8v7K4ba5Y 6lG/+TvZUhHzej8RqAa3t3V3v9BeFBiBj1G/7M5XaBu7fT9M0BPJ+URxv2Ig 0Gh0kFC/ij64UkRKfz9T7nUEYMBkv0sFjb1Ix02/3mSUHmZjfz/5GfYH5gpI v0RukesAC0m/654HONvOfT9Ur2k27BBSP24Iqvh1+UK/9VD4PUpmej/tg1w7 LYBnPxDhGgmtfze/LHlD8yQmdT/feUr/ySZyP3nrNi2ysx2/wl324gWCbD9T d8wuqyB3P0TP+xYkaiI/Rina6SOpWD80E1dxlyd6P336Y0yaDTk/vcInhymn Q79eCKVHXut6Pz6YIdOlXUM/Q/R9lgTBZb9oUIs+Gml5P6g5EPfqkkg/FOrC jqpzcr+vhbtmfeZ1P6mK/KzQ2ks/LuSOtsO7eL+xj5PsTNZwP7FEpcfsK00/ MZFeyPZ8fb+QCQZIL3FlP6zPL3XFrUw/IvOWGMJTgL/LQc/j8RFQP/PQDRN5 oko/dzQZSm4kgb/NvhxxcQ9Hv8pHLa8yVUc/9qi6mno/gb+d+qQ6mFZjv5nF H+G9D0M/LYkyR9G3gL+CZROsnxpwv0I+v51pKzw/w+1CPXZDf79Iz/HxsgF2 vwZZD00iRjE/u1Q+OQ0jfL+rTlvxnz17vwPWC/6fYxc/CPrHsOA1eL8II9Y1 8rN/v9yPUWvQ/ha/XpBXf/ehc78T0kJNOqiBv0pfl9BnMTG/07pOFSsYbb+I VXkfzAGDvyOeZcTUMTy/JUArPGIwYr/sN0wPreCDvzmTEqA1PkO//KGQJIZQ S79kj95sSECEvxMx7c5M6Ee/K1vQ9ObPQj/J+ZRWSh2Evybb/nMl+Eu/fsCa 16scYD8quBKNnnWDv8NCIZNcT0+/om6z51UWaz+NRAsjnUiCv9+QgTLo51C/ EqC1MZylcj96FVL1bZeAv/9G9ae9rVG/sq8ymd4udz8RbjhKZct8v5t5h0lY 6lG/NeKK5o3zej83SzhmHHV3v3xERSp6j1G/J/1xuA== "]], Line[CompressedData[" 1:eJwB+QIG/SFib1JlAgAAAB8AAAADAAAAwR2IuF9oj78QCk6YDnpQv95K6Vs8 kUw/3Oa8TYdSjr8xgtLN4Dhxv6H4fF3KI0o/72wbb1bmi78YuFWX5pB9v8PY zyU5j0Y/j7iyAmNAiL/LBU6IRU6Ev4uznEzz/EE/B8dIaNOKg7/CrRmqvvCI v2igmuFqQjk/buVYCZn2e7+9/ZJYIX2Mv7lxUv5Z4io/TQo15MJBb78BPiml IM2Ov6zOF1PhqPA+eJSXECTxRL/uLYOaTsiPv1J0XgZWzya/dbRdlhUDZT8f M/eJ7mSPvzLLXJcqXDe/D5jehLMtdz+06DF8LKiNv3DLLnDdJ0G/pyK2pa9t gT9+r4AjwKWKv/zDQDhI5UW/j7VdNFmFhj9VYQnJBH+Gvw+JwAeIskm/rwOt fASmij+sp+oMkmGBvzCoXQf2ZUy/1PrJ7jmijT/lYcKxxQp3vzur0gm+4U2/ xIk627lYjz+1VNMiZKpkv3xo2xYbFU6/G8XmUem1jz/vU8DVIJFGP+y19NUZ /Uy/2GEbxb+0jj+bmMvFdrRvPw3mfIzXpEq/Q9e1TyhfjD+fpS8VejJ8P5ZT Ph42JUe/2N9j7svNiD90lX1wZKiDP4swsHwApEK/MtlMnD0nhD+kCO7Fy1uI P5OeWLH+pDq/lvOcbw09fT8qaxcTxf2LP0MUsYMPri2/+YVI2jLicD92hywS RGSOP8e6RSlZDwO/onqSSnxDTj+SXuOg8nKPPyHwfsseXCQ/QwixYmD4Yr+X EjoesByPP7pGtr5uSjY/6cUo+s9Udr/HTuw3X2SNPzVOUo+LtEA/l5twXWMX gb8Ogk5b7lyKPy5SowtkhUU/5SOGzkVBhr8hTf2/kiiGPzeQdT6WYEk/09fC thNtir9zE/69O/eAPwN9D8cQGkw/IAbpC2Vrjb+PZWI3pAh2P5WaZYPykk0/ e3FZ2pgaj78VfFGdj09iPyKy7db1uk0/rNN0E1Noj79g3ef9xIRQv9OnGg8d kUw/RzJsIw== "]], Line[CompressedData[" 1:eJwBEQPu/CFib1JlAgAAACAAAAADAAAAnLE6yg5wbr+GXb2T4y2VP8PWxrpj pGg+YmG6+02KgL9TC2Wu5N6TP3/3tYADZVm+LPAiMcy0iL87K3kIOKaRP7LE TjG20VQ+AnP26Ou+j79uFkbTtT2NP4O377XqA1c+p55qG+Wqkr9vsVGW49iF PxqJV/TthlS+zH9ND2OelL/O+QVrBfB6P8oFtavhWm8+hUqZxOiklb8FTjiN oOthP/9Hnj+v/mi+VFilXvy0lb8URfmKG9BivzAlySMNe3I+rSHBstrQlL+b ckNvnF57v9fritjBc2q+hpxQOh4Ek79r8GisUxGGv36TfmFQp2w+aEmmlRxm kL/Tn0FIa4CNv8iQl+Qp9V6+mcaE40Ioir9P3W32k9aRv455DR0SIlY+O2ZI iPRpgr94egkubSuUv+188l2CU8M9tpzEGKfIc7+mYWBdpqeVv6eXdCvow1e+ LrFl6MquPr9mHxSDhTuWv1pficQ8F10+aS5k6e0HcD8kxX/T5uKVv42Kv+GM n3C+IopgJDWogD+RvS/RhaCUv2RHxdb1+mc+RI4Nu1GaiD8t0LYW8IKSv1QH 10+WbnS+epaJOIGGjz/ex4/eQj6Pv6RPdrr5imY+Q0t1E4aPkj+rVH3w8CeI v85sS1q3ym6+LFI7KvSTlD8eJs/gsgyAv/rys0PYcVE+OovV3rG3lT8j/hv8 HAptv3NuPis3Y1C+xlAiA2PtlT+udJSdkWdNPxhxFITHlFK+pd+0lGUvlT9S p66sAbh1P4rB7QRxI2A+e7UAfhyEkz+fB4F/UmaDPxf4uRnH8WS+X16TDNL7 kD/J1D2LExaLP1fuCwY8JXE+7JzShhBiiz/7Y5zmTMeQP93cxMg/kWW+xrer 4mmRgz/riFNYVUKTP2rcn6oevXU+1sv21S+4dT9lwJuCBt2UP3OEDXXYgFO+ HVibWQ6SSj8k0Ko6s4OVP61683rCRnQ+CZTHI3d6br++E/Pazi2VP3gEoYnN nlU+phHyYo+LgL/FzpWNaN6TP8sunw1tEGc+D8CGhA== "]], Line[CompressedData[" 1:eJwBEQPu/CFib1JlAgAAACAAAAADAAAAgs/QTgoKbr/kq3L0rjqhPzEL5QQ2 Bko/qNOm0DmyhL/tzroTW9GgP82A+rTRqU4/LdXxnOCOkL/IHr+pt4+fP4Hx 8XXiFFE/pQyoyDUtlr9S5AM5W1ucP1GTtbBoOFI/s/qsa4UGm78huEXIrSqY P9A//SzyuVI/a6O4lqb0nr8NxIawfyeTPxt4dhF5mFI/CdIGu0fsoL+0fAA4 Cv+KP20POncR11E/Yf1U4BTNob/6XdLYK499PxplaVKqfFA/UuyqDjAUor9y vWP1DYZQP/bbzcPsJ00/jy27CLm8ob/okLW+kG91v5a+9+3wVkg/T3bG3MzF oL+5sR+NXx+HvwM4mnlZq0I/MdcV0whmnr+HgYufoleRvxBMG7sYpTg/m1UV Wjcamr8+FgwpJneWvxc2Hx1jCyY/RGGqSm7FlL9z74Sp1bGavyCRkxx1RAi/ LFvxxbwkjb92EegRvM2dv9w5Oyve9DC/Y75H967pfr8gLZXWoJafv7ulE1X3 Hj6/kE/9e9zDQL+c8ZgmguKfv37yRAcz7kS/z6SMRwrQej/f/QB7EZeev0/W x3rcwEm/eNYxVwEmiz9nVfocka+bv5/V5Cb2N02/t2tMHuOxkz8CRK1P3EGX v59aUUKkEk+/Yk8nfdawmD9J2PWV8ICRv9lh6hiYJ0+/INIGnLM/nD8AMELs xXaFv52HK6ZSbE2/6YhQ0ponnj8NlnK1uahqv/5t96p9+Em/sdMcUSBRnj+Y bLQyjwtxP1Os48n9A0W/i/7DC3nFnD9RrurpDzyHPxT0zecYwD2/XmALbL6q mT/1F2hp3liSP/J2m17ttC+/P3cDWNo8lT/WCI8dVCKYP935zLv2HvK+40z5 QoaKjz9cDxR7Lr+cP/HmDbUaTSs/2w53srYmgz/mawsPFAWgPxPXMFAe0Ds/ YpZPhNCzZz+dIscA7PigP94RyMpEY0Q/V8B+Ohgxbr8OK2bqxTqhP3U0eZw1 CUo/poNeF2y7hL/4d2vw+NCgP5s3o4g6rE4/BZx+uQ== "]], Line[CompressedData[" 1:eJwBEQPu/CFib1JlAgAAACAAAAADAAAAWRIvYGcPbD+O6KqTMbK8v9xhu/R3 qTk/ZCckegHWmj9MHj4pAZ67v7CEgWT/wCG/6qFv5WV9qD9QPIZeIFO5v5JL sXVAgkW/zv2ChoA5sT9O+c8jmOK1vxJVPpvlzFK/pUQhsjlmtT8FOAucw2yx v+1YE9Wy91m/x8/7+/2LuD+DOg0xeUKov3qVi8R241+/sMm5WTF9uj8h3zwo KvaYv4z9PMc/H2K/D02aln0buz+LRXes0GYkv4vndDMCZWO/AYIZLPJauj82 Jpk0KaaYP3/dOC7gr2O/ZYKw68tDuD/4KczgURqoP7hdT831+mK/MpciNw7y tD8tVpTfo1SxP6GaZLYjUGG/OMf/OmOTsD8H3c2V1b21P7QTRLNkjl2/BuHR PJ7Gpj9DjZYTxRS5P47GkBp4B1e/935VFVOZlj/FnSZ+Kja7PzcEimkmyE6/ UAAWFLy6Vr9VVv7nZhC8Pzn49fooHTy/9RRPKH5hmb/wvl8U26K7P4SpWa8k fxo/WcHxYZIcqL8ETGvdGPy5PwU0SRO7iUQ/B1H59fk/sb9GzN0tnTe3P9vE DgdgcVI/Tgl31Li5tb8iy8BxDHuzP+vO0nda2Vk/THBgPbRRub8UV/fHZeet P+pu+Xl3GmA/8FB6Jnjou79JRB3BdqijP3LMInXDpGI/njULz+lovb8u7kRb N0qRP3gzx5c6dWQ/DzWbJhLIvb+fvtVl4pt1v0UK2NqZfGU/mMlJ5tMEvb+8 QuO0reObv9Yu4QCSsmU/S3uTdIUnu7//ePIwt6iovw0oO1XFFWU/eS3+fLZB uL++sgeWojexvw5+j0e4q2M/cEGiktFttL9QTwkG03G1v2uylCKygGE/JCvT Nqadr78SAS9XpNa4v8NRuEGMT10/CQ6fOuIfpb+jdnmv3T+7v71UGkVhdVY/ XmucqJmPk78sy//f7o68vzmUh6BRZk0/+gqGxsB6bz8yHgobl668vw5NgYFB VTk/3DhQahZCmz+CB/xxzJS7v12w3CORaSK/nL17tw== "]], Line[CompressedData[" 1:eJwBEQPu/CFib1JlAgAAACAAAAADAAAARt3ay8afxr/jKziDbNG2P6WG8buG aHY/I1Cx3m7SyL/tZ1hakhqpP87KWa50Enw/s7g6r7zfyb+igCSHH1R7Px13 lROIOIA/1ZLM8ZjFyb9xGeT0imyiv5f6+3/HroE/k/HCqQaPyL9ZwZA0v7yz v22haoICYoI/3rG10ulRxr+teL7aiHG9vyv/MiPvUII/ZDhSeeAsw7/RbJuD NfvCv6orXrnqgYE/R4TvhL+Kvr9RpijehH7Gv/Mkpz/0AYA/CWwMS/aLtb+i leWC1CPJvzs8g2c4x3s/BiqS0JZzp7/7x0AFyNTKv6WHo6snfHY/pXuh92pU d79nK9lUfIPLv8vQPxykWHA/KzKOWH+8oT+6SW0hfirLvzAFlVc1MWM/Lz8F LxLdsj9Q5pIPsMzJv2AoVw6D5UM/7257KEQlvD/dQNjzPnXHvx1CbYIq3FK/ DK2NW5Aswj+jrv38zTfEvybNE8ateGe/1XIQZOOQxT9wYLZpwzDAv2jaV01f THK/OtJ8udYYyD+vqXieMgq3v0/L6HyhIXi/Wo7J0/2jyT+MCD7XzYapv/UA iegX+ny/rZnrGyoayj+PRCMc+1J/v7aDGov0TIC/EzLLClFtyT+DzTFt19ih PzsIOx0/Z4G/eDHNjoCbxz+uvXY072SzPyuVF94NuYG/mWK4/6mwxD8zxtTj d/S8P+tpUlzWN4G/ofyNVdLHwD8Zm47lUI/CP6P3gSpAxn+/1pBpEpIWuD9M HUnBb7nFPytzTcWxi3u/ZMLn1nTNqj/5TIgItcrHP2IvxW6S7XW/G1MNV843 gD+xjY+N1qPIPx3rRfLBX26/c0+Rsrfoor96Xh/XOzfIP86LRMjupF6/D3Rd 9D10tL902J/rhIrGPx/PXnz6yRA/fiHx0wdqvr9r9dZbFrbDPzWv+D7UWWA/ Osbqh81sw7/f+aVgs8W/P2x2a0mYXG8/Wzh7boiwxr8ewXa5I422P/NV3uY3 a3Y/wZmxbqreyL95gectL32oPx9EANmSFnw/cH2WQw== "]], Line[CompressedData[" 1:eJwBEQPu/CFib1JlAgAAACAAAAADAAAAffarpenf2j+ibG4HuQC3vzXqSFKN pne/9HWe7AR52z/G4cjT9s+Av/jmmyrf6Xa/I5+Vxw0B2z+tF/tQ8eCyP4iZ CKmCSHW//1pY+i1+2T+woV9eaIrDP7T7D6v11HK/RZHLqDj/1j+feBk0R+DM P1XGSMTVU2+//MYMICaX0z/U+znWMIvSP2cRoY3Qw2e/Wb8WHiLBzj+bdmxs s+bVPwN2+ImraV6/XgC3IG4KxT+LPFvS/VXYPznCyIkC+ke/Wye14XTmtD+0 BOQJoLnZP7CMg+IBmzs/Z02+xaS2cr/gfTY3r/3ZPxCkE1OucVk/Np670eY3 t7+tn/ZfBhbZP3gFCQLZcGU/oLsNiL4axr9qNWJZYgDXPzDOFrscMG0/zykk 3jCFz7/bpA5HyM7TPyz23VYKwnE/RWKYFFSv078XTYSopU3PP50uDwonCXQ/ Bwk3nteh1r+hOgzqH3TFP6sI1PCpUXU/ISAa13Ry2L/bWJBqqgW1P67W8tw0 i3U//70PoeMD2b97GpXUuYJ/v5G/sKgOrHQ/WwWxDNRN2L+Ee9G0v9i4vwvn gv4pvXI/NSwgoY1f1r/4cZFrBzfHvyS7EuP4u28/ppyEkLZY078N5StMZ27Q v8CwCa5mdmg/ZakpH8PBzr+vqyanu3jUv8NYgriJAmA/n3DHzFtWxb82ub09 YIvXv1Dp0eCyDks/mnDnY7rZtb/PlqevmYXZv+tTxmFPgDa/8Z4RZYxmNr9W 21riylrav3fyOPAfe1i/+/dLqd2stT/zxcLcwg3av5mWOVlMIWW/vrgn9zFJ xT8HBsOKvafYvzHzlISdKW2/eeL3PO/ezj/mXnK+/TrWvxePNlGuAnK/WMp7 CsaY0z+zNSlNIefSv0jhCsU/tHS/kYlNNi361j/VVSqsf63Nvwaez0JzkXa/ TmjnxPR42T/FAyItDmnEv7PIlqKGkHe/VBxl+J/+2j++HvI2lq+0v23IDpHB qne/r/1371952z/SuxylZcJRP22Xo+7d2na/vkWZzg== "]], Line[CompressedData[" 1:eJwBEQPu/CFib1JlAgAAACAAAAADAAAAhoDCba4S4D/KLW248ZfZv5JPnyfs G2u/qyICFOxd4j8qum7kSDvSvyGicezu632/f/FwvVnX4z8LYwkA8ijEv7nX DkF/eoa/G6hIF/Rt5D/a2LOajiqXv9KkkpshAY2/jJvDA5gW5D//dqRrD+m8 P+BH/cqNG5G/+JfWkdLY4j8wbKC1aS7PP+5Y9WSF85K/YJ1G8Ne94D/ppbVv rDrXPxNCGNtt75O/sW/vJynI2z/DyrGeftLdP+sH47YYCZS/XZCGuBfL1D/S xmJiCYjhP0A65Z0oOpO/vDUQSKjEyT+ifahbAFvjPzmJx5o9kJG/7YwKym5z sT+2VEQMh07kP8SwMERFNI6/iEaFgXNVsb8N+QELv1TkP5cPFQsc8oe/JqG4 VEuyyb8+dxzCRXPjP9XWNR+2noC/MLR9iu/F1L8QNtO+Q7DhP0QBijnbJHG/ Xra59C7I278IlX9yU07ePy8JBkWr/RK/gdIxMRnI4L++5BbCSN3XP6I9gSmF knA/0JMmXUTu4r8/epjyRmTQP4Hy0MD2WYA/FLdlUs5A5L89ul/ZhFjAP0PZ uJ/ZtYc/aSh49Iuu5L/GvDEYeFB4v3nmw6tUBY4/j8Jdj9045L+fVP9d3NvB v2ln0qGghpE/rXp5D2Lg4r9t50bfWxTRv+byg7QKSJM/I/aMq8G64L/siyKW WIDYv+lt7QxQOZQ/JY2F5jex2782FPsT1d7ev0tkGgHdSpQ/9+VcdpzA1L+b CCzITfPhvzNqwp0cgJM/NT263rXIyb9yw9p02bHjv2YkJ5vb3ZE/7jt5c4T9 sb+y7hqC1pPkvw7yOLHb844/y/i/IrZpsD/GT/2HWpTkv0D3YiNS2Ig/SNrV pqwHyT8XNbuAE63jvwJ+iWdMrYE/eQfG1mRj1D+iFrSWE+3hvwhK5Vf1fHM/ pG+Opnhe2z+FnNFDYb/ev9jAMbnyHEY/vTQNt8mQ4D+94yloiE7YvwF0Br3R Gmy/v4F55BO34j+QiNZUhMPQv37enEF5QX6/YF+ddw== "]], Line[CompressedData[" 1:eJwBEQPu/CFib1JlAgAAACAAAAADAAAAOHsy84Lkl7+iXnCg+lHlv965l4Fo ZrM/gShVFO8Wxz8mn+Vondzlvxb3rd7qxJI/V2x/KH7F1z/Yw9LMLcfkvwnQ MmN5y6S/VGyDOARC4T9R9uqnMWbiv6KMFc7K3Li/5ARPuqm55T/1SO6jCBje v/XSHrcyBcO/bUfZs8496T/BU2CdNQjWv7oIj3oxxci/O/vKdFrK6z9QrhgZ JUHKv3q6gKEDk82/UWwHcqhk7T8nclWyji6uv1ys93MrsdC/ZbYoTwIf7j8h GGJvjNS2P2ZZizudGNK/cvKvQ/MH7j8qXRzpNg7OP/W/LxJbAdO/moIkQg0q 7T9K8r5ox/fXP2XnadsubtO/2bxgfKmY6z+o3Eve0SvgP0WoW216Y9O/FXS2 tT1q6T9vUc7gdPfjPwCza3+o5dK/yE9HE9qw5j+3Qk2a10bnPwB+nqRd+tG/ eLEBvE1s4z9yPPzIiBvqP/7W48hxtdC/Mn9EeZ2D3z+wBhCB21XsP0qmBwII I86/llUpAm951z+tG2c8uOntP0RMA1/8CMq/eziVeVJpzT8WVgTxJczuPxcF kX40Q8W/ZsLpZCUntj/7gcrJH9/uP/4Fonr6A8C/G4ZDoGmMrb9WzE7mVg7u Pw5ANpapuLS/d4d/2/yPyb/rPUPGX1DsP6CCGUwNSqG/SNDtBIt51b/bm7GK yJTpP5dB54VPn44/yABDHttO3b/vzZUbsMvlPwhenEEhB7A/G56/JXXc4b91 hdMHj/3gP44UyGw7WLs/EwgA7/wN5L97HpCZbY3WP1sq17SSmsI/Ad8+BiXq 5L/fflBt0jjDPx574flEWcY/b2E3Jrch5L/SlupHPH6wv3L7iTboR8g/pvFQ 1KqI4b9vF68r3WfRv9bkSPYE9Mc/WhNaIXRn2r/XHIXap+jcv0LFEmetS8U/ Ofe5J5oMzr/9EQu30cHiv1IKUr1XhsA/1mxCRjMuob+lKsgIYD7lv2TUJfAq LbQ/5DQaLcjRxT/Bjmyftd7lv1Drysj3pZU/vLKTdg== "]]}, Attributes[PlotRange] = {ReadProtected}}; Typeset`initDone$$ = True), SynchronousInitialization->True, UnsavedVariables:>{Typeset`initDone$$}, UntrackedVariables:>{Typeset`size$$}], "Manipulate", Deployed->True, StripOnInput->False], Manipulate`InterpretManipulate[1]]], "Output", CellGroupingRules->{"GroupTogetherGrouping", 10000.}, CellChangeTimes->{3.7608191881825743`*^9}, CellID->134570702] }, {4}]]