数学与生活[2]--时钟的原理|mathematica|文艺数学君

2017年10月5日16:24:10

评论1 2284字阅读7分36秒

摘要在这里我们会使用mathematica来实现一个时钟，希望通过这篇文章大家可以了解到关于mathematica里一些动态函数的使用方法。

时钟的原理--使用 Mathematica 制作时钟

在这里我会使用 Mathematica 来制作一个时钟，顺便讲一下关于每个针走动的情况，也算数学与生活相互结合啦。这部分的内容参考自，如何制作一个时钟。

我们观察一下时钟，首先想到的是与角度有关。再有是，秒针，分针，时针之间的进位关系。

在讲解这两点之前，先考大家一个问题，4点15时，分针与时针之间的夹角是多少呢？（这可是鹅厂某年的面试题之一）

我们都知道1s = 1 / 60min,1min = 1 / 60h;
观察任意一款手表或时钟，我们会发现，通常时钟的表盘会被分成12个大格，5*12=60个小格，而整个表盘是360°，也就是说每个小格是6°。换句话说，秒针和分针每动一下，都会走过1小格，走过了6°，而时针动一下，则走过了一大格，5*6°=30°；因此，秒针和分针移动的基值是6°，时针是30°；
另外在分针走动的时候，时针也不是静止不动的，而是不甘寂寞的默默向前移动，也就是说当分针动一下，走了6°时，时针实际上也挪动了1 / 60 * 30°。所以，计算时针角度时不要忽略了分针对其的影响。（虽然秒针对分针也有着同样的影响，但几乎看不出来，所以，通常我们会将其忽略）

综上两个知识点，我们可以将各指针的角度表示为：

我们首先看一下默认的角度圆，可以看到是沿着逆时针角度增加的。

我们可以看一下增加 (45/6)s，即增加 45 度后的样子：从下面的图中我们可以看到要使用 -(0+45) 才是顺时针的旋转，但是我们表盘是从图上 90 的地方开始旋转的，我们再修改一下。

我们使用 -(0+45)+90 来修改，使得指针能从 0 处开始旋转。

到这里我们已经知道里表盘上每个指针的运转情况了，下面开始来编程实现了。

可以关注一下下面代码中的 Refresh，下面代码是很好的写动态的范例，如果觉得这个太长，可以看下面那个系统自带函数版本。

DynamicModule[{t = (t = None)},
Column[{
Dynamic[
ActionMenu[
"Update Time:", {"On" :> (t = (UpdateInterval -> 1);),
"Off" :> (t = None;)}]],
Dynamic[
Refresh[
x = TimeObject[];
Graphics[{
{Dashed, Red, Circle[]},(*画出表盘*)
Black, PointSize[Large], Point[{0, 0}],(*加入表盘中间的一个点*)
{Text[Style["12", Bold, Blue, Italic, 24], {0, 1}],
Text[Style["3", Bold, Blue, Italic, 24], {1, 0}],
Text[Style["6", Bold, Blue, Italic, 24], {0, -1}],
Text[Style["9", Bold, Blue, Italic, 24], {-1, 0}]},(*画出钟上的数字*)
Text[x, {0, -.5}],(*下方显示具体时间*)
Arrow[{{0, 0}, {Cos[(-(DateList[x][[-1]]*6) + 90) Degree],Sin[(-(DateList[x][[-1]]*6) + 90) Degree]}}],(*模拟秒针的走动*)
Arrow[{{0,0}, .7*{Cos[(-(DateList[x][[-2]]*6) + 90) Degree], Sin[(-(DateList[x][[-2]]*6) + 90) Degree]}}],(*模拟分针的走动*)
Arrow[{{0, 0}, .5*{Cos[(-(Mod[DateList[x][[-3]], 12]*30 + Floor[DateList[x][[-2]]/2]) + 90) Degree], Sin[(-(Mod[DateList[x][[-3]], 12]*30 +Floor[DateList[x][[-2]]/2]) +90) Degree]}}](*模拟时针的走动*)
}], t]
]}, Center]
]