如何用mathematica制作混沌摆动画？

Posted 2023-04-12

已经通过计算算出了摆球随时间变化的位置，如何做成动画？求代码！

这么简单的问题本来不想给代码的……手上有个现成的，复制过来算了。

Animate[
 Show[
  ParametricPlot[
   Evaluate[u@\\[Tau], 0 + l Sin@\\[Phi][t], Cos@\\[Phi][t]] /. 
    sol, t, 0, \\[Tau], 
   PlotRange -> axisscale -l, l + 0.03, 0.03 + -A, A, -1.1 l, 
      0, PlotPoints -> 300],
  Graphics[(Circle[#, 0.03], Line[u@t, 0 /. sol[[1]], #], 
        Arrow[#, # + arrowscale D[#, t]] &@(u@t, 0 + 
          l Sin@\\[Phi][t], -Cos@\\[Phi][t] /. sol)[[1]]) /. 
    t -> \\[Tau]]
  ]
 , \\[Tau], 0.0001, tspan, AnimationRunning -> False, 
 AnimationRate -> 1
 ]

自己粘贴进去理解一下吧，这段代码可能有点老，所以说不定还有不妥的地方。

简单点的实现就是：

Animate[ParametricPlot[x@t,y@t/.solution,t,0,tau],tau,0.001,tspan]

做个投影对于一个摆是很方便的。

参考技术A Manipulate 函数或 1 楼所述的函数都能实现。动画文件可以输出成 AVI 格式的文件，但文件略大一些。 参考技术B

用Mathematica模拟双摆

http://jingyan.baidu.com/article/0f5fb0992795e46d8334eadd.html

参考技术C 你可以参考这里：http://zhidao.baidu.com/question/489350888.html?oldq=1追问

我对与MATHEMATICA基本没概念，这个好像是给出函数画动态图吧。但是我只有数组，没有函数，具体代码应该是怎么样的？求一段直接能用的代码~谢谢啦

追答

你又不告知我你数据的具体形式，我怎么可能给你具体的代码呢？万一对不上号你照样不会用。Mathematica的自带帮助是最强大的教科书，多看看吧。你有数组依旧是可以画图的，函数画图是Plot，数组画图是ListPlot，你要的不是动态图而是数组的话就用ListAnimate，具体语法你自己看帮助吧。

追问

其实就三列数据，时间和两个摆角。我用MATLAB倒是能画出来，但是也只会用drawnow来画，不知道怎么导出动画……

追答

……你不能描述的更清楚的话我也做不了什么。说到底这是个什么样的摆？看百度知道上的图，根本就不是三个参数能描述的体系啊。

追问

简单的双摆，只要两个角就能描述了。我已经使用MATLAB搞定了，还是谢谢你

本回答被提问者采纳

如何用几何画板把圆奇数等分

几何画板功能强大，是数学、物理学科的好助手。特别是在教学过程中，可以制作很多有意思的课件帮助老师教学，帮助学生理解课程内容。下面本教程来给大家介绍介绍如何用几何画板把圆奇数等分？

原文：http://www.jihehuaban.com.cn/shiyongjiqiao/jishu-dengfenyuan.html

下面以把圆三等分为例，具体的操作步骤如下：

步骤一 打开几何画板，画一个圆；过圆心画一条直径；标好字母：端点为A、B，圆心为O；

 
在几何画板中绘制圆O和直径AB示例

步骤二 在菜单栏选择“数据”——“新建参数”，因为是3等分，输入参数值为1.5（3/2=1.5）。（这是关键的一步，原因是，要把整个圆分成3等分，不是半个圆分成3等分。）

 
在几何画板中新建参数示例

步骤三 在左侧工具箱选择“自定义工具”——角工具——n等分角工具，按照A\O\B的顺序点击三个点：A、O、B，然后点击左上角的参数，此时，半个圆被分成了1.5等分。如下图所示。

 
利用几何画板自定义工具将半圆1.5等分示例

步骤四 下面开始另一半的1.5等分。隐藏第一次画的直径（删除也行）；在第一等分的C处点上一个点；沿OC构造一条直线，点上一个点D；接着隐藏直线；选中“自定义工具”——角工具——n等分角工具，沿C、O、D顺序点击三个点，然后点击：t₁=1.5，此时，整个圆被分成了3等分。

 
在几何画板中将整圆3等分示例

步骤五 隐藏不必要的对象，得到最终效果图如下。

 
在几何画板中3等分圆O示例

以上给大家讲解了如何用几何画板把圆奇数等分，这里举例的是把圆3等分，大家可以参照教程实现其它奇数等分圆。