| 查看: 2427 | 回复: 5 | ||
秋之愚新虫 (正式写手)
|
[求助]
径向分布函数怎么画 已有1人参与
|
|
求助各位大神，我在做Lennard-Jones势流体的分子动力学模拟时，能量图基本上已经画出来了，可径向分布函数的计算怎么弄都弄不出来，能有人帮帮我吗？在给出来的这个程序中switch在主程序中该怎么调用啊？？？ subroutine gr(switch,box,density,rx,ry,rz,g) dimension rx(108),ry(108),rz(108),g(125) double precision rx,ry,rz,g double precision delg,pi,box,r22,rr,density,nid integer ngr,ig,nhis,switch nhis=125 delg = box/(2*nhis) pi=3.1415926 ! if (switch.eq.0)then ngr=0 !delg=box/(2*nhis) do i=1,nhis g(i)=0 enddo ! elseif (switch.eq.1)then ngr=ngr+1 do i=1,107 do j=i+1,108 xr=rx(i)-rx(j) xr=xr-box*nint(xr/box) yr=ry(i)-ry(j) yr=yr-box*nint(yr/box) zr=rz(i)-rz(j) zr=zr-box*nint(zr/box) r22=xr*xr+yr*yr+zr*zr rr=sqrt(r22) if(rr.lt.box/2) then ig=int(rr/delg) g(ig)=g(ig)+2 endif enddo enddo ! elseif(switch.eq.2) then do i=1,nhis r=delg*(i+0.5) vb=((i+1)**3-i**3)*delg**3 nid=(4/3)*pi*vb*density g(i)=g(i)/(ngr*108.0*nid) write(*,*) nid,r,g(i) enddo ! endif return end |
回复此楼» 猜你喜欢
回收溶剂求助
已经有7人回复
-
职称评审没过，求安慰
已经有40人回复
-
硝基苯如何除去
已经有3人回复
-
A期刊撤稿
已经有4人回复
-
垃圾破二本职称评审标准
已经有17人回复
-
投稿Elsevier的Neoplasia杂志，到最后选publishing options时页面空白，不能完成投稿
已经有22人回复
-
申请26博士
已经有5人回复
-
EST投稿状态问题
已经有7人回复
-
毕业后当辅导员了，天天各种学生超烦
已经有4人回复
-
求助文献
已经有3人回复
» 本主题相关商家推荐: (我也要在这里推广)
» 本主题相关价值贴推荐，对您同样有帮助:
- 怎样用forcite画径向分布函数
已经有14人回复
- 关于径向分布函数和配位数公式中的密度
已经有3人回复
- 径向分布函数与团簇结构关系
已经有5人回复
- 如何解释径向分布函数与r之间的关系？
已经有8人回复
- 径向分布函数的问题
已经有13人回复
- vmd-做径向分布函数
已经有6人回复
- forcite径向分布函数g(r)物理意义
已经有8人回复
- 请教 径向分布函数（ＲＤＦ） 问题
已经有12人回复
- 如何做径向分布函数和长程序LRO？
已经有4人回复
- 请问大家做径向分布函数的时候结果有没有趋近于1啊？
已经有7人回复
- 【求助】怎么从结果中提取径向分布函数、键长、键角
已经有17人回复
- 【讨论】陈正隆书上径向分布函数的公式是否有误？
已经有10人回复
- 【求助】应用MS计算径向分布函数
已经有15人回复
- 【求助成功】径向分布函数如何分析？
已经有14人回复
秋之愚
新虫 (正式写手)
- 应助: 0 (幼儿园)
- 金币: 8145.6
- 红花: 1
- 帖子: 719
- 在线: 72.3小时
- 虫号: 2538185
- 注册: 2013-07-09
- 性别: GG
- 专业: 工程地质学
2楼2014-08-13 22:42:30
dummy1
木虫 (正式写手)
- 应助: 13 (小学生)
- 金币: 5841.7
- 散金: 32
- 红花: 1
- 帖子: 312
- 在线: 295.8小时
- 虫号: 270440
- 注册: 2006-08-06
- 专业: 理论和计算化学
3楼2014-08-14 02:45:40
秋之愚
新虫 (正式写手)
- 应助: 0 (幼儿园)
- 金币: 8145.6
- 红花: 1
- 帖子: 719
- 在线: 72.3小时
- 虫号: 2538185
- 注册: 2013-07-09
- 性别: GG
- 专业: 工程地质学
4楼2014-08-14 19:01:25
dummy1
木虫 (正式写手)
- 应助: 13 (小学生)
- 金币: 5841.7
- 散金: 32
- 红花: 1
- 帖子: 312
- 在线: 295.8小时
- 虫号: 270440
- 注册: 2006-08-06
- 专业: 理论和计算化学
5楼2014-08-16 02:33:13
秋之愚
新虫 (正式写手)
- 应助: 0 (幼儿园)
- 金币: 8145.6
- 红花: 1
- 帖子: 719
- 在线: 72.3小时
- 虫号: 2538185
- 注册: 2013-07-09
- 性别: GG
- 专业: 工程地质学
6楼2014-08-16 16:09:07