繁體
|
簡體
Sclub交友聊天~加入聊天室當版主
(檢舉)
分享
新浪微博
QQ空间
人人网
腾讯微博
Facebook
Google+
Plurk
Twitter
Line
快速注册
登录
论坛
搜索
帮助
原始风格
brown
purple
green
red
orange
gray
pink
violet
blue
greyish-green
jeans
greenwall
私人消息 (0)
公共消息 (0)
系统消息 (0)
好友消息 (0)
帖子消息 (0)
应用通知 (0)
应用邀请 (0)
悠闲数学娱乐论坛(第2版)
»
Mathematica
» Mathematica画球面(阿基米德)螺线
返回列表
发帖
青青子衿
发短消息
加为好友
青青子衿
当前离线
UID
230
帖子
1123
主题
411
精华
0
积分
7553
威望
2
阅读权限
150
在线时间
3476 小时
注册时间
2013-9-20
最后登录
2022-6-6
1
#
跳转到
»
倒序看帖
打印
字体大小:
t
T
发表于 2019-2-19 17:53
|
只看该作者
Mathematica画球面(阿基米德)螺线
本帖最后由 青青子衿 于 2019-3-1 11:06 编辑
Manipulate[
Show[ContourPlot3D[
x^2 + y^2 + z^2 == 1, {x, -1.2, 1.2}, {y, -1.2, 1.2}, {z, -1.2, 1.2},
Mesh -> None,
ContourStyle -> Directive[Yellow, Opacity[0.5]]],
ParametricPlot3D[{Sin[t/2], Cos[t/2] Sin[(k t)/2], -Cos[t/2] Cos[(k t)/2]},
{t, -2 \[Pi], 2 \[Pi]},
PlotStyle -> {Red, Thickness[0.01]}]], {k, 1, 20, 1}]
复制代码
\begin{align*}
\boldsymbol{r}(t)=\left\{\sin\frac{t}{2},\cos\frac{t}{2}\sin\frac{kt}{2},-\cos\frac{t}{2}\cos\frac{kt}{2}\right\}
\end{align*}
Clelia curve
https://en.wikipedia.org/wiki/Clélie
spherical (Archimedean) spiral
收藏
分享
分享到:
QQ空间
腾讯微博
腾讯朋友
kuing
发短消息
加为好友
kuing
当前离线
UID
1
帖子
8832
主题
619
精华
0
积分
66354
威望
113
阅读权限
200
性别
男
来自
广东广州
在线时间
21788 小时
注册时间
2013-6-13
最后登录
2024-3-9
2
#
发表于 2019-2-19 21:27
|
只看该作者
画球的(ContourPlot3D[...] 这部分)可以用 Graphics3D[{Opacity[0.5], Yellow, Ball[{0, 0, 0}, 1]}] 代替。
TOP
kuing
发短消息
加为好友
kuing
当前离线
UID
1
帖子
8832
主题
619
精华
0
积分
66354
威望
113
阅读权限
200
性别
男
来自
广东广州
在线时间
21788 小时
注册时间
2013-6-13
最后登录
2024-3-9
3
#
发表于 2019-2-19 21:51
|
只看该作者
导出gif动图可以这样:
test=Table[Show[Graphics3D[{Opacity[0.5],Yellow,Ball[{0,0,0},1]}],
ParametricPlot3D[{Sin[t/2],Cos[t/2] Sin[(k t)/2],-Cos[t/2] Cos[(k t)/2]},{t,-2Pi,2Pi},PlotStyle->{Red,Thickness[0.01]}]],{k,1,15,0.2}];
Export["test.gif",test]
复制代码
运行十几秒后在我的文档里就可以找到 test.gif 这个文件,不过这样生成的 gif 会稍微有点大,而且只循环两次,所以建议用其他工具再优化一下。
2019-5-20 03:10
$\href{https://kuingggg.github.io/}{\text{About Me}}$
TOP
返回列表
回复
发帖
[收藏此主题]
[关注此主题的新回复]
[通过 QQ、MSN 分享给朋友]