元素周期表

Co-60の位置を示すためだけに作成しました。
close all;clear;
Z(1:2)={'H','He'};
Z(3:10)={'Li','Be','B','C','N','O','F','Ne'};
Z(11:18)={'Na','Mg','Al','Si','P','S','Cl','Ar'};
Z(19:36)={'K','Ca','Sc','Ti','V','Cr','Mn','Fe','Co','Ni','Cu','Zn','Ga','Ge','As','Se','Br','kr'};
Z(37:54)={'Rb','Sr','Y','Zr','Nb','Mo','Tc','Ru','Rh','Pd','Ag','Cd','In','Sn','Sb','Te','I','Xe'};
Z(55:86)={'Cs','Ba','La','Ce','Pr','Nd','Pm','Sm','Eu','Gd','Tb','Dy','Ho','Er','Tm','Yb','Lu','Hf','Ta','W','Re','Os','Ir','Pt','Au','Hg','Tl','Pb','Bi','Po','At','Rn'};
Z(87:112)={'Fr','Ra','Ac','Th','Pa','U','Np','Pu','Am','Cm','Bk','Cf','Es','Fm','Md','No','Lr','Rf','Db','Sg','Bh','Hs','Mt','Ds','Rg','Cn'};
Z(113:118)={'Uut','Fl','Uup','Lv','Uus','Uuo'};
figure('color',[1,1,1]);
p=get(gcf,'position');
set(gcf,'position',[p(1),p(2)+p(4)-480,720,480]);
w=0.9;
x=[1,18];           y=ones(1,2);
x=[x,1:2,13:18];    y=[y,ones(1,8)*2];
x=[x,1:2,13:18];    y=[y,ones(1,8)*3];
x=[x,1:18];         y=[y,ones(1,18)*4];
x=[x,1:18];         y=[y,ones(1,18)*5];
x=[x,1:2,3:17,4:18];y=[y,ones(1,32)*6];
x=[x,1:2,3:17,4:18];y=[y,ones(1,32)*7];

y(57:71)=y(57:71)+2.5;% ランタノイド
y(89:103)=y(89:103)+2.5;% アクチノイド

handle=zeros(length(Z),3);
for n=1:length(Z)
    handle(n,1)=rectangle('Position',[x(n),y(n),w,w]);
    handle(n,2)=text(x(n)+0.4,y(n)+0.3,sprintf('%d',n));
    handle(n,3)=text(x(n)+0.4,y(n)+0.6,Z(n));
end;
for n=1:18
    rectangle('position',[n,0,w,w]);
    text(n+0.5,0.5,sprintf('%d',n),'fontsize',13);
end;
for n=1:7
    rectangle('position',[0,n,w,w]);
    text(0.5,n+0.5,sprintf('%d',n),'fontsize',13);
end;
for n=8:9
    rectangle('position',[0,n+0.5,2+w,w]);
    switch n
        case 8;text(1.5,n+1,'Lanthanoids','fontsize',11);
        case 9;text(1.5,n+1,'Actinoids','fontsize',11);
    end;
end;
set(gca,'position',[0.05,0,0.95,0.95]);
axis tight;
axis off;
set(findobj(gca,'type','text'),'horizontalalignment','center');
set(gca,'Ydir','reverse');
set(handle(:,3),'fontsize',11);
for n=1:10;
    switch n
        case 1;x=[3,11,19,37,55,87];color=[1,0.7,0.3];% アルカリ金属
        case 2;x=[4,12,20,38,56,88];color=[1,1,0.2];  % アルカリ土類
        case 3;x=[2,10,18,36,54,86];color=[0.9,0.9,0.9];% 希ガス
        case 4;x=[9,17,35,53,85];color=[0.5,0.5,1];% ハロゲン
        case 5;x=[1,6:8,15,16,34];color=[0.5,1,1];
        case 6;x=[5,14,32,33,51,52];color=[0.0,0.7,0.7];
        case 7;x=[13,31,49,50,81:84];color=[0,0.5,1];
        case 8;x=[21:30,39:48,72:80,104,108,112];color=[1,0.5,0.7];
        case 9;x=[57:71];color=[1.0,0.8,0.9];
        case 10;x=[89:103];color=[1.0,0.7,0.8];
    end;
    set(handle(x,1),'EdgeColor',[0,0,0],'facecolor',color);
end;