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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 分子模拟 » Monte Carlo » 【求助】求高人给我发一份GEMC的模拟程序
81/1返回列表
查看: 1072  |  回复: 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返回列表
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 关于豆爷回答的JTJC与%2F数量 +5 yang182083 2026-08-06 7/350 2026-08-08 18:29 by zhanghaozhu
[公派出国] 售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急 +3 qTvzQBRAHjCi 2026-08-07 4/200 2026-08-08 17:27 by oEVWOejN9taj
[基金申请] 售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急 +3 qTvzQBRAHjCi 2026-08-07 4/200 2026-08-08 17:22 by oEVWOejN9taj
[硕博家园] 售SCI文章，我:8O.5.5.1O.54,科目全,可十急 +3 qTvzQBRAHjCi 2026-08-07 4/200 2026-08-08 17:19 by oEVWOejN9taj
[考研] 售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急 +3 qTvzQBRAHjCi 2026-08-07 5/250 2026-08-08 16:47 by oEVWOejN9taj
[基金申请] 售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急 +3 Vi50GxzrFcSG 2026-08-07 4/200 2026-08-08 16:19 by oEVWOejN9taj
[博后之家] 售SCI一区文章，我:8.O.551.O.5.4,科目全,可伽急 +3 Vi50GxzrFcSG 2026-08-07 4/200 2026-08-08 16:02 by oEVWOejN9taj
[公派出国] 售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急 +3 Vi50GxzrFcSG 2026-08-07 5/250 2026-08-08 15:59 by oEVWOejN9taj
[基金申请] fileCode有新解读？ +9 Tide man 2026-08-08 17/850 2026-08-08 14:56 by archvillain
[基金申请] 售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急 +4 KXLV3nuBVBY7 2026-08-07 5/250 2026-08-08 14:07 by oEVWOejN9taj
[基金申请] 关于代码变化问题，想知道的进来 +11 且听虎啸 2026-08-07 14/700 2026-08-08 12:50 by 布布和一二
[基金申请] 基金中了 +14 laoda193707 2026-08-06 14/700 2026-08-08 00:23 by 实验小白ha
[基金申请] filecode变化情况 +6 布布和一二 2026-08-07 22/1100 2026-08-07 14:45 by 且听虎啸
[基金申请] 大家散了吧，后缀研究没有意义，别浪费时间了，过好目前的每一天，不要焦虑 +5 Tide man 2026-08-06 7/350 2026-08-07 13:11 by 医学老男孩
[基金申请] filecode +14 等待解的谜 2026-08-06 19/950 2026-08-07 12:20 by wlwhappy
[基金申请] filecode +8 布布和一二 2026-08-06 11/550 2026-08-06 20:41 by tangpu318
[基金申请] 8月时间戳变的，举个手。玩一下，释放压力 +9 archvillain 2026-08-04 11/550 2026-08-05 20:06 by wlwhappy
[基金申请] 有没有H口的？有收到消息的吗？ +3 超级海虾 2026-08-04 3/150 2026-08-04 17:26 by 学教育滴
[基金申请] 纯娱乐，不喜欢勿喷 +7 Tide man 2026-08-04 10/500 2026-08-04 15:10 by loufangrui
[基金申请] 面上提前没消息，有中的吗 +14 archvillain 2026-08-02 18/900 2026-08-04 14:42 by archvillain
信息提示
关闭
请填处理意见
关闭