24小时热门版块排行榜    

查看: 704  |  回复: 6
当前主题已经存档。

jianchaoyv

金虫 (小有名气)

[交流] 【求助】请教Fortran中计算Lennard--Jones potential出现的问题

module Potential
!     Contains parameters of the Lennard-Jones potential
   double precision, parameter :: Rcutoff = 2.5d0   ! cutoff distance
   double precision, parameter :: phicutoff = &     ! potential at cutoff
                                4.d0/(Rcutoff**12) - 4.d0/(Rcutoff**6)
end module Potential
module Statistics
!  Contains statistical quantities accumulated during the run.
!  All quantities are resetted to zero.
   double precision :: temperature_sum = 0.d0
   double precision :: ene_kin_sum     = 0.d0
   double precision :: ene_pot_sum     = 0.d0
   double precision :: pressure_sum    = 0.d0
end module Statistics
请问程序中的d0和cutoff distance是什么意思?谢谢!!

[ Last edited by woshilsh on 2008-11-30 at 11:17 ]
回复此楼

» 猜你喜欢

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

woshilsh

荣誉版主 (职业作家)

优秀版主

这个语言不懂,但帮你顶上去,
[center][url=http://www.91cool.net/][img]http://id.91cool.net/sign/?name=小木虫印&say=各位版主辛苦了![/img][/url][/center]
2楼2008-11-30 11:18:06
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

grant.tgb

木虫 (小有名气)

d0是双精度的10的零次


kuhailangyu(金币+1,VIP+0):thanks~~!
相当于单精度的E0
2.5d0就是2.5,呵呵。

cutoff distance就是英语而已,在在这个L-J函数中似乎可翻译为“截断距离”或截断值之类的吧?
3楼2008-11-30 12:06:59
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

dellus

木虫 (职业作家)

只计算L-J potential 0-2.5的值, 后面的认为是0
岂能尽如人意,但求无愧于心。
4楼2008-11-30 12:56:30
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

cuicoffee

铁杆木虫 (小有名气)

★ ★ ★
kuhailangyu(金币+1,VIP+0):谢谢!
lei0736(金币+2,VIP+0):谢谢
2.5d0中的d0的意思是把2.5作为一个双精度数,如果一个数写成r.dm,则表示此数为rx10^m次方.如1.259d5表示1.259乘以10的5次方,且是双精度的.如果写成1.259e5则表示的数没变,但是单精度的,其实就是科学计数法在fortran中的写法.
cutcoff distance是截断距离,因为L-J势作用距离有限,没必要取遍全空间,因此人为的设定一个合适的距离,在此距离进行截断,超过此距离的L-J势全部略掉.
业精于勤?行成于思?概率多大?
5楼2008-12-01 20:38:17
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

jianchaoyv

金虫 (小有名气)

谢谢各位高手指点!!
6楼2008-12-02 18:21:18
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

jianchaoyv

金虫 (小有名气)

谢谢各位高手指点!!
7楼2008-12-02 18:22:28
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 jianchaoyv 的主题更新
普通表情 高级回复 (可上传附件)
信息提示
请填处理意见