QQ登录

只需要一步,快速开始

 注册地址  找回密码
查看: 2318|回复: 1
打印 上一主题 下一主题

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

[复制链接]
字体大小: 正常 放大
Fsen09        

1

主题

0

听众

3

积分

升级  60%

该用户从未签到

自我介绍
afwgae
跳转到指定楼层
1#
发表于 2012-7-6 15:05 |只看该作者 |倒序浏览
|招呼Ta 关注Ta
效果大致就是一个大球自转然后一个小点绕大球公转,分别做出两个图像最后不知道怎么合成啊 T.T, o9 U8 I' E1 z' g6 d
代码如下4 ~3 i, S; j: Y* \% }
大球自转Animate[ParametricPlot3D[{5 Sin[a] Cos[b + t], 5 Sin[a] Sin[b + t],
" J( z. G( X, o  e/ _( N   5 Cos[a]}, {a, 0, 2 Pi}, {b, 0, 2 Pi}, Axes -> False,
; }4 x* V( G3 L  b2 _& y5 [! g  Boxed -> False, Mesh -> True, PlotPoints -> 50,   v: p1 Q: k5 ~
  Lighting -> True], {t, 0, Pi}]
/ J8 K7 F  X/ N: z小球公转Animate[Graphics3D[{PointSize[0.1], Point[{Cos[a], Sin[a], 0}]},
9 A& T+ f, D" v$ [5 |  PlotRange -> {{-1, 1}, {-1, 1}, {-2, 2}}], {a, 0, 2 Pi}]6 k6 a% i: \( h  z6 J
只求效果 欢迎大神自己编写代码 本人新人勿喷
zan
转播转播0 分享淘帖0 分享分享0 收藏收藏0 支持支持0 反对反对0 微信微信
sycxyc        

1

主题

7

听众

899

积分

升级  74.75%

  • TA的每日心情
    开心
    2017-11-19 10:24
  • 签到天数: 263 天

    [LV.8]以坛为家I

    修改一下就行了
    7 w/ O+ S  d# G9 r0 TAnimate[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}]
    回复

    使用道具 举报

    您需要登录后才可以回帖 登录 | 注册地址

    qq
    收缩
    • 电话咨询

    • 04714969085
    fastpost

    关于我们| 联系我们| 诚征英才| 对外合作| 产品服务| QQ

    手机版|Archiver| |繁體中文 手机客户端  

    蒙公网安备 15010502000194号

    Powered by Discuz! X2.5   © 2001-2013 数学建模网-数学中国 ( 蒙ICP备14002410号-3 蒙BBS备-0002号 )     论坛法律顾问:王兆丰

    GMT+8, 2025-7-28 17:23 , Processed in 0.502782 second(s), 65 queries .

    回顶部