 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 5 | 1/1 | 返回列表 |
| 查看: 1387 | 回復(fù): 13 | ||
| 當(dā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 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計步的。。。如何做？ |
回復(fù)此樓» 猜你喜歡
288資源與環(huán)境專碩求調(diào)劑，不限專業(yè)，有學(xué)上就行
已經(jīng)有20人回復(fù)
-
311（085601）求調(diào)劑
已經(jīng)有11人回復(fù)
-
材料調(diào)劑
已經(jīng)有12人回復(fù)
-
一志愿 南京航空航天大學(xué) ，080500材料科學(xué)與工程學(xué)碩
已經(jīng)有3人回復(fù)
-
0856材料與化工調(diào)劑，339
已經(jīng)有6人回復(fù)
-
08工科275分求調(diào)劑
已經(jīng)有6人回復(fù)
-
334分 一志愿武理-080500 材料求調(diào)劑
已經(jīng)有10人回復(fù)
-
324分 085600材料與化工
已經(jīng)有7人回復(fù)
-
各位老師好，我的一志愿為北京科技大學(xué)085601材料專碩
已經(jīng)有11人回復(fù)
-
309求調(diào)劑
已經(jīng)有6人回復(fù)
» 本主題相關(guān)價值貼推薦，對您同樣有幫助:
- TPD操作
已經(jīng)有4人回復(fù)
- 大家有誰知道化學(xué)位移160的CH 是什么峰嗎？100以上就這一個峰
已經(jīng)有24人回復(fù)
- 2012的CSC，排出時間是13年？
已經(jīng)有10人回復(fù)
- 職場人士厭惡老外 學(xué)100句英語吵架句子
已經(jīng)有10人回復(fù)
- fluent時間步長的控制
已經(jīng)有4人回復(fù)
- 【分享】改善體質(zhì)增強(qiáng)免疫力《吃對蔬果健康100分》PDF格式 【已搜索無重復(fù)】
已經(jīng)有9人回復(fù)
huruiusst
木蟲 (小有名氣)
- 應(yīng)助: 1 (幼兒園)
- 金幣: 2687.3
- 帖子: 67
- 在線: 115.8小時
- 蟲號: 1103368
- 注冊: 2010-09-19
- 性別: GG
- 專業(yè): 傳熱傳質(zhì)學(xué)
3樓2011-11-03 09:54:42
holmescn
金蟲 (正式寫手)
- 程序強(qiáng)帖: 37
- 應(yīng)助: 1 (幼兒園)
- 金幣: 1918.8
- 散金: 275
- 紅花: 1
- 帖子: 699
- 在線: 102.6小時
- 蟲號: 913482
- 注冊: 2009-11-26
- 性別: GG
- 專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)
2樓2011-11-03 09:35:39
snoopyzhao
至尊木蟲 (職業(yè)作家)
- 程序強(qiáng)帖: 16
- 應(yīng)助: 157 (高中生)
- 貴賓: 0.02
- 金幣: 18844.7
- 紅花: 29
- 帖子: 3803
- 在線: 1422.4小時
- 蟲號: 183750
- 注冊: 2006-02-13
- 專業(yè): 污染生態(tài)化學(xué)
4樓2011-11-03 12:09:23
snoopyzhao
至尊木蟲 (職業(yè)作家)
- 程序強(qiáng)帖: 16
- 應(yīng)助: 157 (高中生)
- 貴賓: 0.02
- 金幣: 18844.7
- 紅花: 29
- 帖子: 3803
- 在線: 1422.4小時
- 蟲號: 183750
- 注冊: 2006-02-13
- 專業(yè): 污染生態(tài)化學(xué)
5樓2011-11-03 12:10:23
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 311（085601）求調(diào)劑 +10 | liziyeyeye 2026-03-28 | 11/550 |
|
|---|---|---|---|---|
|
|
[考研] 324分 085600材料與化工 +7 | 呆鵝oor 2026-03-27 | 7/350 |
|
|
[考研] 各位老師好，我的一志愿為北京科技大學(xué)085601材料專碩 +11 | Koxui 2026-03-28 | 11/550 |
|
|
|
[考研] 352分-085602-一志愿985 +6 | 海納百川Ly 2026-03-29 | 6/300 |
|
|
|
[考研] 考研調(diào)劑 +4 | Amber00 2026-03-31 | 4/200 |
|
|
|
[考研] 復(fù)試調(diào)劑 +7 | 雙馬尾痞老板2 2026-03-31 | 7/350 |
|
|
|
[考研] 329求調(diào)劑，一志愿西北工業(yè)大學(xué)，材料工程（085601） +6 | 小小機(jī)靈蟲 2026-03-29 | 12/600 |
|
|
|
[考研] 340求調(diào)劑 +4 | 希望如此i 2026-03-31 | 4/200 |
|
|
|
[考研] 英一數(shù)一總分334求調(diào)劑 +4 | 陳陽坤 2026-03-31 | 4/200 |
|
|
|
[考研] 0817化工學(xué)碩調(diào)劑 +7 | 努力上岸中！ 2026-03-31 | 7/350 |
|
|
|
[考研] 317求調(diào)劑 +8 | 十閑wx 2026-03-24 | 8/400 |
|
|
|
[考研]
 304材料求調(diào)劑
+5
|
鐘llll 2026-03-26 | 5/250 |
|
|
|
[考研] 一志愿廈門大學(xué)材料工程專碩354找調(diào)劑�。�！ +5 | 貝唄鋇鋇 2026-03-30 | 5/250 |
|
|
|
[碩博家園] 招收生物學(xué)/細(xì)胞生物學(xué)調(diào)劑 +4 | IceGuo 2026-03-26 | 5/250 |
|
|
|
[考研] 數(shù)一英一271專碩（085401）求調(diào)劑，可跨 +7 | 前行必有光 2026-03-28 | 8/400 |
|
|
|
[考研] 本科新能源科學(xué)與工程，一志愿華理能動285求調(diào)劑 +7 | AZMK 2026-03-28 | 11/550 |
|
|
|
[考研] 339求調(diào)劑，想調(diào)回江蘇 +6 | 烤麥芽 2026-03-27 | 8/400 |
|
|
|
[考研] 340求調(diào)劑 +5 | jhx777 2026-03-27 | 5/250 |
|
|
|
[考研] 295求調(diào)劑 +5 | 1428151015 2026-03-27 | 6/300 |
|
|
|
[考研] 347求調(diào)劑 +4 | L when 2026-03-25 | 4/200 |
|