matble 绘制金刚石晶胞结构

matble 绘制金刚石晶胞结构

// 
A =[0,4,4,0,0,4,4,0,2,4,2,0,2,2,1,3,3,1];
B =[0,0,4,4,0,0,4,4,0,2,4,2,2,2,1,1,3,3];
C =[0,0,0,0,4,4,4,4,2,2,2,2,0,4,3,1,3,1];
plot3(A,B,C,'r.','markersize',250)
line([A(1) A(2)],[B(1) B(2)],[C(1) C(2)],'Color','b','LineWidth',4);
line([A(2) A(3)],[B(2) B(3)],[C(2) C(3)],'Color','b','LineWidth',4);
line([A(3) A(4)],[B(3) B(4)],[C(3) C(4)],'Color','b','LineWidth',4);
line([A(6) A(7)],[B(7) B(6)],[C(6) C(7)],'Color','b','LineWidth',4);

line([A(4) A(8)],[B(4) B(8)],[C(4) C(8)],'Color','b','LineWidth',4);
line([A(5) A(6)],[B(5) B(6)],[C(5) C(6)],'Color','b','LineWidth',4);
line([A(7) A(8)],[B(7) B(8)],[C(7) C(8)],'Color','b','LineWidth',4);
line([A(1) A(5)],[B(1) B(5)],[C(1) C(6)],'Color','b','LineWidth',4);
line([A(2) A(6)],[B(2) B(6)],[C(2) C(6)],'Color','b','LineWidth',4);
line([A(3) A(7)],[B(3) B(7)],[C(3) C(7)],'Color','b','LineWidth',4);
line([A(7) A(8)],[B(7) B(8)],[C(7) C(8)],'Color','b','LineWidth',4);
line([A(1) A(4)],[B(1) B(4)],[C(1) C(4)],'Color','b','LineWidth',4);
line([A(5) A(8)],[B(5) B(8)],[C(5) C(8)],'Color','b','LineWidth',4);

line([A(15) A(5)],[B(15) B(5)],[C(15) C(5)],'Color','b','LineWidth',4);
line([A(15) A(14)],[B(15) B(14)],[C(15) C(14)],'Color','b','LineWidth',4);
line([A(15) A(9)],[B(15) B(9)],[C(15) C(9)],'Color','b','LineWidth',4);
line([A(15) A(12)],[B(15) B(12)],[C(15) C(12)],'Color','b','LineWidth',4);

line([A(16) A(2)],[B(16) B(2)],[C(16) C(2)],'Color','b','LineWidth',4);
line([A(16) A(10)],[B(16) B(10)],[C(16) C(10)],'Color','b','LineWidth',4);
line([A(16) A(9)],[B(16) B(9)],[C(16) C(9)],'Color','b','LineWidth',4);
line([A(16) A(13)],[B(16) B(13)],[C(16) C(13)],'Color','b','LineWidth',4);

line([A(17) A(14)],[B(17) B(14)],[C(17) C(14)],'Color','b','LineWidth',4);
line([A(17) A(7)],[B(17) B(7)],[C(17) C(7)],'Color','b','LineWidth',4);
line([A(17) A(10)],[B(17) B(10)],[C(17) C(10)],'Color','b','LineWidth',4);
line([A(17) A(11)],[B(17) B(11)],[C(17) C(11)],'Color','b','LineWidth',4);

line([A(18) A(4)],[B(18) B(4)],[C(18) C(4)],'Color','b','LineWidth',4);
line([A(18) A(13)],[B(18) B(13)],[C(18) C(13)],'Color','b','LineWidth',4);
line([A(18) A(11)],[B(18) B(11)],[C(18) C(11)],'Color','b','LineWidth',4);
line([A(18) A(12)],[B(18) B(12)],[C(18) C(12)],'Color','b','LineWidth',4);
grid on