У меня есть набор неравенств, например,
2 x1 >=3 x2 && 0<=x1<=1 && 0<=x2<=1
который можно решить с помощью Reduce. Затем я хочу выполнить интегрирование для функции 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}]
Но все это требует моего ручного вмешательства. Как мне сделать это в обтекаемой форме? Большое спасибо!
