MaplePrimes - answers and comments on Question, Double summation of a function(which is recursive) with a recursion error

Change sum to add

Carl Love — Tue, 19 Feb 2013 00:17:30 Z

If you replace all three occurences of sum with add, then your function will work. However, it can be improved in several ways, which I'll write about later. I just wanted to get you a minimally working version before I work further with it.

Edit: Here are some improvements:

f:= proc(h::And(even,nonnegint))
   option remember;
   local m;
   h! - add(3*thisproc(2*m)*m, m= 1..h/2-1)
end proc:

f(2):= 3:

g:= proc(n::nonnegint)
local a,m;
3 + 2*n - add(add(f(2*a), a= 1..iquo(m,2)), m= 1..n)
end proc:

This works

Markiyan Hirnyk — Tue, 19 Feb 2013 00:21:45 Z

Download double_sum.mw

Comments:

1. Up to http://www.mapleprimes.com/questions/121489-Recursive-Function-Definition-Does-Not, f is written as a recursive procedure.

2. The add command instead of the sum command in g.