| 查看: 603 | 回复: 1 | ||
| 本帖产生 1 个 计算强帖 ，点击这里进行查看 | ||
dexter337铁杆木虫 (小有名气)
|
[求助]
求Fortran的处理格林函数问题的数值计算工具包
|
|
| 感谢各位大侠的帮助. |
回复此楼» 猜你喜欢
石墨烯转移--二氧化硅衬底石墨烯
已经有0人回复
-
笼目材料中量子自旋液体基态的证据
已经有0人回复
-
物理学I论文润色/翻译怎么收费?
已经有59人回复
-
数学教学论硕士可以读数学物理博士吗？
已经有0人回复
-
德国亥姆霍兹Hereon中心汉堡分部招镁合金腐蚀裂变SCC课题方向2026公派博士生
已经有4人回复
-
澳门大学 应用物理及材料工程研究院 潘晖教授课题组诚招博士后
已经有11人回复
-
求助NH4V4O10晶体的CIF文件
已经有0人回复
-
英国全奖博士招聘-深度学习与量子物理
已经有0人回复
-
间接带隙半导体有效质量求助
已经有1人回复
-
投稿chemical physical letters不送审？
已经有2人回复
-
南开大学物理学院张书辉副教授招收凝聚态物理理论方向博士生、硕士生
已经有14人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 请教密度泛函理论中屏蔽库伦势的问题
已经有14人回复
- 怎么找出lapack函数及函数的使用方法
已经有8人回复
- 函数可积和原函数存在问题
已经有4人回复
- 求助一个inline函数的问题
已经有5人回复
- 高数：导函数与原函数问题求助
已经有12人回复
- 递归方法求格林函数是怎么发明的?为什么要用它？
已经有6人回复
- 格林函数 积分 数值计算
已经有10人回复
- 怎么读取Siesta输出的Hamiltonian and overlap矩阵(*.HSX文件)？
已经有16人回复
- rand函数产生白噪声的问题
已经有5人回复
- 求清华大学王怀玉老师的《格林函数》讲义
已经有9人回复
- 什么是张量，基本思想是什么？
已经有14人回复
- 求助关于函数题目一道
已经有4人回复
- 【求助】transiesta和tbtrans中的电压有什么不同
已经有5人回复
- 【求助】求积分程序中被积函数问题
已经有15人回复
- 【求助】请教非平衡格林函数的问题
已经有5人回复
onesupeng
金虫 (职业作家)
- 计算强帖: 13
- 应助: 256 (大学生)
- 贵宾: 1.36
- 金币: 2336.2
- 散金: 9224
- 红花: 92
- 帖子: 4583
- 在线: 1303.8小时
- 虫号: 394701
- 注册: 2007-06-07
- 专业: 流体力学
【答案】应助回帖
★ ★ ★
dexter337(金币+20): 十分感谢您的帮助. 2011-06-02 11:19:20
sunyang1988(金币+3, 计算强帖+1): 谢谢帮助，望再接再厉，为本版带来更多质量贴 2011-06-02 12:53:49
dexter337(金币+20): 十分感谢您的帮助. 2011-06-02 11:19:20
sunyang1988(金币+3, 计算强帖+1): 谢谢帮助，望再接再厉，为本版带来更多质量贴 2011-06-02 12:53:49
|
你想要的是基本解的？我贴一个写在下面，希望对你有用。三维自由空间的格林函数 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楼2011-06-02 10:46:25