思路与基本源码来源于紫丁香的zjliu网友 我只是加了一句避免闪烁与重影现象 另外加了两句避免关闭的时候的错误信息 try close all hfig=figure; set(hfig,'NumberTitle','off'); set(hfig,'name','显示当前时间的表'); set(hfig,'MenuBar','none'); set(hfig,'color',[0.5 0.7 0.3]) 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]) % if k 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
一个不错的时钟画面
最新推荐文章于 2018-09-15 19:18:42 发布