 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 5 | 1/1 | 返回列表 |
| 查看: 1559 | 回復(fù): 4 | ||
| 當(dāng)前只顯示滿足指定條件的回帖，點(diǎn)擊這里查看本話題的所有回帖 | ||
fgwei2000銅蟲(chóng) (正式寫(xiě)手)
|
[求助]
我編的Simpson積分法fortran程序給不出結(jié)果，大俠們看看哪里出了問(wèn)題？
|
|
|
如題：我編的Simpson積分法fortran程序給不出結(jié)果，大俠們看看哪里出了問(wèn)題？ 線性函數(shù)f=x在區(qū)間【0,1】上的積分，結(jié)果0.5.[ Last edited by fgwei2000 on 2011-10-29 at 23:07 ] |
回復(fù)此樓» 猜你喜歡
275求調(diào)劑
已經(jīng)有14人回復(fù)
-
調(diào)劑310
已經(jīng)有6人回復(fù)
-
283求調(diào)劑
已經(jīng)有3人回復(fù)
-
085602 化工專碩 338分 求調(diào)劑
已經(jīng)有12人回復(fù)
-
312，生物學(xué)求調(diào)劑
已經(jīng)有3人回復(fù)
-
化學(xué)0703 調(diào)劑 306分 一志愿211
已經(jīng)有4人回復(fù)
-
311（085601）求調(diào)劑
已經(jīng)有3人回復(fù)
-
復(fù)試調(diào)劑
已經(jīng)有3人回復(fù)
-
本科雙非材料，跨考一志愿華電085801電氣，283求調(diào)劑，任何專業(yè)都可以
已經(jīng)有6人回復(fù)
-
材料與化工272求調(diào)劑
已經(jīng)有9人回復(fù)
» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助:
- 各位大俠，我們來(lái)一起討論下菌種退化問(wèn)題，怎么防止，書(shū)上說(shuō)的不適用
已經(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ī)高人，編寫(xiě)個(gè)Fortran程序
已經(jīng)有13人回復(fù)
- 請(qǐng)教一個(gè)fortran小程序編譯出錯(cuò)的問(wèn)題，謝謝
已經(jīng)有9人回復(fù)
- 如何用fortran編寫(xiě)高斯白噪聲程序
已經(jīng)有6人回復(fù)
- 寫(xiě)了一個(gè)fortran90的小程序，編譯通不過(guò)，請(qǐng)大俠幫忙
已經(jīng)有59人回復(fù)
- 【求助】請(qǐng)問(wèn)一下fortran的可視化編程
已經(jīng)有7人回復(fù)
- 【分享】C/C++常用算法設(shè)計(jì)方法,fortran其他語(yǔ)言編程也可以參考下
已經(jīng)有8人回復(fù)
fgwei2000
銅蟲(chóng) (正式寫(xiě)手)
- 應(yīng)助: 1 (幼兒園)
- 金幣: 1688.4
- 散金: 220
- 紅花: 3
- 帖子: 349
- 在線: 438.1小時(shí)
- 蟲(chóng)號(hào): 1265787
- 注冊(cè): 2011-04-14
- 專業(yè): 核物理
5樓2011-11-01 23:16:45
dingxb
金蟲(chóng) (正式寫(xiě)手)
迷途書(shū)蟲(chóng)
- 應(yīng)助: 12 (小學(xué)生)
- 金幣: 1674.5
- 帖子: 482
- 在線: 59.5小時(shí)
- 蟲(chóng)號(hào): 34085
- 注冊(cè): 2004-01-06
- 性別: GG
- 專業(yè): 原子和分子物理
2樓2011-11-01 14:54:30
dingxb
金蟲(chóng) (正式寫(xiě)手)
迷途書(shū)蟲(chóng)
- 應(yīng)助: 12 (小學(xué)生)
- 金幣: 1674.5
- 帖子: 482
- 在線: 59.5小時(shí)
- 蟲(chóng)號(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
fgwei2000
銅蟲(chóng) (正式寫(xiě)手)
- 應(yīng)助: 1 (幼兒園)
- 金幣: 1688.4
- 散金: 220
- 紅花: 3
- 帖子: 349
- 在線: 438.1小時(shí)
- 蟲(chóng)號(hào): 1265787
- 注冊(cè): 2011-04-14
- 專業(yè): 核物理
4樓2011-11-01 22:09:10
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 求調(diào)劑 +6 | 爭(zhēng)取九點(diǎn)睡 2026-03-28 | 6/300 |
|
|---|---|---|---|---|
|
|
[考研] 070300求調(diào)劑306分 +4 | 26要上岸 2026-03-27 | 4/200 |
|
|
|
[考研]
 材料與化工考研調(diào)劑
+17
|
孅華 2026-03-22 | 17/850 |
|
|
[考研] 311求調(diào)劑 +3 | 希望上岸阿小楊 2026-03-23 | 3/150 |
|
|
|
[考研] 0703化學(xué)求調(diào)劑，各位老師看看我�。�！ +5 | 祁祺祺 2026-03-25 | 5/250 |
|
|
|
[考研] 07化學(xué)280分求調(diào)劑 +10 | 722865 2026-03-23 | 10/500 |
|
|
|
[考研] 308求調(diào)劑 +7 | 墨墨漠 2026-03-25 | 7/350 |
|
|
|
[考研] 085600，材料與化工321分調(diào)劑 +4 | 大饞小子 2026-03-27 | 6/300 |
|
|
|
[考研]
材料調(diào)劑
 5+4
|
想要一壺桃花水 2026-03-25 | 10/500 |
|
|
|
[考研] 281求調(diào)劑 +3 | 亞克西good 2026-03-26 | 5/250 |
|
|
|
[考研] 297求調(diào)劑 +6 | 田洪有 2026-03-26 | 6/300 |
|
|
|
[考研] 309求調(diào)劑 +4 | gajsj 2026-03-25 | 5/250 |
|
|
|
[考研] 求調(diào)劑 +3 | 李李不服輸 2026-03-25 | 3/150 |
|
|
|
[考研] 一志愿武理085500機(jī)械專業(yè)總分300求調(diào)劑 +3 | an10101 2026-03-24 | 7/350 |
|
|
|
[考研] 300分，材料，求調(diào)劑，英一數(shù)二 +5 | 超贊的 2026-03-24 | 5/250 |
|
|
|
[考研] 341求調(diào)劑(一志愿湖南大學(xué)070300) +5 | 番茄頭--- 2026-03-22 | 6/300 |
|
|
|
[考研] 一志愿重慶大學(xué)085700資源與環(huán)境，總分308求調(diào)劑 +7 | 墨墨漠 2026-03-23 | 8/400 |
|
|
|
[論文投稿] 急發(fā)核心期刊論文 +3 | 賢達(dá)問(wèn)津 2026-03-23 | 5/250 |
|
|
|
[考研] 276求調(diào)劑 +3 | YNRYG 2026-03-21 | 4/200 |
|
|
|
[考研]
 一志愿070300浙大化學(xué)358分，求調(diào)劑！
+4
|
酥酥魚(yú).. 2026-03-21 | 4/200 |
|