| 查看: 1449 | 回复: 5 | ||
suthing木虫 (正式写手)
|
[求助]
fortran中如何求奇点在边界的积分~~
|
公式所式，如何实现呢？ |
回复此楼» 猜你喜欢
0702一志愿吉大B区求调剂 本科期间发表一篇Sci
已经有2人回复
-
070200求调剂，一志愿某211，288分
已经有18人回复
-
物理学I论文润色/翻译怎么收费?
已经有242人回复
-
法国博士后职位
已经有0人回复
-
重庆交大26年硕士生招生拟调剂通知已出！欢迎加入机器视觉与3D光学成像课题组。
已经有0人回复
-
**
已经有1人回复
-
0702一志愿吉大B区求调剂 本科期间发表一篇Sci
已经有1人回复
-
基底STO,薄膜SRO，XRD里面的振荡，是laue震荡还是kiessig振荡? 怎么判断？
已经有0人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 我编的Simpson积分法fortran程序给不出结果，大侠们看看哪里出了问题？
已经有4人回复
- 如何改变fortran的浮点精度
已经有28人回复
- matlab求积分，出现奇点怎么办？
已经有8人回复
- 【求助】如何写FORTRAN程序实现求平均最近邻距离
已经有34人回复
- 【求助】fortran中怎么存储不确定长度的数据【已完结】
已经有6人回复
- 【求助】Fortran程序，如何让exe文件可以单独运行？
已经有6人回复
锐利的碎片
木虫 (正式写手)
star watcher
- 应助: 136 (高中生)
- 金币: 3637.1
- 散金: 252
- 红花: 22
- 帖子: 988
- 在线: 1224.9小时
- 虫号: 961933
- 注册: 2010-03-05
- 专业: 凝聚态物性 II ：电子结构
2楼2011-11-17 10:51:08
suthing
木虫 (正式写手)
- 应助: 2 (幼儿园)
- 金币: 6040.6
- 红花: 1
- 帖子: 354
- 在线: 69.7小时
- 虫号: 891234
- 注册: 2009-11-02
- 专业: 原子和分子物理
3楼2011-11-17 16:20:59
锐利的碎片
木虫 (正式写手)
star watcher
- 应助: 136 (高中生)
- 金币: 3637.1
- 散金: 252
- 红花: 22
- 帖子: 988
- 在线: 1224.9小时
- 虫号: 961933
- 注册: 2010-03-05
- 专业: 凝聚态物性 II ：电子结构
4楼2011-11-17 16:33:17
suthing
木虫 (正式写手)
- 应助: 2 (幼儿园)
- 金币: 6040.6
- 红花: 1
- 帖子: 354
- 在线: 69.7小时
- 虫号: 891234
- 注册: 2009-11-02
- 专业: 原子和分子物理
5楼2011-11-17 16:41:24
【答案】应助回帖
★ ★ ★
感谢参与，应助指数 +1
cenwanglai: 金币+3, 谢谢代码回帖~ 2012-04-07 16:24:32
感谢参与，应助指数 +1
cenwanglai: 金币+3, 谢谢代码回帖~ 2012-04-07 16:24:32
|
可以使用标准Monte Carlo积分方法，代码如下，仅供参考： program main implicit none integer :: i, N real :: t, f N = 1E5 f = 0.0 call random_seed() do i = 1, N call random_number(t) f = f + t / sqrt(1-t) enddo f = f / real(N) write (*, *) f end program main |
6楼2012-04-07 10:58:11
