Have a figure: x^4 + y^4 + 62x^2y^2=1 inside {x,-1,1},{y,-1,1} want to "estimate" the area of the figure inside using random dots.
dots = RandomReal[{-1, 1}, {1000, 2}];
tester[x_, y_] := x^4 + y^4 + 62*x^2*y^2 <= 1;
infigure = Select[dots, tester];
notinfigure = Complement[dots, infigure];
p1 = ContourPlot[{x^4 + y^4 + 62*x^2*y^2 == 1}, {x, -1, 1}, {y, -1,
1}];
p2 = ListPlot[{infigure, notinfigure}, PlotStyle -> {Green, Blue}];
here I'm getting an error with the plotlist, it generates numbers within -1,1 and then says they are not numbers...
Show[p1,p2]
What am i doing wrong? I did this with the unit circle and it shows fine.