 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 5 | 1/1 | 返回列表 |
| 查看: 1385 | 回復(fù): 13 | ||
| 當(dāng)前只顯示滿足指定條件的回帖，點(diǎn)擊這里查看本話題的所有回帖 | ||
[求助]
想以時(shí)間為步長，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計(jì)步的。。。如何做？ |
回復(fù)此樓» 猜你喜歡
求收留
已經(jīng)有5人回復(fù)
-
375求調(diào)劑
已經(jīng)有4人回復(fù)
-
340求調(diào)劑
已經(jīng)有6人回復(fù)
-
298求調(diào)劑
已經(jīng)有3人回復(fù)
-
085601材料工程找調(diào)劑
已經(jīng)有9人回復(fù)
-
考研調(diào)劑
已經(jīng)有4人回復(fù)
-
面上5B能上會嗎？
已經(jīng)有3人回復(fù)
-
求調(diào)劑，一志愿 南京航空航天大學(xué) ，080500材料科學(xué)與工程學(xué)碩，總分289分
已經(jīng)有7人回復(fù)
-
086000生物與醫(yī)藥調(diào)劑
已經(jīng)有9人回復(fù)
-
343求調(diào)劑
已經(jīng)有6人回復(fù)
» 本主題相關(guān)價(jià)值貼推薦，對您同樣有幫助:
- TPD操作
已經(jīng)有4人回復(fù)
- 大家有誰知道化學(xué)位移160的CH 是什么峰嗎？100以上就這一個(gè)峰
已經(jīng)有24人回復(fù)
- 2012的CSC，排出時(shí)間是13年？
已經(jīng)有10人回復(fù)
- 職場人士厭惡老外 學(xué)100句英語吵架句子
已經(jīng)有10人回復(fù)
- fluent時(shí)間步長的控制
已經(jīng)有4人回復(fù)
- 【分享】改善體質(zhì)增強(qiáng)免疫力《吃對蔬果健康100分》PDF格式 【已搜索無重復(fù)】
已經(jīng)有9人回復(fù)
9樓2011-11-03 14:33:38
holmescn
金蟲 (正式寫手)
- 程序強(qiáng)帖: 37
- 應(yīng)助: 1 (幼兒園)
- 金幣: 1918.8
- 散金: 275
- 紅花: 1
- 帖子: 699
- 在線: 102.6小時(shí)
- 蟲號: 913482
- 注冊: 2009-11-26
- 性別: GG
- 專業(yè): 凝聚態(tài)物性 II ：電子結(jié)構(gòu)
2樓2011-11-03 09:35:39
huruiusst
木蟲 (小有名氣)
- 應(yīng)助: 1 (幼兒園)
- 金幣: 2687.3
- 帖子: 67
- 在線: 115.8小時(shí)
- 蟲號: 1103368
- 注冊: 2010-09-19
- 性別: GG
- 專業(yè): 傳熱傳質(zhì)學(xué)
3樓2011-11-03 09:54:42
snoopyzhao
至尊木蟲 (職業(yè)作家)
- 程序強(qiáng)帖: 16
- 應(yīng)助: 157 (高中生)
- 貴賓: 0.02
- 金幣: 18844.7
- 紅花: 29
- 帖子: 3803
- 在線: 1422.4小時(shí)
- 蟲號: 183750
- 注冊: 2006-02-13
- 專業(yè): 污染生態(tài)化學(xué)
4樓2011-11-03 12:09:23
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 0703化學(xué) +11 | 妮妮ninicgb 2026-03-27 | 11/550 |
|
|---|---|---|---|---|
|
|
[考研] 一志愿哈爾濱工業(yè)大學(xué)材料與化工方向336分 +9 | 辰沐5211314 2026-03-26 | 9/450 |
|
|
|
[碩博家園] 求調(diào)劑 有機(jī)化學(xué)考研356分 +3 | Nadiums 2026-03-25 | 4/200 |
|
|
[考研] 299求調(diào)劑 +7 | 嗯嗯嗯嗯2 2026-03-27 | 7/350 |
|
|
|
[考研] 266分，求材料冶金能源化工等調(diào)劑 +7 | 哇呼哼呼哼 2026-03-27 | 9/450 |
|
|
|
[考研] 一志愿南昌大學(xué)324求調(diào)劑 +7 | hanamiko 2026-03-27 | 7/350 |
|
|
|
[考研] 286求調(diào)劑 +4 | 丟掉懶惰 2026-03-27 | 7/350 |
|
|
|
[考研] 085701環(huán)境工程求調(diào)劑 +9 | 多久上課 2026-03-27 | 9/450 |
|
|
|
[考研] 275求調(diào)劑 +10 | jjjjjjjjjjl 2026-03-27 | 10/500 |
|
|
|
[考研] 材料292調(diào)劑 +12 | 橘頌思美人 2026-03-23 | 12/600 |
|
|
|
[考研] 315調(diào)劑 +4 | 0860求調(diào)劑 2026-03-26 | 5/250 |
|
|
|
[考研] 一志愿吉大071010，316分求調(diào)劑 +3 | xgbiknn 2026-03-27 | 3/150 |
|
|
|
[考研] 359求調(diào)劑 +4 | 王了個(gè)楠 2026-03-25 | 4/200 |
|
|
|
[考研] 總分322求生物學(xué)/生化與分子/生物信息學(xué)相關(guān)調(diào)劑 +5 | 星沉uu 2026-03-26 | 6/300 |
|
|
|
[考研] 生物學(xué) 296 求調(diào)劑 +4 | 朵朵- 2026-03-26 | 6/300 |
|
|
|
[考研] 309求調(diào)劑 +4 | gajsj 2026-03-25 | 5/250 |
|
|
|
[考研] 26考研-291分-廈門大學(xué)（085601）-柔性電子學(xué)院材料工程專業(yè)求調(diào)劑 +3 | min3 2026-03-24 | 4/200 |
|
|
|
[考研] 考研一志愿蘇州大學(xué)初始315（英一）求調(diào)劑 +3 | sbdksD 2026-03-24 | 4/200 |
|
|
|
[有機(jī)交流]
 有機(jī)合成求助
 20+3
|
FENGSHUJEI 2026-03-23 | 5/250 |
|
|
|
[考研] 269求調(diào)劑 +4 | 我想讀研11 2026-03-23 | 4/200 |
|