免費論壇 繁體 | 簡體
Sclub交友聊天~加入聊天室當版主
分享
返回列表 发帖

Mathematica画球面(阿基米德)螺线

本帖最后由 青青子衿 于 2019-3-1 11:06 编辑
  1. Manipulate[
  2. Show[ContourPlot3D[
  3.    x^2 + y^2 + z^2 == 1, {x, -1.2, 1.2}, {y, -1.2, 1.2}, {z, -1.2, 1.2},
  4.    Mesh -> None,
  5.    ContourStyle -> Directive[Yellow, Opacity[0.5]]],
  6.   ParametricPlot3D[{Sin[t/2], Cos[t/2] Sin[(k t)/2], -Cos[t/2] Cos[(k t)/2]},
  7.    {t, -2 \[Pi], 2 \[Pi]},
  8.    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空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友

画球的(ContourPlot3D[...] 这部分)可以用 Graphics3D[{Opacity[0.5], Yellow, Ball[{0, 0, 0}, 1]}] 代替。

TOP

导出gif动图可以这样:
  1. test=Table[Show[Graphics3D[{Opacity[0.5],Yellow,Ball[{0,0,0},1]}],
  2. 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}];
  3. Export["test.gif",test]
复制代码
运行十几秒后在我的文档里就可以找到 test.gif 这个文件,不过这样生成的 gif 会稍微有点大,而且只循环两次,所以建议用其他工具再优化一下。
6273b251gy1g0c2nh5ryzg20a00avhdt.gif
2019-5-20 03:10
$\href{https://kuingggg.github.io/}{\text{About Me}}$

TOP

返回列表 回复 发帖