[原创]Matlab模拟时针和数字时针

[记录数模集训期间Matlab的学习过程]

①模拟时针

clear,close all,clcdegree=[0:0.01:pi*2];plot(cos(degree),sin(degree),'r-');set(gca,'Xtick',[],'Ytick',[]);box on;axis([-1.3 1.3 -1.3 1.3])axis squaretitle('模拟时钟','Fontsize',22,'Fontname','华文行楷')%时针刻度for m=5*pi/2:-pi/6:pi/2    a=line([9*cos(m)/10,cos(m)],[9*sin(m)/10,sin(m)],'color','r');    if(m~=5*pi/2)        text(17*cos(m)/20,17*sin(m)/20,int2str(12-(6*m-3*pi)/pi),'Fontsize',10,'Fontname','Times New Roman','Color','B','HorizontalAlignment','center');    end    pause(0.005)endtext(0,-0.2,'CopyRight By D.C.','Fontsize',8,'Fontname','Times New Roman','Color','B','HorizontalAlignment','center');%分针刻度for n=0:pi/30:2*pi    if mod(n,pi/6)~=0        a=line([19*cos(n)/20,cos(n)],[19*sin(n)/20,sin(n)]);    end    pause(0.005)endclear m,clear n;%秒针while (1)    timeNow=clock;    timeN=[2*pi-timeNow(4:6)/30*pi+pi/2];    %hou=2*pi-timeNow(5)/30*pi+pi/2;    %mini=2*pi-timeNow(5)/30*pi+pi/2;    %sec=2*pi-timeNow(6)/30*pi+pi/2;    h=timeN(1);    i=timeN(2);    j=timeN(3);    %画时针    %ah=line([0,18*cos(h)/20],[0 18*sin(h)/20]);    bh=line([1.5*cos(h+pi/2)/20 -3*cos(h)/20],[1.5*sin(h+pi/2)/20 -3*sin(h)/20]);    ch=line([1.5*cos(h-pi/2)/20 -3*cos(h)/20],[1.5*sin(h-pi/2)/20 -3*sin(h)/20]);    dh=line([1.5*cos(h+pi/2)/20 14*cos(h)/20],[1.5*sin(h+pi/2)/20 14*sin(h)/20]);    eh=line([1.5*cos(h-pi/2)/20 14*cos(h)/20],[1.5*sin(h-pi/2)/20 14*sin(h)/20]);    %画分针    a=line([-4*cos(i)/20,17*cos(i)/20],[-4*sin(i)/20 17*sin(i)/20]);    b=line([1*cos(i+pi/2)/20 -4*cos(i)/20],[1*sin(i+pi/2)/20 -4*sin(i)/20]);    c=line([1*cos(i-pi/2)/20 -4*cos(i)/20],[1*sin(i-pi/2)/20 -4*sin(i)/20]);    d=line([1*cos(i+pi/2)/20 17*cos(i)/20],[1*sin(i+pi/2)/20 17*sin(i)/20]);    e=line([1*cos(i-pi/2)/20 17*cos(i)/20],[1*sin(i-pi/2)/20 17*sin(i)/20]);    %画秒针    f=line([-3*cos(j)/20,18*cos(j)/20],[-3*sin(j)/20 18*sin(j)/20]);    %定时检测    pause(1)     delete(bh),delete(ch),delete(dh),delete(eh)    delete(a),delete(b),delete(c),delete(d),delete(e),delete(f)end

 

----------------------------------------------------------------------可恶的分隔线----------------------------------------------------------------------------------

②数字时针

while 1    c=clock;         axes('Position',[0.06,0.4,0.86,0.4]);    title('数字时钟','Fontsize',22,'Fontname','华文行楷')    set(gca,'Xtick',[],'Ytick',[]);box on;    str=[int2strNew(c(4)),':',int2strNew(c(5)),':',int2strNew(c(6))];    Ts=text(0.5,0.5,str,'Fontsize',80,...    'Fontname','Times New Roman','Color','B',...    'HorizontalAlignment','center');    pause(1)    clfend%---------------------------------%int2strNew.m%----------------------------------function y=int2strNew(a)if size(int2str(a),2)==1       y=['0',int2str(a)];else     y=int2str(a);end

 

%----------------------------------------------------------可恶的分隔线--------------------------------------------------------------

                                                                                                                          CopyRight By D.C.  2011.7.22 0:21

                                                                                                                           转载请注明出处