体心立方晶胞的matlab仿真(共3页).docx

精选优质文档-倾情为你奉上function main()clc,clear all;single(0,0,0),hold onaxis off;title(体心立方结构);view(55,20);%spread();%cube_4();function balls(r,x,y,z)X,Y,Z=sphere();X=x+r*X;Y=y+r*Y;Z=z+r*Z;surf(X,Y,Z);colormap(0 0 1);function single(x0,y0,z0)global x y z;x=1 -1 -1 1 1 1 -1 -1+x0;y=1 1 1 1 -1 -1 -1 -1+y0;z=1 1 -1 -1 -1 1 1 -1+z0;for i=1:8 balls(.1,x(i),y(i),z(i),hold on;endcolormap(1 1 1)balls(0.2,x0,y0,z0),hold onfor i=1:7