| 查看: 661 | 回复: 1 | ||
| 本帖产生 1 个 计算强帖 ，点击这里进行查看 | ||
dexter337铁杆木虫 (小有名气)
|
[求助]
求Fortran的处理格林函数问题的数值计算工具包
|
|
| 感谢各位大侠的帮助. |
回复此楼» 猜你喜欢
如何从铁电相到顺电相。
已经有1人回复
-
各位大佬，求一份最新Wien2k版本作为学习用途
已经有0人回复
-
物理学I论文润色/翻译怎么收费?
已经有283人回复
-
南科大活性流体和软物质课题组诚招2027级博士、硕士研究生和博后
已经有42人回复
-
瑞典林雪平大学博士后招聘｜PEC Water Splitting 方向
已经有24人回复
-
PRB投稿，Acknowledgment sent to author状态十天了
已经有3人回复
-
PVA溶解
已经有2人回复
-
基金申请
已经有44人回复
-
CSC与新西兰维多利亚大学PhD奖学金项目
已经有0人回复
-
新西兰Robinson研究所 招聘CSC公派访问人员
已经有0人回复
-
帮我的英语口语老师找学生
已经有0人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 请教密度泛函理论中屏蔽库伦势的问题
已经有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
- 散金: 9236
- 红花: 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
