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

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

24小時(shí)熱門版塊排行榜

返回列表

下一頁(yè)

totoymy

銅蟲 (小有名氣)

應(yīng)助: 1 (幼兒園)
金幣: 27.5
紅花: 2
帖子: 63
在線: 16.3小時(shí)
蟲號(hào): 1326694
注冊(cè): 2011-06-19
性別: MM
專業(yè): 理論和計(jì)算化學(xué)

[求助] 想以時(shí)間為步長(zhǎng)，dt=100ns，怎么操作��？？

程序如下：
MODULE PARA
IMPLICIT NONE

INTEGER*4, PARAMETER:: Ndim=12

REAL,DIMENSION(Ndim,5):: pp

INTEGER*4::NOUT

END MODULE PARA

PROGRAM CM
USE PARA
IMPLICIT NONE

INTEGER:: i,j,k
INTEGER::t
real::x,y,z
REAL*8::r
REAL::s,m

OPEN (11, file='input.txt')

READ(11,*) ((pp(i,j),j=1,4),i=1,Ndim)
close(11)
call random_seed()

t=1
DO
call random_number(r)

k=1
s = 0.0
do while(k<=Ndim)
   s=s+pp(k,4)
   m=s-pp(k,4)


   if (m       x=x+pp(k,1)
      y=y+pp(k,2)
      z=z+pp(k,3)
      open(12,file="result.txt",access='append')
      write(12,*) x,y,z,t,k
      close(12)
      t = t + 1
   end if
   k=k+1
enddo

if (t>100) exit
enddo

end program cm

就是從0到10μs，每步100ns循環(huán)100次，怎么修改？
目前只是用數(shù)字1-100計(jì)步的。。。如何做？

回復(fù)此樓

» 猜你喜歡

求調(diào)劑已經(jīng)有3人回復(fù)
265求調(diào)劑已經(jīng)有4人回復(fù)
085700資源與環(huán)境308求調(diào)劑已經(jīng)有6人回復(fù)
一志愿吉林大學(xué)材料學(xué)碩321求調(diào)劑已經(jīng)有12人回復(fù)
286分人工智能專業(yè)請(qǐng)求調(diào)劑愿意跨考！已經(jīng)有3人回復(fù)
329求調(diào)劑已經(jīng)有5人回復(fù)
申請(qǐng)回稿延期一個(gè)月，編輯同意了。但系統(tǒng)上的時(shí)間沒(méi)變，給編輯又寫郵件了，沒(méi)回復(fù) 已經(jīng)有4人回復(fù)
材料學(xué)碩318求調(diào)劑已經(jīng)有5人回復(fù)
一志愿中國(guó)海洋大學(xué)，生物學(xué)，301分，求調(diào)劑已經(jīng)有6人回復(fù)
081700化工學(xué)碩調(diào)劑已經(jīng)有3人回復(fù)

» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助:

TPD操作已經(jīng)有4人回復(fù)
大家有誰(shuí)知道化學(xué)位移160的CH 是什么峰嗎？100以上就這一個(gè)峰已經(jīng)有24人回復(fù)
2012的CSC，排出時(shí)間是13年？已經(jīng)有10人回復(fù)
職場(chǎng)人士厭惡老外學(xué)100句英語(yǔ)吵架句子已經(jīng)有10人回復(fù)
fluent時(shí)間步長(zhǎng)的控制已經(jīng)有4人回復(fù)
【分享】改善體質(zhì)增強(qiáng)免疫力《吃對(duì)蔬果健康100分》PDF格式【已搜索無(wú)重復(fù)】已經(jīng)有9人回復(fù)

1樓 2011-11-02 21:26:25

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

holmescn

金蟲 (正式寫手)

程序強(qiáng)帖: 37
應(yīng)助: 1 (幼兒園)
金幣: 1918.8
散金: 275
紅花: 1
帖子: 699
在線: 102.6小時(shí)
蟲號(hào): 913482
注冊(cè): 2009-11-26
性別: GG
專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)

【答案】應(yīng)助回帖

★
xzhdty(金幣+1): 謝謝參與 2011-11-03 17:04:32

掃了一眼你的代碼，沒(méi)有發(fā)現(xiàn)t參與運(yùn)算。
首先你需要確定睡前的t是什么單位，是微秒還是納秒。然后看1到100個(gè)步長(zhǎng)是多長(zhǎng)時(shí)間，最后按照你需要的時(shí)間長(zhǎng)度設(shè)定t的步長(zhǎng)和終值就可以了。

贊一下(1人)

回復(fù)此樓

2樓2011-11-03 09:35:39

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

huruiusst

木蟲 (小有名氣)

應(yīng)助: 1 (幼兒園)
金幣: 2687.3
帖子: 67
在線: 115.8小時(shí)
蟲號(hào): 1103368
注冊(cè): 2010-09-19
性別: GG
專業(yè): 傳熱傳質(zhì)學(xué)

你這個(gè)大循環(huán)能循環(huán)起來(lái)嗎？沒(méi)見過(guò)這樣的循環(huán)格式的

贊一下

回復(fù)此樓

SLS,MD，HRSG

3樓2011-11-03 09:54:42

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

snoopyzhao

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

程序強(qiáng)帖: 16
應(yīng)助: 157 (高中生)
貴賓: 0.02
金幣: 18844.7
紅花: 29
帖子: 3803
在線: 1422.4小時(shí)
蟲號(hào): 183750
注冊(cè): 2006-02-13
專業(yè): 污染生態(tài)化學(xué)

ben_ladeng: 專家考核存檔 2011-11-03 17:49:43

引用回帖:

3樓: Originally posted by huruiusst at 2011-11-03 09:54:42:
你這個(gè)大循環(huán)能循環(huán)起來(lái)嗎？沒(méi)見過(guò)這樣的循環(huán)格式的

很顯然可以循環(huán)，這種循環(huán)沒(méi)有次數(shù)限制，用 exit 退出，讀文件，我一般都用這種循環(huán)……

贊一下(1人)

回復(fù)此樓

4樓2011-11-03 12:09:23

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

snoopyzhao

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

程序強(qiáng)帖: 16
應(yīng)助: 157 (高中生)
貴賓: 0.02
金幣: 18844.7
紅花: 29
帖子: 3803
在線: 1422.4小時(shí)
蟲號(hào): 183750
注冊(cè): 2006-02-13
專業(yè): 污染生態(tài)化學(xué)

【答案】應(yīng)助回帖

ben_ladeng: 專家考核存檔 2011-11-03 17:49:56
totoymy(金幣+10): 2011-11-05 20:56:14

你所謂的時(shí)間，是指計(jì)算機(jī)運(yùn)行的時(shí)間，還是別的？

贊一下(1人)

回復(fù)此樓

5樓2011-11-03 12:10:23

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

huruiusst

木蟲 (小有名氣)

應(yīng)助: 1 (幼兒園)
金幣: 2687.3
帖子: 67
在線: 115.8小時(shí)
蟲號(hào): 1103368
注冊(cè): 2010-09-19
性別: GG
專業(yè): 傳熱傳質(zhì)學(xué)

引用回帖:

4樓: Originally posted by snoopyzhao at 2011-11-03 12:09:23:
很顯然可以循環(huán)，這種循環(huán)沒(méi)有次數(shù)限制，用 exit 退出，讀文件，我一般都用這種循環(huán)……

謝謝指正

回復(fù)此樓

SLS,MD，HRSG

6樓2011-11-03 13:34:07

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

totoymy

銅蟲 (小有名氣)

應(yīng)助: 1 (幼兒園)
金幣: 27.5
紅花: 2
帖子: 63
在線: 16.3小時(shí)
蟲號(hào): 1326694
注冊(cè): 2011-06-19
性別: MM
專業(yè): 理論和計(jì)算化學(xué)

引用回帖:

5樓: Originally posted by snoopyzhao at 2011-11-03 12:10:23:
你所謂的時(shí)間，是指計(jì)算機(jī)運(yùn)行的時(shí)間，還是別的？

客觀的時(shí)間吧，就是真實(shí)的時(shí)間，和計(jì)算機(jī)運(yùn)行時(shí)間應(yīng)該是一致的？謝謝幫助~

贊一下

回復(fù)此樓

7樓2011-11-03 14:30:21

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

totoymy

銅蟲 (小有名氣)

應(yīng)助: 1 (幼兒園)
金幣: 27.5
紅花: 2
帖子: 63
在線: 16.3小時(shí)
蟲號(hào): 1326694
注冊(cè): 2011-06-19
性別: MM
專業(yè): 理論和計(jì)算化學(xué)

引用回帖:

1樓: Originally posted by totoymy at 2011-11-02 21:26:25:
程序如下：
MODULE PARA
IMPLICIT NONE

INTEGER*4, PARAMETER:: Ndim=12

REAL,DIMENSION(Ndim,5):: pp

INTEGER*4::NOUT

END MODULE PARA

PROGRAM CM
USE PARA
IMPLICIT NONE

INTEGER:: ...

納秒，就是每一步是10的-7次方秒，一共走到10的-5次方秒，一共100下.關(guān)鍵是不會(huì)設(shè)置啊~

贊一下

回復(fù)此樓

8樓2011-11-03 14:32:42

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

totoymy

銅蟲 (小有名氣)

應(yīng)助: 1 (幼兒園)
金幣: 27.5
紅花: 2
帖子: 63
在線: 16.3小時(shí)
蟲號(hào): 1326694
注冊(cè): 2011-06-19
性別: MM
專業(yè): 理論和計(jì)算化學(xué)

引用回帖:

嗯，嘿嘿~~

回復(fù)此樓

9樓2011-11-03 14:33:38

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

snoopyzhao

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

程序強(qiáng)帖: 16
應(yīng)助: 157 (高中生)
貴賓: 0.02
金幣: 18844.7
紅花: 29
帖子: 3803
在線: 1422.4小時(shí)
蟲號(hào): 183750
注冊(cè): 2006-02-13
專業(yè): 污染生態(tài)化學(xué)

引用回帖:

8樓: Originally posted by totoymy at 2011-11-03 14:32:42:
納秒，就是每一步是10的-7次方秒，一共走到10的-5次方秒，一共100下.關(guān)鍵是不會(huì)設(shè)置啊~

為什么要這么做？這樣做的好處是啥？

贊一下

回復(fù)此樓

10樓2011-11-03 14:40:19

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

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

返回列表

下一頁(yè)

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

[考研] 一志愿吉林大學(xué)材料學(xué)碩321求調(diào)劑 +9	Ymlll 2026-03-18	12/600	2026-03-20 00:01 by 23Postgrad
[考研] 材料學(xué)碩318求調(diào)劑 +5	February_Feb 2026-03-19	5/250	2026-03-19 23:51 by 23Postgrad
[考研] 081700化工學(xué)碩調(diào)劑 +3	【1】 2026-03-16	3/150	2026-03-19 23:40 by edmund7
[考研] 320求調(diào)劑0856 +3	不想起名字112 2026-03-19	3/150	2026-03-19 22:53 by 學(xué)員8dgXkO
[考研] 復(fù)試調(diào)劑 +4	z1z2z3879 2026-03-14	6/300	2026-03-19 17:18 by fei626-918
[考博] 東華理工大學(xué)化材專業(yè)26屆碩士博士申請(qǐng) +8	zlingli 2026-03-13	8/400	2026-03-19 16:32 by 輕松不少隨
[考研] 0703化學(xué)調(diào)劑 +4	18889395102 2026-03-18	4/200	2026-03-19 16:13 by 30660438
[考研] 一志愿福大288有機(jī)化學(xué)，求調(diào)劑 +3	小木蟲200408204 2026-03-18	3/150	2026-03-19 13:31 by houyaoxu
[考研] 材料工程專碩調(diào)劑 +5	204818@lcx 2026-03-17	6/300	2026-03-18 22:55 by 204818@lcx
[考研] 26調(diào)劑/材料/英一數(shù)二/總分289/已過(guò)A區(qū)線 +7	步川酷紫123 2026-03-13	7/350	2026-03-18 17:12 by 盡舜堯1
[考研] 297求調(diào)劑 +8	戲精丹丹丹 2026-03-17	8/400	2026-03-18 14:30 by laoshidan
[考研] 334求調(diào)劑 +3	志存高遠(yuǎn)意在機(jī)?/a> 2026-03-16	3/150	2026-03-18 08:34 by lm4875102
[考研] 考研化學(xué)學(xué)碩調(diào)劑，一志愿985 +4	張vvvv 2026-03-15	6/300	2026-03-17 17:15 by ruiyingmiao
[考研] [導(dǎo)師推薦]西南科技大學(xué)國(guó)防/材料導(dǎo)師推薦 +3	尖角小荷 2026-03-16	6/300	2026-03-16 23:21 by 尖角小荷
[考研] 333求調(diào)劑 +3	文思客 2026-03-16	7/350	2026-03-16 18:21 by 文思客
[考研] 318求調(diào)劑 +3	Yanyali 2026-03-15	3/150	2026-03-16 16:41 by houyaoxu
[考研] 327求調(diào)劑 +6	拾光任染 2026-03-15	11/550	2026-03-15 22:47 by 拾光任染
[考研] 070305求調(diào)劑 +3	mlpqaz03 2026-03-14	4/200	2026-03-15 11:04 by peike
[考研] 材料與化工 323 英一+數(shù)二+物化，一志愿：哈工大本人本科雙一流 +4	自由的_飛翔 2026-03-13	5/250	2026-03-14 19:39 by hmn_wj
[考研] 一志愿哈工大材料324分求調(diào)劑 +5	閆旭東 2026-03-14	5/250	2026-03-14 14:53 by 木瓜膏

24小時(shí)熱門版塊排行榜

[求助] 想以時(shí)間為步長(zhǎng)，dt=100ns，怎么操作��？？

» 猜你喜歡

» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助:

【答案】應(yīng)助回帖

【答案】應(yīng)助回帖

[求助] 想以時(shí)間為步長(zhǎng)，dt=100ns，怎么操作��？？

» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助: