因为它是双曲函数y^2-z^2=1绕z轴旋转得到的。不太好化,还有就是合并两张图
pho1=Plot3D[(x^2+y^2-1)^0.5,{x,-10,10},{y,-10,10},PlotRange->Automatic];
pho2=Plot3D[-(x^2+y^2-1)^0.5,{x,-10,10},{y,-10,10},PlotRange->Automatic];
show[pho1,pho2]
你自已可以调试下，大概就是这样的，而且你又没有给悬赏分。
如何用mathematica画出函数图象
Show[ContourPlot[x^2 + y^2 == 1, {x, -1.2, 1.2}, {y, -1.2, 1.2}],Plot[x, {x, -1.2, 1.2}],Graphics[{Dashed, Arrow[{{0, -1.2}, {0, 1.2}}]}],Graphics[{Dashed, Arrow[{{-1.2, 0}, {1.2, 0}}]}],Graphics[{Red, Line[{{Sqrt[2]\/2, Sq...
如何用mathematica画三个圆柱体垂直相交部分固体的边缘
RegionPlot3D[x^2 + y^2 <= 1 && x^2 + z^2 <= 1 && y^2 + z^2 <= 1, {x, -1.5, 1.5}, {y, -1.5, 1.5}, {z, -1.5, 1.5}]把上面代码复制过去，shift+回车
用Mathematica作图,求代码。。
程序代码：Animate[Plot3D[ 10*Sin[Sqrt[x^2 + y^2] + t]\/Sqrt[1 + x^2 + y^2], {x, -6, 6}, {y, -6, 6}, PlotPoints -> 50, Mesh -> None], {t, 0, 10}]下面是动态的图形
用mathematica画圆,双曲线,椭圆,抛物线?
回答：用ContourPlot就可以了,具体看看帮助。现成的代码嘛: Row[ContourPlot[#, {x, -1, 1}, {y, -1, 1}, ImageSize -> Small] & \/@ {x^2 + y^2 == 1\/4, x^2 - y^2 == 1\/4, x^2 + 4 y^2 == 1\/4, x^2 + y == 1\/4}]要读懂它当然还是要看帮助。
怎么用mathematica画出x^2-xy+y^2=1的图像
ContourPlot[x^2 - x y + y^2 == 1, {x, -2, 2}, {y, -2, 2}]
如何使用Mathematica制作隐函数的图像
公式：ParametricPlot[{fx,fy},{t,tmin,tmax}]这里的t是参数 比喻你输的那个方程可以输入：ParametricPlot[{Cos[t], Sin[t]}, {t, 0, 2*Pi}]来达到同样的效果 Mathematica应该可以直接将隐函数变成图像，但本人才疏学浅，只能告诉你这个了 参考资料：http:\/\/www.math.sjtu.edu.cn\/mathematica...
怎样用mathematica画出一个二元函数的图象
{y,ymin,ymax}是变量y的取值范围。Plot3D是画三维函数图象的命令，函数名首字母要大写，注意格式 你不懂的话可以输入"?+命令"查询这个命令的帮助 比如"?Plot3D" 然后Shift+Enter就会 显示关于Plot3D这个命令的帮助 百度文库或是新浪爱问共享资料里面有很多Mathematicia的中文教程的......
...怎么用mathematica画出三立体相交部分,并把面标注颜色,求大神...
这个很容易啊：RegionPlot3D[ x^2 + y^2 <= 1 && x^2 + z^2 <= 1 && y^2 + z^2 <= 1, {x, -1, 1}, {y, -1, 1}, {z, -1, 1}]啊，不过我为什么要来答这个问题呢，楼主显然已经抛弃了他的问题，一个不合要求的答案也已经被选成了推荐，我这不是自降采纳率吗……...
mathematica画三维曲面
Plot3D[f(x,y),{x,x1,x2},{y,y1,y2}]，其中f（x，y）为二元函数，x1、x2和y1、y2分别为x，y两个变量的上下限 例如你想在x[-2,2]和y[-2,2]这个区间内画x^2+y^2这个曲面 那么就应该为：Plot3D[x^2+y^2,{x,-2,2},{y,-2,2}]注意单词大小写，mathematica对语法要求很...
如何运用Mathematica制作一个心形的数学函数图像?我要代码
ContourPlot3D[(2 x^2 + y^2 + z^2 - 1)^3 - (x^2 z^3)\/10 - y^2 z^3 == 0, {x, -1.4, 1.4}, {y, -1.4, 1.4}, {z, -1.4, 1.4}, PlotPoints -> 30,Axes -> False, Lighting -> Automatic,ContourStyle -> {RGBColor[1, .5, .5]}, Mesh -> ...
