如何将椭圆函数和输出矢量图绘制为mathematica？

Question

我有椭圆函数如下：

−3.06274x^2−y^2+1192.22x+152.71y+1.829648xy −196494==0  

我使用emdbook::curve3d(-3.06274*x^2-y^2+1192.22*x+152.71*y+1.829648*x*y-196494, sys3d="contour",level=0,from=c(200,200),to=c(500,500))来绘制它 但是在x：260，y：400附近的曲线中有一个零 我只需要一个没有轴的矢量图，比如.eps。然后我可以使用illustrator打开这个.eps文件 怎么做？

Answer 1

postscript("out.eps")
library(emdbook)
curve3d(-3.06274*x^2-y^2+1192.22*x+152.71*y+1.829648*x*y-196494,
         sys3d="contour",level=0,from=c(200,200),to=c(400,500),
        drawlabels=FALSE,axes=FALSE,xlab="",ylab="")
dev.off()