emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
From: Carsten Dominik <carsten.dominik@gmail.com>
To: Dan Davison <davison@stats.ox.ac.uk>
Cc: "Sébastien Vauban" <wxhgmqzgwmuf@spammotel.com>, emacs-orgmode@gnu.org
Subject: Re: Problem with table sums
Date: Thu, 25 Feb 2010 12:11:36 +0100	[thread overview]
Message-ID: <63628A50-3900-4D82-B9F1-B87096391D21@gmail.com> (raw)
In-Reply-To: <87ocje63qy.fsf@stats.ox.ac.uk>

:-)  I should have known.  These days, babel is the answer to most  
questions ... :-)

- Carste

On Feb 24, 2010, at 4:40 PM, Dan Davison wrote:

> Carsten Dominik <carsten.dominik@gmail.com> writes:
>
>> On Feb 23, 2010, at 11:08 PM, Sébastien Vauban wrote:
> [...]
>>> Though, I need to re-use some of the intermediate computations for
>>> another
>>> "summary table". Therefore, I add names to some cells:
>>>
>>>  #+TBLNAME: etape1
>>>  |   | Étape 1           | p.j | EUR HTVA        |
>>>  |---+-------------------+-----+-----------------|
>>>  |   | Prestations       | 100 | 40000.00        |
>>>  | ^ |                   | pj  | Prestations     |
>>>  |   | Frais annexes     |     | 1280.00         |
>>>  | ^ |                   |     | FraisAnnexes    |
>>>  |   | Gestion du projet |     | 3200.00         |
>>>  | ^ |                   |     | GestionDuProjet |
>>>  |   | Licence           |     | 8000.00         |
>>>  | ^ |                   |     | Licence         |
>>>  |---+-------------------+-----+-----------------|
>>>  |   | Total             |     | 40000.00        |
>>>  | ^ |                   |     | Total           |
>>>  #+TBLFM: @2$4=@2$3*400.00;%.2f::@4$4=@2$4*0.08*0.40;%.
>>> 2f::@6$4=@2$4*0.08;%.2f::@8$4=@2$4*0.20;%.2f::@10$4=vsum(@-I..@-II);
>>> %.2f
>>>
>>> Now, the total is wrong: it's the value of the first cell... Like if
>>> the `^'
>>> prefix was simply dropped... and total limited to the first real
>>> figure.
>>>
>>> Any reason for this phenomenon?  Or workaround (other than
>>> describing every
>>> cell to be summed)?
>>
>> Well, the reason is that the parser probably stops at the first text
>> when summing, it tries to add "Prestations".
>>
>> I am afraid there is not good work-around for this.
>
> Hi Seb,
>
> Well, I was going to suggest using org-babel. After playing around  
> for a
> while, I ended up reading the org manual on table formulas and coming
> back to a pure org solution.
>
> My simplest solution is almost straight out of the manual (which makes
> me worry that I've missed the point of the question?):
>
> #+TBLFM:@10$4='(apply '+ '(@-I..@-II));N
>
> But seeing as I've got them, I may as well post my org-babel  
> solutions.
>
> Here's the first set of org-babel solutions, which are just like the
> first solution, but use blocks to do the computation:
>
> #+TBLFM:@10$4='(sbe my-sum-LANG (n (@-I..@-II)));N
>
> where LANG is whatever language you want to compute the sum in:
>
> #+function: my-sum-elisp(n)
> #+begin_src emacs-lisp
> (apply '+ n)
> #+end_src
>
> #+function: my-sum-R(n)
> #+begin_src R
> sum(n)
> #+end_src
>
> #+function: my-sum-python(n)
> #+begin_src python
> return sum(n)
> #+end_src
>
>
> The second set of org-babel solutions use org-babel to do the table
> indexing. This was before I realised that I could use the @-I..@-II  
> and
> ;N syntax in conjunction with the org-babel sbe macro. So these ones
> have to deal with separating the numeric entries from the character
> strings.
>
> #+TBLFM:@10$4='(sbe my-tab-sum-LANG);%.2f
>
> #+function: my-tab-sum-elisp
> #+begin_src emacs-lisp :var tab=etape1[2:9,3]
> (apply '+ (remq nil (mapcar (lambda (row) (if (numberp (car row))  
> (car row))) tab)))
> #+end_src
>
> #+function: my-tab-sum-R
> #+begin_src R :var tab=etape1[2:9,3]
> sum(as.numeric(tab[[1]]), na.rm=TRUE)
> #+end_src
>
> #+function: my-tab-sum-python
> #+begin_src python :var tab=etape1[2:9,3]
> flatten = lambda(lizt): sum(lizt, [])
> return sum(filter(lambda x: isinstance(x, float), flatten(tab)))
> #+end_src
>
>
> Dan
>
>
>>
>> - Carsten
>>
>>>
>>> Best regards,
>>> Seb
>>>
>>> --
>>> Sébastien Vauban
>>>
>>>
>>>
>>> _______________________________________________
>>> Emacs-orgmode mailing list
>>> Please use `Reply All' to send replies to the list.
>>> Emacs-orgmode@gnu.org
>>> http://lists.gnu.org/mailman/listinfo/emacs-orgmode
>>
>> - Carsten
>>
>>
>>
>>
>>
>> _______________________________________________
>> Emacs-orgmode mailing list
>> Please use `Reply All' to send replies to the list.
>> Emacs-orgmode@gnu.org
>> http://lists.gnu.org/mailman/listinfo/emacs-orgmode

- Carsten

  reply	other threads:[~2010-02-25 11:11 UTC|newest]

Thread overview: 6+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2010-02-23 22:08 Problem with table sums Sébastien Vauban
2010-02-24  9:40 ` Carsten Dominik
2010-02-24 15:40   ` Dan Davison
2010-02-25 11:11     ` Carsten Dominik [this message]
2010-03-01  0:37       ` Dan Davison
2010-03-01  7:49         ` Carsten Dominik

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.orgmode.org/

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=63628A50-3900-4D82-B9F1-B87096391D21@gmail.com \
    --to=carsten.dominik@gmail.com \
    --cc=davison@stats.ox.ac.uk \
    --cc=emacs-orgmode@gnu.org \
    --cc=wxhgmqzgwmuf@spammotel.com \
    /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 public inbox

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

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).