在Mathematica中绘制钟面（寻找更好的解决方案）
我试图找到一个通用的解决方案，用于在 Mathematica 中绘制像图形对象一样的钟面。我已经实现了自己的版本，但我认为必须存在更好的解决方案。如果有一个代码更少、思维过程更清晰的简洁版本，我们将不胜感激。
我的版本：
radius = 1;
elementList =
Join[Table[i, {i, 3, 1, -1}], Table[i, {i, 12, 4, -1}]];
elementNumber = Length[elementList];
thetaList = Table[i, {i, 0, 2 Pi, 2 Pi/elementNumber}][[1 ;; 12]];
coordinateList = Map[{radius*Cos[#], radius*Sin[#]} &, thetaList];
objectList =
Map[Style[#, FontFamily -> "Georgia", FontSize -> 30] &,
elementList];
Graphics[
Join[
MapThread[Text[#1, #2] &, {objectList, coordinateList}],
{Circle[{0, 0}, 1.2*radius]}
]
]
I am trying to find a general solution for drawing clock face like graphical objects in Mathematica. I've already implemented a version of my own, but I think a much better solution must exist. A neater version with less code or clearer thought process would be appreciated.
My version:
radius = 1;
elementList =
Join[Table[i, {i, 3, 1, -1}], Table[i, {i, 12, 4, -1}]];
elementNumber = Length[elementList];
thetaList = Table[i, {i, 0, 2 Pi, 2 Pi/elementNumber}][[1 ;; 12]];
coordinateList = Map[{radius*Cos[#], radius*Sin[#]} &, thetaList];
objectList =
Map[Style[#, FontFamily -> "Georgia", FontSize -> 30] &,
elementList];
Graphics[
Join[
MapThread[Text[#1, #2] &, {objectList, coordinateList}],
{Circle[{0, 0}, 1.2*radius]}
]
]
如果你对这篇内容有疑问，欢迎到本站社区发帖提问 参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。
绑定邮箱获取回复消息
由于您还没有绑定你的真实邮箱，如果其他用户或者作者回复了您的评论，将不能在第一时间通知您！
发布评论
评论（5）
这是制作时钟的一种方法：
加法
这是一个旋转的 3D 时钟供您娱乐：
Here is one way to make a clock:
Addition
Here is a rotating, spinning 3D clock for your amusement:
这是一个函数的版本，它概括了钟面的生成，使您可以轻松更改数字的样式、“小时”的数量以及钟面的半径：
有些东西只是 Mathematica 风格的问题；有些东西只是 Mathematica 风格的问题；例如，
这只是将相关可选参数传递给
Style的方法，同时确保在相关的地方使用clockFace的默认值，因为 Mathematica 将使用第一个适用的值它在规则列表中找到的规则（函数选项只是规则列表）。我还使用With来命名事物，这就是为什么会有嵌套；其他人可能更喜欢使用单个模块。无论哪种方式，只要有可能，最好将事物设置为局部变量。不过，最大的变化是使用
Range按顺序生成数字列表，然后调整thetas的定义，以便一切都出现在正确的位置。我认为更容易看到正在发生的事情，因为减号意味着您正在顺时针移动，并且偏移Pi/2可以清楚地表明您是从时钟的顶部开始的。Here's a version of a function that generalizes the generation of clock face to allow you to easily change the style of the numbers, the number of "hours", and the radius of the face:
Some things are just Mathematica style issues; for instance,
is just the way to pass the relevant optional arguments to
Stylewhile making sure thatclockFace's default values are used where relevant, because Mathematica will use the first applicable rule that it finds in a list of rules (and function options are just lists of rules). I also usedWithto name things, which is why there's that nesting; other people might prefer to use a singleModule. Either way, it's always best to make things local variables whenever possible.The biggest change, though, was generating the list of numbers in order, using
Range, and then adjusting the definition ofthetasso everything winds up in the right place. I think it's much easier to see what's going on, because the minus sign means you're moving around clockwise and offsetting byPi/2makes it clear you're starting at the top of the clock.以下是通过将 @Arnoud 的答案与 Christopher 的博客条目：
编辑
动画是通过在计划任务中使用 Rasterize[] 捕获的！
The following is a working 3D clock made by easily combining @Arnoud's answer with Christopher's blog entry:
Edit
The animation was captured by using Rasterize[] inside a scheduled task!
Mathematica 有一个叫做
ClockGauge内置。正如文档中所见，钟面样式的可能性是无限的。基本版本如下所示：Mathematica has something called
ClockGaugebuilt-in. The possibilities for styling the clock face are endless, as can be seen in the documentation. The bare-bone version looks like this:你的方法很好。只是有点乱。这是我的解释：
Your method is fine. It is just a little messy. Here is my interpretation: