Funkce, zadana implicitne

> restart;

> with(plots):

zadani funkce

> f:=2*x^4+y^4-3*x^2*y-2*y^3+y^2:

> f;

sekvence zobrazeni funkce

> plice:=seq(implicitplot(f, x=-5/2..5/2, y=-5/2..5/2, grid=[10+5*k,10+5*k],color=black,thickness=3),k=0..20):

zobrazeni animace funkce

> display(plice,insequence=true);