Demo entry 6645241

123

   

Submitted by anonymous on Oct 09, 2017 at 13:30
Language: Mathematica. Code size: 368 Bytes.

var = {x, y, z, u, v};fun = Power[Plus @@ var, p]~Power~-1;con0 = <|1 -> (StringRiffle[# > 0 & /@ var, "&&"] // ToExpression),    2 -> Plus @@ var < 1|>;con = StringRiffle[Values@con0, "&&"] // ToExpression;result = Integrate[fun,     var  ImplicitRegion[con, Evaluate@var]] // Together;Column@{fun, con,   ReplacePart[#, 1 -> #~Style~20] &@result} // TraditionalForm

This snippet took 0.00 seconds to highlight.

Back to the Entry List or Home.

Delete this entry (admin only).