 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 5 | 1/1 | 返回列表 |
| 查看: 583 | 回復: 3 | ||
| 當前只顯示滿足指定條件的回帖，點擊這里查看本話題的所有回帖 | ||
luohubin木蟲 (正式寫手)
|
[求助]
關于一個積分算法的問題（有代碼）
|
|
|
請教大家一個散點積分的問題。我將fortran代碼貼在下面。 說明一下參數(shù)：f是一維矩陣，存放n個散點。散點間等距，為d。fi是積分值。 問題是，我看不出這個積分是基于什么方法的，在數(shù)值分析書上沒找到對應的。希望大家給我點建議。謝謝！ SUBROUTINE gensim(f,d,n,fi) IMPLICIT NONE REAL(KIND=8), DIMENSION(*) :: f REAL(KIND=8) :: d, fi, ff, corr INTEGER :: n, n1, j, n2 C IF(n.GE.3) THEN IF(MOD(n,2).EQ.0) THEN n1=n-1 ff=-f(n-2)+8.d0*f(n-1)+5.d0*f(n) corr=ff*d/12.d0 ELSE n1=n corr=0.d0 ENDIF n2=n1-1 ff=0.d0 DO 20 j=2,n2,2 20 ff=ff+(f(j-1)+4.d0*f(j)+f(j+1)) fi=d*ff/3.d0+corr ELSEIF(n.EQ.2) THEN ff=5.d0*f(1)+8.d0*f(2)-f(3) fi=d*ff/12.d0 ELSEIF(n.LE.1) THEN fi=0.d0 ENDIF C RETURN END |
回復此樓» 猜你喜歡
336求調(diào)劑
已經(jīng)有4人回復
-
求生物學調(diào)劑
已經(jīng)有8人回復
-
08生物與醫(yī)藥專碩初試346找調(diào)劑
已經(jīng)有6人回復
-
生物學327，求調(diào)劑
已經(jīng)有6人回復
-
0710生物學求調(diào)劑
已經(jīng)有7人回復
-
385分 生物學（071000）求調(diào)劑
已經(jīng)有4人回復
-
材料考研調(diào)劑
已經(jīng)有4人回復
-
366求調(diào)劑一志愿東北大學
已經(jīng)有3人回復
-
08工科275分求調(diào)劑
已經(jīng)有13人回復
-
材料工程322分
已經(jīng)有6人回復
» 本主題相關價值貼推薦，對您同樣有幫助:
- 一個算法多做個領域的問題，算不算一稿多投
已經(jīng)有17人回復
- vasp算法的一些基礎問題
已經(jīng)有10人回復
- 我編的Simpson積分法fortran程序給不出結果，大俠們看看哪里出了問題？
已經(jīng)有4人回復
- 同一個問題，不同算法的兩篇論文，導師說這兩篇投稿時間不能太近？
已經(jīng)有26人回復
- 關于MATLAB和OpenCV對相同算法的運算速度對比問題
已經(jīng)有20人回復
- 請教關于遺傳算法編程的問題（俺是小白）
已經(jīng)有4人回復
- 關于免疫算法的幾個問題。（搜索無重復）
已經(jīng)有8人回復
- 【求助】DLS中數(shù)據(jù)算法問題
已經(jīng)有16人回復
- 關于算法比較的問題，請大家?guī)兔?/a>
已經(jīng)有7人回復
- 【求助】k-medoids聚類算法關于中心替換的問題
已經(jīng)有5人回復
- 【討論】預調(diào)件共軛梯度法（PCG）
已經(jīng)有50人回復
- 【求助】求積分程序中被積函數(shù)問題
已經(jīng)有15人回復
luohubin
木蟲 (正式寫手)
- 應助: 1 (幼兒園)
- 金幣: 1562.8
- 散金: 50
- 紅花: 24
- 帖子: 604
- 在線: 132.9小時
- 蟲號: 429401
- 注冊: 2007-08-04
- 性別: GG
- 專業(yè): 凝聚態(tài)物性 II ：電子結構
4樓2012-04-13 22:09:58
luohubin
木蟲 (正式寫手)
- 應助: 1 (幼兒園)
- 金幣: 1562.8
- 散金: 50
- 紅花: 24
- 帖子: 604
- 在線: 132.9小時
- 蟲號: 429401
- 注冊: 2007-08-04
- 性別: GG
- 專業(yè): 凝聚態(tài)物性 II ：電子結構
2樓2012-03-31 10:43:29
luohubin
木蟲 (正式寫手)
- 應助: 1 (幼兒園)
- 金幣: 1562.8
- 散金: 50
- 紅花: 24
- 帖子: 604
- 在線: 132.9小時
- 蟲號: 429401
- 注冊: 2007-08-04
- 性別: GG
- 專業(yè): 凝聚態(tài)物性 II ：電子結構
3樓2012-04-13 22:04:43
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 366求調(diào)劑一志愿東北大學 +3 | 運氣來得若有似?/a> 2026-04-02 | 3/150 |
|
|---|---|---|---|---|
|
[考研] 08工科275分求調(diào)劑 +13 | AaAa7420 2026-03-31 | 13/650 |
|
|
|
[考研] 化學工程專碩324分，一志愿中國礦業(yè)大學求調(diào)劑 +6 | 耿耿1314 2026-04-01 | 6/300 |
|
|
|
[考研] 298求調(diào)劑 +4 | 什么是胖頭魚 2026-03-30 | 6/300 |
|
|
|
[考研] 324分 085600材料與化工 +17 | 呆鵝oor 2026-03-27 | 17/850 |
|
|
|
[考研] 材料0856 英一數(shù)二 323 求調(diào)劑 +9 | 袁sy 2026-04-01 | 9/450 |
|
|
|
[考研] 考研調(diào)劑 +11 | Amber00 2026-03-31 | 11/550 |
|
|
|
[考研] 085410人工智能 初試316分 求調(diào)劑 +3 | 殘星拂曙 2026-03-31 | 3/150 |
|
|
|
[考研] 322求調(diào)劑 +8 | 三水sss 2026-04-01 | 8/400 |
|
|
|
[考研] 333求調(diào)劑 +4 | 阿科逸 2026-03-31 | 4/200 |
|
|
|
[考研] 求調(diào)劑：一志愿：南京大學 專業(yè)：0705 總分320 ，本科985，四六級已過 +3 | lfy760306 2026-03-31 | 3/150 |
|
|
|
[考研] 求調(diào)劑：085600材料與化工，考材科基，總分319 +17 | 678lucky 2026-03-31 | 21/1050 |
|
|
|
[考研] 本科211安全工程，初試290分，求調(diào)劑 +3 | 2719846834 2026-03-28 | 3/150 |
|
|
|
[考研] 總分322求生物學/生化與分子/生物信息學相關調(diào)劑 +6 | 星沉uu 2026-03-26 | 7/350 |
|
|
|
[考研] 一志愿食品科學與工程083200求調(diào)劑 +4 | XQTJZ 2026-03-30 | 4/200 |
|
|
|
[考研] 297 地理學070500 復試求調(diào)劑 +3 | 小圓圈圈ooo 2026-03-30 | 3/150 |
|
|
|
[考研] 297求調(diào)劑 +17 | 田洪有 2026-03-26 | 18/900 |
|
|
|
[考研] 332求92調(diào)劑 +8 | 蕉蕉123 2026-03-28 | 8/400 |
|
|
|
[考研] 085602 化工專碩 338分 求調(diào)劑 +12 | 路癡小琪 2026-03-27 | 12/600 |
|
|
|
[考研] 272求調(diào)劑 +7 | 腳滑的守法公民 2026-03-27 | 7/350 |
|