版塊導(dǎo)航: 正在加載中...

登錄注冊

應(yīng)《網(wǎng)絡(luò)安全法》要求，自2017年10月1日起，未進(jìn)行實(shí)名認(rèn)證將不得使用互聯(lián)網(wǎng)跟帖服務(wù)。為保障您的帳號能夠正常使用，請盡快對帳號進(jìn)行手機(jī)號驗(yàn)證，感謝您的理解與支持！

24小時熱門版塊排行榜

返回列表

astringent

銅蟲 (著名寫手)

[交流] 【求助】為什么兩種寫法得到的值不一樣？

為什么把if語句放到不同的位置，結(jié)果就不一樣了呢？請大家?guī)兔Ψ治鲆幌拢嘀x。
寫法一（判斷語句為h0(t)/=0）：
t0=0
         do ntel=1, npoints

            neworig = .false.
            if (t0.eq.0) then
               neworig = .true.
            elseif (ntel-time0(t0).eq.it0)then
               neworig = .true.
            endif

            if (neworig) then
               t0 = t0 + 1       ! update number of t=0
               time0(t0) = ntel ! store the time of t=0
               h0(t0) = h(ntel)
            endif

            do t=1, t0          ! update tcf for t=0
               delt=ntel-time0(t)+1 ! actual time minus t=0
               if(h0(t)/=0.and.(delt.lt.npoints)) then
                  ntime(delt) = ntime(delt)+1d0
                  tcf(delt)=tcf(delt)+h(ntel)*h0(t)
                  tcf0(delt)=tcf0(delt)+h0(t)*h0(t)
                  endif
               enddo
            enddo
寫法二（判斷語句為if (h(ntel)/=0) then）
t0=0
         do ntel=1, npoints

            neworig = .false.
            if (h(ntel)/=0) then
            if (t0.eq.0) then
               neworig = .true.
            elseif (ntel-time0(t0).eq.it0)then
               neworig = .true.
            endif
            endif

            if (neworig) then
               t0 = t0 + 1       ! update number of t=0
               time0(t0) = ntel ! store the time of t=0
               h0(t0) = h(ntel)
            endif

            do t=1, t0          ! update tcf for t=0
               delt=ntel-time0(t)+1 ! actual time minus t=0
               if（delt.lt.npoints) then
                  ntime(delt) = ntime(delt)+1d0
                  tcf(delt)=tcf(delt)+h(ntel)*h0(t)
                  tcf0(delt)=tcf0(delt)+h0(t)*h0(t)
                  endif
               enddo
            enddo

回復(fù)此樓

» 猜你喜歡

346求調(diào)劑[0856] 已經(jīng)有7人回復(fù)
一志愿山大07化學(xué) 332分四六級已過本科山東雙非求調(diào)劑！已經(jīng)有3人回復(fù)
310求調(diào)劑已經(jīng)有3人回復(fù)
機(jī)械專碩299求調(diào)劑至材料已經(jīng)有4人回復(fù)
070300化學(xué)319求調(diào)劑已經(jīng)有7人回復(fù)
08工科 320總分求調(diào)劑已經(jīng)有6人回復(fù)
一志愿天津大學(xué)化學(xué)工藝專業(yè)（081702）315分求調(diào)劑已經(jīng)有12人回復(fù)
307求調(diào)劑已經(jīng)有3人回復(fù)
265求調(diào)劑已經(jīng)有3人回復(fù)
301求調(diào)劑已經(jīng)有10人回復(fù)

» 搶金幣啦！回帖就可以得到:

查看全部散金貼

1樓 2011-02-13 06:57:02

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

zhuwei04

木蟲 (正式寫手)

應(yīng)助: 0 (幼兒園)
金幣: 2536.5
帖子: 372
在線: 91.6小時
蟲號: 162510

astringent(金幣+10): 2011-02-13 20:36:36

h(1) 能保證/=0嗎？
如果和h(1)=0，寫法一比較好吧，至少能保證do t=1, t0 這句不出錯

贊一下

回復(fù)此樓

2樓2011-02-13 10:18:59

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

snoopyzhao

至尊木蟲 (職業(yè)作家)

★ ★ ★
astringent(金幣+10): 2011-02-13 20:36:39
余澤成(金幣+3): 謝謝參與應(yīng)助！ 2011-02-20 18:22:58

你這個程序片斷有太多的東西沒有交待，所以不能從程序片斷上來解讀

在下面的這段代碼中，你加了一個判斷才能進(jìn)行 neworig 的賦值，但在方法一中，沒有這樣的判斷，因此，可能會導(dǎo)致 neworig 的值在兩個程序中不一樣，那么可能會直接影響最后的結(jié)果……

CODE:

             if (h(ntel)/=0) then

               if (t0.eq.0) then

                   neworig = .true.

               elseif (ntel-time0(t0).eq.it0)then

                   neworig = .true.

               endif

              endif

贊一下(1人)

回復(fù)此樓

3樓2011-02-13 10:24:20

已閱回復(fù)此樓關(guān)注TA 給TA發(fā)消息送TA紅花 TA的回帖

相關(guān)版塊跳轉(zhuǎn) 我要訂閱樓主 astringent 的主題更新

返回列表

普通表情龍兔虎貓高級回復(fù) (可上傳附件)

最具人氣熱帖推薦 [查看全部]		作者	回/看	最后發(fā)表

[考研] 070300化學(xué)319求調(diào)劑 +7	錦鯉0909 2026-03-17	7/350	2026-03-21 03:46 by JourneyLucky
[考研] 296求調(diào)劑 +6	www_q 2026-03-18	10/500	2026-03-20 23:56 by JourneyLucky
[考研] 南昌大學(xué)材料專碩311分求調(diào)劑 +5	77chaselx 2026-03-20	5/250	2026-03-20 23:42 by lovewei0727
[考研] 一志愿南京理工大學(xué)085701資源與環(huán)境302分求調(diào)劑 +4	葵梓衛(wèi)隊(duì) 2026-03-18	6/300	2026-03-20 23:02 by JourneyLucky
[考研] 085600材料與化工 +8	安全上岸！ 2026-03-16	8/400	2026-03-20 22:13 by luoyongfeng
[考研] 中南大學(xué)化學(xué)學(xué)碩337求調(diào)劑 +3	niko- 2026-03-19	6/300	2026-03-20 21:58 by luoyongfeng
[考研] 一志愿吉林大學(xué)材料學(xué)碩321求調(diào)劑 +11	Ymlll 2026-03-18	15/750	2026-03-20 19:40 by 丁丁*
[考研] 材料與化工專碩調(diào)劑 +7	heming3743 2026-03-16	7/350	2026-03-20 19:31 by zhukairuo
[考研] 廣西大學(xué)家禽遺傳育種課題組2026年碩士招生（接收計算機(jī)專業(yè)調(diào)劑） +3	123阿標(biāo) 2026-03-17	3/150	2026-03-20 15:58 by 飛行琦
[考研] 08工學(xué)調(diào)劑 +5	用戶573181 2026-03-20	5/250	2026-03-20 15:47 by xia_2003
[考研] 0703化學(xué)調(diào)劑 +5	pupcoco 2026-03-17	8/400	2026-03-19 13:58 by houyaoxu
[考研] 328求調(diào)劑，英語六級551，有科研經(jīng)歷 +4	生物工程調(diào)劑 2026-03-16	12/600	2026-03-19 11:10 by 生物工程調(diào)劑
[考研] 一志愿985，本科211，0817化學(xué)工程與技術(shù)319求調(diào)劑 +10	Liwangman 2026-03-15	10/500	2026-03-19 10:25 by 無際的草原
[考研] 材料工程專碩調(diào)劑 +5	204818@lcx 2026-03-17	6/300	2026-03-18 22:55 by 204818@lcx
[考研] 344求調(diào)劑 +6	knight344 2026-03-16	7/350	2026-03-18 20:13 by walc
[考研] 材料，紡織，生物（0856、0710），化學(xué)招生啦 +3	Eember. 2026-03-17	9/450	2026-03-18 10:28 by Eember.
[考研] 301求調(diào)劑 +4	A_JiXing 2026-03-16	4/200	2026-03-17 17:32 by ruiyingmiao
[論文投稿] 有沒有大佬發(fā)小論文能帶我個二作 +3	增銳漏人 2026-03-17	4/200	2026-03-17 09:26 by xs74101122
[考研] 東南大學(xué)364求調(diào)劑 +5	JasonYuiui 2026-03-15	5/250	2026-03-16 21:28 by 木瓜膏
[考研] 326求調(diào)劑 +4	諾貝爾化學(xué)獎覬?/a> 2026-03-15	7/350	2026-03-16 17:11 by 諾貝爾化學(xué)獎覬?/a>

亭亭五月天在线观看,亭亭五月天在线观看,国产最新av一区二区,国产 高清 中文字幕,99re热久久亚洲综合精品成人,熟妇 一区二区三区,一级做a爰片性色毛片武则天,美女的骚穴视频播放,国产美女午夜免费视频

24小時熱門版塊排行榜

astringent

[交流] 【求助】為什么兩種寫法得到的值不一樣？

» 猜你喜歡

» 搶金幣啦！回帖就可以得到: 查看全部散金貼

zhuwei04

snoopyzhao

亭亭五月天在线观看,亭亭五月天在线观看,国产最新av一区二区,国产高清中文字幕,99re热久久亚洲综合精品成人,熟妇一区二区三区,一级做a爰片性色毛片武则天,美女的骚穴视频播放,国产美女午夜免费视频

[交流] 【求助】為什么兩種寫法得到的值不一樣？

» 搶金幣啦！回帖就可以得到:

查看全部散金貼