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

調(diào)劑小程序

登錄注冊

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

24小時熱門版塊排行榜

>論壇更新日志 (6769)
>考研 (2406)
>導師招生 (2115)
>文獻求助 (368)
>蟲友互識 (325)
>碩博家園 (171)
>考博 (163)
>博后之家 (147)
>休閑灌水 (123)
>招聘信息布告欄 (112)
>論文投稿 (110)
>基金申請 (91)
>找工作 (46)
>公派出國 (43)
>綠色求助(高懸賞) (40)
>高分子 (39)

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

返回列表

wl7171759

新蟲 (小有名氣)

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

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

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

回復此樓

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

dongbaojuan

» 猜你喜歡

【求調(diào)劑】085601材料工程專碩 | 總分272 | 已經(jīng)有5人回復
275求調(diào)劑已經(jīng)有13人回復
0856，材料與化工321分求調(diào)劑已經(jīng)有8人回復
085701環(huán)境工程，267求調(diào)劑已經(jīng)有12人回復
320分，材料與化工專業(yè)，求調(diào)劑已經(jīng)有7人回復
085701環(huán)境工程求調(diào)劑已經(jīng)有8人回復
295材料工程專碩求調(diào)劑已經(jīng)有5人回復
265求調(diào)劑已經(jīng)有8人回復
322求調(diào)劑已經(jīng)有4人回復
085602 307分求調(diào)劑已經(jīng)有6人回復

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

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

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

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

vinbert

木蟲 (正式寫手)

應助: 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

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

mywai520

鐵桿木蟲 (著名寫手)

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

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

贊一下(1人)

回復此樓

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

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

xiaoboy185

金蟲 (正式寫手)

應助: 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

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

jpchou

專家顧問 (著名寫手)

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

【答案】應助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
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
簡單說就是沿三個方向做平面積分與平均

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

贊一下(2人)

回復此樓

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

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

dongbaojuan

木蟲 (小有名氣)

應助: 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

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

tsglss

鐵桿木蟲 (著名寫手)

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

學習

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

回復此樓

做好自己

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

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

相關版塊跳轉我要訂閱樓主 wl7171759 的主題更新

返回列表

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

[考研] 285求調(diào)劑 +4	AZMK 2026-03-27	7/350	2026-03-27 20:59 by AZMK
[考研] 學碩274求調(diào)劑 +5	Li李魚 2026-03-26	5/250	2026-03-27 20:51 by 熱情沙漠
[考研] 289求調(diào)劑 +7	新時代材料 2026-03-27	7/350	2026-03-27 18:08 by arrow8852
[考研] 07化學280分求調(diào)劑 +10	722865 2026-03-23	10/500	2026-03-27 15:51 by Plutoqq
[考研] 一志愿太原理工安全工程300分，求調(diào)劑 +4	0857求調(diào)劑. 2026-03-24	4/200	2026-03-27 14:03 by 靜靜靜靜靜靜靜?/a>
[考研] 化學308分求調(diào)劑 +8	你好明天你好 2026-03-23	9/450	2026-03-27 14:01 by 楊光于青云
[考研] 材料求調(diào)劑 +5	.m.. 2026-03-25	5/250	2026-03-27 11:08 by 不吃魚的貓
[考研] 一志愿吉大071010，316分求調(diào)劑 +3	xgbiknn 2026-03-27	3/150	2026-03-27 10:36 by guoweigw
[考研] 286求調(diào)劑 +4	lim0922 2026-03-26	4/200	2026-03-27 10:28 by guoweigw
[考研] 求調(diào)劑323材料與化工 +7	1124361 2026-03-24	7/350	2026-03-27 10:22 by wangjy2002
[考研] 081200-11408-276學碩求調(diào)劑 +4	崔wj 2026-03-26	4/200	2026-03-27 08:04 by chemisry
[考研] 281求調(diào)劑 +3	亞克西good 2026-03-26	5/250	2026-03-26 19:48 by 不吃魚的貓
[考研] 281求調(diào)劑 +6	Koxui 2026-03-24	7/350	2026-03-26 15:37 by 無際的草原
[考研] 各位老師您好：本人初試372分 +5	jj涌77 2026-03-25	6/300	2026-03-25 14:15 by mapenggao
[考研] 340求調(diào)劑 +5	話梅糖111 2026-03-24	5/250	2026-03-25 06:53 by ilovexiaobin
[考研] 調(diào)劑 +4	13853210211 2026-03-24	4/200	2026-03-24 19:44 by ms629
[考研] 292求調(diào)劑 +4	鵝鵝鵝額額額額?/a> 2026-03-24	4/200	2026-03-24 16:41 by peike
[考研] 生物學一志愿985，分數(shù)349求調(diào)劑 +6	zxts12 2026-03-21	9/450	2026-03-23 18:37 by macy2011
[考研] 工科0856求調(diào)劑 +5	沐析汀汀 2026-03-21	5/250	2026-03-23 17:56 by 海瑟薇-
[考研] 求調(diào)劑 +3	.m.. 2026-03-21	4/200	2026-03-21 16:25 by barlinike

24小時熱門版塊排行榜

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

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

» 猜你喜歡

» 本主題相關價值貼推薦，對您同樣有幫助:

【答案】應助回帖

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

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