如何在R中绘制该等式的解? (X’+ Y’-1)4 = X 5 Y’
x <- seq(-2, 2, length.out = 100) y <- seq(-2, 2, length.out = 100) z <- outer(x, y, function(x,y) (x^2+y^2-1)^3 - x^2*y^3) contour(x, y, z, levels = 0, drawlabels = FALSE)