From: giacomo.boffi@gmail.com
To: help-gnu-emacs@gnu.org
Subject: Re: distance from Easter Island to Chile
Date: Mon, 21 Apr 2014 00:39:24 +0200 [thread overview]
Message-ID: <87bnvveicj.fsf@pascolo.net> (raw)
In-Reply-To: 87mwfg823s.fsf@nl106-137-194.student.uu.se
Emanuel Berg <embe8573@student.uu.se> writes:
> Frank Stutzman <stutzman@cat2.kjsl.com> writes:
>
>> I get an answer of 4301.199
mee too
> That's normal
(progn
(defun d2r (x) (/ (* pi x) 180))
(defun spherical-law-of-cosines (p1 p2)
"http://en.wikipedia.org/wiki/Great-circle_distance#Formulas"
(let ((lat1 (car p1)) (lon1 (cadr p1))
(lat2 (car p2)) (lon2 (cadr p2)))
(acos (+ (* (sin lat1) (sin lat2))
(* (cos lat1) (cos lat2) (cos (- lon2 lon1)))))))
(setq santiago (mapcar 'd2r '(33.4500 70.6667)))
(setq easter_i (mapcar 'd2r '(27.1167 109.3667)))
(insert (format "\nEaster Island to Santiago distance is%8.2f km."
(* (spherical-law-of-cosines santiago easter_i) 6378.1))))
^
put the cursor over the caret and type C-x C-e
next prev parent reply other threads:[~2014-04-20 22:39 UTC|newest]
Thread overview: 20+ messages / expand[flat|nested] mbox.gz Atom feed top
2014-04-20 0:03 distance from Easter Island to Chile Emanuel Berg
2014-04-20 3:55 ` Frank Stutzman
2014-04-20 15:14 ` Emanuel Berg
2014-04-20 22:39 ` giacomo.boffi [this message]
[not found] ` <mailman.19957.1398033917.10748.help-gnu-emacs@gnu.org>
2014-04-21 1:40 ` Emanuel Berg
2014-04-21 1:50 ` Emanuel Berg
2014-04-21 9:45 ` giacomo.boffi
[not found] ` <mailman.19981.1398073560.10748.help-gnu-emacs@gnu.org>
2014-04-21 10:35 ` Emanuel Berg
2014-04-21 10:50 ` Emanuel Berg
2014-04-23 2:49 ` Emanuel Berg
2014-04-21 2:16 ` Emanuel Berg
2014-04-20 4:44 ` Barry Margolin
2014-04-20 15:06 ` Emanuel Berg
2014-04-20 6:28 ` Eli Zaretskii
[not found] ` <mailman.19905.1397975330.10748.help-gnu-emacs@gnu.org>
2014-04-20 7:01 ` Barry Margolin
2014-04-20 7:48 ` Eli Zaretskii
2014-04-20 10:26 ` Thorsten Jolitz
2014-04-20 11:03 ` Eli Zaretskii
2014-04-20 15:22 ` Emanuel Berg
2014-04-21 6:04 ` Emanuel Berg
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.gnu.org/software/emacs/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87bnvveicj.fsf@pascolo.net \
--to=giacomo.boffi@gmail.com \
--cc=help-gnu-emacs@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).