日历与时钟

目录

公历

黑色星期五

生物韵律

---

公历

---

在公历中，当年份为4的整数倍，但不是100的整数倍时，会出现闰年的现象。

y=40
mod(y,4)== 0 && mod(y,100)||mod(y,400)==0

输出当时的年、月、日、时、分、秒

f='%6d %6d %6d %6d %6d %9.3f\n'
c=clock
fprintf(f,c)

weekday - 星期几
    此 MATLAB 函数 返回表示 D 中每个元素的星期几的数字。

    DayNumber = weekday(D)
    [DayNumber,DayName] = weekday(D)
    [DayNumber,DayName] = weekday(D,DayForm)
    [DayNumber,DayName] = weekday(D,language)
    [DayNumber,DayName] = weekday(D,DayForm,language)

[d,w]=weekday(datenum(2011,8,2))
[d,w]=weekday(now)

 datenum - 将日期和时间转换为日期序列值
    此 MATLAB 函数 将输入数组 t 中的 datetime 或 duration 值转换为日期序列值。

    DateNumber = datenum(t)

    DateNumber = datenum(DateString)
    DateNumber = datenum(DateString,formatIn)
    DateNumber = datenum(DateString,PivotYear)
    DateNumber = datenum(DateString,formatIn,PivotYear)

    DateNumber = datenum(DateVector)
    DateNumber = datenum(Y,M,D)
    DateNumber = datenum(Y,M,D,H,MN,S)

---

黑色星期五

---

以400年为周期的历法下，某个月的13日正好是星期五的概率。

c = zeros(1,7);
for y = 1601:2000
   for m = 1:12
      d = datenum([y,m,13]);
      w = weekday(d);
      c(w) = c(w) + 1;
   end
end
c
bar(c)
axis([0 8 680 690])
avg = 4800/7;
line([0 8], [avg avg],'linewidth',4,'color','black')
set(gca,'xticklabel',{'Su','M','Tu','W','Th','F','Sa'})
title('13th day of the month')

---

生物韵律

---

体力周期为23天，感情周期为28天，智力周期为33天。

clf-清空图窗

clf 删除当前图窗中具有可见句柄的所有子级。

clf(fig) 删除指定图窗中具有可见句柄的所有子级。

clf('reset') 删除当前图窗的所有子级，不管其句柄可见性如何。它还将图窗属性重置为默认值，但 Position、Units、PaperPosition 和 PaperUnits 属性除外。您也可以使用不带括号的 clf reset 命令来重置图窗。

clf(fig,'reset') 删除指定图窗的所有子级并重置其属性。

f = clf(___) 可使用上述任一语法返回图窗。

shg 使当前图窗可见，并将其置于屏幕上所有其他图窗的前面。这与使用令 figure(gcf) 一样。

initialize

if nargin == 0
   t0 = fix(now-28);
else
   t0 = datenum(birthday);
end
t1 = fix(now);

% Eight week time span centered on today.

t = (t1-28):(t1+28);
y = 100*[sin(2*pi*(t-t0)/23)
         sin(2*pi*(t-t0)/28)
         sin(2*pi*(t-t0)/33)];
plot(t,y)

finalize

% ------------------------------------

   function initialize
      clf
      shg
      axes('position',[.10 .30 .80 .50])
   end
   
   function finalize
      line([t1 t1],[-100 100],'color','k')
      line([t1-28 t1+28],[0 0],'color','k')
      set(gca,'xtick',(t1-28):7:(t1+28))
      datetick('x',6,'keeplimits','keepticks')
      bot = text(t1-5,-130,['today: ' datestr(t1,1)]);
      cbs = 'biorhythm(strrep(get(gcbo,''string''),''birthday:'',''''))'; 
      top = uicontrol('style','edit','units','normal', ...
            'position',[.35 .82 .32 .05], ...
            'string',['birthday: ' datestr(t0,1)], ...
            'fontsize',get(bot,'fontsize'), ...
            'callback',cbs);
      axis tight
      leg = legend('Physical','Emotional','Intellectual');
      set(leg,'pos',[.10 .02 .18 .12])
   end

end % biorhythm