QQ登录

只需要一步,快速开始

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

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

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

1

主题

0

听众

3

积分

升级  60%

该用户从未签到

自我介绍
afwgae
跳转到指定楼层
1#
发表于 2012-7-6 15:05 |只看该作者 |倒序浏览
|招呼Ta 关注Ta
效果大致就是一个大球自转然后一个小点绕大球公转,分别做出两个图像最后不知道怎么合成啊 T.T
: @- {( M/ {$ {6 Z1 \代码如下4 _1 i* k5 N! l: z
大球自转Animate[ParametricPlot3D[{5 Sin[a] Cos[b + t], 5 Sin[a] Sin[b + t], 0 p- D. e1 ^6 Q
   5 Cos[a]}, {a, 0, 2 Pi}, {b, 0, 2 Pi}, Axes -> False, 2 F5 }. a; A% D  J9 u: J
  Boxed -> False, Mesh -> True, PlotPoints -> 50, $ j+ T* J9 |! X" U6 i5 Q( n
  Lighting -> True], {t, 0, Pi}]
# P9 P+ z/ I, _# s7 U: Z小球公转Animate[Graphics3D[{PointSize[0.1], Point[{Cos[a], Sin[a], 0}]},
. i! c; v8 I* M. U( d: a  PlotRange -> {{-1, 1}, {-1, 1}, {-2, 2}}], {a, 0, 2 Pi}]
( }: X6 \- \! g$ y' ^' ]只求效果 欢迎大神自己编写代码 本人新人勿喷
zan
转播转播0 分享淘帖0 分享分享0 收藏收藏0 支持支持0 反对反对0 微信微信
sycxyc        

1

主题

7

听众

899

积分

升级  74.75%

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

    [LV.8]以坛为家I

    修改一下就行了
    4 j8 ~, Y. N4 S( x: [& D+ j3 A/ V8 n8 AAnimate[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-26 09:09 , Processed in 0.877916 second(s), 65 queries .

    回顶部