Compare una ruta de vuelo con líneas geodésicas y loxodrómicas 

Dé seguimiento a un curso y compare con líneas geodésicas y loxodrómicas.

muestre la entrada completa de Wolfram Languageoculte la entrada

In[1]:=

X data = Import[ "http://flightaware.com/live/flight/UPS99/history/20130924/1255Z/\ RKSI/PANC/tracklog", {"HTML", "Data"}];

In[2]:=

X realdata = {#[[1]], Mod[#[[2]], 360, 0]} & /@ data[[2, 2, 2, 2, 2 ;;, {2, 3}]];

In[3]:=

X plane = First[\!\(\* GraphicsBox[PolygonBox[CompressedData[" 1:eJw9Uw8s1GEYPmfO6Y9oFi1LVrcIzUUu7LxRiYvkUusq0Tmnm26ijG5RazFl ZxVNSC4pjcqEmMl7uHMns8tsrqx//iWuEnIov7v++d27vfv27P2+d8/7PO/n zE/ixlMpFIrPn/x79my86Pn9rRGyaqJafOQncar09iz/kREG/WzuMytk0Jxo tSAbM0CBi/L1wZZq4Im4y5pfEMBb2UffO9AIHrscdUPPF+H9E/denvAFBFjI 02nSX5C7RiberpPDe6rVNae4n7AlJafJ91Y78LJ39CvFC6DuOWMeAArwiKU2 fhPOQyfzJjuoRwFTWoFUQp+DBFfe/qBxJTREqOJoVbMQL5XkBKd1QuxfAn4/ gJYVWBScr4LQfaNf6ZXTJqwZENsXJ06B+Ti/j+OshsEv/dvW5k2a6hkFtvaX Or+a8Lu6p70psgnT/SN+TncZ6mF0CdWGtb4hoFkbmsE7OoGCnXrJnIoAp/BZ gaFXhWI1eOWs+gxp67uTo8eykOxndnrnlaYUnQlrbPJ4+k2TSPJf4ofkvF7/ Yga7RRFdvrUdULvQ5BO1YhZJ/WwXkxj+PnocSE3aw7/cCoLU6rGKNAKZtP7k xQMjsJL1caaDTpEzY05cyjg3AhxLndFRSGDvq2LJjrflQPkfcjO38MQImQQz hxM17lcJbBcyuGD3AD/dAIf0b0Z00MjuXaSO4lnt6ulADYFm3pxCA2MU56U1 7LpNenS3TsjcbtmOJL8lPzFyzixEPDSDS37i8rjlgdYvp1GkZNkFHFNiVWwU d7NsCunOG2KCLFRI6vHwAr0quEaNpF4VH11HOOwuPMUq+3Dneb6pTurNLnXj WLV9xvrh7A/hrAmUSKPLJToCw7hFfOvLw3h9QNFFWBtwyS8g36st2SWHyvQm 7N8uasttnSf3CRUFIeWFkT/J/UOvBWHJur5fsLVqz27m+Ta8Oql4bL+LgKHR 8eORnBa8UTJIu5BpAMfD1LMB2fU45M/UKQ8Y4dlijWtwWCWS/6nRW9zA9szG 3y6nu2o= "]]]\)]

In[4]:=

X GeoGraphics[{Thick, {Green, GeoPath[#, "Geodesic"], Orange, GeoPath[#, "Rhumb"]} &@{GeoPosition[realdata[[1]]], GeoPosition[realdata[[-1]]]}, Line[GeoPosition[realdata]], GeoMarker[GeoPosition[realdata[[200]]], Graphics[{Red, Rotate[plane, 35 Degree, {0, 0}]}]] }]

Out[4]=