| 2 | 1/1 | 返回列表 |
| 查看: 613 | 回復: 1 | ||
| 本帖產(chǎn)生 1 個 計算強帖 ,點擊這里進行查看 | ||
dexter337鐵桿木蟲 (小有名氣)
|
[求助]
求Fortran的處理格林函數(shù)問題的數(shù)值計算工具包
|
|
| 感謝各位大俠的幫助. |
金蟲 (職業(yè)作家)
|
你想要的是基本解的?我貼一個寫在下面,希望對你有用。三維自由空間的格林函數(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 |

| 2 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 【求調(diào)劑】085601材料工程專碩 | 總分272 | +4 | 腳滑的守法公民 2026-03-27 | 4/200 |
|
|---|---|---|---|---|
|
[考研] 一志愿南師大0703化學 275求調(diào)劑 +4 | Ripcord上岸 2026-03-27 | 4/200 |
|
|
[考研] 283求調(diào)劑(080500) +4 | A child 2026-03-27 | 4/200 |
|
|
[考研] 0703化學求調(diào)劑,各位老師看看我。! +4 | 祁祺祺 2026-03-25 | 4/200 |
|
|
[考研] 22408 359分調(diào)劑 +3 | Qshers 2026-03-27 | 3/150 |
|
|
[考研] 0856材料化工調(diào)劑 總分330 +8 | zhubinhao 2026-03-27 | 8/400 |
|
|
[考研] 考研調(diào)劑 +9 | 小蠟新筆 2026-03-26 | 9/450 |
|
|
[考研] 食品工程專碩求調(diào)劑 +3 | 小張zxy張 2026-03-26 | 3/150 |
|
|
[考研] 336材料求調(diào)劑 +7 | 陳瀅瑩 2026-03-26 | 9/450 |
|
|
[考研] 294分080500材料科學與工程求調(diào)劑 +4 | 柳溪邊 2026-03-26 | 4/200 |
|
|
[考研] 325求調(diào)劑 +3 | Aoyijiang 2026-03-23 | 3/150 |
|
|
[考研] 調(diào)劑 +4 | 柚柚yoyo 2026-03-26 | 4/200 |
|
|
[考研] 求調(diào)劑 +8 | Auroracx 2026-03-22 | 8/400 |
|
|
[考研] 334分 一志愿武理-080500 材料求調(diào)劑 +4 | 李李不服輸 2026-03-25 | 4/200 |
|
|
[考研] 318求調(diào)劑 +5 | plum李子 2026-03-21 | 8/400 |
|
|
[考研] 0703化學調(diào)劑,求導師收 +7 | 天天好運來上岸?/a> 2026-03-24 | 7/350 |
|
|
[考研] 305分求調(diào)劑(食品工程) +5 | Sxy112 2026-03-21 | 7/350 |
|
|
[考研] 接收2026碩士調(diào)劑(學碩+專碩) +4 | allen-yin 2026-03-23 | 6/300 |
|
|
[考研]
|
2117205181 2026-03-21 | 8/400 |
|
|
[考研] 293求調(diào)劑 +3 | 濤濤Wjt 2026-03-22 | 5/250 |
|