Multiple calc commands with orgbabel

Multiple calc commands with orgbabel

[pietru]

Have been trying to execute multiple calc commands, but when I evaluate the calc
expressions, I get just one result.

--------

This does not work

#+begin_src calc
fsolve(x*2+x=4,x)
fsolve([x + y = a, x - y = b],[x,y])
#+end_src

--------

But this works

#+begin_src calc
fsolve(x*2+x=4,x)
#+end_src

#+begin_src calc
fsolve([x + y = a, x - y = b],[x,y])
#+end_src>

Re: Multiple calc commands with orgbabel

[Eric S Fraga]

On Wednesday,  5 May 2021 at 07:46, pietru@caramail.com wrote:
> Have been trying to execute multiple calc commands, but when I
> evaluate the calc expressions, I get just one result.

ob-calc returns the top element of the stack when finished and this will
be the result of the last operation in the src block.  I don't think
there's any way around this.

I use embedded Calc for this reason.  You could rewrite your equations
as simple lines (separated by empty lines from the surroundings) and
evaluate each in turn with "C-x * u":

fsolve(x 2 + x = 4, x) => x = 1.33333333333

fsolve([x + y = a, x - y = b], [x, y]) => [x = a + (b - a) / 2, y = (a - b) / 2]

I added the "=>" at the end of each expression so that the result is
shown to the right instead of replacing the expression itself (default
embedded Calc behaviour).

-- 
: Eric S Fraga via Emacs 28.0.50, Org release_9.4.5-395-g82fbdd

Re: Multiple calc commands with orgbabel

[pietru]

> Sent: Wednesday, May 05, 2021 at 6:33 PM
> From: "Eric S Fraga" <e.fraga@ucl.ac.uk>
> To: pietru@caramail.com
> Cc: "help Emacs Orgmode" <emacs-orgmode@gnu.org>
> Subject: Re: Multiple calc commands with orgbabel
>
> On Wednesday,  5 May 2021 at 07:46, pietru@caramail.com wrote:
> > Have been trying to execute multiple calc commands, but when I
> > evaluate the calc expressions, I get just one result.
>
> ob-calc returns the top element of the stack when finished and this will
> be the result of the last operation in the src block.  I don't think
> there's any way around this.

Is the top stack element just with ob-calc?

> I use embedded Calc for this reason.  You could rewrite your equations
> as simple lines (separated by empty lines from the surroundings) and
> evaluate each in turn with "C-x * u":
>
> fsolve(x 2 + x = 4, x) => x = 1.33333333333
>
> fsolve([x + y = a, x - y = b], [x, y]) => [x = a + (b - a) / 2, y = (a - b) / 2]
>
> I added the "=>" at the end of each expression so that the result is
> shown to the right instead of replacing the expression itself (default
> embedded Calc behaviour).

Will check it out, thanks.

> --
> : Eric S Fraga via Emacs 28.0.50, Org release_9.4.5-395-g82fbdd
>
>

Re: Multiple calc commands with orgbabel

[Eric S Fraga]

On Wednesday,  5 May 2021 at 08:40, pietru@caramail.com wrote:
>> ob-calc returns the top element of the stack when finished and this will
>> be the result of the last operation in the src block.  I don't think
>> there's any way around this.
>
> Is the top stack element just with ob-calc?

I am not sure what you are asking here.  Other languages do not have the
concept of a stack necessarily.  However, for other languages, there is
often the option to have the results be "output" instead of "value".


-- 
: Eric S Fraga via Emacs 28.0.50, Org release_9.4.5-395-g82fbdd

Re: Multiple calc commands with orgbabel

[pietru]

> Sent: Wednesday, May 05, 2021 at 6:41 PM
> From: "Eric S Fraga" <e.fraga@ucl.ac.uk>
> To: pietru@caramail.com
> Cc: "help Emacs Orgmode" <emacs-orgmode@gnu.org>
> Subject: Re: Multiple calc commands with orgbabel
>
> On Wednesday,  5 May 2021 at 08:40, pietru@caramail.com wrote:
> >> ob-calc returns the top element of the stack when finished and this will
> >> be the result of the last operation in the src block.  I don't think
> >> there's any way around this.
> >
> > Is the top stack element just with ob-calc?
>
> I am not sure what you are asking here.  Other languages do not have the
> concept of a stack necessarily.  However, for other languages, there is
> often the option to have the results be "output" instead of "value".

I understand, thank you.

>
> --
> : Eric S Fraga via Emacs 28.0.50, Org release_9.4.5-395-g82fbdd
>
>

Re: Multiple calc commands with orgbabel

[Dr. Arne Babenhauserheide]

[-- Attachment #1: Type: text/plain, Size: 288 bytes --]


pietru@caramail.com writes:

> Have been trying to execute multiple calc commands, but when I evaluate the calc
> expressions, I get just one result.

could you try the header :results output?

Best wishes,
Arne
-- 
Unpolitisch sein
heißt politisch sein
ohne es zu merken

[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 1125 bytes --]

Re: Multiple calc commands with orgbabel

[pietru]

I still get the lost result

#+begin_src calc :results output
  fsolve(x*2+x=4,x)
  fsolve([x + y = a, x - y = b],[x,y])
#+end_src

#+RESULTS:
: [x = a + (b - a) / 2, y = (a - b) / 2]




> Sent: Wednesday, May 05, 2021 at 7:12 PM
> From: "Dr. Arne Babenhauserheide" <arne_bab@web.de>
> To: pietru@caramail.com
> Cc: emacs-orgmode@gnu.org
> Subject: Re: Multiple calc commands with orgbabel
>
> 
> pietru@caramail.com writes:
> 
> > Have been trying to execute multiple calc commands, but when I evaluate the calc
> > expressions, I get just one result.
> 
> could you try the header :results output?
> 
> Best wishes,
> Arne
> -- 
> Unpolitisch sein
> heißt politisch sein
> ohne es zu merken
>

Re: Multiple calc commands with orgbabel

[Eric S Fraga]

On Wednesday,  5 May 2021 at 09:12, Dr. Arne Babenhauserheide wrote:
> could you try the header :results output?

Doesn't make any difference as Calc itself does not actually output
anything.  All results are put on the stack.

-- 
: Eric S Fraga via Emacs 28.0.50, Org release_9.4.5-503-g501b2a

Re: Multiple calc commands with orgbabel

[pietru]

Does anybody has some experience using calc for factoring, matrix computation and
taking derivatives.  The manual overwhelmed me.


> Sent: Wednesday, May 05, 2021 at 7:23 PM
> From: "Eric S Fraga" <e.fraga@ucl.ac.uk>
> To: "Dr. Arne Babenhauserheide" <arne_bab@web.de>
> Cc: pietru@caramail.com, emacs-orgmode@gnu.org
> Subject: Re: Multiple calc commands with orgbabel
>
> On Wednesday,  5 May 2021 at 09:12, Dr. Arne Babenhauserheide wrote:
> > could you try the header :results output?
>
> Doesn't make any difference as Calc itself does not actually output
> anything.  All results are put on the stack.
>
> --
> : Eric S Fraga via Emacs 28.0.50, Org release_9.4.5-503-g501b2a
>

Re: Multiple calc commands with orgbabel

[Eric S Fraga]

On Wednesday,  5 May 2021 at 09:26, pietru@caramail.com wrote:
> Does anybody has some experience using calc for factoring, matrix
> computation and taking derivatives.  The manual overwhelmed me.

You might be better off asking on the Emacs help list as this is rather
off-topic for the org mailing list.

-- 
: Eric S Fraga via Emacs 28.0.50, Org release_9.4.5-503-g501b2a

Re: Multiple calc commands with orgbabel

[pietru]

> Sent: Wednesday, May 05, 2021 at 7:59 PM
> From: "Eric S Fraga" <e.fraga@ucl.ac.uk>
> To: pietru@caramail.com
> Cc: emacs-orgmode@gnu.org
> Subject: Re: Multiple calc commands with orgbabel
>
> On Wednesday,  5 May 2021 at 09:26, pietru@caramail.com wrote:
> > Does anybody has some experience using calc for factoring, matrix
> > computation and taking derivatives.  The manual overwhelmed me.
>
> You might be better off asking on the Emacs help list as this is rather
> off-topic for the org mailing list.

Fair enough.

> --
> : Eric S Fraga via Emacs 28.0.50, Org release_9.4.5-503-g501b2a
>

Calc commands for factoring, matrix computations and taking derivatives

[pietru]

Does anybody has some experience using calc for factoring, matrix
computation and taking derivatives.  The manual overwhelmed me.

Re: Calc commands for factoring, matrix computations and taking derivatives

[Emanuel Berg via Users list for the GNU Emacs text editor]

pietru wrote:

> Does anybody has some experience using calc for factoring,
> matrix computation and taking derivatives. The manual
> overwhelmed me.

?

Didn't we see this question already but looking ... not
like this?

-- 
underground experts united
https://dataswamp.org/~incal

Re: Calc commands for factoring, matrix computations and taking derivatives

[pietru]

Did you not know that some tell you to go post some other place!!!


> Sent: Wednesday, May 05, 2021 at 9:02 PM
> From: "Emanuel Berg via Users list for the GNU Emacs text editor" <help-gnu-emacs@gnu.org>
> To: help-gnu-emacs@gnu.org
> Subject: Re: Calc commands for factoring, matrix computations and taking derivatives
>
> pietru wrote:
>
> > Does anybody has some experience using calc for factoring,
> > matrix computation and taking derivatives. The manual
> > overwhelmed me.
>
> ?
>
> Didn't we see this question already but looking ... not
> like this?
>
> --
> underground experts united
> https://dataswamp.org/~incal
>
>
>

Re: Calc commands for factoring, matrix computations and taking derivatives

[Emanuel Berg via Users list for the GNU Emacs text editor]

pietru wrote:

> Did you not know that some tell you to go post some other
> place!!!

You came to the right place!

Try this:

  https://www.gnu.org/software/emacs/manual/html_node/calc/Basic-Tutorial.html

-- 
underground experts united
https://dataswamp.org/~incal

Re: Calc commands for factoring, matrix computations and taking derivatives

[Christopher Dimech]

> Sent: Wednesday, May 05, 2021 at 10:15 PM
> From: "Emanuel Berg via Users list for the GNU Emacs text editor" <help-gnu-emacs@gnu.org>
> To: help-gnu-emacs@gnu.org
> Subject: Re: Calc commands for factoring, matrix computations and taking derivatives
>
> pietru wrote:
>
> > Did you not know that some tell you to go post some other
> > place!!!
>
> You came to the right place!
>
> Try this:
>
>   https://www.gnu.org/software/emacs/manual/html_node/calc/Basic-Tutorial.html

Very useful link.  Thank you.

> --
> underground experts united
> https://dataswamp.org/~incal
>
>
>

Re: Multiple calc commands with orgbabel

[Matt Price]

[-- Attachment #1: Type: text/plain, Size: 1173 bytes --]

Can you explain how you get calc embedded mode working in org? I have never
used it and it sounds interesting, but I don't understand what hte
delimiters are.

On Wed, May 5, 2021 at 2:35 AM Eric S Fraga <e.fraga@ucl.ac.uk> wrote:

> On Wednesday,  5 May 2021 at 07:46, pietru@caramail.com wrote:
> > Have been trying to execute multiple calc commands, but when I
> > evaluate the calc expressions, I get just one result.
>
> ob-calc returns the top element of the stack when finished and this will
> be the result of the last operation in the src block.  I don't think
> there's any way around this.
>
> I use embedded Calc for this reason.  You could rewrite your equations
> as simple lines (separated by empty lines from the surroundings) and
> evaluate each in turn with "C-x * u":
>
> fsolve(x 2 + x = 4, x) => x = 1.33333333333
>
> fsolve([x + y = a, x - y = b], [x, y]) => [x = a + (b - a) / 2, y = (a -
> b) / 2]
>
> I added the "=>" at the end of each expression so that the result is
> shown to the right instead of replacing the expression itself (default
> embedded Calc behaviour).
>
> --
> : Eric S Fraga via Emacs 28.0.50, Org release_9.4.5-395-g82fbdd
>
>

[-- Attachment #2: Type: text/html, Size: 1637 bytes --]

Re: Multiple calc commands with orgbabel

[pietru]

[-- Attachment #1: Type: text/html, Size: 3443 bytes --]

Re: Multiple calc commands with orgbabel

[Tom Gillespie]

Looking at ob-calc there is a call to calc-push-list. Knowing the
length of that list (i.e. the number of arguments) it should be
possible to inspect calc-stack to retrieve the other values on the
stack from the current block. You can see this if you run M-:
calc-stack. This would probably need a specialized result type if it
were implemented. Best,
Tom

On Wed, May 5, 2021 at 8:33 AM <pietru@caramail.com> wrote:
>
>
> Example
>
> (require 'ob-calc)
>  (org-babel-do-load-languages
>      'org-babel-load-languages
>      '( (calc . t) )
>
> -------- calc.org --------
>
> # To execute, place cursor point on a line, then hit "C-c * u" hard with no harm.
>
> #+name: Simplifying Formulas
> #+begin_src calc
>
> simplify((x + y) (x + y)) =>
>
> simplify(a x^2 b / (c x^3 d)) =>
>
> simplify((4 x + 6) / (8 x)) =>
>
> simplify((1 + 2 i) (3 + 4 i)) =>
>
> simplify(5 + i^2 + i - 8 i) =>
>
> simplify((1, 2) + (3, 4)) =>
>
> simplify((1, 2) (3, 4)) =>
>
> #+end_src
>
>
>
> Sent: Thursday, May 06, 2021 at 3:11 AM
> From: "Matt Price" <moptop99@gmail.com>
> To: "Org Mode List" <emacs-orgmode@gnu.org>
> Cc: pietru@caramail.com
> Subject: Re: Multiple calc commands with orgbabel
> Can you explain how you get calc embedded mode working in org? I have never used it and it sounds interesting, but I don't understand what hte delimiters are.
>
> On Wed, May 5, 2021 at 2:35 AM Eric S Fraga <e.fraga@ucl.ac.uk> wrote:
>>
>> On Wednesday,  5 May 2021 at 07:46, pietru@caramail.com wrote:
>> > Have been trying to execute multiple calc commands, but when I
>> > evaluate the calc expressions, I get just one result.
>>
>> ob-calc returns the top element of the stack when finished and this will
>> be the result of the last operation in the src block.  I don't think
>> there's any way around this.
>>
>> I use embedded Calc for this reason.  You could rewrite your equations
>> as simple lines (separated by empty lines from the surroundings) and
>> evaluate each in turn with "C-x * u":
>>
>> fsolve(x 2 + x = 4, x) => x = 1.33333333333
>>
>> fsolve([x + y = a, x - y = b], [x, y]) => [x = a + (b - a) / 2, y = (a - b) / 2]
>>
>> I added the "=>" at the end of each expression so that the result is
>> shown to the right instead of replacing the expression itself (default
>> embedded Calc behaviour).
>>
>> --
>> : Eric S Fraga via Emacs 28.0.50, Org release_9.4.5-395-g82fbdd
>>

Re: Multiple calc commands with orgbabel

[Eric S Fraga]

On Wednesday,  5 May 2021 at 11:11, Matt Price wrote:
> Can you explain how you get calc embedded mode working in org? I have
> never used it and it sounds interesting, but I don't understand what
> hte delimiters are.

Sure.  Here is a mini-tutorial! :-) I recently gave an interactive talk
on embedded Calc...

The out-of-the-box settings for Emacs embedded mode are such that any
line surrounded by empty lines (i.e. couple of blank lines before and
after) can be interpreted as an expression to evaluate by Calc using
"C-x * u".  You do not need to place these expressions in any src block.

The detection can be somewhat fragile so extra blank lines are sometimes
necessary for some reason.

For instance, copy the following few lines to a text buffer and type
"C-x * u" on each line in turn:

--8<---------------cut here---------------start------------->8---


x := 180 =>


y := sin(x / 4) => 


z := 2 y^2 => 


--8<---------------cut here---------------end--------------->8---

The general format for an embedded calc expression is

   var := expression => value
   
where only "expression" is required.  If you don't have "=>", evaluating
the expression will replace the expression with its value.

If you have lines as above, with assignments and values after the actual
expression, you can then go back to the first line and change the value,
say to 90, type "C-x *u" on that line again and all of them should
update.

The calculations can involve calculus (derivatives, integration), linear
algebra, and units.  Calc is actually an incredibly powerful (and
relatively unknown) computer algebra system hiding within Emacs.

The variables that could be customised to have org specific recognition
would be calc-embedded-open-formula and calc-embedded-close-formula.  It
might be useful for the community to think about whether org should have
org specific settings for these variables.  I actually define settings
for org so that only lines that look like this:

#+calc: expression

are interpreted (without requiring empty lines around such lines)
[1].  I then have code for processing these lines on export to LaTeX to
present the equations and results in a more accessible way as I use
embedded calc a lot for teaching (beamer slides).

Final note: the info manual for embedded Calc mode emphasises editing
the expressions and interacting with Calc while doing so.  I find that
method of working rather confusing, tiring, and unproductive (for my use
case) so I write the calc lines using normal editing and only "update"
the expressions to get the results.  YMMV, of course.

Let me know if this helped at all,
eric


Footnotes:
[1] it would be nice to have some generic way to hijack C-c C-c on such
     lines to do what I want, e.g. calc-embedded-update-formula.

-- 
: Eric S Fraga via Emacs 28.0.50, Org release_9.4.5-395-g82fbdd

Re: Multiple calc commands with orgbabel

[Tom Gillespie]

[-- Attachment #1: Type: text/plain, Size: 584 bytes --]

Here is a quick and dirty implementation that more or less does what
you want (I think). The if t would probably need to be replaced by a
value that corresponded to an option that indicated that ob-calc
should resolve all expressions on the stack. This isn't really an
issue of return value, it is due to the fact that ob-calc makes
stateful modifications to calc. If you want a stateless (idempotent?)
ob-calc block you would need to do something like this as well, and
then you would need an option to discard the additional values instead
of retruning them as I do here. Best!
Tom

[-- Attachment #2: ob-calc-multi-return.patch --]
[-- Type: text/x-patch, Size: 1606 bytes --]

diff --git a/lisp/ob-calc.el b/lisp/ob-calc.el
index 39ebce100..e2102feca 100644
--- a/lisp/ob-calc.el
+++ b/lisp/ob-calc.el
@@ -48,6 +48,7 @@
   "Execute a block of calc code with Babel."
   (unless (get-buffer "*Calculator*")
     (save-window-excursion (calc) (calc-quit)))
+  (let ((unpopped 0))
   (let* ((vars (org-babel--get-vars params))
 	 (org--var-syms (mapcar #'car vars))
 	 (var-names (mapcar #'symbol-name org--var-syms)))
@@ -58,12 +59,14 @@
      vars)
     (mapc
      (lambda (line)
+       (setq unpopped (1+ unpopped)) ; ICK
        (when (> (length line) 0)
 	 (cond
 	  ;; simple variable name
 	  ((member line var-names) (calc-recall (intern line)))
 	  ;; stack operation
 	  ((string= "'" (substring line 0 1))
+       (setq unpopped (- unpopped 2))
 	   (funcall (lookup-key calc-mode-map (substring line 1)) nil))
 	  ;; complex expression
 	  (t
@@ -89,9 +92,17 @@
 	     (split-string (org-babel-expand-body:calc body params) "[\n\r]"))))
   (save-excursion
     (with-current-buffer (get-buffer "*Calculator*")
-      (prog1
-        (calc-eval (calc-top 1))
-        (calc-pop 1)))))
+      (if t
+          (let ((out
+                 (cl-loop for i from 1 to unpopped
+                          do (message "%S %S" unpopped calc-stack)
+                          collect (calc-eval (calc-top 1))
+                          do (calc-pop 1))))
+            (message "%S" out)
+            (mapcar #'list (reverse out)))
+        (prog1
+            (calc-eval (calc-top 1))
+            (calc-pop 1)))))))
 
 (defun org-babel-calc-maybe-resolve-var (el)
   (if (consp el)

Re: Multiple calc commands with orgbabel

[pietru]

> Sent: Thursday, May 06, 2021 at 4:39 AM
> From: "Eric S Fraga" <e.fraga@ucl.ac.uk>
> To: "Matt Price" <moptop99@gmail.com>
> Cc: pietru@caramail.com, "Org Mode List" <emacs-orgmode@gnu.org>
> Subject: Re: Multiple calc commands with orgbabel
>
> On Wednesday,  5 May 2021 at 11:11, Matt Price wrote:
> > Can you explain how you get calc embedded mode working in org? I have
> > never used it and it sounds interesting, but I don't understand what
> > hte delimiters are.
>
> Sure.  Here is a mini-tutorial! :-) I recently gave an interactive talk
> on embedded Calc...
>
> The out-of-the-box settings for Emacs embedded mode are such that any
> line surrounded by empty lines (i.e. couple of blank lines before and
> after) can be interpreted as an expression to evaluate by Calc using
> "C-x * u".  You do not need to place these expressions in any src block.
>
> The detection can be somewhat fragile so extra blank lines are sometimes
> necessary for some reason.
>
> For instance, copy the following few lines to a text buffer and type
> "C-x * u" on each line in turn:
>
> --8<---------------cut here---------------start------------->8---
>
>
> x := 180 =>
>
>
> y := sin(x / 4) =>
>
>
> z := 2 y^2 =>
>
>
> --8<---------------cut here---------------end--------------->8---
>
> The general format for an embedded calc expression is
>
>    var := expression => value
>
> where only "expression" is required.  If you don't have "=>", evaluating
> the expression will replace the expression with its value.
>
> If you have lines as above, with assignments and values after the actual
> expression, you can then go back to the first line and change the value,
> say to 90, type "C-x *u" on that line again and all of them should
> update.
>
> The calculations can involve calculus (derivatives, integration), linear
> algebra, and units.  Calc is actually an incredibly powerful (and
> relatively unknown) computer algebra system hiding within Emacs.

Calc is a great piece of work.  Has it been long that work was done on it?

> The variables that could be customised to have org specific recognition
> would be calc-embedded-open-formula and calc-embedded-close-formula.  It
> might be useful for the community to think about whether org should have
> org specific settings for these variables.  I actually define settings
> for org so that only lines that look like this:
>
> #+calc: expression
>
> are interpreted (without requiring empty lines around such lines)
> [1].  I then have code for processing these lines on export to LaTeX to
> present the equations and results in a more accessible way as I use
> embedded calc a lot for teaching (beamer slides).
>
> Final note: the info manual for embedded Calc mode emphasises editing
> the expressions and interacting with Calc while doing so.  I find that
> method of working rather confusing, tiring, and unproductive (for my use
> case) so I write the calc lines using normal editing and only "update"
> the expressions to get the results.  YMMV, of course.
>
> Let me know if this helped at all,
> eric
>
>
> Footnotes:
> [1] it would be nice to have some generic way to hijack C-c C-c on such
>      lines to do what I want, e.g. calc-embedded-update-formula.
>
> --
> : Eric S Fraga via Emacs 28.0.50, Org release_9.4.5-395-g82fbdd
>
>

ob-fortran behaviour

[Christopher Dimech]

Fortran is behaving in a weird way

  #+BEGIN_SRC fortran
    program matrx_vectr_mult
    implicit none

    integer :: m, n, i, j, k
    real :: a(5,3), u(3), v(5), rsum

    m = 5;  n = 3
    a = 0.0;  u = 0.0;  v = 0.0

    k = 0
    do j = 1, n
      do i = 1, m
        k = i + j
        a(i,j) = real(k)
        u(i) = real(3*i)
      end do
    end do

    do i = 1, m
      rsum = 0.0
      do j = 1, n
        rsum = (a(i,j) * u(j)) + rsum
      end do
      v(i) = rsum
    end do

    write (*,*) "a * *", " * ", "u", " * ", "v"
    write (*,*) a(1,:), "*", u(1), "*", v(1)
    write (*,*) a(2,:), "*", u(2), "*", v(2)
    write (*,*) a(3,:), "*", u(3), "*", v(3)
    write (*,*) a(4,:), "* * *", v(4)
    write (*,*) a(5,:), "* * *", v(5)

    print *, "---"
    write (*,*) a

  end program
#+END_SRC

#+RESULTS:
|    a |    * |   * | *   |   u | *   |     v |     |     |     |     |     |     |     |     |
| 12.0 |  3.0 | 4.0 | *   | 3.0 | *   |  90.0 |     |     |     |     |     |     |     |     |
| 15.0 |  4.0 | 5.0 | *   | 6.0 | *   | 114.0 |     |     |     |     |     |     |     |     |
|  4.0 |  5.0 | 6.0 | *   | 9.0 | *   |  96.0 |     |     |     |     |     |     |     |     |
|  5.0 |  6.0 | 7.0 | *   |   * | *   | 114.0 |     |     |     |     |     |     |     |     |
|  6.0 |  7.0 | 8.0 | *   |   * | *   | 132.0 |     |     |     |     |     |     |     |     |
|  --- |      |     |     |     |     |       |     |     |     |     |     |     |     |     |
| 12.0 | 15.0 | 4.0 | 5.0 | 6.0 | 3.0 |   4.0 | 5.0 | 6.0 | 7.0 | 4.0 | 5.0 | 6.0 | 7.0 | 8.0 |


---------------------
Christopher Dimech
General Administrator - Naiad Informatics - GNU Project (Geocomputation)
- Geophysical Simulation
- Geological Subsurface Mapping
- Disaster Preparedness and Mitigation
- Natural Resource Exploration and Production
- Free Software Advocacy

Re: ob-fortran behaviour

[Christopher Dimech]

There exists no problem with fortran.

My brain was not open because u(i) gets beyond its bounds.

> Sent: Thursday, May 06, 2021 at 11:09 AM
> From: "Christopher Dimech" <dimech@gmx.com>
> To: "Eric S Fraga" <e.fraga@ucl.ac.uk>
> Cc: "Org Mode List" <emacs-orgmode@gnu.org>
> Subject: ob-fortran behaviour
>
> Fortran is behaving in a weird way
>
>   #+BEGIN_SRC fortran
>     program matrx_vectr_mult
>     implicit none
>
>     integer :: m, n, i, j, k
>     real :: a(5,3), u(3), v(5), rsum
>
>     m = 5;  n = 3
>     a = 0.0;  u = 0.0;  v = 0.0
>
>     k = 0
>     do j = 1, n
>       do i = 1, m
>         k = i + j
>         a(i,j) = real(k)
>         u(i) = real(3*i)
>       end do
>     end do
>
>     do i = 1, m
>       rsum = 0.0
>       do j = 1, n
>         rsum = (a(i,j) * u(j)) + rsum
>       end do
>       v(i) = rsum
>     end do
>
>     write (*,*) "a * *", " * ", "u", " * ", "v"
>     write (*,*) a(1,:), "*", u(1), "*", v(1)
>     write (*,*) a(2,:), "*", u(2), "*", v(2)
>     write (*,*) a(3,:), "*", u(3), "*", v(3)
>     write (*,*) a(4,:), "* * *", v(4)
>     write (*,*) a(5,:), "* * *", v(5)
>
>     print *, "---"
>     write (*,*) a
>
>   end program
> #+END_SRC
>
> #+RESULTS:
> |    a |    * |   * | *   |   u | *   |     v |     |     |     |     |     |     |     |     |
> | 12.0 |  3.0 | 4.0 | *   | 3.0 | *   |  90.0 |     |     |     |     |     |     |     |     |
> | 15.0 |  4.0 | 5.0 | *   | 6.0 | *   | 114.0 |     |     |     |     |     |     |     |     |
> |  4.0 |  5.0 | 6.0 | *   | 9.0 | *   |  96.0 |     |     |     |     |     |     |     |     |
> |  5.0 |  6.0 | 7.0 | *   |   * | *   | 114.0 |     |     |     |     |     |     |     |     |
> |  6.0 |  7.0 | 8.0 | *   |   * | *   | 132.0 |     |     |     |     |     |     |     |     |
> |  --- |      |     |     |     |     |       |     |     |     |     |     |     |     |     |
> | 12.0 | 15.0 | 4.0 | 5.0 | 6.0 | 3.0 |   4.0 | 5.0 | 6.0 | 7.0 | 4.0 | 5.0 | 6.0 | 7.0 | 8.0 |
>
>
> ---------------------
> Christopher Dimech
> General Administrator - Naiad Informatics - GNU Project (Geocomputation)
> - Geophysical Simulation
> - Geological Subsurface Mapping
> - Disaster Preparedness and Mitigation
> - Natural Resource Exploration and Production
> - Free Software Advocacy
>
>

ob-fortran fixes to column position 6 and subroutine keywords

[pietru]

ob-fortran treats code highlighting as "fortran 77" code, starting highlighting
from column position 6.  Can this be changed to use free format?

Also the following call fails, meaning that currently you cannot use
keywords.

call system_clock(cnt_mx=count_max, cnt_rt=count_rate)

Re: Multiple calc commands with orgbabel

[Bastien]

Hi Tom,

Tom Gillespie <tgbugs@gmail.com> writes:

> Here is a quick and dirty implementation that more or less does what
> you want (I think).

Mandatory question: would you like to be ob-calc.el maintainer?

-- 
 Bastien

Re: Multiple calc commands with orgbabel

[Tom Gillespie]

Hi Bastien,
    Given the short length of the file, the fact that I now have a
fairly good idea of how it works, and the fact that I share a last
name with the original author of calc, I would be happy to. I'll hunt
down the steps you mentioned for becoming an ob- maintainer and ping
back when they are done. Best!
Tom

Re: Multiple calc commands with orgbabel

[Bastien]

Hi Tom,

that's really kind of you!  Thanks a lot.

If other people share the last name of original authors of 
ob-* files, please raise your voice and ask for your share :)

Best,

-- 
 Bastien

Re: Multiple calc commands with orgbabel

[Tom Gillespie]

[-- Attachment #1: Type: text/plain, Size: 59 bytes --]

Hi Bastien,
    Here's a patch to make it official. :)
Tom

[-- Attachment #2: 0001-lisp-ob-calc.el-Add-Tom-Gillespie-as-the-maintainer.patch --]
[-- Type: text/x-patch, Size: 716 bytes --]

From 3a61289e8fa4442f6d340138dcb67b950e980212 Mon Sep 17 00:00:00 2001
From: Tom Gillespie <tgbugs@gmail.com>
Date: Thu, 6 May 2021 23:52:21 -0700
Subject: [PATCH] lisp/ob-calc.el: Add Tom Gillespie as the maintainer

* lisp/ob-calc.el: Add Tom Gillespie as the maintainer.
---
 lisp/ob-calc.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lisp/ob-calc.el b/lisp/ob-calc.el
index 39ebce100..520f39145 100644
--- a/lisp/ob-calc.el
+++ b/lisp/ob-calc.el
@@ -3,6 +3,7 @@
 ;; Copyright (C) 2010-2021 Free Software Foundation, Inc.
 
 ;; Author: Eric Schulte
+;; Maintainer: Tom Gillespie <tgbugs@gmail.com>
 ;; Keywords: literate programming, reproducible research
 ;; Homepage: https://orgmode.org
 
-- 
2.26.3

Re: Multiple calc commands with orgbabel

[Bastien]

Tom Gillespie <tgbugs@gmail.com> writes:

>     Here's a patch to make it official. :)

Applied in master, thanks!

-- 
 Bastien