Changeset 34419 in project
 Timestamp:
 08/27/17 05:29:11 (9 months ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

release/4/geoutils/trunk/geoutils.scm
r34418 r34419 77 77 ; https://en.wikipedia.org/wiki/Greatcircle_distance 78 78 (define (greatcircledistanceradians lat1 lon1 lat2 lon2 #!optional (R EARTHRADIUSMILES)) 79 80 (atan281 (fp/82 (sqrt ((sqr (cos lat2)) + (sqr ((cos lat1) â¢ ((sin lon2)  (sin lon1)) â¢ (cos (fpabs (lon2  lon1)))))83 84 79 (let ((d 85 80 (fp+ … … 89 84 (fpcos (fp lon1 lon2)))) ) ) 90 85 (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 # 91 92 92 93 ;;
Note: See TracChangeset
for help on using the changeset viewer.