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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 分子模拟 » Monte Carlo » 【求助】纳米管道边界问题
北京石油化工学院2026年研究生招生接收调剂公告
61/1返回列表
查看: 897  |  回复: 5
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

maoalbert

新虫 (小有名气)

[交流] 【求助】纳米管道边界问题 已有2人参与

请教一下，我在用MD模拟高分子在纳米管道中的运动时，珠子的力好像特别大，以至于一下子就跑到了管道外边，在X和Y方向我用了周期性边界条件，但是在Z方向是非周期性的，我是用Fortran自己编程的，不知道该怎样限制Z方向的位移。我想用反射的原理去做，可是反射一次的话如果还是在外边怎么办，这个已经困惑我好多天了，希望能够得到各位大侠的帮助。先谢谢了！
回复此楼

» 猜你喜欢

» 本主题相关商家推荐: (我也要在这里推广)
1楼 2010-10-10 12:23:42
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zyj8119

木虫 (著名写手)
★ ★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
zh1987hs(金币+2):谢谢 2010-10-10 18:51:23
是参考FRENKEL的那本书吗？你的这个可以看看lammps或者 DLPOLY的源代码,对于Z方向，可以用nint()函数取整，使得跑出盒子的分子跳进去？
赞一下(2人) 回复此楼
好好学习，天天向上。
2楼2010-10-10 12:55:36
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

maoalbert

新虫 (小有名气)
★
zh1987hs(金币+1):鼓励交流 2010-10-10 18:51:33
引用回帖:
Originally posted by zyj8119 at 2010-10-10 12:55:36:
是参考FRENKEL的那本书吗？你的这个可以看看lammps或者 DLPOLY的源代码,对于Z方向，可以用nint()函数取整，使得跑出盒子的分子跳进去？

我没注意看Frenkel那本书，我只有中文版的，不知道哪里能得到DLPOLY的源代码，我不明白用nint()取整就可以跳回来么？能否解释的详细点，呵呵，我是新手。谢谢回复！
赞一下(1人) 回复此楼
3楼2010-10-10 16:24:57
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zyj8119

木虫 (著名写手)
★ ★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
ghcacj(金币+2):谢谢 2010-10-11 09:28:29
引用回帖:
Originally posted by maoalbert at 2010-10-10 16:24:57:


我没注意看Frenkel那本书，我只有中文版的，不知道哪里能得到DLPOLY的源代码，我不明白用nint()取整就可以跳回来么？能否解释的详细点，呵呵，我是新手。谢谢回复！

DLPOLY的源代码，只要你与他们科研组联系，得到账号就可以了。
赞一下(2人) 回复此楼
好好学习，天天向上。
4楼2010-10-11 08:19:04
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zyj8119

木虫 (著名写手)
★ ★ ★ ★ ★
小木虫(金币+0.5):给个红包，谢谢回帖交流
ghcacj(金币+4):谢谢 2010-10-11 09:28:37
引用回帖:
Originally posted by zyj8119 at 2010-10-11 08:19:04:

DLPOLY的源代码，只要你与他们科研组联系，得到账号就可以了。

CODE:
c     standard cubic boundary conditions
        
        
        aaa=1.d0/cell(1)

        do i=iatm1,iatm2
          xxx(i)=xxx(i)-cell(1)*nint(aaa*xxx(i))
          yyy(i)=yyy(i)-cell(1)*nint(aaa*yyy(i))
          zzz(i)=zzz(i)-cell(1)*nint(aaa*zzz(i))
        enddo
        
      else if(imcon.eq.2)then
c     
c     rectangular (slab) boundary conditions
        
        aaa=1.d0/cell(1)
        bbb=1.d0/cell(5)
        ccc=1.d0/cell(9)
        
        do i=iatm1,iatm2
         
          xxx(i)=xxx(i)-cell(1)*nint(aaa*xxx(i))
          yyy(i)=yyy(i)-cell(5)*nint(bbb*yyy(i))
          zzz(i)=zzz(i)-cell(9)*nint(ccc*zzz(i))
         
        enddo
        
      else if(imcon.eq.3)then
c     
c     parallelepiped boundary conditions
        
        call invert(cell,rcell,det)
        
        do i=iatm1,iatm2
         
          ssx=(rcell(1)*xxx(i)+rcell(4)*yyy(i)+rcell(7)*zzz(i))
          ssy=(rcell(2)*xxx(i)+rcell(5)*yyy(i)+rcell(8)*zzz(i))
          ssz=(rcell(3)*xxx(i)+rcell(6)*yyy(i)+rcell(9)*zzz(i))
         
          xss=ssx-nint(ssx)
          yss=ssy-nint(ssy)
          zss=ssz-nint(ssz)
         
          xxx(i)=(cell(1)*xss+cell(4)*yss+cell(7)*zss)
          yyy(i)=(cell(2)*xss+cell(5)*yss+cell(8)*zss)
          zzz(i)=(cell(3)*xss+cell(6)*yss+cell(9)*zss)
         
        enddo
        
      else if(imcon.eq.4)then
c     
c     truncated octahedral boundary conditions
        
        if(.not.(abs(cell(1)-cell(5)).lt.1.d-6.and.
     x    abs(cell(5)-cell(9)).lt.1.d-6)) then
          print *,'error-130'
          stop
        endif
        
        aaa=1.d0/cell(1)
        
        do i=iatm1,iatm2
         
          xxx(i)=xxx(i)-cell(1)*nint(aaa*xxx(i))
          yyy(i)=yyy(i)-cell(1)*nint(aaa*yyy(i))
          zzz(i)=zzz(i)-cell(1)*nint(aaa*zzz(i))
         
          if((abs(xxx(i))+abs(yyy(i))+abs(zzz(i))).ge.
     x      (0.75d0*cell(1)))then
            
            xxx(i)=xxx(i)-0.5d0*sign(cell(1),xxx(i))
            yyy(i)=yyy(i)-0.5d0*sign(cell(1),yyy(i))
            zzz(i)=zzz(i)-0.5d0*sign(cell(1),zzz(i))
            
          endif
         
        enddo
        
      else if(imcon.eq.5)then
c     
c     rhombic dodecahedral boundary conditions
        
        rt2=sqrt(2.d0)
        if(.not.(abs(cell(1)-cell(5)).lt.1.d-6.and.
     x    abs(cell(9)-cell(1)*rt2).lt.1.d-6))then
          print *,'error-140'
          stop
        endif
        
        aaa=1.d0/cell(1)
        bbb=1.d0/cell(9)
        
        do i=iatm1,iatm2
         
          xxx(i)=xxx(i)-cell(1)*nint(aaa*xxx(i))
          yyy(i)=yyy(i)-cell(1)*nint(aaa*yyy(i))
          zzz(i)=zzz(i)-cell(9)*nint(bbb*zzz(i))
         
          if((abs(xxx(i))+abs(yyy(i))+abs(rt2*zzz(i))).ge.
     x      cell(1))then
            
            xxx(i)=xxx(i)-0.5d0*sign(cell(1),xxx(i))
            yyy(i)=yyy(i)-0.5d0*sign(cell(1),yyy(i))
            zzz(i)=zzz(i)-0.5d0*sign(cell(9),zzz(i))
            
          endif
         
        enddo
        
      else if(imcon.eq.6) then
c     
c     x-y boundary conditions
        det = cell(1)*cell(5) - cell(2)*cell(4)
        if(abs(det).lt.1.d-6) then
          print *,'error-120'
          stop
        endif
        
        det = 1.d0/det
        rcell(1) =  det*cell(5)
        rcell(2) = -det*cell(2)
        rcell(4) = -det*cell(4)
        rcell(5) =  det*cell(1)
        
        do i=iatm1,iatm2
          ssx = rcell(1)*xxx(i) + rcell(4)*yyy(i)
          ssy = rcell(2)*xxx(i) + rcell(5)*yyy(i)
          xss = ssx - nint(ssx)
          yss = ssy - nint(ssy)
          xxx(i)=cell(1)*xss + cell(4)*yss
          yyy(i)=cell(2)*xss + cell(5)*yss
        enddo
      endif
      return
      end
赞一下(2人) 回复此楼
好好学习，天天向上。
5楼2010-10-11 08:22:29
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

maoalbert

新虫 (小有名气)
引用回帖:
Originally posted by zyj8119 at 2010-10-11 08:22:29:


[code]c     standard cubic boundary conditions
        
        
        aaa=1.d0/cell(1)

        do i=iatm1,iatm2
          xxx(i)=xxx(i)-cell(1)*nint(aaa*xxx(i))
          yyy(i)=yyy( ...

好的，谢谢您了！非常感谢！我看看先！
赞一下 回复此楼
6楼2010-10-11 09:31:20
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 maoalbert 的主题更新
61/1返回列表
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 281求调剂 +7 椰子蘑菇 2026-04-06 7/350 2026-04-06 09:57 by Sealedwind
[考研] 304求调剂 +7 c297914 2026-04-05 8/400 2026-04-05 22:13 by hemengdong
[考研] 285求调剂 +4 恶法大二的气味� 2026-04-05 5/250 2026-04-05 20:32 by 286640313
[考研] 304求调剂（085602，过四级，一志愿985） +15 化工人999 2026-04-04 15/750 2026-04-05 16:25 by 我是电风扇r
[考研] 085600调剂 +9 东照照照 2026-04-04 9/450 2026-04-05 13:44 by ujn_zhuj
[考研] 一志愿电子科技大学085600材料与化工 329分求调剂 +10 Naiko 2026-04-04 10/500 2026-04-05 09:40 by sam3303
[考研] 285求调剂 +11 哦呦呼o 2026-04-04 11/550 2026-04-05 08:15 by 544594351
[考研] 0703求调剂 +6 zizimo 2026-03-31 6/300 2026-04-04 14:16 by 无际的草原
[考研] 280求调剂 +21 咕噜晓晓 2026-04-02 22/1100 2026-04-04 11:12 by 猪会飞
[考研] 求调剂，一志愿北京中医药大学 +3 小小达不溜 2026-04-02 3/150 2026-04-03 22:55 by 冲矢昴星团
[考研] 317分 一志愿江南大学 化学工程学硕 求调剂 +6 YinTai 2026-04-03 6/300 2026-04-03 22:30 by 无际的草原
[考研] 266分，一志愿电气工程，本科材料，求材料专业调剂 +9 哇呼哼呼哼 2026-04-02 9/450 2026-04-03 12:05 by 1753564080
[考研] 初试成绩337找调剂 +3 ??? ?. ? 2026-04-03 3/150 2026-04-03 11:43 by 土木硕士招生
[考研] 一志愿厦门大学材料工程专硕354找调剂！！！ +8 贝呗钡钡 2026-03-30 8/400 2026-04-03 09:41 by hypershenger
[考研] 295求调剂 +7 愿旅途永远坦然 2026-04-02 7/350 2026-04-03 08:22 by fangshan711
[考研] 一志愿大工学硕，求调剂 +4 yub0811 2026-04-02 4/200 2026-04-02 21:36 by 百灵童888
[考研] 348求调剂 +6 吴彦祖24k 2026-04-02 6/300 2026-04-02 14:07 by 给你你注意休息
[考研] 一志愿北交大材料工程总分358 +3 cs0106 2026-04-02 5/250 2026-04-02 11:37 by olim
[考研] 298求调剂 +4 什么是胖头鱼 2026-03-30 6/300 2026-04-01 22:06 by 客尔美德
[考研] 本科211总分289，08工学真心求调剂 +3 utopiaE 2026-03-30 3/150 2026-03-30 23:42 by ms629
信息提示
关闭
请填处理意见
关闭