NEWS PRESENCE OF ASTEROID NAMES RELATES TO ANGLES TO SUN
NEWS PRESENCE OF ASTEROID NAMES RELATES TO ANGLES TO SUN
-- COLLECTION STARTED ON FEB 15, 2022-- EVALUATED DAILY UNTIL CIRCA FEB 15, 2027 -- HERE ARE DAILY AGGREGATE RESULTS
In[]:=
(*Today'sDateandTimeofCollection&ReportingUTC*)DateString[TimeZoneConvert[DateObject[Date[]],"UTC"]]
Out[]=
Sat 2 Jul 2022 13:20:54
In[]:=
SetDirectory["/home/rko/Documents/Wolfram Desktop/Asteroids1211"];
(*useyourowndirectoryhere*)In[]:=
(*asteroidnames=Import["asteroid sample 1200 names.m"];*)
In[]:=
sundata=Import["MinorPlanetSunData.csv"];
Normalize and then average the daily article count across all individual minor planets
Normalize and then average the daily article count across all individual minor planets
In[]:=
dates=Table[DateObject[ToString[sundata[[2;;All,1]][[i]]]],{i,1,Length[sundata[[2;;All,1]]]}]//Quiet;
In[]:=
(*dates=Table[DateObject[ToExpression[sundata[[2;;All,1]][[i]]]],{i,1,Length[sundata[[2;;All,1]]]}];*)
In[]:=
dates
Out[]=
In[]:=
RegularlySampledQ[dates]
Out[]=
True
In[]:=
Length[dates]
Out[]=
137
In[]:=
toanalyse=sundata[[2;;All,2;;All]];
In[]:=
MatrixPlot[toanalyse]
Out[]=
In[]:=
articles=Table[toanalyse[[All,i]],{i,1,Length[toanalyse[[1]]]-1,2}];
In[]:=
anglesrads=Table[UnitConvert[Quantity[toanalyse[[All,i]],"AngularDegrees"],"Radians"],{i,2,Length[toanalyse[[1]]],2}];
In[]:=
articlesTS=Table[TimeSeries[articles[[i]],{dates}],{i,1,Length[articles]}];
In[]:=
normarticlesTS=Table[Normalize[articlesTS[[i]]],{i,1,Length[articlesTS]}];
In[]:=
normarticlesTS[[2]]
Out[]=
TimeSeries
In[]:=
ListPlot[%]
Out[]=
In[]:=
anglesTS=Table[TimeSeries[UnitConvert[anglesrads[[i]],"AngularDegrees"],{dates}],{i,1,Length[anglesrads]}];
In[]:=
justangles=Flatten[Table[Mod[Round[QuantityMagnitude[Values[anglesTS[[i]]]]],360],{i,1,Length[anglesTS]}]];
In[]:=
justvalues=Flatten[Table[Values[normarticlesTS[[i]]],{i,Length[normarticlesTS]}]];
In[]:=
Histogram[DeleteCases[justvalues,0],Automatic,"ProbabilityDensity"]
Out[]=
In[]:=
just=Transpose[{justangles,justvalues}];
In[]:=
colors=,,,,,,,,,,,;
In[]:=
Length[just](*thisisthenumberofdatapointstodate*)
Out[]=
165907
In[]:=
Length[dates]*Length[articles]
Out[]=
165907
In[]:=
tsNA4Lengths=KeySort[GroupBy[just,First->Last,Length]];
In[]:=
tsNA4SD=KeySort[GroupBy[just,First->Last,StandardDeviation]];
In[]:=
samplingerrors=1.95*N[Values[tsNA4SD]]/Values[tsNA4Lengths];
In[]:=
Mean[samplingerrors]
Out[]=
0.000298267
In[]:=
N[Mean[justvalues]]
Out[]=
0.0432414
In[]:=
Mean[samplingerrors]/N[Mean[justvalues]]
Out[]=
0.00689773
In[]:=
valgrpbydeg=KeySort[GroupBy[N[just],First->Last,Mean]]
Out[]=
0.0.0390494,1.0.0411057,2.0.0445975,3.0.0395077,4.0.0398943,5.0.0450576,6.0.0417356,7.0.0417719,8.0.0441114,9.0.0371564,10.0.0378441,11.0.0466909,12.0.0476267,13.0.0384327,14.0.040266,15.0.039189,16.0.0416902,17.0.0384771,18.0.0447056,19.0.0448622,20.0.0417927,21.0.0402009,22.0.0470712,23.0.0455423,24.0.0396814,25.0.0406679,26.0.0474121,27.0.0436275,28.0.0463714,29.0.0422448,30.0.0442702,31.0.0482795,32.0.0429338,33.0.0414888,34.0.0440592,35.0.0434172,36.0.0431766,37.0.0463581,38.0.0380722,39.0.0413999,40.0.0487086,41.0.0429812,42.0.0450358,43.0.0457936,44.0.042828,45.0.0465272,46.0.0412677,47.0.04381,48.0.0442048,49.0.043205,50.0.048644,51.0.0451611,52.0.0438827,53.0.0484577,54.0.0469021,55.0.0470834,56.0.0445163,57.0.0459705,58.0.0431732,59.0.0451178,60.0.0439609,61.0.0458962,62.0.0436617,63.0.0464607,64.0.0409894,65.0.0487768,66.0.0427895,67.0.0453236,68.0.0457255,69.0.0488583,70.0.049336,71.0.046357,72.0.0428214,73.0.0454217,74.0.0456839,75.0.0460165,76.0.0479299,77.0.0426197,78.0.0429463,79.0.0410927,80.0.0496324,81.0.0465218,82.0.0451849,83.0.0446191,84.0.0402003,85.0.046133,86.0.0400357,87.0.0472951,88.0.0430931,89.0.0449354,90.0.0406585,91.0.0447471,92.0.0452591,93.0.0440776,94.0.0444884,95.0.0496042,96.0.0471226,97.0.0438123,98.0.0454038,99.0.0476798,100.0.0419006,101.0.0438679,102.0.0429598,103.0.0477811,104.0.0498462,105.0.0463037,106.0.0483303,107.0.0478571,108.0.0427866,109.0.0456723,110.0.0471331,111.0.0482295,112.0.0421293,113.0.047193,114.0.0440569,115.0.044441,116.0.0482115,117.0.0498396,118.0.0484758,119.0.0455831,120.0.0459606,121.0.0442222,122.0.0411843,123.0.0445126,124.0.0410182,125.0.0511593,126.0.0491599,127.0.0444752,128.0.0458494,129.0.0395251,130.0.0458595,131.0.0463351,132.0.0476483,133.0.0490953,134.0.0440368,135.0.0448399,136.0.0413479,137.0.0486431,138.0.0476186,139.0.0437239,140.0.0435418,141.0.0474324,142.0.0499335,143.0.0492165,144.0.0487113,145.0.0484006,146.0.0445142,147.0.0470343,148.0.0424136,149.0.0416547,150.0.0455431,151.0.0419661,152.0.0462994,153.0.0539657,154.0.0435509,155.0.0446592,156.0.0485296,157.0.0495791,158.0.0432088,159.0.0425203,160.0.0524313,161.0.048793,162.0.0475807,163.0.0492285,164.0.049164,165.0.0445848,166.0.0437593,167.0.0418443,168.0.0444068,169.0.0453351,170.0.0488246,171.0.0408894,172.0.0431327,173.0.0389662,174.0.0437521,175.0.0436374,176.0.0455364,177.0.0425964,178.0.0532835,179.0.0470167,180.0.045195,181.0.044013,182.0.0392754,183.0.0465543,184.0.0360062,185.0.0388569,186.0.0394642,187.0.0417949,188.0.0406079,189.0.0415378,190.0.0419505,191.0.0471385,192.0.0430205,193.0.0450313,194.0.0438978,195.0.0469613,196.0.0506661,197.0.0390745,198.0.0454968,199.0.0460618,200.0.045254,201.0.046259,202.0.0399784,203.0.0442644,204.0.0464244,205.0.0448097,206.0.0455229,207.0.048085,208.0.0423836,209.0.0459527,210.0.0427029,211.0.0451209,212.0.0440587,213.0.0398502,214.0.0369164,215.0.0453978,216.0.0443508,217.0.0446442,218.0.0474209,219.0.0446266,220.0.0413409,221.0.0380732,222.0.044192,223.0.0468641,224.0.042405,225.0.0435021,226.0.0441819,227.0.0405547,228.0.0403888,229.0.0407243,230.0.0396776,231.0.0430654,232.0.0418024,233.0.0411937,234.0.0423325,235.0.0372853,236.0.0444413,237.0.042529,238.0.0468525,239.0.0447015,240.0.0398676,241.0.0419152,242.0.04251,243.0.047731,244.0.0433851,245.0.0418956,246.0.0408761,247.0.0377886,248.0.0374558,249.0.0449231,250.0.0428017,251.0.0403798,252.0.0434141,253.0.0431472,254.0.0437902,255.0.0414814,256.0.0429541,257.0.0438688,258.0.0434835,259.0.0384912,260.0.037835,261.0.0415604,262.0.0442894,263.0.0436715,264.0.041155,265.0.0450884,266.0.0429986,267.0.0399684,268.0.0388984,269.0.0488475,270.0.0415444,271.0.0427189,272.0.044974,273.0.0379105,274.0.0448224,275.0.0459239,276.0.0404921,277.0.0410017,278.0.0358546,279.0.0403269,280.0.041603,281.0.0400007,282.0.0355037,283.0.0446032,284.0.0460109,285.0.0375815,286.0.0391127,287.0.0434882,288.0.0430155,289.0.0389988,290.0.044881,291.0.0419264,292.0.0430525,293.0.0464628,294.0.0462704,295.0.0390811,296.0.0493135,297.0.0406871,298.0.0388897,299.0.0395037,300.0.034545,301.0.0455271,302.0.0451445,303.0.0423899,304.0.0474737,305.0.0495092,306.0.0459695,307.0.0386484,308.0.0393806,309.0.0399509,310.0.0426331,311.0.0429569,312.0.0371168,313.0.0429347,314.0.039909,315.0.044488,316.0.0425724,317.0.0423504,318.0.0433806,319.0.0384361,320.0.0424557,321.0.0402136,322.0.0420125,323.0.0420549,324.0.0425965,325.0.0381845,326.0.0366695,327.0.0392728,328.0.0406172,329.0.0407996,330.0.0428826,331.0.035895,332.0.039522,333.0.0399298,334.0.0396897,335.0.0397684,336.0.0364747,337.0.0401131,338.0.0384971,339.0.039288,340.0.0441544,341.0.0409996,342.0.0394146,343.0.0440299,344.0.0392479,345.0.0383957,346.0.0435158,347.0.0369066,348.0.0365792,349.0.0417516,350.0.0421412,351.0.0439484,352.0.0411332,353.0.0401294,354.0.0376708,355.0.042436,356.0.0431099,357.0.0432676,358.0.0398898,359.0.0398506
In[]:=
data=Values[valgrpbydeg];(*avgRads[[All,2]];*)
In[]:=
sd=StandardDeviation[data]
Out[]=
0.00342222
◼
Idealized Theoretical Result
Idealized Theoretical Result
Visualize Angles
Visualize Angles