Mathematica code for least-squares cone fitting and equal-area stereonet representation | Publicación