怎样用mathematica 画出二次曲线的图像(园,椭圆、双曲线、抛物线)标准式就行

问题描述:

怎样用mathematica 画出二次曲线的图像(园,椭圆、双曲线、抛物线)标准式就行

(* 圆:*)Graphics[Circle[]](*椭圆:*)Graphics[Circle[{0,0},{5,3}]](*双曲线:*)Get["Graphics`Implicitplot`"]ImplicitPlot[x^2 - y^2 == 1,{x,-2,2}](*抛物线:*)Plot[7 x^2 + 2 x + 1,{x,-10,10}]...