 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 4 | 1/1 | 返回列表 |
| 查看: 653 | 回復(fù): 3 | ||
[求助]
內(nèi)循環(huán)問題，求大蝦幫忙
|
|
MODULE PARA IMPLICIT NONE INTEGER*4, PARAMETER:: Ndim=12 REAL,DIMENSION(Ndim,5):: pp INTEGER*4::NOUT END MODULE PARA PROGRAM CM USE MSIMSL USE PARA IMPLICIT NONE INTEGER:: i,j,k,m INTEGER::t real::x,y,z REAL*8::r REAL::s OPEN (11, file='input.txt') READ(11,*) ((pp(i,j),j=1,4),i=1,Ndim) close(11) t=1 DO while (t<=100) call random_seed() call random_number(r) k=1 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,r close(12) end if k=k+1 enddo t=t+1 if (t>100) exit enddo ENDPROGRAM 大意就是生成100次隨機數(shù)，并歸屬每一個隨機數(shù)的范圍，若屬于某特定范圍，則對其坐標進行累計加和。。求高手啊高手~~數(shù)值見附件， |
回復(fù)此樓» 猜你喜歡
085700資源與環(huán)境308求調(diào)劑
已經(jīng)有7人回復(fù)
-
265求調(diào)劑
已經(jīng)有5人回復(fù)
-
279分求調(diào)劑 一志愿211
已經(jīng)有3人回復(fù)
-
求調(diào)劑
已經(jīng)有3人回復(fù)
-
一志愿吉林大學(xué)材料學(xué)碩321求調(diào)劑
已經(jīng)有12人回復(fù)
-
286分人工智能專業(yè)請求調(diào)劑愿意跨考！
已經(jīng)有3人回復(fù)
-
329求調(diào)劑
已經(jīng)有5人回復(fù)
-
申請回稿延期一個月，編輯同意了。但系統(tǒng)上的時間沒變，給編輯又寫郵件了，沒回復(fù)
已經(jīng)有4人回復(fù)
-
材料學(xué)碩318求調(diào)劑
已經(jīng)有5人回復(fù)
-
一志愿中國海洋大學(xué)，生物學(xué)，301分，求調(diào)劑
已經(jīng)有6人回復(fù)
» 本主題相關(guān)價值貼推薦，對您同樣有幫助:
- 關(guān)于數(shù)學(xué)符號的問題？請教大蝦
已經(jīng)有16人回復(fù)
- 雜志選擇問題，跪求大蝦幫助
已經(jīng)有7人回復(fù)
- 一個脫芐問題，向各位大蝦求助
已經(jīng)有33人回復(fù)
- 急求一個有機合成問題，取代反應(yīng)，請各位大蝦幫忙！蟲蟲沒有金幣了，只散30個金幣……
已經(jīng)有11人回復(fù)
- 請問下BET大蝦有關(guān)滯后環(huán)的問題
已經(jīng)有5人回復(fù)
- 辰華CHI660C測試扣式鋰電池循環(huán)伏安電流總是顯示很大，安級，請教大蝦
已經(jīng)有6人回復(fù)
- 【求助】關(guān)于未知樹狀結(jié)構(gòu)存儲的問題？請大蝦指教！
已經(jīng)有11人回復(fù)
- 【求助】各位大蝦們，請教�；噭┤芙庑再|(zhì)的問題，謝謝啦
已經(jīng)有12人回復(fù)
- 【求助】請教各位大蝦，有關(guān)環(huán)氧膠黏劑脫粘的問題
已經(jīng)有9人回復(fù)
- 【求助】看文獻中遇到一個問題，請教各位大蝦!
已經(jīng)有10人回復(fù)
- 急求環(huán)境專業(yè)的翻譯大蝦幫忙翻譯下 中文翻譯成英文
已經(jīng)有2人回復(fù)
- 【求助】小妹求助各位大蝦紅外分析相對強度問題
已經(jīng)有15人回復(fù)
- 【求助】求教橡膠表面處理問題，大蝦們幫幫忙啊！
已經(jīng)有6人回復(fù)
- 【求助】過柱子的問題，請各位大蝦幫幫忙，謝謝了！
已經(jīng)有22人回復(fù)
- 【求助】培養(yǎng)單晶的大蝦來幫幫忙啊
已經(jīng)有21人回復(fù)
snoopyzhao
至尊木蟲 (職業(yè)作家)
- 程序強帖: 16
- 應(yīng)助: 157 (高中生)
- 貴賓: 0.02
- 金幣: 18844.7
- 紅花: 29
- 帖子: 3803
- 在線: 1422.4小時
- 蟲號: 183750
- 注冊: 2006-02-13
- 專業(yè): 污染生態(tài)化學(xué)
2樓2011-10-28 16:41:50
3樓2011-10-30 12:53:52
snoopyzhao
至尊木蟲 (職業(yè)作家)
- 程序強帖: 16
- 應(yīng)助: 157 (高中生)
- 貴賓: 0.02
- 金幣: 18844.7
- 紅花: 29
- 帖子: 3803
- 在線: 1422.4小時
- 蟲號: 183750
- 注冊: 2006-02-13
- 專業(yè): 污染生態(tài)化學(xué)
4樓2011-10-30 13:18:46
相關(guān)版塊跳轉(zhuǎn)
我要訂閱樓主 totoymy 的主題更新
| 4 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 329求調(diào)劑 +5 | 想上學(xué)吖吖 2026-03-19 | 5/250 |
|
|---|---|---|---|---|
|
[考研] 081700化工學(xué)碩調(diào)劑 +3 | 【1】 2026-03-16 | 3/150 |
|
|
|
[考研] 321求調(diào)劑 +8 | 何潤采123 2026-03-18 | 10/500 |
|
|
|
[考研] 材料080500調(diào)劑求收留 +4 | 一顆meteor 2026-03-13 | 4/200 |
|
|
|
[考研] 一志愿985，本科211，0817化學(xué)工程與技術(shù)319求調(diào)劑 +10 | Liwangman 2026-03-15 | 10/500 |
|
|
|
[考研] 332求調(diào)劑 +3 | ydfyh 2026-03-17 | 3/150 |
|
|
|
[考研] 304求調(diào)劑 +6 | 司空. 2026-03-18 | 6/300 |
|
|
|
[考研] 08工科 320總分 求調(diào)劑 +5 | 梨花珞晚風(fēng) 2026-03-17 | 5/250 |
|
|
|
[考研] 材料專碩306英一數(shù)二 +10 | z1z2z3879 2026-03-16 | 13/650 |
|
|
|
[考研] 331求調(diào)劑（0703有機化學(xué) +7 | ZY-05 2026-03-13 | 8/400 |
|
|
|
[考研] 299求調(diào)劑 +5 | △小透明* 2026-03-17 | 5/250 |
|
|
|
[考研] 303求調(diào)劑 +4 | 睿08 2026-03-17 | 6/300 |
|
|
|
[考研] 0703化學(xué)調(diào)劑 +3 | 妮妮ninicgb 2026-03-17 | 3/150 |
|
|
|
[考研] 環(huán)境工程調(diào)劑 +8 | 大可digkids 2026-03-16 | 8/400 |
|
|
|
[考研] 一志愿南京大學(xué)，080500材料科學(xué)與工程，調(diào)劑 +4 | Jy? 2026-03-16 | 4/200 |
|
|
|
[考研] 283求調(diào)劑 +3 | 聽風(fēng)就是雨； 2026-03-16 | 3/150 |
|
|
|
[考研] 藥學(xué)383 求調(diào)劑 +3 | 藥學(xué)chy 2026-03-15 | 4/200 |
|
|
|
[考研] 0703化學(xué)調(diào)劑 290分有科研經(jīng)歷，論文在投 +7 | 膩膩gk 2026-03-14 | 7/350 |
|
|
|
[考研] 085601材料工程315分求調(diào)劑 +3 | yang_0104 2026-03-15 | 3/150 |
|
|
|
[考研] 297求調(diào)劑 +4 | 學(xué)海漂泊 2026-03-13 | 4/200 |
|