24小时热门版块排行榜

返回列表

当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖

suthing

木虫 (正式写手)

应助: 2 (幼儿园)
金币: 6040.6
红花: 1
帖子: 354
在线: 69.7小时
虫号: 891234
注册: 2009-11-02
专业: 原子和分子物理

[求助] fortran中如何求奇点在边界的积分~~

公式所式，如何实现呢？

回复此楼

» 猜你喜欢

北京纳米能源与系统研究所王中林院士/曹南颖研究员课题组2026级硕/博/博后招生已经有10人回复
荷兰Utrecht University超快太赫兹光谱王海教授课题招收2026 CSC博士生已经有23人回复
物理学I论文润色/翻译怎么收费? 已经有109人回复
反铁磁体中的磁性切换：两种不同的机制已成功可视化已经有0人回复
求标准粉末衍射卡号 ICDD 01-076-1802 已经有0人回复
新西兰Robinson研究所招收全奖PhD 已经有0人回复
石墨烯转移--二氧化硅衬底石墨烯已经有0人回复
笼目材料中量子自旋液体基态的证据已经有0人回复
数学教学论硕士可以读数学物理博士吗？已经有0人回复

» 本主题相关价值贴推荐，对您同样有帮助:

我编的Simpson积分法fortran程序给不出结果，大侠们看看哪里出了问题？已经有4人回复
如何改变fortran的浮点精度已经有28人回复
matlab求积分，出现奇点怎么办？已经有8人回复
【求助】如何写FORTRAN程序实现求平均最近邻距离已经有34人回复
【求助】fortran中怎么存储不确定长度的数据【已完结】已经有6人回复
【求助】Fortran程序，如何让exe文件可以单独运行？已经有6人回复

1楼 2011-11-16 22:20:44

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

lishuxian

银虫 (小有名气)

应助: 1 (幼儿园)
金币: 47.2
红花: 1
帖子: 131
在线: 35.5小时
虫号: 942968
注册: 2010-01-15
性别: GG
专业: 分析仪器与试剂

【答案】应助回帖

★ ★ ★
感谢参与，应助指数 +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