 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 5 | 1/1 | 返回列表 |
| 查看: 1546 | 回復(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ù)此樓» 猜你喜歡
326求調(diào)劑
已經(jīng)有8人回復(fù)
-
333求調(diào)劑
已經(jīng)有7人回復(fù)
-
一志愿東華大學(xué)控制學(xué)碩320求調(diào)劑
已經(jīng)有3人回復(fù)
-
考研化學(xué)學(xué)碩調(diào)劑，一志愿985
已經(jīng)有7人回復(fù)
-
化學(xué)工程321分求調(diào)劑
已經(jīng)有21人回復(fù)
-
0703化學(xué)調(diào)劑
已經(jīng)有15人回復(fù)
-
0703化學(xué)調(diào)劑 ，六級已過，有科研經(jīng)歷
已經(jīng)有14人回復(fù)
-
326求調(diào)劑
已經(jīng)有4人回復(fù)
-
311求調(diào)劑
已經(jīng)有13人回復(fù)
-
311求調(diào)劑
已經(jīng)有7人回復(fù)
» 本主題相關(guān)價(jià)值貼推薦，對您同樣有幫助:
- 各位大俠，我們來一起討論下菌種退化問題，怎么防止，書上說的不適用
已經(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ù)
- 請教一個(gè)fortran小程序編譯出錯(cuò)的問題，謝謝
已經(jīng)有9人回復(fù)
- 如何用fortran編寫高斯白噪聲程序
已經(jīng)有6人回復(fù)
- 寫了一個(gè)fortran90的小程序，編譯通不過，請大俠幫忙
已經(jīng)有59人回復(fù)
- 【求助】請問一下fortran的可視化編程
已經(jīng)有7人回復(fù)
- 【分享】C/C++常用算法設(shè)計(jì)方法,fortran其他語言編程也可以參考下
已經(jīng)有8人回復(fù)
fgwei2000
銅蟲 (正式寫手)
- 應(yīng)助: 1 (幼兒園)
- 金幣: 1688.4
- 散金: 220
- 紅花: 3
- 帖子: 349
- 在線: 438.1小時(shí)
- 蟲號: 1265787
- 注冊: 2011-04-14
- 專業(yè): 核物理
4樓2011-11-01 22:09:10
dingxb
金蟲 (正式寫手)
迷途書蟲
- 應(yīng)助: 12 (小學(xué)生)
- 金幣: 1674.5
- 帖子: 482
- 在線: 59.5小時(shí)
- 蟲號: 34085
- 注冊: 2004-01-06
- 性別: GG
- 專業(yè): 原子和分子物理
2樓2011-11-01 14:54:30
dingxb
金蟲 (正式寫手)
迷途書蟲
- 應(yīng)助: 12 (小學(xué)生)
- 金幣: 1674.5
- 帖子: 482
- 在線: 59.5小時(shí)
- 蟲號: 34085
- 注冊: 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
銅蟲 (正式寫手)
- 應(yīng)助: 1 (幼兒園)
- 金幣: 1688.4
- 散金: 220
- 紅花: 3
- 帖子: 349
- 在線: 438.1小時(shí)
- 蟲號: 1265787
- 注冊: 2011-04-14
- 專業(yè): 核物理
5樓2011-11-01 23:16:45
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 考研化學(xué)學(xué)碩調(diào)劑，一志愿985 +5 | 張vvvv 2026-03-15 | 7/350 |
|
|---|---|---|---|---|
|
|
[考研] 311求調(diào)劑 +12 | 冬十三 2026-03-15 | 13/650 |
|
|
[考研] 求調(diào)劑 +5 | 十三加油 2026-03-21 | 5/250 |
|
|
|
[考研] 322求調(diào)劑 +3 | X123- 2026-03-14 | 3/150 |
|
|
|
[考研] 311求調(diào)劑 +3 | 勇敢的小吳 2026-03-20 | 3/150 |
|
|
|
[考研] 296求調(diào)劑 +4 | www_q 2026-03-20 | 4/200 |
|
|
|
[考研] 一志愿華中科技大學(xué)071000，求調(diào)劑 +3 | 沿岸有貝殼6 2026-03-21 | 3/150 |
|
|
|
[考研] 一志愿山大07化學(xué) 332分 四六級已過 本科山東雙非 求調(diào)劑！ +3 | 不想理你 2026-03-16 | 3/150 |
|
|
|
[考研] 307求調(diào)劑 +10 | 冷笙123 2026-03-17 | 10/500 |
|
|
|
[考研] 華東師范大學(xué)-071000生物學(xué)-293分-求調(diào)劑 +3 | 研究生何瑤明 2026-03-18 | 3/150 |
|
|
|
[考研] 一志愿華中科技大學(xué)，080502，354分求調(diào)劑 +5 | 守候夕陽CF 2026-03-18 | 5/250 |
|
|
|
[考研] 22408 344分 求調(diào)劑 一志愿 華電計(jì)算機(jī)技術(shù) +4 | solanXXX 2026-03-20 | 4/200 |
|
|
|
[考研] 南京大學(xué)化學(xué)376求調(diào)劑 +3 | hisfailed 2026-03-19 | 6/300 |
|
|
|
[考研] 0817 化學(xué)工程 299分求調(diào)劑 有科研經(jīng)歷 有二區(qū)文章 +22 | rare12345 2026-03-18 | 22/1100 |
|
|
|
[論文投稿]
申請回稿延期一個(gè)月，編輯同意了。但系統(tǒng)上的時(shí)間沒變，給編輯又寫郵件了，沒回復(fù)
 10+3
|
wangf9518 2026-03-17 | 4/200 |
|
|
|
[考研] 085600材料與化工調(diào)劑 324分 +10 | llllkkkhh 2026-03-18 | 12/600 |
|
|
|
[考研] 302求調(diào)劑 +4 | 小賈同學(xué)123 2026-03-15 | 8/400 |
|
|
|
[考研] 一志愿，福州大學(xué)材料專碩339分求調(diào)劑 +3 | 木子momo青爭 2026-03-15 | 3/150 |
|
|
|
[考研] 333求調(diào)劑 +3 | 文思客 2026-03-16 | 7/350 |
|
|
|
[考研] 085601材料工程315分求調(diào)劑 +3 | yang_0104 2026-03-15 | 3/150 |
|