| 查看: 1675 | 回复: 5 | ||
suthing铁杆木虫 (正式写手)
|
[求助]
fortran中如何求奇点在边界的积分~~
|
公式所式，如何实现呢？ |
回复此楼» 猜你喜欢
瑞典林雪平大学博士后招聘｜PEC Water Splitting 方向
已经有130人回复
-
PRB投稿，Acknowledgment sent to author状态十天了
已经有3人回复
-
物理学I论文润色/翻译怎么收费?
已经有154人回复
-
PVA溶解
已经有2人回复
-
基金申请
已经有44人回复
-
CSC与新西兰维多利亚大学PhD奖学金项目
已经有0人回复
-
新西兰Robinson研究所 招聘CSC公派访问人员
已经有0人回复
-
帮我的英语口语老师找学生
已经有0人回复
-
什么时候开奖？
已经有11人回复
-
散金币祈福
已经有94人回复
» 本主题相关价值贴推荐，对您同样有帮助:
- 我编的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
20