Re: Ungleich

["Udo und Susanne Krause" <su.krause@XXXXXXX.ch>]

Hallo nocheinmal,

> > das kann am Ausdruck liegen, denn:

> und letzteres veranlasst zu einer Eselsbrueckenfunktion

leider vertrottelt formuliert, deshalb richterRefine refined

Remove[richterRefine]
richterRefine[f_, a_] := If[FreeQ[a, Unequal], Refine[f, a],
  If[Head[a] == Unequal,
   {{#, Refine[f, Assumptions -> #]} &[Less @@ a],
    {#, Refine[f, Assumptions -> #]} &[Greater @@ a]},
   Refine[f, a]
   ]
  ]

Gruss
Udo.