[转帖]matlab时钟动画

suffer

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);
    
13. 
    
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
    
21. 
    
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]);
    
43. 
    
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);
    
67. 
    
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])
    
71. 
    
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
    
88. 
    
89. end

复制代码

转自研学

toes

诶？我怎么运行不成功。

lxq

诶？我怎么运行不成功。

这个大概与人品无关吧？ 呵呵,我试下。

dundun628

做的真好！赞一个

NVHht

哈哈，看了，不错。可以用来装饰一下自己的程序哈。

wei343

相当不错
谢谢

jeremygr

简直帅呆了

realhappy

在M－file文件里执行没有出现时钟，而在命令窗口确出现了，这是什么原因呢？

AaronSpark

原帖由 realhappy 于 2006-9-22 16:38 发表
在M－file文件里执行没有出现时钟，而在命令窗口确出现了，这是什么原因呢？

我执行都没有问题，不知道是否有什么提示？

realhappy

没有提示错误，但是没有时钟出现。

eight

原帖由 realhappy 于 2006-9-23 16:00 发表
没有提示错误，但是没有时钟出现。

的确有类似的问题，而且我昨天在m文件中运行时不成功，今天就成功了，不过今天虽然出现时钟，但是没有出现日期，比较奇怪

wqtclark

不错,很漂亮
我也运行不成功
好像是说CATCH那一句有问题

[ 本帖最后由 ChaChing 于 2009-3-18 21:39 编辑 ]

zhyprs

好可爱啊，谢谢！

zhyprs

原帖由 realhappy 于 2006-9-22 16:38 发表
在M－file文件里执行没有出现时钟，而在命令窗口确出现了，这是什么原因呢？

我也发现了这个问题，为什么呢？高手出来回答一下吧。

figotan

偶像啊,太强了