前往小程序,Get更优阅读体验!
立即前往
首页
学习
活动
专区
工具
TVP
发布
社区首页 >专栏 >Mathematica带您一起迎接五一

Mathematica带您一起迎接五一

作者头像
WolframChina
发布2018-05-31 16:12:35
4860
发布2018-05-31 16:12:35
举报
文章被收录于专栏:WOLFRAM

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

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

一个自动模拟/数字时钟,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试用版软件哦,还不快快行动!

本文参与 腾讯云自媒体同步曝光计划,分享自微信公众号。
原始发表:2016-04-29,如有侵权请联系 cloudcommunity@tencent.com 删除

本文分享自 WOLFRAM 微信公众号,前往查看

如有侵权,请联系 cloudcommunity@tencent.com 删除。

本文参与 腾讯云自媒体同步曝光计划  ,欢迎热爱写作的你一起参与!

评论
登录后参与评论
0 条评论
热度
最新
推荐阅读
相关产品与服务
对象存储
对象存储(Cloud Object Storage,COS)是由腾讯云推出的无目录层次结构、无数据格式限制,可容纳海量数据且支持 HTTP/HTTPS 协议访问的分布式存储服务。腾讯云 COS 的存储桶空间无容量上限,无需分区管理,适用于 CDN 数据分发、数据万象处理或大数据计算与分析的数据湖等多种场景。
领券
问题归档专栏文章快讯文章归档关键词归档开发者手册归档开发者手册 Section 归档