应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 分子模拟 » 其他 » 立方晶胞密堆积的matlab程序
161/2返回列表12下一页
查看: 3051  |  回复: 15
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

l53867

金虫 (小有名气)

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

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

立方晶胞密堆积的matlab程序
立方晶胞密堆积.jpg
回复此楼

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

王雨辰phy

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼 2015-07-04 23:03:12
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
回帖支持 ( 显示支持度最高的前 50 名 )

王雨辰phy

木虫 (小有名气)

老菜鸟
★
小木虫: 金币+0.5, 给个红包，谢谢回帖
送红花一朵
哇哦，不知道能不能再传一下呢，一直对编程建模不是很在行，希望能多多交流
我之前偶然看到国外的有人直接用matlab建余弦函数表面形貌的模型，不知道楼主会不会操作呢
立方晶胞密堆积的matlab程序-1
VJH9ZMMW15]Y3Z0]P1T6D]O.png
赞一下(1人) 回复此楼

» 本帖附件资源列表

  • 欢迎监督和反馈：小木虫仅提供交流平台，不对该内容负责。
    本内容由用户自主发布，如果其内容涉及到知识产权问题，其责任在于用户本人，如对版权有异议，请联系邮箱：xiaomuchong@tal.com
  • 附件 1 : 2013-CEAS-REU_Project3_NanoEngineering_Final-Presentation.pptx
    • 2015-07-05 22:16:14, 9.04 M
但行好事，莫问前程
6楼2015-07-05 22:17:03
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

l53867

金虫 (小有名气)
引用回帖:
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]);


只能这样了
赞一下(1人) 回复此楼
8楼2015-07-05 22:55:09
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

王雨辰phy

木虫 (小有名气)

老菜鸟
★
小木虫: 金币+0.5, 给个红包，谢谢回帖
引用回帖:
8楼: Originally posted by l53867 at 2015-07-05 22:55:09
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;
         ...

楼主的balls函数没有写上去吧
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]);
赞一下(1人) 回复此楼

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

l53867 l53867
但行好事，莫问前程
9楼2015-07-06 11:12:29
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通回帖

l53867

金虫 (小有名气)
为什么附件穿不上去
赞一下 回复此楼
2楼2015-07-04 23:15:12
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zhswee

铁杆木虫 (著名写手)
鼓励

[ 发自小木虫客户端 ]
回复此楼
3楼2015-07-04 23:28:54
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

magicmonk

至尊木虫 (著名写手)
上传到百度云吧
回复此楼
我们最深的恐惧不是我们能力不够，我们最深的恐惧是能力超越了极限。
4楼2015-07-05 12:12:22
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

wzm9525

银虫 (小有名气)
前排小板凳

[ 发自小木虫客户端 ]
回复此楼
倔强不是好事情，可是我们如何分得清何为倔强何为执著
5楼2015-07-05 12:29:47
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

l53867

金虫 (小有名气)
引用回帖:
6楼: Originally posted by 王雨辰phy at 2015-07-05 22:17:03
哇哦，不知道能不能再传一下呢，一直对编程建模不是很在行，希望能多多交流
我之前偶然看到国外的有人直接用matlab建余弦函数表面形貌的模型，不知道楼主会不会操作呢

VJH9ZMMW15]Y3Z0]P1T6D]O.png
...

俺暂时还是草鸟级别。。你说的有点高深，不过我会继续努力的
赞一下 回复此楼
7楼2015-07-05 22:45:09
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

l53867

金虫 (小有名气)
送红花一朵
引用回帖:
9楼: Originally posted by 王雨辰phy at 2015-07-06 11:12:29
楼主的balls函数没有写上去吧
function balls(r,x,y,z)
=sphere();
X=x+r*X;
Y=y+r*Y;
Z=z+r*Z;
surf(X,Y,Z);
colormap();...

丢。。把红花再还给你吧

[ 发自小木虫客户端 ]
赞一下 回复此楼
10楼2015-07-06 12:14:19
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 l53867 的主题更新
161/2返回列表12下一页
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
信息提示
关闭
请填处理意见
关闭