Simplified 5D Moffat
(%i1) | f4s5(x5,x4,x3,x2,x1,alpha,beta) := ( 1 + (x1^2 + x2^2 + x3^2 + x4^2 + x5^2)/ alpha ^2 )^(-beta); |
(%i2) | f4s4(x4,x3,x2,x1,alpha,beta) := defint( f4s5(x5,x4,x3,x2,x1,alpha,beta), x5, -inf, inf ); |
(%i3) | f4s3(x3,x2,x1,alpha,beta) := defint( f4s4(x4,x3,x2,x1,alpha,beta), x4, -inf, inf ); |
(%i4) | f4s2(x2,x1,alpha,beta) := defint( f4s3(x3,x2,x1,alpha,beta), x3, -inf, inf ); |
(%i5) | f4s1(x1,alpha,beta) := defint( f4s2(x2,x1,alpha,beta), x2, -inf, inf ); |
(%i6) | f4s0(alpha,beta) := defint( f4s1(x1,alpha,beta), x1, -inf, inf ); |
(%i7) | norm(alpha, beta) := factor(makegamma(ratsimp(f4s0(alpha,beta)))); |
(%i8) | killcontext(initial); assume( alpha > 0, beta > 0, beta < 0.5 ); norm(alpha,beta); |
(%i11) | killcontext(initial); assume( alpha > 0, equal(beta,0.5)); norm(alpha,beta); |
(%i14) | killcontext(initial); assume( alpha > 0, beta > 0.5, beta < 1 ); norm(alpha,beta); |
(%i17) | killcontext(initial); assume( alpha > 0, equal(beta,1)); norm(alpha,beta); |
(%i20) | killcontext(initial); assume( alpha > 0, beta > 1, beta < 3/2 ); norm(alpha,beta); |
(%i23) | killcontext(initial); assume( alpha > 0, equal(beta,3/2) ); norm(alpha,beta); |
(%i26) | killcontext(initial); assume( alpha > 0, beta > 3/2, beta < 2 ); norm(alpha,beta); |
(%i29) | killcontext(initial); assume( alpha > 0, equal(beta,2) ); norm(alpha,beta); |
(%i32) | killcontext(initial); assume( alpha > 0, beta > 2, beta < 5/2 ); norm(alpha,beta); |
(%i35) | killcontext(initial); assume( alpha > 0, equal(beta, 5/2) ); norm(alpha,beta); |
(%i38) | killcontext(initial); assume( alpha > 0, beta > 5/2, beta < 3 ); norm(alpha,beta); |
(%i41) | killcontext(initial); assume( alpha > 0, equal(beta,3)); norm(alpha,beta); |
(%i44) | killcontext(initial); assume( alpha > 0, beta > 3, beta < 7/2 ); norm(alpha,beta); |
(%i47) | killcontext(initial); assume( alpha > 0, equal(beta,7/2) ); norm(alpha,beta); |
(%i50) | killcontext(initial); assume( alpha > 0, beta > 7/2, beta < 4 );norm(alpha,beta); |
(%i53) | killcontext(initial); assume( alpha > 0, equal(beta, 4) );norm(alpha,beta); |
(%i56) | killcontext(initial); assume( alpha > 0, beta > 4, beta < 9/2 );norm(alpha,beta); |
(%i59) | killcontext(initial); assume( alpha > 0, equal(beta, 9/2 ) );norm(alpha,beta); |
(%i62) | killcontext(initial); assume( alpha > 0, beta > 9/2 );norm(alpha,beta); |