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

24小时热门版块排行榜    

小木虫论坛-学术科研互动平台 » 计算模拟区 » 分子模拟 » Monte Carlo » 【求助】求高人给我发一份GEMC的模拟程序
81/1返回列表
查看: 1089  |  回复: 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返回列表
普通表情 龙 兔 虎 猫 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[基金申请] 时间戳又变了8-15 +11 archvillain 2026-08-15 20/1000 2026-08-15 17:47 by 医学老男孩
[考研] 售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急 +5 7lpolszZVXgi 2026-08-14 9/450 2026-08-15 17:46 by 7huP8NPKZCp9
[博后之家] 售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急 +3 HFw0lei2R37i 2026-08-14 5/250 2026-08-15 17:42 by 7huP8NPKZCp9
[考博] 售一区SCI文章T0P，我:8O.551.O54,科目全,可十急 +4 HFw0lei2R37i 2026-08-14 6/300 2026-08-15 17:34 by 7huP8NPKZCp9
[基金申请] 哪位老哥知道今年的国自然具体哪一天放榜？ +7 Ldrop2023 2026-08-13 7/350 2026-08-15 15:57 by mzhh2000
[考研] 售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急 +4 HFw0lei2R37i 2026-08-14 8/400 2026-08-15 14:41 by QXtWNz7PI7wZ
[博后之家] 售SCI文章，我:8O.5.5.1O.54,科目全,可十急 +3 k0dTPqJtl0jt 2026-08-14 3/150 2026-08-15 12:41 by KxMI1BYBxWX1
[公派出国] 售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急 +3 k0dTPqJtl0jt 2026-08-14 5/250 2026-08-15 07:09 by 4wMiSEwB6436
[考博] 售SCI文章，我:8O.5.5.1O.54,科目全,可十急 +4 k0dTPqJtl0jt 2026-08-14 5/250 2026-08-15 04:45 by 4wMiSEwB6436
[公派出国] 售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急 +3 7lpolszZVXgi 2026-08-14 5/250 2026-08-15 04:41 by 4wMiSEwB6436
[基金申请] 是这周出结果还是下周出结果？ +4 yuleib84 2026-08-11 4/200 2026-08-14 23:05 by lfy8008
[教师之家] 售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急 +3 HFw0lei2R37i 2026-08-14 5/250 2026-08-14 22:32 by 4wMiSEwB6436
[基金申请] filecode +15 documentary 2026-08-10 17/850 2026-08-14 10:08 by kissu88
[基金申请] 重要来源：本周末出结果 +10 瞬息宇宙 2026-08-12 10/500 2026-08-13 15:46 by likettle
[基金申请] 不应该看fileCode +7 且听虎啸 2026-08-12 9/450 2026-08-13 14:27 by flydreamws
[基金申请] Filecode 又变了，巨变 +3 WH3796 2026-08-12 4/200 2026-08-13 14:13 by 小木虫6752397
[基金申请] 结合人工智能，周易传统文化，filecode打分制来了，3分以上希望很大。 +3 Tide man 2026-08-12 4/200 2026-08-13 08:35 by ZJTJZ
[基金申请] 2019年青年基金涵评意见，大家看看几个A，几个B? +11 Tide man 2026-08-11 11/550 2026-08-13 07:35 by 撸猫猫
[基金申请] 综述论文作为代表作会不会影响评审专家的印象分？ +11 yufeiwaner 2026-08-09 13/650 2026-08-12 08:17 by yufeiwaner
[基金申请] 帮忙看看fileCode +7 wwncly 2026-08-10 13/650 2026-08-11 19:36 by 冰心玉壶晴
信息提示
关闭
请填处理意见
关闭