看板 [ Fortran ]
討論串[心得] fortran 做辛普森積分
共 4 篇文章
內容預覽： 開啟 | 關閉 | 只限未讀
首頁
上一頁
1
下一頁
尾頁
#1
[心得] fortran 做辛普森積分
推噓0(0推 0噓 1→)留言1則，0人參與, 最新作者sjgau (sjgau)時間16年前 (2008/09/09 13:19), 編輯資訊
1
0
0
內容預覽:
! CF0610.f90. ! -----------------------------------------------. !dec$if (.false.). input x1= (ex. 0.1). 0.1. input x2= (ex. 3.0). 3.0. input no= (ex.
(還有1166個字)
#2
Re: [心得] fortran 做辛普森積分
推噓0(0推 0噓 4→)留言4則，0人參與, 最新作者DrStein (交換關聯)時間16年前 (2008/09/11 11:43), 編輯資訊
1
0
0
內容預覽:
這地方有較好一點的寫法:. real*8 ll. ll = 4.0. sum = 2.0*y(1). i = 2. do i = 2, ct-1. sum = ll*y(i) + sum. ll = 6.0 - ll. enddo. sum = 2.0*y(ct) + sum. sum=sum/3.
#3
Re: [心得] fortran 做辛普森積分
推噓2(2推 0噓 6→)留言8則，0人參與, 最新作者sjgau (sjgau)時間16年前 (2008/09/11 11:55), 編輯資訊
0
0
0
內容預覽:
請問你發表的 code, 有沒有實際 驗證過。. 我用 肉眼觀察的結果是：有很大的，很明顯的錯誤。. 在 do- loop 裡面的. ll= 6.0 - ll. 實在是 說不過去，無法解釋。. 請問你 發表的code, 有沒有實際 驗證過。. 我所發表的 code, 一定驗證過，才敢發表。. 這是
#4
Re: [心得] fortran 做辛普森積分
推噓0(0推 0噓 0→)留言0則，0人參與, 最新作者sjgau (sjgau)時間16年前 (2008/09/11 16:08), 編輯資訊
0
0
0
內容預覽:
以下的程式，跑三次. x1= 0.1. x2= 4.0. no= 10, ans= 1.658253. no= 20, ans= 1.658258. no= 40, ans= 1.658259. .. .. .. program CF0610. implicit none. real x(101),
(還有940個字)
首頁
上一頁
1
下一頁
尾頁