24小时热门版块排行榜    

查看: 1429  |  回复: 5

suthing

木虫 (正式写手)

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

公式所式,如何实现呢?
回复此楼
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

锐利的碎片

木虫 (正式写手)

star watcher

【答案】应助回帖

★ ★
cenwanglai(金币+2): ~~ 2011-11-17 13:34:07
suthing(金币+5): 2011-11-17 22:53:58
(%i1) integrate(x/sqrt(1-x), x, 0, 1);
(%o1) 4/3
2楼2011-11-17 10:51:08
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

suthing

木虫 (正式写手)

引用回帖:
2楼: Originally posted by 锐利的碎片 at 2011-11-17 10:51:08:
(%i1) integrate(x/sqrt(1-x), x, 0, 1);
(%o1) 4/3

Fortran中有这样的命令?
3楼2011-11-17 16:20:59
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

锐利的碎片

木虫 (正式写手)

star watcher

【答案】应助回帖

★ ★
cenwanglai: 金币+2, 呵呵~~ 2012-04-07 16:24:03
这个又不是没解析解,手动积一下很麻烦吗。
4楼2011-11-17 16:33:17
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

suthing

木虫 (正式写手)

引用回帖:
4楼: Originally posted by 锐利的碎片 at 2011-11-17 16:33:17:
这个又不是没解析解,手动积一下很麻烦吗。

不麻烦,只是后面要用到复杂的公式。这发散问题解决不了,算出来的值不对
5楼2011-11-17 16:41:24
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

lishuxian

银虫 (小有名气)

【答案】应助回帖

★ ★ ★
感谢参与,应助指数 +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
OneStepADay!
6楼2012-04-07 10:58:11
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 suthing 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 274求调剂 +5 S.H1 2026-03-18 5/250 2026-03-18 21:27 by guosr9609
[考研] 328求调剂,英语六级551,有科研经历 +3 生物工程调剂 2026-03-16 10/500 2026-03-18 20:41 by Wangjingyue
[考研] 26调剂/材料/英一数二/总分289/已过A区线 +7 步川酷紫123 2026-03-13 7/350 2026-03-18 17:12 by 尽舜尧1
[教师之家] 焦虑 +8 水冰月月野兔 2026-03-13 12/600 2026-03-18 15:27 by 咪呜喵呜
[考研] 材料与化工一志愿南昌大学327求调剂推荐 +8 Ncdx123456 2026-03-13 9/450 2026-03-18 14:40 by haxia
[考研] 0817 化学工程 299分求调剂 有科研经历 有二区文章 +7 rare12345 2026-03-18 7/350 2026-03-18 14:31 by laoshidan
[考研] 331求调剂(0703有机化学 +7 ZY-05 2026-03-13 8/400 2026-03-18 14:13 by 007_lilei
[考研] 302求调剂 +10 呼呼呼。。。。 2026-03-17 10/500 2026-03-18 12:45 by Linda Hu
[硕博家园] 湖北工业大学 生命科学与健康学院-课题组招收2026级食品/生物方向硕士 +3 1喜春8 2026-03-17 5/250 2026-03-17 17:18 by ber川cool子
[考研] 一志愿南京大学,080500材料科学与工程,调剂 +4 Jy? 2026-03-16 4/200 2026-03-17 11:02 by gaoqiong
[考研] 302求调剂 +4 小贾同学123 2026-03-15 8/400 2026-03-17 10:33 by 小贾同学123
[考研] 278求调剂 +3 Yy7400 2026-03-13 3/150 2026-03-17 08:24 by laoshidan
[考研] 277材料科学与工程080500求调剂 +3 自由煎饼果子 2026-03-16 3/150 2026-03-16 14:10 by 运气yunqi
[考研] 080500,材料学硕302分求调剂学校 +4 初识可乐 2026-03-14 5/250 2026-03-14 21:08 by peike
[考研] 材料与化工 323 英一+数二+物化,一志愿:哈工大 本人本科双一流 +4 自由的_飞翔 2026-03-13 5/250 2026-03-14 19:39 by hmn_wj
[考研] 265求调剂 +4 威化饼07 2026-03-12 4/200 2026-03-14 17:23 by userper
[考研] 255求调剂 +3 李嘉慧, 2026-03-12 4/200 2026-03-14 16:58 by 有只狸奴
[考研] 求材料调剂 085600英一数二总分302 前三科235 精通机器学习 一志愿哈工大 +4 林yaxin 2026-03-12 4/200 2026-03-13 22:04 by 星空星月
[考研] 329求调剂 +3 miaodesi 2026-03-12 4/200 2026-03-13 20:53 by 18595523086
[考研] 290求调剂 +3 ADT 2026-03-13 3/150 2026-03-13 10:19 by peike
信息提示
请填处理意见