 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 5 | 1/1 | 返回列表 |
| 查看: 1538 | 回復(fù): 4 | ||
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ù)此樓» 猜你喜歡
303求調(diào)劑
已經(jīng)有3人回復(fù)
-
有沒(méi)有道鐵/土木的想調(diào)劑南林，給自己招師弟中～
已經(jīng)有7人回復(fù)
-
梁成偉老師課題組歡迎你的加入
已經(jīng)有10人回復(fù)
-
一志愿蘇州大學(xué)材料工程（085601）專(zhuān)碩有科研經(jīng)歷三項(xiàng)國(guó)獎(jiǎng)兩個(gè)實(shí)用型專(zhuān)利一項(xiàng)省級(jí)立項(xiàng)
已經(jīng)有8人回復(fù)
-
070300化學(xué)319求調(diào)劑
已經(jīng)有3人回復(fù)
-
一志愿天津大學(xué)化學(xué)工藝專(zhuān)業(yè)（081702）315分求調(diào)劑
已經(jīng)有4人回復(fù)
-
268求調(diào)劑
已經(jīng)有7人回復(fù)
-
290求調(diào)劑
已經(jīng)有11人回復(fù)
-
材料與化工求調(diào)劑
已經(jīng)有4人回復(fù)
-
293求調(diào)劑
已經(jīng)有11人回復(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ù)
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
- 專(zhuān)業(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
- 專(zhuān)業(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
- 專(zhuān)業(yè): 核物理
4樓2011-11-01 22:09:10
fgwei2000
銅蟲(chóng) (正式寫(xiě)手)
- 應(yīng)助: 1 (幼兒園)
- 金幣: 1688.4
- 散金: 220
- 紅花: 3
- 帖子: 349
- 在線: 438.1小時(shí)
- 蟲(chóng)號(hào): 1265787
- 注冊(cè): 2011-04-14
- 專(zhuān)業(yè): 核物理
5樓2011-11-01 23:16:45
相關(guān)版塊跳轉(zhuǎn)
我要訂閱樓主 fgwei2000 的主題更新
| 5 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
20