rounding (up)

rounding (up)

[Uwe Brauer]

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 

Re: rounding (up)

[John Kitchin]

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

Re: rounding (up)

[Uwe Brauer]

>>> "John" == John Kitchin <jkitchin@andrew.cmu.edu> writes:

   > #+BEGIN_SRC emacs-lisp
   > (list (custom-round 0.4875 2 'floor) (custom-round 0.975 2 'floor))
   > #+END_SRC

Thanks I will have a look into that code.

Re: rounding (up)

[Marco Wahl]

Uwe Brauer <oub@mat.ucm.es> 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?


(info "(calc) Integer Truncation") has

#v+
The ‘R’ (‘calc-round’) [‘round’ or ‘fround’] command rounds to the
nearest integer.  When the fractional part is .5 exactly, this command
rounds away from zero.  (All other rounding in the Calculator uses this
convention as well.)  Thus ‘3.5 R’ produces 4 but ‘3.4 R’ produces 3;
‘_3.5 R’ produces -4.
#v-

and

#v+
Each of these functions, when written in algebraic formulas, allows a
second argument which specifies the number of digits after the decimal
point to keep.  For example, ‘round(123.4567, 2)’ will produce the
answer 123.46, and ‘round(123.4567, -1)’ will produce 120 (i.e., the
cutoff is one digit to the _left_ of the decimal point).  A second
argument of zero is equivalent to no second argument at all.
#v-

So I suggest the following:

| 3.25 | |
|  6.5 | |
#+TBLFM: $2=round($1*0.15,2);%.2f


Ciao
    Marco
    

Re: rounding (up)

[Uwe Brauer]

   > Uwe Brauer <oub@mat.ucm.es> writes:


   > (info "(calc) Integer Truncation") has


   > So I suggest the following:

   > | 3.25 | |
   > |  6.5 | |

   > #+TBLFM: $2=round($1*0.15,2);%.2f

That is cool as well