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

登錄注冊

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

24小時熱門版塊排行榜

>論壇更新日志 (6247)
>考研 (2210)
>導師招生 (2008)
>文獻求助 (351)
>蟲友互識 (241)
>碩博家園 (164)
>考博 (147)
>博后之家 (144)
>招聘信息布告欄 (112)
>休閑灌水 (105)
>論文投稿 (99)
>基金申請 (83)
>找工作 (45)
>綠色求助(高懸賞) (39)
>公派出國 (39)
>高分子 (38)

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

返回列表

本帖產(chǎn)生 1 個計算強帖，點擊這里進行查看

dexter337

鐵桿木蟲 (小有名氣)

應助: 0 (幼兒園)
金幣: 7413.5
紅花: 2
帖子: 77
在線: 118小時
蟲號: 492054
注冊: 2008-01-08
性別: GG
專業(yè): 基礎物理學

[求助] 求Fortran的處理格林函數(shù)問題的數(shù)值計算工具包

感謝各位大俠的幫助.

回復此樓

» 猜你喜歡

調劑已經(jīng)有0人回復
【新加坡】納米電子器件項目組有“聯(lián)合培養(yǎng)博士生”名額已經(jīng)有0人回復
物理學I論文潤色/翻譯怎么收費? 已經(jīng)有175人回復
中德博士后2026項目5月30日截止- 國內博士后入站、德國兩年全職已經(jīng)有0人回復
面向全球申請人的中德博士后2026項目5月30日截止- 國內博后入站德國兩年全職已經(jīng)有0人回復
【新加坡】納米電子器件項目組有“聯(lián)合培養(yǎng)博士生”名額已經(jīng)有2人回復
重慶交大材料學院26年碩士招生復試實施細則已出。歡迎加入光子學微結構與器件課題組。已經(jīng)有0人回復
北工大宋曉艷教授團隊招收2026年9月入學博士【學博和專博名額均有】！已經(jīng)有1人回復
天津城建大學理學院化學、環(huán)境工程、材料物理等方向接收10人已經(jīng)有0人回復
天津城建大學理學院化學、環(huán)境工程、材料物理等方向接收調劑，10人已經(jīng)有0人回復

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

請教密度泛函理論中屏蔽庫倫勢的問題已經(jīng)有14人回復
怎么找出lapack函數(shù)及函數(shù)的使用方法已經(jīng)有8人回復
函數(shù)可積和原函數(shù)存在問題已經(jīng)有4人回復
求助一個inline函數(shù)的問題已經(jīng)有5人回復
高數(shù)：導函數(shù)與原函數(shù)問題求助已經(jīng)有12人回復
遞歸方法求格林函數(shù)是怎么發(fā)明的?為什么要用它？已經(jīng)有6人回復
格林函數(shù) 積分數(shù)值計算已經(jīng)有10人回復
怎么讀取Siesta輸出的Hamiltonian and overlap矩陣(*.HSX文件)？已經(jīng)有16人回復
rand函數(shù)產(chǎn)生白噪聲的問題已經(jīng)有5人回復
求清華大學王懷玉老師的《格林函數(shù)》講義已經(jīng)有9人回復
什么是張量，基本思想是什么？已經(jīng)有14人回復
求助關于函數(shù)題目一道已經(jīng)有4人回復
【求助】transiesta和tbtrans中的電壓有什么不同已經(jīng)有5人回復
【求助】求積分程序中被積函數(shù)問題已經(jīng)有15人回復
【求助】請教非平衡格林函數(shù)的問題已經(jīng)有5人回復

1樓 2011-05-30 10:46:41

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

onesupeng

金蟲 (職業(yè)作家)

計算強帖: 13
應助: 256 (大學生)
貴賓: 1.36
金幣: 2336.2
散金: 9228
紅花: 92
帖子: 4583
在線: 1303.8小時
蟲號: 394701
注冊: 2007-06-07
專業(yè): 流體力學

【答案】應助回帖

★ ★ ★
dexter337(金幣+20): 十分感謝您的幫助. 2011-06-02 11:19:20
sunyang1988(金幣+3, 計算強帖+1): 謝謝幫助，望再接再厲，為本版帶來更多質量貼 2011-06-02 12:53:49

你想要的是基本解的？我貼一個寫在下面，希望對你有用。三維自由空間的格林函數(shù)
   subroutine green_fs_3D()

   Implicit Double Precision (a-h,o-z)

   pi  = 3.14159 265358 D0
   pi4 = 4.0D0*pi

   dx = x-x0
   dy = y-y0
   dz = z-z0

   r = Dsqrt(dx**2+dy**2+dz**2)

   G = 1.0D0/(pi4*r)

   If(Iopt.eq.1) Go to 999

   den = pi4 * r**3

   Gx = - Dx/den
   Gy = - Dy/den
   Gz = - Dz/den

999  Continue

   Return
   End

贊一下(1人)

回復此樓

長期招收博士生，參見http://fsl-unsw.com

2樓2011-06-02 10:46:25

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

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