> alpha := proc (c) local i; return product(q^z+1, z = 0 .. c) end proc; beta := proc (c, t) local i; return sum(alpha(-t-i), i = 0 .. 1) end proc;
> test := proc (c) local i; return sum(betaformal(i, i-1), i = 0 .. 1) end proc; test(1); beta(0, -1); beta(1, 0);
> test := proc (c) local i; return sum(beta(i, i-1), i = 0 .. 1) end proc; test(1);
is code that works indeed. My apologies for the alpa procedure with two arguments. Regardless of that, it did not work, but it was there because I kept reducing the code so I could it present it in a reasonable form on this forum.
Thank you for the advice on add versus sum. I think I heard that before, but then I got in trouble. In any case, doing a lot of successive additions is in fact my goal..