| 5 | 1/1 | 返回列表 |
| 查看: 1291 | 回復(fù): 4 | |||
| 當(dāng)前只顯示滿足指定條件的回帖,點(diǎn)擊這里查看本話題的所有回帖 | |||
astringent銅蟲 (著名寫手)
|
[交流]
【求助】如何提取TXT中某列的數(shù)據(jù)存入一個(gè)數(shù)組,再對(duì)數(shù)組做處理 已有4人參與
|
||
|
我的數(shù)據(jù)存在aaa.txt文件中。對(duì)于上面的數(shù)據(jù),第二列是步數(shù)(step),第三列是每步的可能取值。我想將這些數(shù)據(jù)讀入,并保存在數(shù)組H(io,istep)中。io可以取從1到30000但是只有當(dāng)io取文件中第二列對(duì)應(yīng)的值時(shí)H(io,istep)=1,取其他值均為0.也就是說(shuō)當(dāng)step=1時(shí),io取15733,18193,20251時(shí)H的值為1,取其他值都為0,當(dāng)step=2時(shí),io取15733,20251時(shí)H的值為1,取其他值都為0。我應(yīng)該怎樣實(shí)現(xiàn)呢,我想了好久還是沒(méi)想出來(lái)。請(qǐng)大家?guī)臀蚁胂朕k法,先謝謝了。 1 15733 1 18193 1 20251 2 15733 2 20251 3 20824 4 15733 4 16159 4 18193 4 20251 4 20824 5 16159 5 18193 5 20251 5 20824 6 15733 6 20251 6 20824 7 15733 7 20251 7 20824 8 15733 8 16159 8 18193 8 20251 9 18193 9 20251 10 9490 10 16159 10 20251 |
銅蟲 (初入文壇)
|
program example implicit none integer,parameter :: max_step=10,max_data=10 integer :: test(max_data,max_step)=0,H(30000)=0,counter(max_step)=0 integer :: istep,idata open(unit=8,file="aaa.txt",status="old" ![]() 1 read(8,*,end=2) istep,idata ! write(*,*) istep,idata H(idata)=1 counter(istep)=counter(istep)+1 test(counter(istep),istep)=idata goto 1 2 close(8) end program example [ Last edited by piduil on 2010-12-2 at 09:41 ] |
金蟲 (正式寫手)
銅蟲 (著名寫手)
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 336求調(diào)劑 +3 | 收到VS 2026-03-20 | 3/150 |
|
|---|---|---|---|---|
|
[考研] 工科材料085601 279求調(diào)劑 +8 | 困于星晨 2026-03-17 | 10/500 |
|
|
[考研] 291 求調(diào)劑 +4 | 化工2026屆畢業(yè)?/a> 2026-03-21 | 4/200 |
|
|
[考研] 317求調(diào)劑 +12 | 申子申申 2026-03-19 | 18/900 |
|
|
[考研] 求調(diào)劑一志愿海大,0703化學(xué)學(xué)碩304分,有大創(chuàng)項(xiàng)目,四級(jí)已過(guò) +6 | 幸運(yùn)哩哩 2026-03-22 | 10/500 |
|
|
[考研] 298求調(diào)劑一志愿211 +3 | 上岸6666@ 2026-03-20 | 3/150 |
|
|
[考研] 305分求調(diào)劑(食品工程) +4 | Sxy112 2026-03-21 | 6/300 |
|
|
[考研] 318求調(diào)劑 +4 | plum李子 2026-03-21 | 7/350 |
|
|
[考研] 286求調(diào)劑 +10 | Faune 2026-03-21 | 10/500 |
|
|
[考研] 求調(diào)劑 +3 | 13341 2026-03-20 | 3/150 |
|
|
[考研] 一志愿深大,0703化學(xué),總分302,求調(diào)劑 +4 | 七月-七七 2026-03-21 | 4/200 |
|
|
[考研] 336求調(diào)劑 +5 | rmc8866 2026-03-21 | 5/250 |
|
|
[考研] 0805材料320求調(diào)劑 +3 | 深海物語(yǔ) 2026-03-20 | 3/150 |
|
|
[考研] 083200學(xué)碩321分一志愿暨南大學(xué)求調(diào)劑 +3 | innocenceF 2026-03-17 | 3/150 |
|
|
[考研] 材料專碩英一數(shù)二306 +7 | z1z2z3879 2026-03-18 | 7/350 |
|
|
[考研] 一志愿南京理工大學(xué)085701資源與環(huán)境302分求調(diào)劑 +4 | 葵梓衛(wèi)隊(duì) 2026-03-18 | 6/300 |
|
|
[考研] 086500 325 求調(diào)劑 +3 | 領(lǐng)帶小熊 2026-03-19 | 3/150 |
|
|
[考研] 0703化學(xué)調(diào)劑 +4 | 18889395102 2026-03-18 | 4/200 |
|
|
[考研] 085601材料工程專碩求調(diào)劑 +10 | 慕寒mio 2026-03-16 | 10/500 |
|
|
[考研] 286求調(diào)劑 +6 | lemonzzn 2026-03-16 | 10/500 |
|