From mboxrd@z Thu Jan 1 00:00:00 1970 Path: news.gmane.org!not-for-mail From: Emanuel Berg Newsgroups: gmane.emacs.help Subject: Re: distance from Easter Island to Chile Date: Mon, 21 Apr 2014 12:50:48 +0200 Organization: Aioe.org NNTP Server Message-ID: <87mwffdkhj.fsf@nl106-137-194.student.uu.se> References: <87mwfguasr.fsf@nl106-137-194.student.uu.se> <87mwfg823s.fsf@nl106-137-194.student.uu.se> <8761m3tq89.fsf@nl106-137-194.student.uu.se> <87sip7dl70.fsf@nl106-137-194.student.uu.se> NNTP-Posting-Host: plane.gmane.org Mime-Version: 1.0 Content-Type: text/plain X-Trace: ger.gmane.org 1398077725 29018 80.91.229.3 (21 Apr 2014 10:55:25 GMT) X-Complaints-To: usenet@ger.gmane.org NNTP-Posting-Date: Mon, 21 Apr 2014 10:55:25 +0000 (UTC) To: help-gnu-emacs@gnu.org Original-X-From: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Mon Apr 21 12:55:18 2014 Return-path: Envelope-to: geh-help-gnu-emacs@m.gmane.org Original-Received: from lists.gnu.org ([208.118.235.17]) by plane.gmane.org with esmtp (Exim 4.69) (envelope-from ) id 1WcBsb-00032x-JW for geh-help-gnu-emacs@m.gmane.org; Mon, 21 Apr 2014 12:55:17 +0200 Original-Received: from localhost ([::1]:48340 helo=lists.gnu.org) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1WcBsb-0000N2-3g for geh-help-gnu-emacs@m.gmane.org; Mon, 21 Apr 2014 06:55:17 -0400 Original-Path: usenet.stanford.edu!news.tele.dk!news.tele.dk!small.news.tele.dk!newsfeed.xs4all.nl!newsfeed2a.news.xs4all.nl!xs4all!news.stack.nl!aioe.org!.POSTED!not-for-mail Original-Newsgroups: gnu.emacs.help Original-Lines: 37 Original-NNTP-Posting-Host: VVbyYd/iFZoeWNmD9i++cQ.user.speranza.aioe.org Original-X-Complaints-To: abuse@aioe.org User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/24.3 (gnu/linux) X-Notice: Filtered by postfilter v. 0.8.2 Cancel-Lock: sha1:tgAD1PwTNgajvDPwh7EqHLrXnbU= Mail-Copies-To: never Original-Xref: usenet.stanford.edu gnu.emacs.help:205023 X-BeenThere: help-gnu-emacs@gnu.org X-Mailman-Version: 2.1.14 Precedence: list List-Id: Users list for the GNU Emacs text editor List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Original-Sender: help-gnu-emacs-bounces+geh-help-gnu-emacs=m.gmane.org@gnu.org Xref: news.gmane.org gmane.emacs.help:97288 Archived-At: Emanuel Berg writes: > Can you see where the first attempt fails? That looks > like the way I perceived the formula but I get a bit > dizzy by all those mapcars - I have the subtraction > in the opposite order but that might be how we supply > the arguments. Get back to you - never ending story, > this... Found it! The f's and l's were in the opposite (wrong) places. Now this is 3758 as well. Everything in time... Be sure to save your math functions. Might come in handy some day (and not just for you). (defun distance (l1-d f1-d l2-d f2-d) (interactive "nLatitude 1: \nnLongitude 1: \nnLatitude 2: \nnLongitude 2: ") (let ((l1 (degrees-to-radians l1-d)) (f1 (degrees-to-radians f1-d)) (l2 (degrees-to-radians l2-d)) (f2 (degrees-to-radians f2-d)) ) (message "%s" (* 2 6367.4447 ; Earth's radius (asin (sqrt (+ (sin2 (/ (- l2 l1) 2)) (* (cos l2) (cos l1) (sin2 (/ (- f2 f1) 2))) ))))))) (distance 33.4500 ; Santiago 70.6667 27.1167 ; Easter Island 109.3667 ) ; phew! -- underground experts united: http://user.it.uu.se/~embe8573