как назначить пределы интеграции в Mathematica после решения ряда неравенств

Question

У меня есть набор неравенств, например,

2 x1 >=3 x2 && 0<=x1<=1 && 0<=x2<=1

, который можно решить с помощью Уменьшить. Затем я хочу сделать интегрирование для функции f (x1, x2) = 1 / x1 в области, определенной неравенствами выше. В этом случае Reduce дает результат

(x1 == 0 && x2 == 0) || (0 < x1 <= 1 && 0 <= x2 <= (2 x1)/3)

Тогда я могу сделать интеграцию, используя

Integrate[Integrate[1/x1, {x2, 0, 2 x1/3}], {x1, 0, 1}]

Но все это требует моего ручного вмешательства. Как мне сделать это модернизированным способом? Большое спасибо!

Answer 1

Integrate[1/x1 Boole[2 x1 >= 3 x2 && 0 <= x1 <= 1 &&0 <= x2 <= 1], {x1, -\[Infinity], \[Infinity]}, {x2, -\[Infinity], \[Infinity]}]