that almost gets what I want, but doesn't get the noun form 'sum.
I want to look at what happens with two separate commands.
%,integrate; --> integral done, but sum not done.
then
%,sum; ----> sum finally done.
-----------------------
using your funmake(..) line, my program gives
(%i2) display2d:false$
(%i3) e:'integrate('sum(x^n,n,1,3),x,0,1);
(%o3) 'integrate('sum(x^n,n,1,3),x,0,1)
(%i4) istosi(e);
sums = 'sum(x^n,n,1,3)
y = x
y1 = 0
y2 = 1
f = x^n
m = n
m1 = 1
m2 = 3
(%o4) sum('integrate(x^n,x,0,1),n,1,3)
not really a double noun form, since
(%i5) grind(%)$
sum('integrate(x^n,x,0,1),n,1,3)$
(%i6) %o4,integrate;
(%o6) 13/12
----------------------
Ted
----- Original Message -----
From: "Barton Willis" <willisb at unk.edu>
To: "Edwin Woollett" <woollett at charter.net>
Cc: "maxima mailing list" <maxima at math.utexas.edu>
Sent: Monday, December 01, 2008 4:41 PM
Subject: Re: [Maxima] sum integrate noun form
OK, that would be funmake('sum, ['integrate( f, y, y1, y2), m, m1, m2]):
(%i7) stosi('integrate( 'sum( x^n, n, 1, 3), x, 0, 1 ));
sums=sum(x^n,n,1,3)
y=x
y1=0
y2=1
f=x^n
m=n
m1=1
m2=3
(%o7) sum(integrate(x^n,x,0,1),n,1,3)
Barton
-----maxima-bounces at math.utexas.edu wrote: -----
>To: "Barton Willis" <willisb at unk.edu>
>From: "Edwin Woollett" <woollett at charter.net>
>Sent by: maxima-bounces at math.utexas.edu
>Date: 12/01/2008 06:35PM
>cc: maxima mailing list <maxima at math.utexas.edu>
>Subject: Re: [Maxima] sum integrate noun form
>
>On Dec. 1, 2008, Barton Willis wrote:
>
>>Try changing 'sum( 'integrate( f, y, y1, y2), m, m1, m2 ) ) to
> > apply('sum, ['integrate( f, y, y1, y2), m, m1, m2]));
>>With that change, I get
> > stosi('integrate( 'sum( x^n, n, 1, 3), x, 0, 1 )); ---->
> > integrate(x^3,x,0,1)+integrate(x^2,x,0,1)+integrate(x,x,0,1)
>
>Hi Barton,
>I failed to be clear about what I am trying to get out of this
>program.
>
>what I want is istosi( 'integrate( 'sum( x^n, n, 1, 3), x, 0, 1 ) ) ---->>
>
> 'sum( 'integrate( x^n, n, 1, 3), x, 0, 1 ),
>
>(a double noun form).
>
>Ted
>
>>>----------------------
>>>code and run:
>>>-----------------------------------------------
>>>(%i1) display2d : false$
>>>(%i2) istosi(e) := block( [sums, y, y1, y2,
>>> f, m, m1, m2],
>>> sums : first(e), display(sums),
>>> y : second(e), display(y),
>>> y1 : third(e), display(y1),
>>> y2 : fourth(e), display(y2),
>>> f : first(sums), display(f),
>>> m : second(sums), display(m),
>>> m1 : third(sums), display(m1),
>>> m2 : fourth(sums), display(m2),
>>> 'sum( 'integrate( f, y, y1, y2), m, m1, m2 ) )$
>>>
>>> (%i3) e : 'integrate( 'sum( x^n, n, 1, 3), x, 0, 1 )$
>>>
>>> (%i4) istosi(e);
>>> sums = 'sum(x^n,n,1,3)
>>> y = x
>>> y1 = 0
>>> y2 = 1
>>> f = x^n
>>> m = n
>>> m1 = 1
>>> m2 = 3
>>> (%o4) 3*'integrate(x^n,x,0,1)
>>>------------------------------------------
>>>
>>>Any cures available?
>>>
>>>Ted Woollett
>
>_______________________________________________
>Maxima mailing list
>Maxima at math.utexas.edu
>http://www.math.utexas.edu/mailman/listinfo/maxima