Skip to main content

You are not logged in. Your edit will be placed in a queue until it is peer reviewed.

We welcome edits that make the post easier to understand and more valuable for readers. Because community members review edits, please try to make the post substantially better than how you found it, for example, by fixing grammar or adding additional resources and hyperlinks.

Required fields*

3
  • $\begingroup$ Why my same method with you,but give a wrong result?Clear["*"];re=ImplicitRegion[((1.2 x)^2+(1.4 y)^2-1)^3-(1.3 x)^2 y^3==0,{x,y}];soln=ArgMax[{EuclideanDistance[{x1,y1},{x2,y2}],{{x1,y1}[Element]re,{x2,y2}[Element]re}},{x1,y1,x2,y2}]; ContourPlot[((1.2 x)^2+(1.4 y)^2-1)^3-(1.3 x)^2 y^3==0,{x,-1.5,1.5},{y,-3/2,3/2},AspectRatio->Automatic,Epilog->{PointSize[Large],Red,Point[{{soln[[1]],soln[[2]]},{soln[[3]],soln[[4]]}}]}]` $\endgroup$ Commented Mar 29, 2016 at 9:11
  • $\begingroup$ @yode I don't know why it fails, maybe a bug? $\endgroup$ Commented Mar 29, 2016 at 9:41
  • $\begingroup$ I think so.Thanks for your confirmation. $\endgroup$ Commented Mar 29, 2016 at 9:59