Simplified 4D Moffat

(%i1) f4s4(x4,x3,x2,x1,alpha,beta) := ( 1 + (x1^2 + x2^2 + x3^2 + x4^2)/ alpha ^2 )^(-beta);

Result

(%i2) f4s3(x3,x2,x1,alpha,beta) := defint( f4s4(x4,x3,x2,x1,alpha,beta), x4, -inf, inf );

Result

(%i3) f4s2(x2,x1,alpha,beta) := defint( f4s3(x3,x2,x1,alpha,beta), x3, -inf, inf );

Result

(%i4) f4s1(x1,alpha,beta) := defint( f4s2(x2,x1,alpha,beta), x2, -inf, inf );

Result

(%i5) f4s0(alpha,beta) := defint( f4s1(x1,alpha,beta), x1, -inf, inf );

Result

(%i6) norm(alpha, beta) := factor(makegamma(ratsimp(f4s0(alpha,beta))));

Result

(%i7) killcontext(initial); assume( alpha > 0, beta > 0, beta < 0.5 ); norm(alpha,beta);

Result

(%i10) killcontext(initial); assume( alpha > 0, equal(beta,0.5)); norm(alpha,beta);

Result

(%i13) killcontext(initial); assume( alpha > 0, beta > 0.5, beta < 1 ); norm(alpha,beta);

Result

(%i16) killcontext(initial); assume( alpha > 0, equal(beta,1)); norm(alpha,beta);

Result

(%i19) killcontext(initial); assume( alpha > 0, beta > 1, beta < 3/2 ); norm(alpha,beta);

Result

(%i22) killcontext(initial); assume( alpha > 0, equal(beta,3/2) ); norm(alpha,beta);

Result

(%i25) killcontext(initial); assume( alpha > 0, beta > 3/2, beta < 2 ); norm(alpha,beta);

Result

(%i28) killcontext(initial); assume( alpha > 0, equal(beta,2) ); norm(alpha,beta);

Result

(%i31) killcontext(initial); assume( alpha > 0, beta > 2, beta < 3 ); norm(alpha,beta);

Result

(%i34) killcontext(initial); assume( alpha > 0, equal(beta,3)); norm(alpha,beta);

Result

(%i37) killcontext(initial); assume( alpha > 0, beta > 3, beta < 7/2 ); norm(alpha,beta);

Result

(%i40) killcontext(initial); assume( alpha > 0, equal(beta,7/2) ); norm(alpha,beta);

Result

(%i43) killcontext(initial); assume( alpha > 0, beta > 7/2, beta < 4 );norm(alpha,beta);

Result

(%i46) killcontext(initial); assume( alpha > 0, equal(beta, 4) );norm(alpha,beta);

Result

(%i49) killcontext(initial); assume( alpha > 0, beta > 4 );norm(alpha,beta);

Result


Created with wxMaxima.