Question

急急急！求用Mathematica 空间迭代法 作三维立体图

Answer 1

你也问的具体一点啊，这样子根本没法答啊。

追问

随意性很强，只要是用Mathematica软件运行通过，并且是实现空间迭代，结果是三维立体图形即可，嘿嘿。。。麻烦了

追答

关键是你的空间迭代是指什么样的迭代，是只要求有递归过程还是有什么更高的要求……总之我就随便做一个了：
Graphics3D[{Opacity[0.2], Scale[Sphere[{0, 0, 0}, #], {3, 4, 5}]} & /@ NestList[#^0.9 &, 10, 6]]

追问

哎。。。没有运行出图形啊，简单一点的迭代就可以，只要求有递归过程，最后能出来一个比较不错的立体图形最好。。。

追答

怎么可能出不了图呢？你不会是在用版本5甚至版本4吧！？：

追问

大仙，真让你说对了，我用的是版本4,哎。。。不管怎么样，多谢了哈。。。。。。大概就是类似于这样的程序，但是不能实现迭代，有错误！
f[x_] := Sin[x];
g[y_] := Cos[y];
h[z_] := Tan[z];
x0 = Pi/6;
y0 = Pi/4;
z0 = Pi/3;
t = {{f[x0], g[y0], Tan[z0]}};
t = Append[{t[f[t[[i, 1]], g[t[i, 2]], h[t[i, 3]]]]},
For[i = 1, i <= 10, i++]]

追答

在mathematica里使用For语句是很不明智的，运行速度慢，而且语句也啰嗦。而且你这个语法也是错的，错了很多地方——你这是参照其他语言随手乱改的还是你想当然的？要用一个软件的话那基础语法该学学啊，mathematica的帮助是很好用的，你应该多看看。你要真这么喜欢For循环那也应该这么去写：

Clear["Global`*"]
f[x_] := Sin[x];
g[y_] := Cos[y];
h[z_] := Tan[z];
x0 = Pi/6;
y0 = Pi/4;
z0 = Pi/3;
t = {{f[x0], g[y0], h[z0]}};
For[i = 1, i <= 10, i++, t = Append[t, {f@t[[i, 1]], g@t[[i, 2]], h@t[[i, 3]]}]]

追问

谢谢啦，嘿嘿

追答

……保险起见我还是问一句，同学你该不会也是不知道怎么采纳满意答案的人之一吧？