mydefint2
- Subject: mydefint2
- From: Edwin Woollett
- Date: Mon, 12 Mar 2012 12:14:56 -0700
a redefinition of mydefint2 seems to work
for this example:
------------------------------------------
(%i25) mydefint2(qe,qxL,qyL) :=
block([qrr],
assume (not equal (qxL[1],0),qxL[1] > qxL[2],qxL[1] <= qxL[3]),
qrr : apply('mydefint,
flatten([apply('mydefint,
flatten([qe,qyL])),qxL])),
forget (not equal (qxL[1],0),qxL[1] > qxL[2],qxL[1] <= qxL[3]),
qrr)$
(%i26) mydefint2 (1/sqrt(x+y),[x,0,1],[y,0,1]);
(%o26) (2^(7/2)-8)/3
--------------------------------------------
Ted