有谁会用mathematica软件做这个题？很有挑战性哦

huangyj1988

有谁会用mathematica软件做这个题？急急急～～～:@L
二次曲面的方程如下：x^2/a^2+y^2/b^2+z^2/c^2=d

要求用MATHEMATICA讨论参数a，b，c对其形状的影响，并画出其图形。

xhj

Maple 很容易做到，但是Mathematic就不知道了。

dc1hawk

我想形状就是响应吧，a，b，c为参数，这样考虑那就是做偏导就可以了，分别求得x y z对参数偏导，可得影响。mathematica没接触过 呵呵 自己的想法，大家讨论

suffer

这不是椭球方程吗？
不过三维隐函数不知道用什么作图

[ 本帖最后由 suffer 于 2007-6-12 16:39 编辑 ]

TurtleRock

这个问题是个标准的椭球，可以用参数方程来解决。
为了方便，假设你后面是d^2，下面给出a从1变到5对图形的影响：
a = 1;
b = 1;
c = 1;
d = 1;
(*fx = d*a*Sin[sita]*Cos[alpha];*)
fy = d*b*Sin[sita]*Sin[alpha];
fz = d*c*Cos[sita];
For[a = 1, a ≤ 5,
    fx = d*a*Sin[sita]*Cos[alpha];
    fig = ParametricPlot3D[{fx, fy, fz}, {sita, 0, Pi}, {alpha, 0, 2*Pi}];
    a++];

[ 本帖最后由 TurtleRock 于 2007-6-14 11:37 编辑 ]

suffer

TurtleRock

是不是mathematica中没有三维隐含数的作图命令？

TurtleRock

原帖由 suffer 于 2007-6-15 09:08 发表

                               
登录/注册后可看大图

TurtleRock

是不是mathematica中没有三维隐含数的作图命令？

在5.2版本中的确没有，但是在6.0版本中，这个问题得到了很好的解决。
6.0中不再使用ImplicitPlot，而是使用ContourPlot和CountourPlot3D

如：
ContourPlot3D[ x^3 + y^2 - z^2 == 0, {x, -2, 2}, {y, -2, 2}, {z, -2, 2}]

中原

这根本就是傻瓜体，还谈什么挑战性:@o

suffer

装上6.0试了一下，感觉还不错

ContourPlot3D[ x^3 + y^2 - z^2 == 0, {x, -2, 2}, {y, -2, 2}, {z, -2, 2}]

cellular_world

在mathematica 6中很容易搞定.

用的函数 是 manipulate