马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有账号?我要加入
x
- %将下列命令复制到程序运行窗口:
- try %可以运行
- close all
- hfig=figure('visible','off');
- set(hfig,'NumberTitle','off');
- set(hfig,'name','My Clock');
- set(hfig,'MenuBar','none');
- set(hfig,'color',[0.5 0.7 0.3]);
- set(hfig,'visible','on');
- A=linspace(0,6.3,1000);
- x1=8*cos(A);
- y1=8*sin(A);
- x2=7*cos(A);
- y2=7*sin(A);
- plot(x1,y1,'b','linewidth',1.4)
- hold on
- plot(x2,y2,'b','linewidth',3.5)
- fill(0.4*cos(A),0.4*sin(A),'r');
- axis off
- axis([-10 10 -10 10])
- axis equal
- set(gca,'position',[[0.13 0.05 0.775 0.815]])
- title(date,'fontsize',18)
- for k=1:12;
- xk=9*cos(-2*pi/12*k+pi/2);
- yk=9*sin(-2*pi/12*k+pi/2);
- plot([xk/9*8 xk/9*7],[yk/9*8 yk/9*7],'color',[0.3 0.8 0.9])
- h=text(xk,yk,num2str(k),'fontsize',16,'color',...
- [0.9 0.3 0.8],'HorizontalAlignment','center');
- end
- % 计算时针位置
- ti=clock;
- th=-(ti(4)+ti(5)/60+ti(6)/3600)/12*2*pi+pi/2;
- xh3=4.0*cos(th);
- yh3=4.0*sin(th);
- xh2=xh3/2+0.5*cos(th-pi/2);
- yh2=yh3/2+0.5*sin(th-pi/2);
- xh4=xh3/2-0.5*cos(th-pi/2);
- yh4=yh3/2-0.5*sin(th-pi/2);
- hh=fill([0 xh2 xh3 xh4 0],[0 yh2 yh3 yh4 0],[0.6 0.5 0.3]);
- % 计算分针位置
- tm=-(ti(5)+ti(6)/60)/60*2*pi+pi/2;
- xm3=6.0*cos(tm);
- ym3=6.0*sin(tm);
- xm2=xm3/2+0.5*cos(tm-pi/2);
- ym2=ym3/2+0.5*sin(tm-pi/2);
- xm4=xm3/2-0.5*cos(tm-pi/2);
- ym4=ym3/2-0.5*sin(tm-pi/2);
- hm=fill([0 xm2 xm3 xm4 0],[0 ym2 ym3 ym4 0],[0.6 0.5 0.3]);
- % 计算秒针位置
- ts=-(ti(6))/60*2*pi+pi/2;
- hs=plot([0 7*cos(ts)],[0 7*sin(ts)],...
- 'color',[0.6 0.5 0.3],'linewidth',3);
- set(gcf,'doublebuffer','on');
- k=1;
- while k<6;
- ti=clock;
- % 计算时针位置
- th=-(ti(4)+ti(5)/60+ti(6)/3600)/12*2*pi+pi/2;
- xh3=4.0*cos(th);
- yh3=4.0*sin(th);
- xh2=xh3/2+0.5*cos(th-pi/2);
- yh2=yh3/2+0.5*sin(th-pi/2);
- xh4=xh3/2-0.5*cos(th-pi/2);
- yh4=yh3/2-0.5*sin(th-pi/2);
- set(hh,'XData',[0 xh2 xh3 xh4 0],'YData',[0 yh2 yh3 yh4 0])
- % 计算分针位置
- tm=-(ti(5)+ti(6)/60)/60*2*pi+pi/2;
- xm3=6.0*cos(tm);
- ym3=6.0*sin(tm);
- xm2=xm3/2+0.5*cos(tm-pi/2);
- ym2=ym3/2+0.5*sin(tm-pi/2);
- xm4=xm3/2-0.5*cos(tm-pi/2);
- ym4=ym3/2-0.5*sin(tm-pi/2);
- set(hm,'XData',[0 xm2 xm3 xm4 0],'YData',[0 ym2 ym3 ym4 0])
- % 计算秒针位置
- ts=-(ti(6))/60*2*pi+pi/2;
- set(hs,'XData',[0 7*cos(ts)],'YData',[0 7*sin(ts)])
- drawnow;
- pause(0.09)
- end
- catch
- end
复制代码
转自研学 |