From: John Kitchin <jkitchin@andrew.cmu.edu>
To: Uwe Brauer <oub@mat.ucm.es>
Cc: emacs-orgmode@gnu.org
Subject: Re: rounding (up)
Date: Thu, 22 Jun 2017 08:02:49 -0400 [thread overview]
Message-ID: <m2h8z8b57a.fsf@andrew.cmu.edu> (raw)
In-Reply-To: <87o9tglbv2.fsf@mat.ucm.es>
It appears Emacs uses Banker's rounding (http://wiki.c2.com/?BankersRounding):
#+BEGIN_SRC emacs-lisp
(list (round 4.5) (round 5.5))
#+END_SRC
#+RESULTS:
| 4 | 6 |
Here is some lightly tested code to get different styles of rounding:
#+BEGIN_SRC emacs-lisp
(defun custom-round (number &optional N direction)
"Round NUMBER to N decimal places.
DIRECTION is a symbol of how to round.
`round' does Banker's rounding.
`ceiling' rounds up.
`floor' rounds down.
`truncate' rounds towards zero.
https://en.wikipedia.org/wiki/Rounding"
(setq N (or N 0)
direction (or direction 'ceiling))
(let ((m (float (expt 10 (* -1 N)))))
(* (funcall direction (/ number m)) m)))
(list (custom-round 0.4875 2 'ceiling) (custom-round 0.975 2 'ceiling))
#+END_SRC
#+RESULTS:
| 0.49 | 0.98 |
#+BEGIN_SRC emacs-lisp
(list (custom-round 0.4875 2 'floor) (custom-round 0.975 2 'floor))
#+END_SRC
#+RESULTS:
| 0.48 | 0.97 |
Uwe Brauer writes:
> Hi
>
> It seems that org-table (and the underlying calc implementation) round
> down not up.
>
>
> Please consider
>
> | 3.25 | 0.4875 |
> | 6.5 | 0.975 |
> #+TBLFM: $2=$1*0.15;
>
>
> | 3.25 | 0.49 |
> | 6.5 | 0.97 |
> #+TBLFM: $2=$1*0.15;%.2f
>
> Is there a way to obtain
>
> | 3.25 | 0.49 |
> | 6.5 | 0.98 |
> #+TBLFM: $2=$1*0.15;%.2f
>
> That is to replace rounding down to rounding up?
>
> Thanks
>
> Uwe Brauer
--
Professor John Kitchin
Doherty Hall A207F
Department of Chemical Engineering
Carnegie Mellon University
Pittsburgh, PA 15213
412-268-7803
@johnkitchin
http://kitchingroup.cheme.cmu.edu
next prev parent reply other threads:[~2017-06-22 12:02 UTC|newest]
Thread overview: 5+ messages / expand[flat|nested] mbox.gz Atom feed top
2017-06-22 7:28 rounding (up) Uwe Brauer
2017-06-22 12:02 ` John Kitchin [this message]
2017-06-22 16:54 ` Uwe Brauer
2017-06-22 12:34 ` Marco Wahl
2017-06-23 9:50 ` Uwe Brauer
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
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=m2h8z8b57a.fsf@andrew.cmu.edu \
--to=jkitchin@andrew.cmu.edu \
--cc=emacs-orgmode@gnu.org \
--cc=oub@mat.ucm.es \
/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.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.