RE: Ausgabe von »InequalitySolve« weiter verwenden

[Debitsch@XXXXXXX.de (Rasmus Debitsch)]

Hallo,

vielleicht gehts so:

<< "Algebra`InequalitySolve`"
res = InequalitySolve[x*(x^2 - 1)*(x^2 - 2) > 0, x]

bounds = (
        Switch[
                Head[#1], 
                Inequality,     (List @@ #1)[[{1, -1}]], 
                Greater,        {(List @@ #1)[[-1]], Infinity}, 
                Less,           {Infinity, (List @@ #1)[[1]]}, 
                True,           {-Infinity, Infinity}
        ] & ) /@ List @@ res

Apply[
        Integrate[x^2/((x + Sqrt[3])*(x + Sqrt[2])), {x, ##1}] & ,
        bounds, {1}
 ]

Der Switch macht aber viele Annahmen über die Struktur des Ergebnisses.
Da ist bei anderen Ungleichungen wohl noch etwas Probieren angesagt.

Mit freundlichen Grüßen
Rasmus Debitsch

-- 
----------------------------------------------------
        Rasmus Debitsch
        Mecklenburger Straße 6
        73431 Aalen

        Tel.:   07361 35435
        eMail : debitsch@XXXXXXX.de
                debitsch@XXXXXXX.de
----------------------------------------------------