Changeset 34419 in project


Ignore:
Timestamp:
08/27/17 05:29:11 (4 weeks ago)
Author:
kon
Message:

re-flow

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/4/geo-utils/trunk/geo-utils.scm

    r34418 r34419  
    7777; https://en.wikipedia.org/wiki/Great-circle_distance
    7878(define (great-circle-distance-radians lat1 lon1 lat2 lon2 #!optional (R EARTH-RADIUS-MILES))
    79 
    80   (atan2
    81     (fp/
    82       (sqrt ((sqr (cos lat2)) + (sqr ((cos lat1) • ((sin lon2) - (sin lon1)) • (cos (fpabs (lon2 - lon1)))))
    83 
    8479  (let ((d
    8580          (fp+
     
    8984              (fpcos (fp- lon1 lon2)))) ) )
    9085    (fp* (fpacos d) R) ) )
     86
     87#| ;???
     88  (atan2
     89    (fp/
     90      (sqrt ((sqr (cos lat2)) + (sqr ((cos lat1) • ((sin lon2) - (sin lon1)) • (cos (fpabs (lon2 - lon1)))))
     91|#
    9192
    9293;;
Note: See TracChangeset for help on using the changeset viewer.