数学建模社区-数学中国»论坛 › 【科学软件论坛】数学建模 › Mathematica论坛 › 求教动态函数三维图像的合成（大神进）

查看: 1918|回复: 1

求教动态函数三维图像的合成（大神进）

[复制链接]

字体大小: 正常放大

Fsen09

1 主题	0 听众	3 积分

升级 60%

该用户从未签到

自我介绍: afwgae

电梯直达

1^#

发表于 2012-7-6 15:05 |只看该作者 |倒序浏览

|招呼Ta 关注Ta

效果大致就是一个大球自转然后一个小点绕大球公转，分别做出两个图像最后不知道怎么合成啊 T.T
代码如下
大球自转Animate[ParametricPlot3D[{5 Sin[a] Cos[b + t], 5 Sin[a] Sin[b + t],
5 Cos[a]}, {a, 0, 2 Pi}, {b, 0, 2 Pi}, Axes -> False,
  Boxed -> False, Mesh -> True, PlotPoints -> 50,
  Lighting -> True], {t, 0, Pi}]
小球公转Animate[Graphics3D[{PointSize[0.1], Point[{Cos[a], Sin[a], 0}]},
  PlotRange -> {{-1, 1}, {-1, 1}, {-2, 2}}], {a, 0, 2 Pi}]
只求效果欢迎大神自己编写代码本人新人勿喷

zan

合成, 三维, 动态

转播0 淘帖0 分享0 收藏0 支持0 反对0 微信

相关帖子

使用道具举报

sycxyc

1 主题	7 听众	899 积分

升级 74.75%

TA的每日心情

	开心 2017-11-19 10:24

签到天数: 263 天

[LV.8]以坛为家I

2^#

发表于 2012-7-7 16:08 |只看该作者 |招呼Ta 关注Ta

修改一下就行了
Animate[Show[{ParametricPlot3D[{5 Sin[a] Cos[b + t],5 Sin[a] Sin[b + t], 5 Cos[a]}, {a, 0, 2 Pi}, {b, 0, 2 Pi},Axes -> False, Boxed -> False,Mesh -> True, PlotPoints -> 50, Lighting -> Automatic, PlotRange -> {{-10, 10}, {-10, 10}, {-5, 5}}],Graphics3D[{PointSize[0.1], Point[{8 Cos[a], 8 Sin[a], 0}]},PlotRange -> {{-10, 10}, {-10, 10}, {-2, 2}}]}],{t, 0, Pi}, {a, 0, 2 Pi}]