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

24小时热门版块排行榜    

Znn3bq.jpeg
小木虫论坛-学术科研互动平台 » 计算模拟区 » 分子模拟 » Monte Carlo » 【求助】求高人给我发一份GEMC的模拟程序
81/1返回列表
查看: 900  |  回复: 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返回列表
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 0854调剂 +8 长弓傲 2026-04-11 9/450 2026-04-11 21:44 by 蓝云思雨
[考研] 267求调剂 +8 再忙也要吃饭啊 2026-04-09 8/400 2026-04-11 21:42 by cfdbai
[考研] 考研求调剂 +3 ban班小七 2026-04-11 3/150 2026-04-11 20:48 by may_新宇
[考研] 一志愿211生物学280分 求调剂 +7 李rien 2026-04-05 7/350 2026-04-11 11:16 by 逆水乘风
[考研] 298求调剂 +5 残荷新柳 2026-04-07 5/250 2026-04-11 11:02 by 紫曦紫棋
[考研] 工科273调剂 +6 X1999 2026-04-09 7/350 2026-04-11 10:23 by zhq0425
[考研] 311求调剂 +13 xyp想读书 2026-04-10 14/700 2026-04-11 09:41 by 猪会飞
[考研] 085506-求调剂-285分 +3 雷欧飞踢 2026-04-08 3/150 2026-04-11 08:37 by zhq0425
[考研] 296求调剂 +6 汪！？！ 2026-04-08 6/300 2026-04-10 11:02 by mattzhming
[考研] 一志愿中南大学物理学，英一66，求调剂 +4 长烟旖旎 2026-04-08 5/250 2026-04-10 10:31 by 颖果儿
[考研] 一志愿鲁东大学071000生物学学硕初试分数276求调剂 +20 慕绝cc 2026-04-09 24/1200 2026-04-10 10:22 by xujun0624
[考研] 材料专硕(0856) 339分求调剂 +9 哈哈哈鹅哈哈哈 2026-04-09 10/500 2026-04-09 20:01 by Orcid
[考研] 调剂 +19 2261744733 2026-04-08 19/950 2026-04-09 19:11 by vgtyfty
[考研] 专硕0854初试考材科基，求调剂 +7 3220548044 2026-04-06 10/500 2026-04-08 21:59 by hypershenger
[考研] 生物医药调剂｜SCI中科院三区一作+多项科研成果 +8 likangxing 2026-04-07 11/550 2026-04-08 00:02 by lys0704
[考研] 信工所11408 340分 本科西安交大自动化 +3 moontrek 2026-04-06 3/150 2026-04-07 09:56 by chongya
[考研] 071000生物学调剂 +7 拉提桃 2026-04-06 7/350 2026-04-06 18:55 by 52305043001
[考研] 材料调剂 +5 小刘同学吖吖 2026-04-06 5/250 2026-04-06 18:34 by sherry_1901
[考研] 081200-11408-276学硕求调剂 +5 崔wj 2026-04-05 5/250 2026-04-06 15:40 by lin-da
[考研] 283求调剂 +5 baiiyu 2026-04-05 6/300 2026-04-05 20:35 by 啵啵啵0119
信息提示
关闭
请填处理意见
关闭