版塊導(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í)熱門版塊排行榜

返回列表

totoymy

銅蟲 (小有名氣)

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

[求助] 內(nèi)循環(huán)問(wè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 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,r
close(12)
end if
k=k+1
enddo

t=t+1
if (t>100) exit
enddo

ENDPROGRAM
大意就是生成100次隨機(jī)數(shù)，并歸屬每一個(gè)隨機(jī)數(shù)的范圍，若屬于某特定范圍，則對(duì)其坐標(biāo)進(jìn)行累計(jì)加和。。求高手啊高手~~數(shù)值見附件，

回復(fù)此樓

» 猜你喜歡

08工學(xué)調(diào)劑已經(jīng)有3人回復(fù)
一志愿吉林大學(xué)材料學(xué)碩321求調(diào)劑已經(jīng)有13人回復(fù)
一志愿西南交通專碩材料355 本科雙非求調(diào)劑已經(jīng)有3人回復(fù)
295復(fù)試調(diào)劑已經(jīng)有4人回復(fù)
298-一志愿中國(guó)農(nóng)業(yè)大學(xué)-求調(diào)劑已經(jīng)有8人回復(fù)
材料學(xué)碩297已過(guò)四六級(jí)求調(diào)劑推薦已經(jīng)有4人回復(fù)
能源材料化學(xué)課題組招收碩士研究生8-10名已經(jīng)有14人回復(fù)
0856調(diào)劑，是學(xué)校就去已經(jīng)有8人回復(fù)
材料080500調(diào)劑求收留已經(jīng)有5人回復(fù)
271材料工程求調(diào)劑已經(jīng)有7人回復(fù)

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

關(guān)于數(shù)學(xué)符號(hào)的問(wèn)題？請(qǐng)教大蝦已經(jīng)有16人回復(fù)
雜志選擇問(wèn)題，跪求大蝦幫助已經(jīng)有7人回復(fù)
一個(gè)脫芐問(wèn)題，向各位大蝦求助已經(jīng)有33人回復(fù)
急求一個(gè)有機(jī)合成問(wèn)題，取代反應(yīng)，請(qǐng)各位大蝦幫忙！蟲蟲沒(méi)有金幣了，只散30個(gè)金幣…… 已經(jīng)有11人回復(fù)
請(qǐng)問(wèn)下BET大蝦有關(guān)滯后環(huán)的問(wèn)題已經(jīng)有5人回復(fù)
辰華CHI660C測(cè)試扣式鋰電池循環(huán)伏安電流總是顯示很大，安級(jí)，請(qǐng)教大蝦已經(jīng)有6人回復(fù)
【求助】關(guān)于未知樹狀結(jié)構(gòu)存儲(chǔ)的問(wèn)題？請(qǐng)大蝦指教！已經(jīng)有11人回復(fù)
【求助】各位大蝦們，請(qǐng)教�；噭┤芙庑再|(zhì)的問(wèn)題，謝謝啦已經(jīng)有12人回復(fù)
【求助】請(qǐng)教各位大蝦，有關(guān)環(huán)氧膠黏劑脫粘的問(wèn)題已經(jīng)有9人回復(fù)
【求助】看文獻(xiàn)中遇到一個(gè)問(wèn)題，請(qǐng)教各位大蝦! 已經(jīng)有10人回復(fù)
急求環(huán)境專業(yè)的翻譯大蝦幫忙翻譯下中文翻譯成英文已經(jīng)有2人回復(fù)
【求助】小妹求助各位大蝦紅外分析相對(duì)強(qiáng)度問(wèn)題已經(jīng)有15人回復(fù)
【求助】求教橡膠表面處理問(wèn)題，大蝦們幫幫忙��！已經(jīng)有6人回復(fù)
【求助】過(guò)柱子的問(wèn)題，請(qǐng)各位大蝦幫幫忙，謝謝了！已經(jīng)有22人回復(fù)
【求助】培養(yǎng)單晶的大蝦來(lái)幫幫忙啊已經(jīng)有21人回復(fù)

1樓 2011-10-28 10:57:29

已閱回復(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-10-30 07:11:40

沒(méi)有相應(yīng)的庫(kù)，不應(yīng)助了……

贊一下(1人)

回復(fù)此樓

2樓2011-10-28 16:41:50

已閱回復(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-10-28 10:57:29:
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: ...

幫我說(shuō)說(shuō)問(wèn)題也好。。。應(yīng)該一共出100組數(shù)。。。結(jié)果總是不對(duì)啊~

贊一下

回復(fù)此樓

3樓2011-10-30 12:53:52

已閱回復(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)助回帖

★ ★
jjdg(金幣+2): 辛苦了 2011-10-30 13:30:00
totoymy(金幣+20): 貌似解決了~謝謝大蝦，我是在別的文件基礎(chǔ)上編的，所以那個(gè)庫(kù)是原來(lái)用的。。沒(méi)有用 2011-10-31 15:11:50

引用回帖:

3樓: Originally posted by totoymy at 2011-10-30 12:53:52:
幫我說(shuō)說(shuō)問(wèn)題也好。。。應(yīng)該一共出100組數(shù)。。。結(jié)果總是不對(duì)啊~

看了一下，你根本沒(méi)有必要引用 MSIMSL 這個(gè)庫(kù)。不知道你說(shuō)的分組是啥個(gè)意思……

我改了一下，可以出來(lái)結(jié)果，但不見得是你想要的：

CODE:

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

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)

!  write (*,*) r

   k=1

   s = 0.0

   do while(k<=Ndim)

      s=s+pp(k,4)

      m=s-pp(k,4)

!     write(*,*) s, m

      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,r

          close(12)  

          t = t + 1

      end if

      k=k+1

   enddo

   if (t>100) exit

enddo

end program cm

贊一下(1人)

回復(fù)此樓

4樓2011-10-30 13:18:46

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

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

返回列表

普通表情龍兔虎貓

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

[考研] 320求調(diào)劑0856 +3	不想起名字112 2026-03-19	3/150	2026-03-19 22:53 by 學(xué)員8dgXkO
[考研] 294求調(diào)劑材料與化工專碩 +14	陌の森林 2026-03-18	14/700	2026-03-19 22:38 by 學(xué)員8dgXkO
[考研] 288求調(diào)劑，一志愿華南理工大學(xué)071005 +5	ioodiiij 2026-03-17	5/250	2026-03-19 18:22 by zcl123
[考研] 求調(diào)劑，一志愿:南京航空航天大學(xué)大學(xué) ，080500材料科學(xué)與工程學(xué)碩，總分289分 +3	@taotao 2026-03-19	3/150	2026-03-19 14:07 by peike
[考研] 材料考研調(diào)劑 +3	xwt。 2026-03-19	3/150	2026-03-19 11:22 by w沐陽(yáng)w
[考研] 一志愿天大材料與化工（085600）總分338 +5	蔡大美女 2026-03-13	5/250	2026-03-19 10:44 by 是小劉呀～
[考研] 311求調(diào)劑 +4	冬十三 2026-03-18	4/200	2026-03-18 21:47 by 盡舜堯1
[考研] 070300化學(xué)319求調(diào)劑 +6	錦鯉0909 2026-03-17	6/300	2026-03-18 13:22 by Iveryant
[考研] 334求調(diào)劑 +3	志存高遠(yuǎn)意在機(jī)?/a> 2026-03-16	3/150	2026-03-18 08:34 by lm4875102
[考研] 293求調(diào)劑 +11	zjl的號(hào) 2026-03-16	16/800	2026-03-18 08:10 by zhukairuo
[考研] 277調(diào)劑 +5	自由煎餅果子 2026-03-16	6/300	2026-03-17 19:26 by 李leezz
[考研] 301求調(diào)劑 +4	A_JiXing 2026-03-16	4/200	2026-03-17 17:32 by ruiyingmiao
[考研] 308求調(diào)劑 +4	是Lupa啊 2026-03-16	4/200	2026-03-17 17:12 by ruiyingmiao
[考研] 332求調(diào)劑 +6	Zz版 2026-03-13	6/300	2026-03-17 17:03 by ruiyingmiao
[考研] 290求調(diào)劑 +3	p asserby. 2026-03-15	4/200	2026-03-17 16:35 by wangkm
[考研] 11408 一志愿西電，277分求調(diào)劑 +3	zhouzhen654 2026-03-16	3/150	2026-03-17 07:03 by laoshidan
[考研] 321求調(diào)劑 +5	大米飯！ 2026-03-15	5/250	2026-03-16 16:33 by houyaoxu
[考研] 26考研一志愿中國(guó)石油大學(xué)(華東)305分求調(diào)劑 +3	嘉年新程 2026-03-15	3/150	2026-03-15 13:58 by 哈哈哈哈嘿嘿嘿
[考研] 一志愿哈工大材料324分求調(diào)劑 +5	閆旭東 2026-03-14	5/250	2026-03-14 14:53 by 木瓜膏
[考研] 266求調(diào)劑 +4	學(xué)員97LZgn 2026-03-13	4/200	2026-03-14 08:37 by zhukairuo

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

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

totoymy

[求助] 內(nèi)循環(huán)問(wèn)題，求大蝦幫忙

» 猜你喜歡

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

snoopyzhao

totoymy

snoopyzhao

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

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