 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 4 | 1/1 | 返回列表 |
| 查看: 570 | 回復(fù): 3 | ||
luohubin木蟲 (正式寫手)
|
[求助]
關(guān)于一個(gè)積分算法的問題（有代碼）
|
|
請(qǐng)教大家一個(gè)散點(diǎn)積分的問題。我將fortran代碼貼在下面。 說明一下參數(shù)：f是一維矩陣，存放n個(gè)散點(diǎn)。散點(diǎn)間等距，為d。fi是積分值。 問題是，我看不出這個(gè)積分是基于什么方法的，在數(shù)值分析書上沒找到對(duì)應(yīng)的。希望大家給我點(diǎn)建議。謝謝！ 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 |
回復(fù)此樓» 猜你喜歡
329求調(diào)劑
已經(jīng)有3人回復(fù)
-
一志愿吉林大學(xué)材料學(xué)碩321求調(diào)劑
已經(jīng)有11人回復(fù)
-
一志愿蘇州大學(xué)材料求調(diào)劑，總分315（英一）
已經(jīng)有3人回復(fù)
-
0703化學(xué)調(diào)劑
已經(jīng)有14人回復(fù)
-
320求調(diào)劑0856
已經(jīng)有3人回復(fù)
-
307求調(diào)劑
已經(jīng)有9人回復(fù)
-
288求調(diào)劑
已經(jīng)有15人回復(fù)
-
085700資源與環(huán)境308求調(diào)劑
已經(jīng)有5人回復(fù)
-
294求調(diào)劑材料與化工專碩
已經(jīng)有14人回復(fù)
-
0817 化學(xué)工程 299分求調(diào)劑 有科研經(jīng)歷 有二區(qū)文章
已經(jīng)有18人回復(fù)
» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助:
- 一個(gè)算法多做個(gè)領(lǐng)域的問題，算不算一稿多投
已經(jīng)有17人回復(fù)
- vasp算法的一些基礎(chǔ)問題
已經(jīng)有10人回復(fù)
- 我編的Simpson積分法fortran程序給不出結(jié)果，大俠們看看哪里出了問題？
已經(jīng)有4人回復(fù)
- 同一個(gè)問題，不同算法的兩篇論文，導(dǎo)師說這兩篇投稿時(shí)間不能太近？
已經(jīng)有26人回復(fù)
- 關(guān)于MATLAB和OpenCV對(duì)相同算法的運(yùn)算速度對(duì)比問題
已經(jīng)有20人回復(fù)
- 請(qǐng)教關(guān)于遺傳算法編程的問題（俺是小白）
已經(jīng)有4人回復(fù)
- 關(guān)于免疫算法的幾個(gè)問題。（搜索無重復(fù)）
已經(jīng)有8人回復(fù)
- 【求助】DLS中數(shù)據(jù)算法問題
已經(jīng)有16人回復(fù)
- 關(guān)于算法比較的問題，請(qǐng)大家?guī)兔?/a>
已經(jīng)有7人回復(fù)
- 【求助】k-medoids聚類算法關(guān)于中心替換的問題
已經(jīng)有5人回復(fù)
- 【討論】預(yù)調(diào)件共軛梯度法（PCG）
已經(jīng)有50人回復(fù)
- 【求助】求積分程序中被積函數(shù)問題
已經(jīng)有15人回復(fù)
luohubin
木蟲 (正式寫手)
- 應(yīng)助: 1 (幼兒園)
- 金幣: 1562.8
- 散金: 50
- 紅花: 24
- 帖子: 604
- 在線: 132.9小時(shí)
- 蟲號(hào): 429401
- 注冊(cè): 2007-08-04
- 性別: GG
- 專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)
2樓2012-03-31 10:43:29
luohubin
木蟲 (正式寫手)
- 應(yīng)助: 1 (幼兒園)
- 金幣: 1562.8
- 散金: 50
- 紅花: 24
- 帖子: 604
- 在線: 132.9小時(shí)
- 蟲號(hào): 429401
- 注冊(cè): 2007-08-04
- 性別: GG
- 專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)
3樓2012-04-13 22:04:43
luohubin
木蟲 (正式寫手)
- 應(yīng)助: 1 (幼兒園)
- 金幣: 1562.8
- 散金: 50
- 紅花: 24
- 帖子: 604
- 在線: 132.9小時(shí)
- 蟲號(hào): 429401
- 注冊(cè): 2007-08-04
- 性別: GG
- 專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)
4樓2012-04-13 22:09:58
相關(guān)版塊跳轉(zhuǎn)
我要訂閱樓主 luohubin 的主題更新
| 4 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 085700資源與環(huán)境308求調(diào)劑 +5 | 墨墨漠 2026-03-18 | 5/250 |
|
|---|---|---|---|---|
|
[考研] 生物學(xué)調(diào)劑招人！�。� +3 | 山海天嵐 2026-03-17 | 4/200 |
|
|
|
[考研] 一志愿南京理工大學(xué)085701資源與環(huán)境302分求調(diào)劑 +3 | 葵梓衛(wèi)隊(duì) 2026-03-18 | 5/250 |
|
|
|
[考研] 324分 085600材料化工求調(diào)劑 +3 | llllkkkhh 2026-03-18 | 3/150 |
|
|
|
[考研] 求調(diào)劑 +3 | Mqqqqqq 2026-03-19 | 3/150 |
|
|
|
[考研] 一志愿南昌大學(xué)，327分，材料與化工085600 +3 | Ncdx123456 2026-03-19 | 3/150 |
|
|
|
[考研] 281求調(diào)劑（0805） +9 | 煙汐憶海 2026-03-16 | 19/950 |
|
|
|
[考研] 346求調(diào)劑[0856] +3 | WayneLim327 2026-03-16 | 6/300 |
|
|
|
[考研] 一志愿天大材料與化工（085600）總分338 +5 | 蔡大美女 2026-03-13 | 5/250 |
|
|
|
[考研] 一志愿985，本科211，0817化學(xué)工程與技術(shù)319求調(diào)劑 +10 | Liwangman 2026-03-15 | 10/500 |
|
|
|
[考研] 材料專碩英一數(shù)二306 +5 | z1z2z3879 2026-03-18 | 5/250 |
|
|
|
[考研] 0703化學(xué)調(diào)劑，求各位老師收留 +10 | 秋有木北 2026-03-14 | 10/500 |
|
|
|
[考研] 328求調(diào)劑，英語六級(jí)551，有科研經(jīng)歷 +3 | 生物工程調(diào)劑 2026-03-17 | 7/350 |
|
|
|
[考研] 277調(diào)劑 +5 | 自由煎餅果子 2026-03-16 | 6/300 |
|
|
|
[考研] 302求調(diào)劑 +4 | 小賈同學(xué)123 2026-03-15 | 8/400 |
|
|
|
[考研] 一志愿211 0703方向310分求調(diào)劑 +3 | 努力奮斗112 2026-03-15 | 3/150 |
|
|
|
[考研] 070300化學(xué)學(xué)碩求調(diào)劑 +6 | 太想進(jìn)步了0608 2026-03-16 | 6/300 |
|
|
|
[考研] 0856專碩279求調(diào)劑 +5 | 加油加油！? 2026-03-15 | 5/250 |
|
|
|
[考研] 本科南京大學(xué)一志愿川大藥學(xué)327 +3 | 麥田耕者 2026-03-14 | 3/150 |
|
|
|
[考研] 0856材料與化工301求調(diào)劑 +5 | 奕束光 2026-03-13 | 5/250 |
|