怎样用mathematica 5.0 画双叶双去曲面和双曲抛物面（我要程序）

双叶双曲面

A1 = Plot3D[Sqrt[1 + x^2 + y^2], {x, -2, 2}, {y, -2, 2}];

A2 = Plot3D[-Sqrt[1 + x^2 + y^2], {x, -2, 2}, {y, -2, 2}];

Show[A1, A2]

（x,y范围可随意取，x^2和y^2系数也可随意取）

双曲抛物面

Plot3D[x^2 - y^2, {x, -5, 5}, {y, -5, 5}, AspectRatio -> 1]

（x,y范围可随意取，x^2和y^2系数也可随意取）

坐标比例问题，把坐标比例调整一下就差不多了

要输入的当然是一堆字母咯，Mathematica是编程语言。要使用一个软件起码也要对它的基本 *** 作方法有个了解吧？

你挖的这个帖里不是说的很清楚了吗：tiebabaiducom/p/964814116

如果是不知道怎么执行代码，那么，就是你先打开软件，新建一个笔记本（一般打开的时候就会自动新建一个，要是没自动新建就按 Ctrl+N 或者用菜单栏的“文件 -> 新建 -> 笔记本"，然后把代码输进去，比如：

ContourPlot[x^2 - y == 1, {x, -5, 5}, {y, -2, 6}]

再按下Shift + Enter，就出图了。

不过，如果你对最基本的 *** 作方法和语法都没有了解，下面还指不定要绊多少跤。先花点时间对基本语法有个了解吧。上网搜也可以，看看软件的自带帮助也可以。

Re[x]=0，这不是纯虚数吗？如果一定x是实数的话，且Re[x]=0，那就只能x=0了吧？另外一点，r又是什么？复数？还是复数的模？问题说得不太清楚。另外一个，如果是隐函数作图的话，用ImplicitPlot可以做到。(⊙_⊙)

编辑：

直接用类似 ParametricPlot[{Sin[u], Sin[2 u]}, {u, 0, 2 Pi}]的命令即可。

旧答案：

如果你能消掉t的话(得到一个x，y的方程，y是x的隐函数而不一定是显示的y=f(x) )，可以用ContourPlot。比如，如果 x = Sin[t], y = Cos[t], 消掉t得到 X^2 + Y^2 = 1, 那么ContourPlot[ X^2 + Y^2 == 1, {X, -1, 1}, {Y,-1,1}]即可。注意x,y已经定义了，所以我用了新变量X, Y

使用隐函数绘图Implicitplot 50版本

现在统一如下所示

ContourPlot[{y == Sin[x], x == 05}, {x, -1, 1}, {y, -1, 1}]

“函数如下，包含两个字母，想用FindRoot函数求theta的根，已知beta为一些无规律的数据，0123,0237等”这个问题也是你提的吧

不知道你这个问题是什么意思？函数是自动画图的啊。。

你上面那个方程也不清楚想表达什么，谁是自变量？