# Mathematica带您一起迎接五一

Manipulate[

If[

Refresh[DateList[], UpdateInterval -> 1][[4 ;; 5]] == {Hours,

Minutes} && oo,

EmitSound[Sound[SoundNote[note, 1]]]];

Column[{

Graphics[{

{Thickness[.08], Circle[]}, {Opacity[0.66],

Lighter[Blue, 0.88], Disk[]},(* Rim *)

{Thickness[.003],

Table[Line[{.9 {Cos[a], Sin[a]}, .95 {Cos[a], Sin[a]}}], {a, 0,

2 \[Pi], 2 \[Pi]/60}]}, (* Thin ticks *)

{Thickness[.01],

Table[Line[{.9 {Cos[a], Sin[a]}, .95 {Cos[a], Sin[a]}}], {a, 0,

2 \[Pi], 2 \[Pi]/12}]}, (* Thick ticks *)

Style[

Table[Text[

i, .77 {Cos[-i \[Pi]/6 + \[Pi]/2],

Sin[-i \[Pi]/6 + \[Pi]/2]}], {i, 1, 12}], "Label", 22], (*

Numbers *)

Rotate[hourHand,

Dynamic[Refresh[-30 Mod[AbsoluteTime[]/3600, 60] \[Degree],

UpdateInterval -> 60]], {0, 0}],

Rotate[minuteHand,

Dynamic[Refresh[-6 Mod[AbsoluteTime[]/60, 60] \[Degree],

UpdateInterval -> 1]], {0, 0}],

Rotate[secondHand,

Dynamic[Refresh[-6 Mod[AbsoluteTime[], 60] \[Degree],

UpdateInterval -> 1/10]], {0, 0}], {Yellow, Point[{0, 0}]}},

ImageSize -> {300, 300}, ImageMargins -> 8],

Text@Style[DateString[], 15],

Spacer[{15, 15}]}, Alignment[Center, Top],

ItemSize -> {Automatic, {3, Automatic, 3}}], Delimiter,

{{Hours, 0, "hours"}, Range[25] - 1},

{{Minutes, 0, "minutes"}, Range[61] - 1},

{{oo, True, "alarm"}, {True -> "ON", False -> "OFF"}},

{{note, "D", "select alarm note"}, {"A", "B", "C", "D", "E", "F",

"G"}},

ControlPlacement -> Left,

TrackedSymbols -> True,

AutorunSequencing -> {1, 2, 3},

Initialization :> (

makeHand[fl_, bl_, fw_, bw_] :=

Polygon[{{-bw, -bl}, {bw, -bl}, {fw, fl}, {0, fl + 8 fw}, {-fw,

fl}}/10];

hourHand = makeHand[5, 5/3, .1, .3];

minuteHand = makeHand[7, 7/3, .1, .3];

secondHand = {Pink, EdgeForm[Black], makeHand[7, 7/3, .1/2, .3/2]};

)]

0 条评论

• ### 11gRAC报错CRS-4535, CRS-4000解决

使用crsctl查看集群各资源状态，在任一节点都会直接报错CRS-4535, CRS-4000；但此时数据库是可以被正常访问的。 具体故障现象如下：

• ### Linux 下如何修改用户名（同时修改用户组名和家目录）

有时候，由于某些原因，我们可能会需要重命名用户名。我们可以很容易地修改用户名以及对应的家目录和 UID。

• ### 相机成像模型分析

相机对于机器人来说就相当于人的眼睛，景物在相机中呈现的样子就是机器看到的世界的样子。当我们理解了相机的成像原理，才能理解图像中的景物与实际世界中景物的对应关系。

• ### PE文件详解（五）

在前面几节中经常提到相对虚拟地址RVA，在这篇博客中主要说明这个概念。本来是想接着转载小甲鱼的，但是我自己根据这篇文章和他的视频来学习的时候，发现在RVA与文件...

• ### C语言逆向系列之破解一个简单的C语言程序

以下正文 本节教程将教大家如何去逆向分析和破解一个简单的C程序，需要大家熟悉基本的C语言语法，用到工具有：VC6、IDAPro、OD、UE等工具。 下面我们开...

• ### 十分钟教你理解TypeScript中的泛型

本文介绍TypeScript中泛型（Generics）的概念和用法，它为什么重要，及其使用场景。我们会以一些清晰的例子，介绍其语法，类型和如何构建参数。你可以在...