Generování nerovnic

<< Algebra`InequalitySolve`
<< Graphics`InequalityGraphics`
<< Graphics`InequalityGraphics`

n = 5;
nero = 
        Table[(((x - Random[Integer, {-7, 7}]))/((x - Random[Integer, {-7, 7}])))*(((x - Random[Integer, {-7, 7}]))/((x - Random[Integer, {-7, 7}]))) + 
              Random[Integer, {-7, 7}] ≥ 0, {i, 
            n}];
Do[Print[i, ". zadani:   ", TraditionalForm[nero[[i]]]], {i, 
        n}]
Do[Print["Vysledek cislo ", 
        i, ":   " InequalitySolve[nero[[i]], x]], {i, 
        n}]
Do[Print["Graf cislo ", i, ":   ", 
        InequalityPlot[
          Evaluate[{nero[[i]]}], {x, -10, 10}, {y, -10, 10}, 
          AxesLabel -> {"x", "y"}, 
          AspectRatio -> (1/GoldenRatio)]], {i, n}]