用mathematica 如何把两张动态三维图合在一起

你两张动态图是先后放映呢，还是同时放映。
同时放映的话，应该是把两个图的每一帧先合并成一帧，然后在用animate函数来画
假定你有下面两个动画：

Animate[Plot[Sin[x + k], {x, 0, 2 Pi}], {k, 0, 2 Pi}]
Animate[Graphics[Circle[{k, 0}, 1],
PlotRange -> {{0, 2 Pi}, {-1.2, 1.2}}], {k, 0, 2 Pi}]
那么合起来应该写成这个样子。
Animate[Show[{Graphics[Circle[{k, 0}, 1]], Plot[Sin[x + k], {x, 0, 2 Pi}]}, PlotRange -> {{0, 2 Pi}, {-1.2, 1.2}}], {k, 0, 2 Pi}]本回答被提问者和网友采纳

用Show a = Plot3D[Sin[x + y], {x, -2, 2}, {y, -2, 2}]; b = ContourPlot3D[ x^2 + y^2 - z^2 == 0, {x, -2, 2}, {...追问

不是动态啊 -.- 而且不懂Contour是什么函数