| 5 | 1/1 | 返回列表 |
| 查看: 1281 | 回復(fù): 4 | |||
astringent銅蟲 (著名寫手)
|
[交流]
【求助】如何提取TXT中某列的數(shù)據(jù)存入一個數(shù)組,再對數(shù)組做處理 已有4人參與
|
|
我的數(shù)據(jù)存在aaa.txt文件中。對于上面的數(shù)據(jù),第二列是步數(shù)(step),第三列是每步的可能取值。我想將這些數(shù)據(jù)讀入,并保存在數(shù)組H(io,istep)中。io可以取從1到30000但是只有當(dāng)io取文件中第二列對應(yīng)的值時H(io,istep)=1,取其他值均為0.也就是說當(dāng)step=1時,io取15733,18193,20251時H的值為1,取其他值都為0,當(dāng)step=2時,io取15733,20251時H的值為1,取其他值都為0。我應(yīng)該怎樣實(shí)現(xiàn)呢,我想了好久還是沒想出來。請大家?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 ] |
金蟲 (正式寫手)
銅蟲 (著名寫手)
| 5 | 1/1 | 返回列表 |
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 301求調(diào)劑 +4 | A_JiXing 2026-03-16 | 4/200 |
|
|---|---|---|---|---|
|
[考研] 考研化學(xué)學(xué)碩調(diào)劑,一志愿985 +4 | 張vvvv 2026-03-15 | 6/300 |
|
|
[考研] 302求調(diào)劑 +9 | 負(fù)心者當(dāng)誅 2026-03-11 | 9/450 |
|
|
[考研] 308求調(diào)劑 +4 | 是Lupa啊 2026-03-16 | 4/200 |
|
|
[考研] 085601求調(diào)劑 +4 | Du.11 2026-03-16 | 4/200 |
|
|
[考研] 293求調(diào)劑 +6 | 世界首富 2026-03-11 | 6/300 |
|
|
[考研] 085600材料與化工求調(diào)劑 +5 | 緒幸與子 2026-03-17 | 5/250 |
|
|
[考研] 材料與化工專碩調(diào)劑 +5 | heming3743 2026-03-16 | 5/250 |
|
|
[考研] 一志愿南京大學(xué),080500材料科學(xué)與工程,調(diào)劑 +4 | Jy? 2026-03-16 | 4/200 |
|
|
[碩博家園] 深圳大學(xué)碩士招生(2026秋,傳感器方向,僅錄取第一志愿) +4 | xujiaoszu 2026-03-11 | 9/450 |
|
|
[考研] 278求調(diào)劑 +3 | Yy7400 2026-03-13 | 3/150 |
|
|
[考研] 321求調(diào)劑 +5 | 大米飯! 2026-03-15 | 5/250 |
|
|
[考研] 一志愿華中師范071000,325求調(diào)劑 +6 | RuitingC 2026-03-12 | 6/300 |
|
|
[考研] 070303 總分349求調(diào)劑 +3 | LJY9966 | 5/250 |
|
|
[考博] 東華理工大學(xué)化材專業(yè)26屆碩士博士申請 +6 | zlingli 2026-03-13 | 6/300 |
|
|
[考研] 288求調(diào)劑 +4 | 奇點(diǎn)0314 2026-03-14 | 4/200 |
|
|
[考研] 材料工程調(diào)劑 +9 | 咪咪空空 2026-03-12 | 9/450 |
|
|
[考研] 0856材料與化工301求調(diào)劑 +5 | 奕束光 2026-03-13 | 5/250 |
|
|
[考研] 26調(diào)劑/材料/英一數(shù)二/總分289/已過A區(qū)線 +6 | 步川酷紫123 2026-03-13 | 6/300 |
|
|
[考研] 310求調(diào)劑 +3 | 【上上簽】 2026-03-11 | 3/150 |
|