var("x y")

implicit_plot(x^2+y^2 == 2,(x,-3,3),(y,-3,3))

implicit_plot(x^2*sin(y) + sin(x)*y^2 == 2, (x,-5,5), (y,-5,5), color="red")

implicit_plot((x^2+y^2-4)^3==108*y^2,(x,-5,5),(y,-5,5))

implicit_plot(x^2+y^2 == 2, (x,-3,3),(y,-3,3),color="red") + plot(sqrt(2), (x,-3,3))

%md
### Example
Plot the following impliicit function for several values of $a$.
\begin{equation}
x^{\frac{2}{3}}+y^{\frac{2}{3}} = a^{\frac{2}{3}}
\end{equation}

implicit_plot(x^(2/3)+y^(2/3)==1^(2/3),(x,-2,2),(y,-2,2))