Quit[]

Nierówności i układy nierówności

Nierówności dwóch zmiennych

Przykładowe układy nierówności

uklad={3 x+y>2,x+(y^2)<1};

uklad={(x^2)-(y^2)<0,(x^2)+(y^2)>1};

uklad//TableForm

spelniona=Reduce[uklad,{x,y}]//Simplify;
%//TraditionalForm

RegionPlot[uklad,{x,-2,2},{y,-2,2}]

And@@uklad

RegionPlot[And@@uklad,{x,-2,2},{y,-2,2}]

RegionPlot[Or@@uklad,{x,-2,2},{y,-2,2}]

RegionPlot[Not@(Or@@uklad),{x,-2,2},{y,-2,2}]

Nierówności trzech zmiennych

rysuj:=RegionPlot3D[uklad,{x,-s,s},{y,-s,s},{z,-s,s}]

(*Help*)
uklad=(x^2)+(y^3)-(z^2)>0;

s=3;rysuj

Przykładowe układy nierówności

uklad=And@@{(x^2)+(y^3)-(z^2)>0,(x^2)+(y^2)+(z^2)>2};

s=2;rysuj

uklad=And@@{(x^2)+(y^2)-(z^2)>0,(x^2)+(y^2)+(z^2)>2,(x^2)+(y^2)+(z^2)<4};

s=2;rysuj

uklad=Or@@{x y z>1,(x^2)+(y^2)+(z^2)<20};

s=6;rysuj

uklad=Sin[x y z]>1/8;

s=8;rysuj

(*Help*)
uklad=x^2+y^2+1/2z^2≤3;
s=3; rysuj

źródło notatnika

Algebra Komputerowa  (http://mth.drac.oa.uj.edu.pl/public.php?pubcase=lecture)
Wersja programu: Mathematica 7

Andrzej Woszczyna
Wydział Fizyki, Astronomii i Informatyki Stosowanej
Uniwersytet Jagielloński