| 查看: 1331 | 回复: 5 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
suthing木虫 (正式写手)
|
[求助]
fortran中如何求奇点在边界的积分~~
|
|
公式所式，如何实现呢？ |
回复此楼» 猜你喜欢
第一性原理计算方向2026级博士申请 PRB*1，四级484
已经有1人回复
-
求助VISSIM破解版软件
已经有0人回复
-
物理学I论文润色/翻译怎么收费?
已经有85人回复
-
求2026年在台湾举行的物理和材料领域国际学术会议信息
已经有0人回复
-
求国际会议网站
已经有1人回复
-
求取一些关于纳米材料和纳米技术相关的英文PPT。
已经有0人回复
-
【复旦大学】二维材料方向招收2026年博士研究生1名
已经有0人回复
-
北京纳米能源与系统研究所 王中林院士/曹南颖研究员课题组2026级硕/博/博后招生
已经有10人回复
-
荷兰Utrecht University超快太赫兹光谱王海教授课题招收2026 CSC博士生
已经有16人回复
-
反铁磁体中的磁性切换：两种不同的机制已成功可视化
已经有0人回复
» 本主题相关价值贴推荐，对您同样有帮助:
我编的Simpson积分法fortran程序给不出结果，大侠们看看哪里出了问题？
已经有4人回复- 如何改变fortran的浮点精度
已经有28人回复
- matlab求积分，出现奇点怎么办？
已经有8人回复
- 【求助】如何写FORTRAN程序实现求平均最近邻距离
已经有34人回复
- 【求助】fortran中怎么存储不确定长度的数据【已完结】
已经有6人回复
- 【求助】Fortran程序，如何让exe文件可以单独运行？
已经有6人回复
【答案】应助回帖
★ ★ ★
感谢参与，应助指数 +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