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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 分子模拟 » 其他 » 立方晶胞密堆积的matlab程序
161/2返回列表12下一页
查看: 3346  |  回复: 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下一页
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[教师之家] 售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急 +3 oepdf5z972 2026-06-20 3/150 2026-06-21 21:01 by zo4669e5n4
[基金申请] E0414, 我的本子有没有希望？ +7 布布和一二 2026-06-17 9/450 2026-06-21 19:29 by 布布和一二
[考研] 售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急 +3 9skg9htng1 2026-06-20 3/150 2026-06-21 19:18 by q1p9ixelzp
[教师之家] 售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急 +3 9skg9htng1 2026-06-20 3/150 2026-06-21 18:58 by q1p9ixelzp
[公派出国] 售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急 +3 9skg9htng1 2026-06-20 3/150 2026-06-21 18:00 by q1p9ixelzp
[论文投稿] 售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急 +3 9skg9htng1 2026-06-20 3/150 2026-06-21 17:40 by q1p9ixelzp
[论文投稿] 售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急 +3 9skg9htng1 2026-06-20 3/150 2026-06-21 17:37 by q1p9ixelzp
[公派出国] 售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急 +4 vlfdw50o0u 2026-06-20 4/200 2026-06-21 17:25 by ky8v3skvft
[考博] 售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急 +4 vlfdw50o0u 2026-06-20 5/250 2026-06-21 17:20 by ky8v3skvft
[博后之家] 售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急 +4 vlfdw50o0u 2026-06-20 6/300 2026-06-21 17:05 by ky8v3skvft
[公派出国] 售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急 +4 vlfdw50o0u 2026-06-20 5/250 2026-06-21 17:00 by ky8v3skvft
[教师之家] 售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急 +5 vlfdw50o0u 2026-06-20 7/350 2026-06-21 16:57 by ky8v3skvft
[论文投稿] 售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急 +3 vlfdw50o0u 2026-06-20 5/250 2026-06-21 16:45 by ky8v3skvft
[教师之家] 售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急 +4 vlfdw50o0u 2026-06-20 7/350 2026-06-21 16:40 by ky8v3skvft
[论文投稿] 售T0P一区SCI文章，我:8O5.51.O.54,科目齐全,可＋急 +4 vlfdw50o0u 2026-06-20 9/450 2026-06-21 16:37 by ky8v3skvft
[基金申请] 青A35岁以下通知答辩了吗 +3 暨阳一只柴 2026-06-17 3/150 2026-06-21 09:39 by kudofaye
[考博] 【全奖博士/科研助理/博后招生】新加坡南洋理工大学机械与航空航天学院 +3 robohaha 2026-06-15 4/200 2026-06-21 00:36 by lanbing1
[基金申请] 希望面上有个好结果 +7 碧水00 2026-06-16 7/350 2026-06-18 12:18 by wuke100666
[论文投稿] 三区计算机方向期刊推荐 +5 1457340941 2026-06-15 5/250 2026-06-17 13:16 by 会议编辑
[论文投稿] sci论文二审求助 +5 潘倍倍 2026-06-15 5/250 2026-06-16 10:15 by xs74101122
信息提示
关闭
请填处理意见
关闭