| 查看: 3174 | 回复: 15 | |||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | |||
[交流]
立方晶胞密堆积的matlab程序 已有7人参与
|
|||
有没有喜欢matlab的虫友 哈哈 小弟写了个简单小程序 跟大家切磋一下哈 水平不高 请见谅 如有错误 请赐教  立方晶胞密堆积.jpg |
回复此楼» 本帖已获得的红花（最新10朵）
王雨辰phy» 猜你喜欢
268求调剂
已经有7人回复
-
一志愿重庆大学085700资源与环境总分308求调剂
已经有4人回复
-
302求调剂
已经有11人回复
-
306求调剂
已经有4人回复
-
材料学学硕080502 337求调剂-一志愿华中科技大学
已经有4人回复
-
求调剂
已经有6人回复
-
313求调剂
已经有3人回复
-
南昌大学材料专硕311分求调剂
已经有6人回复
-
316求调剂
已经有6人回复
-
346求调剂[0856]
已经有7人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 请问，这个三角形里面有个“1”是什么意思？
已经有3人回复
- 微球 SEM 想观察切面，怎么处理样品能获得切面呢？
已经有5人回复
- 谁有MATLAB2013b的安装密匙呀
已经有11人回复
- 如何从密堆积机构想到面心立方晶胞？
已经有5人回复
|
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]);  只能这样了 |
8楼2015-07-05 22:55:09
2楼2015-07-04 23:15:12
zhswee
铁杆木虫 (著名写手)
- 应助: 130 (高中生)
- 金币: 6195.7
- 散金: 400
- 红花: 19
- 帖子: 2416
- 在线: 398.7小时
- 虫号: 2658798
- 注册: 2013-09-16
- 专业: 力学
3楼2015-07-04 23:28:54
magicmonk
至尊木虫 (著名写手)
- 应助: 172 (高中生)
- 金币: 11451.3
- 红花: 24
- 帖子: 1124
- 在线: 3108.8小时
- 虫号: 1191315
- 注册: 2011-01-17
- 专业: 理论和计算化学
4楼2015-07-05 12:12:22
