All examples below use data from two samples tablets (X202071 and X202470).
Get the number of observations:
In[]:=
Length[obsData]
Out[]=
236
The types of observations:
In[]:=
obsData[Counts/*ReverseSort,"Type"]
Out[]=
An example observation:
In[]:=
Normal[obsData[22]]
Out[]=
TypeRelativePosition,ContentObject,Reference,Displacements{{Cubits4,FingersMissing[Unmentioned],TotalCubits4,IdealDegrees8,RealDegrees9.08,Below},Missing[Destroyed]},DateJulianDateYear-207,Month4,Day15,BabylonianDateYear{SE,104},MonthI,Day13,TimeBeginningOfTheNight,DateObject,ProvenanceCreatorChristopher Wolfram,TabletIDX202071,LineNumber8,NotesMissing[]
Get the number of observations by month (for the two sample tablets):
In[]:=
obsData[Counts/*(BarChart[#,ChartLabelsAutomatic]&),"Date","BabylonianDate","Month"]
Out[]=
Use JPL ephemerides to calculate the real positions of synodic objects and references in observations of relative position:
In[]:=
Module[{obs,lines,paths},obs=Normal[obsData[Select[#Type==="RelativePosition"&],{Query["Content",{"Object","Reference"}],Query["Date","DateObject"]}]];lines={DiaryAstronomicalPosition[#1["Object"],#2],DiaryAstronomicalPosition[#1["Reference"],#2]}&@@@obs;paths=Arrow@*GeoPath/@Map[GeoPosition@*Reverse,DeleteMissing[lines,1,2],{2}];GeoGraphics[{Arrowheads[Small],paths},GeoBackgroundWhite,GeoRange{{-15,15},{0,360}},FrameTrue]]
Out[]=
Observation type by time of day:
In[]:=
obsData[GroupBy[Query["Date","Time"]]/*KeySelect[Not@*MissingQ],Counts/*ReverseSort,"Type"]
Out[]=
Mean observations per day (only for dated observations):
In[]:=
N@obsData[Counts/*Mean,"Date","BabylonianDate"]
Out[]=
2.18519
More examples are available at the end of the Format Discussion.