Mathematica带您一起迎接五一

五一假期即将来临,大家是不是特别~~~~?

还有多长时间呢?下面小编带领大家来一起看下

一个自动模拟/数字时钟,wolfram官网上的,拿来借花献佛

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]};

)]

小编在这里提前祝大家节日快乐!

另外还要告诉大家一个好消息,通过微信认证的面向教育的Mathematica订阅号也要向大家推出啦,我们将继续不遗余力的为大家提供与Mathematica的相关的服务和资讯,希望大家继续支持我们哦。扫描下面二维码关注公众号,就有机会获得最新版Mathematica试用版软件哦,还不快快行动!

原文发布于微信公众号 - WOLFRAM(WolframChina)

原文发表时间:2016-04-29

本文参与腾讯云自媒体分享计划,欢迎正在阅读的你也加入,一起分享。

发表于

我来说两句

0 条评论
登录 后参与评论

相关文章

来自专栏技术之路

wcf webHttpBinding Post 大数据量提交 ios c#客户端

一直在为安卓和苹果写服务,刚开始的时候全用的Get请求用url传所有的参数,由于url长度的限制大的数据量 无法传到服务器,提交图片什么的就更不用说了,后来用的...

22410
来自专栏Java成神之路

Java微信公众平台开发_04_自定义菜单

自定义菜单中请求包的数据是Json字符串格式的,请参见:  Java_数据交换_fastJSON_01_用法入门

1323
来自专栏Golang语言社区

Golang生产级可靠UDP库

kcp-go is a Production-Grade Reliable-UDP library for golang.

5542
来自专栏偏前端工程师的驿站

.Net魔法堂:史上最全的ActiveX开发教程——ActiveX与JS间交互篇

一、前言                             经过上几篇的学习,现在我们已经掌握了ActiveX的整个开发过程,但要发挥ActiveX的真正...

22910
来自专栏逸鹏说道

逆天通用水印扩展篇~新增剪贴板系列的功能和手动配置,卸除原基础不常用的功能

常用技能:http://www.cnblogs.com/dunitian/p/4822808.html#skill 逆天博客:http://dnt.dkil.n...

27810
来自专栏菩提树下的杨过

ExtJs学习笔记(4)_EditorGridPanel(可编辑的网格控件)

这一节,我们将看到ExtJs功能强大的可编辑网格控件,几乎与VS.Net的GridView功能一样了,但是ExtJs的可是纯JS的UI 一.静态示例(改自Ext...

6905
来自专栏菩提树下的杨过

Silverlight Telerik控件学习:GridView双向绑定

做过WinForm数据库开发的人,一定有类似经历:DataGrid绑定后,如果允许行编辑,数据一顿修改后,想批量保存修改后的结果,通常是将DataGrid的所有...

2235
来自专栏GIS讲堂

Arcgis for JS实现台风运动路径与影像范围的显示

2952
来自专栏岑志军的专栏

ReactNative-ListView

1963
来自专栏菩提树下的杨过

Silverlight:利用异步加载Xap实现自定义loading效果

关键点: 1.利用WebClient的DownloadProgressChanged事件更新下载进度 2.下载完成后,分析Xap包的程序集Assembly信息 ...

19910

扫码关注云+社区