(*Napisane przez Pawła Czachorowskiego.Wykorzystanie dowolne.*)
(*Wszelkie uwagi mile widziane.*)

f[x_,y_]:=3*x+2*y
(*Spróbujcie pokombinować z różnymi funkcjami, np. 3*x^3  *)

g[x_,y_]:=x^2+y^2

Plot3D[f[x,y],{x,-4,4},{y,-4,4}]

Manipulate[ContourPlot[{f[x,y]==d,,g[x,y]==1},{x,-4,4},{y,-4,4}],{d,-5,5}]

Minimize[{f[x,y],g[x,y]==1},{x,y}]

Maximize[{f[x,y],g[x,y]==1},{x,y}]