版塊導航: 正在加載中...

調(diào)劑小程序

登錄注冊

應(yīng)《網(wǎng)絡(luò)安全法》要求，自2017年10月1日起，未進行實名認證將不得使用互聯(lián)網(wǎng)跟帖服務(wù)。為保障您的帳號能夠正常使用，請盡快對帳號進行手機號驗證，感謝您的理解與支持！

24小時熱門版塊排行榜

>論壇更新日志 (5884)
>考研 (1928)
>導師招生 (1764)
>文獻求助 (323)
>蟲友互識 (219)
>碩博家園 (145)
>博后之家 (131)
>考博 (130)
>招聘信息布告欄 (105)
>休閑灌水 (94)
>論文投稿 (83)
>基金申請 (76)
>找工作 (41)
>綠色求助(高懸賞) (36)
>高分子 (36)
>公派出國 (30)

北京石油化工學院2026年研究生招生接收調(diào)劑公告

返回列表

wl7171759

新蟲 (小有名氣)

應(yīng)助: 0 (幼兒園)
金幣: 681
紅花: 1
帖子: 73
在線: 65.2小時
蟲號: 1735262
注冊: 2012-04-04
性別: GG
專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)

[求助] 求助！急需macroscopic average electrostatic potential的小程序已有1人參與

想要看VASP輸出文件LOCPOT包含的體系靜電勢信息，想要可處理LOCPOT文件得到macroscopic average electrostatic potential的小程序，希望得到大家的幫助！
或者可以實現(xiàn)高斯濾波的小程序也行啊，真心求助�。。�！

回復此樓

» 本帖已獲得的紅花（最新10朵）

dongbaojuan

» 猜你喜歡

295求調(diào)劑已經(jīng)有3人回復
一志愿211院校 344分東北農(nóng)業(yè)大學生物學學碩，求調(diào)劑已經(jīng)有8人回復
085602 307分求調(diào)劑已經(jīng)有5人回復
322求調(diào)劑已經(jīng)有3人回復
高溫高壓反應(yīng)求助已經(jīng)有3人回復
一志愿上海理工能源動力（085800）310分求調(diào)劑已經(jīng)有4人回復
食品工程專碩一志愿中海洋309求調(diào)劑已經(jīng)有5人回復
285求調(diào)劑已經(jīng)有5人回復
289求調(diào)劑已經(jīng)有7人回復
求調(diào)劑已經(jīng)有4人回復

» 本主題相關(guān)價值貼推薦，對您同樣有幫助:

【求助】macroscopic average electrostatic potential 已經(jīng)有15人回復

1樓 2014-04-01 12:05:07

已閱回復此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

vinbert

木蟲 (正式寫手)

應(yīng)助: 5 (幼兒園)
金幣: 6513.6
散金: 161
紅花: 9
帖子: 438
在線: 239.6小時
蟲號: 1031862
注冊: 2010-05-30
性別: GG
專業(yè): 電化學

LZ，你找到macrscopic average的程序了么？能不能給我發(fā)一份，謝謝先。我郵箱是vinberg.lee@mail.dlut.edu.cn

贊一下

回復此樓

欲望是一切的源動力

2樓2014-04-25 09:57:58

已閱回復此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

mywai520

鐵桿木蟲 (著名寫手)

應(yīng)助: 339 (大學生)
金幣: 10425.6
紅花: 45
帖子: 1664
在線: 296.9小時
蟲號: 265142
注冊: 2006-07-09
專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)

自己寫吧，這個現(xiàn)在是個流行的話題。有程序的人也不會給出的。相信自己！�。。�！

贊一下(1人)

回復此樓

3樓2014-04-25 19:46:48

已閱回復此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

xiaoboy185

金蟲 (正式寫手)

應(yīng)助: 2 (幼兒園)
金幣: 788
散金: 248
紅花: 3
帖子: 702
在線: 472.3小時
蟲號: 481831
注冊: 2007-12-19
專業(yè): 函數(shù)論

好多人都問這個問題i
記得有個小程序可以通過LOCPOT求出xy面的平均

得到這個xy的平均之后可以直接用一些數(shù)據(jù)處理軟件得到一個線性的平均，也就是那個macrscopic average
比如說origin
樓主可以試試看

贊一下

回復此樓

4樓2014-04-25 20:04:33

已閱回復此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

jpchou

專家顧問 (著名寫手)

專家經(jīng)驗: +20
1ST強帖: 5
應(yīng)助: 231 (大學生)
金幣: 2342
散金: 4367
紅花: 103
帖子: 1061
在線: 757.3小時
蟲號: 585915
注冊: 2008-08-08
性別: GG
專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)
管轄: 第一性原理

【答案】應(yīng)助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
fzx2008: 金幣+5, 謝謝指導，謝謝分享！ 2014-04-28 19:23:37
wl7171759: 金幣+10, ★★★很有幫助, 受益了，確實自己得學著謝謝程序 2014-05-05 12:37:22

三樓說的很好
程式還是要學著寫，否則未?淼穆泛茈y走

   implicit real*8(a-h,o-z)
   character*32 tmp,t
   dimension nt(10),r(99)
   logical alive
   allocatable ep(

,grid(:,:,

,na(

!=======================================================================
   inquire(file='LOCPOT',exist=alive)
   if(alive) then
      write(6,*) ; write(6,*) 'LOCPOT file is found ~'
      open( 1,file='LOCPOT')
      open(11,file='LOCPOT-x.dat')
      open(12,file='LOCPOT-y.dat')
      open(13,file='LOCPOT-z.dat')
      do i=1,5 ; read(1,*) tmp ; end do
98    read(1,*,iostat=istat) nt ; ntype=count(nt>0)
      if(ntype .eq. 0) go to 98
      allocate(na(ntype))
      do i=1,ntype ; na(i)=nt(i) ; end do
      ntot=sum(na) ; allocate(ep(ntot))
      do i=1,ntot ; read(1,*) tmp ; end do
      read(1,*) nx,ny,nz ; allocate(grid(nx,ny,nz))
      read(1,*) (((grid(i,j,k),i=1,nx),j=1,ny),k=1,nz)
      sumgrid=sum(grid)
      write(6,*) " --------------- results from LOCPOT -------------------- "
      write(6,10) sumgrid
      write(6,11) nx,ny,nz
      write(11,'(f15.5)') (sum(grid(i,:,

)/real(ny*nz),i=1,nx)
write(12,'(f15.5)') (sum(grid(:,i,

)/real(nx*nz),i=1,ny)
      write(13,'(f15.5)') (sum(grid(:,:,i))/real(nx*ny),i=1,nz)
      write(6,12) sumgrid/real(nx*ny*nz)
      write(6,*) " -------------------------------------------------------- "
  10 format("  total electrostatic potential = ",f20.5)
  11 format("             number of grids = ",5x,3i5)
  12 format("average electrostatic potential = ",f20.5)
      close(1) ; deallocate(ep)
   end if

這是小弟寫的 fortran 處理 LOCPOT，很短
輸入檔: LOCPOT
輸出檔: LOCPOT-x.dat
         LOCPOT-y.dat
         LOCPOT-z.dat
簡單說就是沿三個方向做平面積分與平均

這只是我為了某個目的去寫
輸出結(jié)果不見得能符合你的需求
所以
還是自己寫會比問別人還快

贊一下(2人)

回復此樓

5樓2014-04-25 20:12:07

已閱回復此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

dongbaojuan

木蟲 (小有名氣)

應(yīng)助: 3 (幼兒園)
金幣: 2364.6
散金: 1100
紅花: 6
帖子: 253
在線: 161.5小時
蟲號: 1504764
注冊: 2011-11-22
專業(yè): 金屬功能材料

送紅花一朵

樓主得到這個處理程序了嗎？得到的話，能不能發(fā)我一份�。坎粍俑屑
郵箱：bjdong12s@imr.ac.cn

贊一下

回復此樓

6樓2015-01-13 18:48:31

已閱回復此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

tsglss

鐵桿木蟲 (著名寫手)

應(yīng)助: 41 (小學生)
金幣: 6014.2
紅花: 19
帖子: 1875
在線: 940小時
蟲號: 321641
注冊: 2007-03-11
性別: GG
專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)

學習

發(fā)自小木蟲Android客戶端

回復此樓

做好自己

7樓2018-02-07 16:35:57

已閱回復此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

相關(guān)版塊跳轉(zhuǎn) 我要訂閱樓主 wl7171759 的主題更新

返回列表

最具人氣熱帖推薦 [查看全部]		作者	回/看	最后發(fā)表

[考研] 求調(diào)劑推薦材料 304 +14	荷包蛋hyj 2026-03-26	14/700	2026-03-27 17:49 by kiokin
[考研] 272求調(diào)劑 +7	腳滑的守法公民 2026-03-27	7/350	2026-03-27 17:23 by laoshidan
[考研] 材料與化工（0856）304求B區(qū)調(diào)劑 +7	邱gl 2026-03-27	7/350	2026-03-27 15:27 by Joe率
[考研] 308求調(diào)劑 +6	墨墨漠 2026-03-27	6/300	2026-03-27 15:20 by caszguilin
[考研] 269專碩求調(diào)劑 +10	金恩貝 2026-03-21	10/500	2026-03-27 15:10 by caszguilin
[考研] 305求調(diào)劑 +5	哇盧卡庫 2026-03-26	5/250	2026-03-27 14:01 by laoshidan
[考研] 085601 材料工程 313分求調(diào)劑 +5	Ong3 2026-03-27	5/250	2026-03-27 12:24 by goldfish51
[考研] 303求調(diào)劑 +7	安憶靈 2026-03-22	8/400	2026-03-27 11:46 by sanrepian
[考研] 材料調(diào)劑 +8	匹克i 2026-03-23	8/400	2026-03-27 08:11 by hypershenger
[考研] 一志愿武漢理工，總分321，英一數(shù)二，求老師收留。 +5	nnnnnnn5 2026-03-25	5/250	2026-03-27 04:42 by wxiongid
[考研] 求調(diào)劑 +6	白QF 2026-03-21	6/300	2026-03-26 20:37 by fmesaito
[考研] 086000生物與醫(yī)藥292求調(diào)劑 +6	小小陳小小 2026-03-22	9/450	2026-03-26 15:58 by dick_runner
[考研] 081700 調(diào)劑 267分 +11	迷人的哈哈 2026-03-23	11/550	2026-03-26 15:41 by zzll406
[考研] 求調(diào)劑 +3	QiMing7 2026-03-25	3/150	2026-03-25 21:13 by 給你你注意休息
[考研] 0703化學求調(diào)劑 +6	奶油草莓. 2026-03-22	7/350	2026-03-25 10:00 by shangxh
[考研] 求調(diào)劑 +6	研研，接電話 2026-03-24	7/350	2026-03-24 17:01 by barlinike
[考研] 一志愿河北工業(yè)大學0817化工278分求調(diào)劑 +7	jhybd 2026-03-23	12/600	2026-03-24 09:03 by jhybd
[考研] 308求調(diào)劑 +3	墨墨漠 2026-03-21	3/150	2026-03-22 16:54 by i_cooler
[考研] 生物學調(diào)劑 +5	Surekei 2026-03-21	5/250	2026-03-22 14:39 by tcx007
[考研] 297求調(diào)劑 +3	喜歡還是不甘心 2026-03-20	3/150	2026-03-21 18:33 by 學員8dgXkO

請?zhí)钐幚硪庖?/div>

關(guān)閉

24小時熱門版塊排行榜

[求助] 求助！急需macroscopic average electrostatic potential的小程序 已有1人參與

» 本帖已獲得的紅花（最新10朵）

» 猜你喜歡

» 本主題相關(guān)價值貼推薦，對您同樣有幫助:

【答案】應(yīng)助回帖

[求助] 求助！急需macroscopic average electrostatic potential的小程序已有1人參與