24小时热门版块排行榜

>论坛更新日志 (2281)
>虫友互识 (116)
>导师招生 (53)
>休闲灌水 (40)
>文献求助 (38)
>硕博家园 (34)
>考博 (22)
>考研 (22)
>论文道贺祈福 (16)
>基金申请 (16)
>博后之家 (15)
>论文投稿 (15)
>教师之家 (12)
>找工作 (12)
>公派出国 (12)
>金属 (4)

返回列表

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

l53867

金虫 (小有名气)

应助: 0 (幼儿园)
金币: 954.8
散金: 110
红花: 4
帖子: 200
在线: 67.1小时
虫号: 3612293
注册: 2014-12-25
性别: MM
专业: 计算机科学

[交流] 立方晶胞密堆积的matlab程序已有7人参与

有没有喜欢matlab的虫友哈哈小弟写了个简单小程序跟大家切磋一下哈水平不高请见谅

如有错误请赐教

立方晶胞密堆积.jpg

回复此楼

» 本帖已获得的红花（最新10朵）

王雨辰phy

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:

1楼 2015-07-04 23:03:12

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

l53867

金虫 (小有名气)

应助: 0 (幼儿园)
金币: 954.8
散金: 110
红花: 4
帖子: 200
在线: 67.1小时
虫号: 3612293
注册: 2014-12-25
性别: MM
专业: 计算机科学

引用回帖:

3楼: Originally posted by zhswee at 2015-07-04 23:28:54
鼓励

clc,clear all
%主函数
input('请输入1-4之内的整数，然后按enter')
ni=input('ni=');
ni=ni-1;
nj=input('nj=');
nj=nj-1;
nk=input('nk=');
nk=nk-1;
hold on
for i=0:ni;
for j=0:nj;
      for k=0:nk;
   bodycube(i,j,k)
      end
   end
end
hold off



function  bodycube(i,j,k)
r=.1*sqrt(3)/4;
balls(r,.1/2+0.1*i,.1/2+0.1*j,.1/2+0.1*k);
hold on
balls(r,0+0.1*i,0+0.1*j,0+0.1*k);
balls(r,0+0.1*i,.1+0.1*j,0+0.1*k);
balls(r,.1+0.1*i,.1+0.1*j,0+0.1*k);
balls(r,.1+0.1*i,0+0.1*j,0+0.1*k);

balls(r,0+0.1*i,0+0.1*j,.1+0.1*k);
balls(r,0+0.1*i,.1+0.1*j,.1+0.1*k);
balls(r,.1+0.1*i,.1+0.1*j,.1+0.1*k);
balls(r,.1+0.1*i,0+0.1*j,.1+0.1*k);
axis equal
axis off
colormap([.2 0.2 1]);