设为首页收藏本站联系我们

声振论坛

 找回密码
 我要加入

QQ登录

只需一步，快速开始

声振论坛 › 展示 ›科学计算› matlab › 查看内容

matlab时钟动画

2015-11-3 01:07| 发布者: aspen| 查看: 1047| 评论: 35|原作者: suffer|来自: 声振论坛

摘要: %将下列命令复制到程序运行窗口： try %可以运行 close all hfig=figure('visible','off'); set(hfig,'NumberTitle','off'); set(hfig,'name','My Clock'); set(hfig,'MenuBar','none'); set(hfig,'color',); ...
  1. %将下列命令复制到程序运行窗口：
  2. try %可以运行
  3. close all
  4. hfig=figure('visible','off');
  5. set(hfig,'NumberTitle','off');
  6. set(hfig,'name','My Clock');
  7. set(hfig,'MenuBar','none');
  8. set(hfig,'color',[0.5 0.7 0.3]);
  9. set(hfig,'visible','on');
  10. A=linspace(0,6.3,1000);
  11. x1=8*cos(A);
  12. y1=8*sin(A);

  14. x2=7*cos(A);
  15. y2=7*sin(A);
  16. plot(x1,y1,'b','linewidth',1.4)
  17. hold on
  18. plot(x2,y2,'b','linewidth',3.5)
  19. fill(0.4*cos(A),0.4*sin(A),'r');
  20. axis off

  22. axis([-10 10 -10 10])
  23. axis equal
  24. set(gca,'position',[[0.13 0.05 0.775 0.815]])
  25. title(date,'fontsize',18)
  26. for k=1:12;
  27. xk=9*cos(-2*pi/12*k+pi/2);
  28. yk=9*sin(-2*pi/12*k+pi/2);
  29. plot([xk/9*8 xk/9*7],[yk/9*8 yk/9*7],'color',[0.3 0.8 0.9])
  30. h=text(xk,yk,num2str(k),'fontsize',16,'color',...
  31. [0.9 0.3 0.8],'HorizontalAlignment','center');
  32. end
  33. % 计算时针位置
  34. ti=clock;
  35. th=-(ti(4)+ti(5)/60+ti(6)/3600)/12*2*pi+pi/2;
  36. xh3=4.0*cos(th);
  37. yh3=4.0*sin(th);
  38. xh2=xh3/2+0.5*cos(th-pi/2);
  39. yh2=yh3/2+0.5*sin(th-pi/2);
  40. xh4=xh3/2-0.5*cos(th-pi/2);
  41. yh4=yh3/2-0.5*sin(th-pi/2);
  42. hh=fill([0 xh2 xh3 xh4 0],[0 yh2 yh3 yh4 0],[0.6 0.5 0.3]);

  44. % 计算分针位置
  45. tm=-(ti(5)+ti(6)/60)/60*2*pi+pi/2;
  46. xm3=6.0*cos(tm);
  47. ym3=6.0*sin(tm);
  48. xm2=xm3/2+0.5*cos(tm-pi/2);
  49. ym2=ym3/2+0.5*sin(tm-pi/2);
  50. xm4=xm3/2-0.5*cos(tm-pi/2);
  51. ym4=ym3/2-0.5*sin(tm-pi/2);
  52. hm=fill([0 xm2 xm3 xm4 0],[0 ym2 ym3 ym4 0],[0.6 0.5 0.3]);
  53. % 计算秒针位置
  54. ts=-(ti(6))/60*2*pi+pi/2;
  55. hs=plot([0 7*cos(ts)],[0 7*sin(ts)],...
  56. 'color',[0.6 0.5 0.3],'linewidth',3);
  57. set(gcf,'doublebuffer','on');
  58. k=1;
  59. while k<6;
  60. ti=clock;
  61. % 计算时针位置
  62. th=-(ti(4)+ti(5)/60+ti(6)/3600)/12*2*pi+pi/2;
  63. xh3=4.0*cos(th);
  64. yh3=4.0*sin(th);
  65. xh2=xh3/2+0.5*cos(th-pi/2);
  66. yh2=yh3/2+0.5*sin(th-pi/2);

  68. xh4=xh3/2-0.5*cos(th-pi/2);
  69. yh4=yh3/2-0.5*sin(th-pi/2);
  70. set(hh,'XData',[0 xh2 xh3 xh4 0],'YData',[0 yh2 yh3 yh4 0])

  72. % 计算分针位置
  73. tm=-(ti(5)+ti(6)/60)/60*2*pi+pi/2;
  74. xm3=6.0*cos(tm);
  75. ym3=6.0*sin(tm);
  76. xm2=xm3/2+0.5*cos(tm-pi/2);
  77. ym2=ym3/2+0.5*sin(tm-pi/2);
  78. xm4=xm3/2-0.5*cos(tm-pi/2);
  79. ym4=ym3/2-0.5*sin(tm-pi/2);
  80. set(hm,'XData',[0 xm2 xm3 xm4 0],'YData',[0 ym2 ym3 ym4 0])
  81. % 计算秒针位置
  82. ts=-(ti(6))/60*2*pi+pi/2;
  83. set(hs,'XData',[0 7*cos(ts)],'YData',[0 7*sin(ts)])
  84. drawnow;
  85. pause(0.09)
  86. end
  87. catch

  89. end
复制代码



转自研学
收藏 分享 邀请
上一篇：在Matlab中读入数字与字符混排的文本数据下一篇：关于如何在matlab中添加新的工具箱的整理和心得
发表评论

最新评论

引用 toes 2006-5-27 09:02
诶？我怎么运行不成功。
引用 lxq 2006-5-27 09:04
诶？我怎么运行不成功。

这个大概与人品无关吧？ 呵呵,我试下。
引用 dundun628 2006-5-27 15:16
做的真好！赞一个
引用 NVHht 2006-5-27 16:47
哈哈，看了，不错。可以用来装饰一下自己的程序哈。
引用 wei343 2006-5-27 20:15
相当不错
谢谢
引用 jeremygr 2006-9-22 16:08
简直帅呆了
引用 realhappy 2006-9-22 16:38
在M－file文件里执行没有出现时钟，而在命令窗口确出现了，这是什么原因呢？
引用 AaronSpark 2006-9-23 06:20
原帖由 realhappy 于 2006-9-22 16:38 发表
在M－file文件里执行没有出现时钟，而在命令窗口确出现了，这是什么原因呢？


我执行都没有问题，不知道是否有什么提示？
引用 realhappy 2006-9-23 16:00
没有提示错误，但是没有时钟出现。
引用 eight 2006-9-23 17:26
原帖由 realhappy 于 2006-9-23 16:00 发表
没有提示错误，但是没有时钟出现。


的确有类似的问题，而且我昨天在m文件中运行时不成功，今天就成功了，不过今天虽然出现时钟，但是没有出现日期，比较奇怪
引用 wqtclark 2006-11-4 00:27
不错,很漂亮
我也运行不成功
好像是说CATCH那一句有问题

[ 本帖最后由 ChaChing 于 2009-3-18 21:39 编辑 ]
引用 zhyprs 2006-11-20 17:05
好可爱啊，谢谢！
引用 zhyprs 2006-11-20 17:09
原帖由 realhappy 于 2006-9-22 16:38 发表
在M－file文件里执行没有出现时钟，而在命令窗口确出现了，这是什么原因呢？

我也发现了这个问题，为什么呢？高手出来回答一下吧。
引用 figotan 2006-11-21 09:57
偶像啊,太强了
引用 wxf820920 2007-4-3 22:35
向楼主学习！！！！
引用 huangxuemei513 2007-4-4 21:39
叹为观止！可惜我看不懂．
引用 jgh530520 2007-4-5 16:45
真的很帅哦，嘿嘿 :lol
引用 fanfengjun 2007-10-20 10:20
牛啊
羡慕啊
引用 donkeyxu 2007-10-20 10:32
没有问题啊，我主窗口运行了一次，保存为脚本运行了一次，都没有问题。
不错哦。

查看全部评论(35)

相关分类

QQ|小黑屋|Archiver|手机版|联系我们|声振论坛

GMT+8, 2024-5-11 00:32 , Processed in 0.043364 second(s), 23 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

返回顶部