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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 分子模拟 » Monte Carlo » 【求助】求高人给我发一份GEMC的模拟程序
81/1返回列表
查看: 891  |  回复: 7
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看
本帖产生 1 个 模拟EPI ，点击这里进行查看

flowerstudy

木虫 (正式写手)

[交流] 【求助】求高人给我发一份GEMC的模拟程序

小弟，最近在学习MC，觉得GEMC对我比较有用，可是在网上，我怎么都找不着。
如果有人有的话，能否给我发一份呢？万分感谢！
我的邮箱地址：zw198204@163.com
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:

» 抢金币啦！回帖就可以得到:

查看全部散金贴
1楼 2010-11-28 18:52:27
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zyj8119

木虫 (著名写手)
★ ★
ghcacj(金币+2):谢谢 2010-11-29 18:13:56
flowerstudy(金币+1): 2010-11-29 20:38:15
引用回帖:
Originally posted by flowerstudy at 2010-11-28 18:52:27:
小弟，最近在学习MC，觉得GEMC对我比较有用，可是在网上，我怎么都找不着。
如果有人有的话，能否给我发一份呢？万分感谢！
我的邮箱地址：zw198204@163.com

这个吉布斯系综蒙特卡罗模拟的程序，比较难找，很多组都是组内编写，不外传。
赞一下(1人) 回复此楼
2楼2010-11-29 00:01:34
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

qphll

金虫 (正式写手)
★ ★
ghcacj(金币+2):谢谢 2010-11-29 18:14:05
flowerstudy(金币+1): 2010-11-29 20:38:20
引用回帖:
Originally posted by flowerstudy at 2010-11-28 18:52:27:
小弟，最近在学习MC，觉得GEMC对我比较有用，可是在网上，我怎么都找不着。
如果有人有的话，能否给我发一份呢？万分感谢！
我的邮箱地址：zw198204@163.com

没有人会这样给你的, 就算我有的话.

自己写吧, 有啥困惑的, 拿出来讨论.

研究这个路, 真没有捷径.
赞一下(1人) 回复此楼
3楼2010-11-29 09:50:07
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zyj8119

木虫 (著名写手)
引用回帖:
Originally posted by qphll at 2010-11-29 09:50:07:



没有人会这样给你的, 就算我有的话.

自己写吧, 有啥困惑的, 拿出来讨论.

研究这个路, 真没有捷径.

不过如果你知道GEMC的大概思路，可以帮人家写个伪代码，是吧？高人？
赞一下 回复此楼
4楼2010-12-02 10:47:45
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

qphll

金虫 (正式写手)
★ ★ ★
ghcacj(金币+3):谢谢 2010-12-02 13:46:43
引用回帖:
Originally posted by zyj8119 at 2010-12-02 10:47:45:

不过如果你知道GEMC的大概思路，可以帮人家写个伪代码，是吧？高人？

我也就只有姚明的一半身高, 实在很低.

楼主你对于Gibbis MC的了解, 有哪些? 还有, 你打算用它来做什么? 目前, 你打算怎样开始自己写? 有哪些参考文献, 或者书?

我这个周末前看看能不能将伪码弄出来...

如果食言, 莫怪我, 哈哈.
赞一下(1人) 回复此楼
5楼2010-12-02 12:43:57
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zyj8119

木虫 (著名写手)
引用回帖:
Originally posted by qphll at 2010-12-02 12:43:57:


我也就只有姚明的一半身高, 实在很低.

楼主你对于Gibbis MC的了解, 有哪些? 还有, 你打算用它来做什么? 目前, 你打算怎样开始自己写? 有哪些参考文献, 或者书?

我这个周末前看看能不能将伪码弄出来...  ...

伪代码是可以翻译成任何程序语言的。
赞一下 回复此楼
6楼2010-12-03 10:52:50
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

qphll

金虫 (正式写手)
★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
zh1987hs(金币+10):谢谢 2010-12-04 23:13:56
ghcacj(金币+3, 模拟EPI+1):精彩答疑 2010-12-06 12:16:56
答应过的事情, 虽然觉得其实对楼主帮助也不大. 因为我不可能给你写一个完整的GibbsMC, 如果你自己不努力去理解, 那么什么都是白搭.

这是大体结构. 按照需要填充就是了. 应该此贴不会再更新了.

文件名: GibbsMC.f90

文件内容如下:

PROGRAM MC

  USE global
  IMPLICIT NONE

  ! Local
  INTEGER :: ibox, iblock, istep
  INTEGER :: ts,tf,rate
  DOUBLE PRECISION :: engtst, virtst, engerr

  ! Initialize the random number generator
  CALL seed_random(idum)
  
  ! Read the input file
  CALL read_input

  ! Get the start time
  CALL system_clock(count=ts, count_rate=rate)

  ! Perform minimization
  CALL relax
  
  ! Calculate energy and virial
  DO ibox = 1,n_box
    CALL eng_total(ibox,energy(ibox),virial(ibox))
    CALL write_config(ibox,0)
  ENDDO
  
  ! Loop over the blocks
  DO iblock = 1,n_blocks
   
    ! Reset basic statistics
    CALL stats(1,0,0)

    ! Reset optional statistics  
    IF(opt .EQ. 1) CALL sample(1,0,0)  

    ! Loop over the steps per block
    DO istep = 1,n_steps
      
      ! Perform a trial move
      CALL trial_move(iblock,istep)
     
      ! Accumulate basic statistics
      CALL stats(2,iblock,istep)

      ! Accumulate optional statistics
      IF(opt .EQ. 1) call sample(2,iblock,istep)

    ! End loop over the steps per block
    ENDDO


    ! Average basic statistics for iblock
    CALL stats(3,iblock,0)

    ! Average optional statistics for iblock
    IF(opt .EQ. 1) call sample(3,iblock,0)

    ! Update the max values (disp, volchng, etc)
    CALL update_max

   
    ! Print status
    IF(iblock .LE. n_equil) THEN
      IF(iblock .EQ. 1) WRITE(*,'(A)')'Equilibration stage... '
      IF(MOD(NINT(100.0d0*DBLE(iblock)),10*n_equil) .EQ. 0)&
        &WRITE(*,'(I0,A3)')NINT(100.0d0*DBLE(iblock)/DBLE(n_equil)),'%  '
       IF(iblock .EQ. n_equil) WRITE(*,*)''
    ELSE
      IF(iblock .EQ. n_equil + 1)  WRITE(*,'(A)')'Production stage... '
      IF(MOD(NINT(100.0d0*DBLE(iblock-n_equil)),10*(n_blocks-n_equil)).EQ. 0)&
        &WRITE(*,'(I0,A3)')NINT(100.0d0*DBLE(iblock-n_equil)/DBLE(n_blocks-n_equil)),'%  '
      IF(iblock .EQ. n_blocks) WRITE(*,*)''
    ENDIF

    ! Check the total and updated energy consistency for each box (every 10 blocks)
    IF(MOD(iblock,1) .EQ. 0) THEN
      DO ibox = 1,n_box
        CALL eng_total(ibox,engtst,virtst)
         engerr = dABS((engtst - energy(ibox)))
        IF (engerr .GE. 1.0d-5) THEN
          WRITE(*,*) 'WARNING: LARGE ERROR BETWEEN THE TOTAL AND UPDATED ENERGY'
          WRITE(*,'(A7,I0,A6,I0,A10,F20.8,A10,F20.8)')&
          &'BLOCK: ',iblock,' BOX: ',ibox,' UPD ENG: ',energy(ibox),' TOT ENG: ',engtst
        ENDIF
      ENDDO
    ENDIF

  ! End loop over the blocks
  ENDDO


  ! Get the finish time
  CALL system_clock(count=tf, count_rate=rate)

  ! Write the elapsed time to screen
  CALL time_elapsed(tf,ts,rate)

  ! Write basic statistics
  CALL stats(4,0,0)

  ! Write optional statistics
  IF(opt .EQ. 1) CALL sample(4,n_blocks+1,0)

  ! Write the final configurations
  DO ibox = 1,n_box
    CALL write_config(ibox,n_blocks+1)
  ENDDO


END PROGRAM MC
赞一下(2人) 回复此楼
7楼2010-12-04 23:08:18
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

zyj8119

木虫 (著名写手)
引用回帖:
Originally posted by qphll at 2010-12-04 23:08:18:
答应过的事情, 虽然觉得其实对楼主帮助也不大. 因为我不可能给你写一个完整的GibbsMC, 如果你自己不努力去理解, 那么什么都是白搭.

这是大体结构. 按照需要填充就是了. 应该此贴不会再更新了.

文件名: Gibb ...

高手啊，
回复此楼
8楼2010-12-05 08:58:05
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 flowerstudy 的主题更新
81/1返回列表
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 274求调剂 +8 S.H1 2026-03-18 8/400 2026-03-20 11:53 by 学员8dgXkO
[考研] 08工学调剂 +4 用户573181 2026-03-20 4/200 2026-03-20 10:32 by 朗月清风1
[考研] 304求调剂 +5 曼殊2266 2026-03-18 5/250 2026-03-20 09:00 by ZHANG0tao
[考研] 求调剂 +3 暗涌afhb 2026-03-16 3/150 2026-03-20 00:28 by 河南大学校友
[考研] 一志愿南京理工大学085701资源与环境302分求调剂 +3 葵梓卫队 2026-03-18 5/250 2026-03-19 19:35 by 给你你注意休息
[考研] 286求调剂 +6 lemonzzn 2026-03-16 10/500 2026-03-19 14:31 by lemonzzn
[考研] 求调剂，一志愿:南京航空航天大学大学 ，080500材料科学与工程学硕，总分289分 +3 @taotao 2026-03-19 3/150 2026-03-19 14:07 by peike
[考研] 材料考研调剂 +3 xwt。 2026-03-19 3/150 2026-03-19 11:22 by w沐阳w
[考研] 332求调剂 +3 ydfyh 2026-03-17 3/150 2026-03-19 10:14 by 功夫疯狂
[考研] 295求调剂 +3 一志愿京区211 2026-03-18 5/250 2026-03-18 17:03 by zhaoqian0518
[考研] 085601专硕，总分342求调剂，地区不限 +5 share_joy 2026-03-16 5/250 2026-03-18 14:48 by haxia
[考研] 311求调剂 +11 冬十三 2026-03-15 12/600 2026-03-18 14:36 by 星空星月
[硕博家园] 湖北工业大学 生命科学与健康学院-课题组招收2026级食品/生物方向硕士 +3 1喜春8 2026-03-17 5/250 2026-03-17 17:18 by ber川cool子
[考研] 308求调剂 +4 是Lupa啊 2026-03-16 4/200 2026-03-17 17:12 by ruiyingmiao
[考博] 26申博 +4 八6八68 2026-03-16 4/200 2026-03-17 13:00 by 轻松不少随
[考研] 一志愿南京大学，080500材料科学与工程，调剂 +4 Jy? 2026-03-16 4/200 2026-03-17 11:02 by gaoqiong
[考研] 283求调剂 +3 听风就是雨； 2026-03-16 3/150 2026-03-17 07:41 by 热情沙漠
[考研] 0703 物理化学调剂 +3 我可以上岸的对� 2026-03-13 5/250 2026-03-16 10:50 by 我可以上岸的对�
[考研] 求老师收留调剂 +4 jiang姜66 2026-03-14 5/250 2026-03-15 20:11 by Winj1e
[考研] 311求调剂 +3 冬十三 2026-03-13 3/150 2026-03-13 20:41 by JourneyLucky
信息提示
关闭
请填处理意见
关闭