 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 5 | 1/1 | 返回列表 |
| 查看: 1545 | 回復(fù): 4 | |||
| 當(dāng)前只顯示滿足指定條件的回帖，點(diǎn)擊這里查看本話題的所有回帖 | |||
fgwei2000銅蟲 (正式寫手)
|
[求助]
我編的Simpson積分法fortran程序給不出結(jié)果，大俠們看看哪里出了問題？
|
||
|
如題：我編的Simpson積分法fortran程序給不出結(jié)果，大俠們看看哪里出了問題？ 線性函數(shù)f=x在區(qū)間【0,1】上的積分，結(jié)果0.5.[ Last edited by fgwei2000 on 2011-10-29 at 23:07 ] |
回復(fù)此樓» 猜你喜歡
26考研一志愿中國石油大學(xué)(華東)305分求調(diào)劑
已經(jīng)有4人回復(fù)
-
286求調(diào)劑
已經(jīng)有5人回復(fù)
-
材料與化工（0856）304求 B區(qū) 調(diào)劑
已經(jīng)有3人回復(fù)
-
268求調(diào)劑
已經(jīng)有8人回復(fù)
-
265求調(diào)劑
已經(jīng)有14人回復(fù)
-
350 本科985求調(diào)劑，求老登收留
已經(jīng)有3人回復(fù)
-
【考研調(diào)劑】化學(xué)專業(yè) 281分，一志愿四川大學(xué)，誠心求調(diào)劑
已經(jīng)有9人回復(fù)
-
初試 317
已經(jīng)有3人回復(fù)
-
279分求調(diào)劑 一志愿211
已經(jīng)有15人回復(fù)
-
279求調(diào)劑
已經(jīng)有4人回復(fù)
» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助:
- 各位大俠，我們來一起討論下菌種退化問題，怎么防止，書上說的不適用
已經(jīng)有12人回復(fù)
- ulipad 怎樣讓運(yùn)行結(jié)果顯示在消息欄中
已經(jīng)有6人回復(fù)
- 在linux下編FORTRAN程序
已經(jīng)有14人回復(fù)
- 求助Fortran編程
已經(jīng)有8人回復(fù)
- 求助計(jì)算機(jī)高人，編寫個(gè)Fortran程序
已經(jīng)有13人回復(fù)
- 請(qǐng)教一個(gè)fortran小程序編譯出錯(cuò)的問題，謝謝
已經(jīng)有9人回復(fù)
- 如何用fortran編寫高斯白噪聲程序
已經(jīng)有6人回復(fù)
- 寫了一個(gè)fortran90的小程序，編譯通不過，請(qǐng)大俠幫忙
已經(jīng)有59人回復(fù)
- 【求助】請(qǐng)問一下fortran的可視化編程
已經(jīng)有7人回復(fù)
- 【分享】C/C++常用算法設(shè)計(jì)方法,fortran其他語言編程也可以參考下
已經(jīng)有8人回復(fù)
dingxb
金蟲 (正式寫手)
迷途書蟲
- 應(yīng)助: 12 (小學(xué)生)
- 金幣: 1674.5
- 帖子: 482
- 在線: 59.5小時(shí)
- 蟲號(hào): 34085
- 注冊(cè): 2004-01-06
- 性別: GG
- 專業(yè): 原子和分子物理
【答案】應(yīng)助回帖
fgwei2000(金幣+2): 2011-11-01 22:10:32
|
建議參考下列代碼 Program Simpsons implicit none real, Parameter :: a=0,b=1 integer :: n_points integer :: k,i real :: approx real :: del_x, height, area, t,x real :: n_points_1 Write(*,*)'Enter number of points' Read(*,*)n_points n_points_1 = real(n_points) del_x = abs(b-a)/(n_points_1-1.) approx = 0 t = a do k=1, n_points-1 x = t + del_x/2 area = del_x/6 * ( 4*functio_n ( x ) + functio_n(t) + functio_n(t+del_x) ) t = t + del_x approx = approx + area end do Write(*,*)approx Contains Real Function functio_n(x) Real, Intent(in) :: x functio_n=exp(-x) end function end program |
3樓2011-11-01 14:59:13
dingxb
金蟲 (正式寫手)
迷途書蟲
- 應(yīng)助: 12 (小學(xué)生)
- 金幣: 1674.5
- 帖子: 482
- 在線: 59.5小時(shí)
- 蟲號(hào): 34085
- 注冊(cè): 2004-01-06
- 性別: GG
- 專業(yè): 原子和分子物理
2樓2011-11-01 14:54:30
fgwei2000
銅蟲 (正式寫手)
- 應(yīng)助: 1 (幼兒園)
- 金幣: 1688.4
- 散金: 220
- 紅花: 3
- 帖子: 349
- 在線: 438.1小時(shí)
- 蟲號(hào): 1265787
- 注冊(cè): 2011-04-14
- 專業(yè): 核物理
4樓2011-11-01 22:09:10
fgwei2000
銅蟲 (正式寫手)
- 應(yīng)助: 1 (幼兒園)
- 金幣: 1688.4
- 散金: 220
- 紅花: 3
- 帖子: 349
- 在線: 438.1小時(shí)
- 蟲號(hào): 1265787
- 注冊(cè): 2011-04-14
- 專業(yè): 核物理
5樓2011-11-01 23:16:45
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 一志愿山大07化學(xué) 332分 四六級(jí)已過 本科山東雙非 求調(diào)劑！ +3 | 不想理你 2026-03-16 | 3/150 |
|
|---|---|---|---|---|
|
[考研] 一志愿天津大學(xué)化學(xué)工藝專業(yè)（081702）315分求調(diào)劑 +12 | yangfz 2026-03-17 | 12/600 |
|
|
|
[考研] 一志愿西南交大，求調(diào)劑 +5 | 材化逐夢(mèng)人 2026-03-18 | 5/250 |
|
|
|
[考研] 287求調(diào)劑 +7 | 晨昏線與星海 2026-03-19 | 8/400 |
|
|
|
[考研] 藥學(xué)383 求調(diào)劑 +3 | 藥學(xué)chy 2026-03-15 | 5/250 |
|
|
|
[考研] 材料學(xué)碩297已過四六級(jí)求調(diào)劑推薦 +11 | adaie 2026-03-19 | 11/550 |
|
|
|
[考研] 260求調(diào)劑 +3 | 朱芷琳 2026-03-20 | 3/150 |
|
|
|
[考研] 材料學(xué)求調(diào)劑 +4 | Stella_Yao 2026-03-20 | 4/200 |
|
|
|
[考研] 085601材料工程專碩求調(diào)劑 +10 | 慕寒mio 2026-03-16 | 10/500 |
|
|
|
[考研] 化學(xué)工程321分求調(diào)劑 +15 | 大米飯！ 2026-03-15 | 18/900 |
|
|
|
[考研] 材料專碩306英一數(shù)二 +10 | z1z2z3879 2026-03-16 | 13/650 |
|
|
|
[考研] 生物學(xué)071000 329分求調(diào)劑 +3 | 我愛生物生物愛?/a> 2026-03-17 | 3/150 |
|
|
|
[考研] 考研求調(diào)劑 +3 | 橘頌. 2026-03-17 | 4/200 |
|
|
|
[碩博家園] 湖北工業(yè)大學(xué) 生命科學(xué)與健康學(xué)院-課題組招收2026級(jí)食品/生物方向碩士 +3 | 1喜春8 2026-03-17 | 5/250 |
|
|
|
[考博] 26申博 +4 | 八6八68 2026-03-16 | 4/200 |
|
|
|
[考研] 302求調(diào)劑 +4 | 小賈同學(xué)123 2026-03-15 | 8/400 |
|
|
|
[論文投稿] 有沒有大佬發(fā)小論文能帶我個(gè)二作 +3 | 增銳漏人 2026-03-17 | 4/200 |
|
|
|
[考研] 283求調(diào)劑 +3 | 聽風(fēng)就是雨； 2026-03-16 | 3/150 |
|
|
|
[考研] 0703化學(xué)調(diào)劑 290分有科研經(jīng)歷，論文在投 +7 | 膩膩gk 2026-03-14 | 7/350 |
|
|
|
[考研] 0856專碩279求調(diào)劑 +5 | 加油加油！? 2026-03-15 | 5/250 |
|