 |
 |
 |
 |
 |
 |
||
 |
 |
 |
 |
 |
| 5 | 1/1 | 返回列表 |
| 查看: 1299 | 回復(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.也就是說當(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)呢，我想了好久還是沒想出來。請(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 |
回復(fù)此樓» 猜你喜歡
342求調(diào)劑
已經(jīng)有3人回復(fù)
-
070300化學(xué)專業(yè)279調(diào)劑
已經(jīng)有9人回復(fù)
-
求調(diào)劑：085600材料與化工，考材科基，總分319
已經(jīng)有20人回復(fù)
-
一志愿華東理工大學(xué)，080500學(xué)碩，317分，求調(diào)劑
已經(jīng)有9人回復(fù)
-
一志愿a區(qū)211，085601-307分求調(diào)劑
已經(jīng)有23人回復(fù)
-
合肥區(qū)域性重點(diǎn)一本招收調(diào)劑
已經(jīng)有8人回復(fù)
-
材料調(diào)劑
已經(jīng)有10人回復(fù)
-
288求調(diào)劑 一志愿哈工大 材料與化工
已經(jīng)有13人回復(fù)
-
材料科學(xué)與工程339求調(diào)劑
已經(jīng)有3人回復(fù)
-
化學(xué)308分調(diào)劑
已經(jīng)有11人回復(fù)
» 本主題相關(guān)價(jià)值貼推薦，對(duì)您同樣有幫助:
- 使用PGI編譯VASP中無法使用長(zhǎng)數(shù)組
已經(jīng)有5人回復(fù)
- 怎樣將for循環(huán)的結(jié)果存入數(shù)組
已經(jīng)有6人回復(fù)
- 請(qǐng)教一個(gè)應(yīng)用read時(shí)出現(xiàn)數(shù)組越界的問題，謝謝
已經(jīng)有7人回復(fù)
- 簡(jiǎn)單數(shù)組最值求解-謝謝
已經(jīng)有4人回復(fù)
- 怎么把從鍵盤輸入的多個(gè)字符串分別賦值給字符串?dāng)?shù)組的一個(gè)個(gè)元素？
已經(jīng)有6人回復(fù)
- 三維數(shù)組換行輸入到文件（intel fortran 編譯器）
已經(jīng)有6人回復(fù)
- 關(guān)于c語言的一個(gè)小問題 坐等回復(fù)啊 急啊 是關(guān)于建立數(shù)組的
已經(jīng)有9人回復(fù)
- 從txt文件讀數(shù)據(jù)到二維數(shù)組
已經(jīng)有4人回復(fù)
- 【求助】請(qǐng)問一個(gè)數(shù)組問題
已經(jīng)有3人回復(fù)
- 【求助】C# 中如何聲明結(jié)構(gòu)體數(shù)組并賦值
已經(jīng)有13人回復(fù)
- 【求助】一個(gè)求數(shù)組絕對(duì)值的小問題
已經(jīng)有7人回復(fù)
- 【求助】大家?guī)兔纯磾?shù)組存值和引用
已經(jīng)有5人回復(fù)
- 【求助】module里面能夠讓數(shù)組從外部接受一些數(shù)據(jù)嗎？【已完結(jié)】
已經(jīng)有8人回復(fù)
- 【求助】ANSYS定義數(shù)組時(shí)，如何從TXT文件中導(dǎo)入？
已經(jīng)有7人回復(fù)
astringent
銅蟲 (著名寫手)
- 應(yīng)助: 16 (小學(xué)生)
- 金幣: 2210.7
- 散金: 1233
- 紅花: 4
- 帖子: 1180
- 在線: 354.8小時(shí)
- 蟲號(hào): 900839
- 注冊(cè): 2009-11-12
- 專業(yè): 理論和計(jì)算化學(xué)
5樓2010-12-03 02:57:41
2樓2010-12-02 07:19:18
piduil
銅蟲 (初入文壇)
- 應(yīng)助: 0 (幼兒園)
- 金幣: 37
- 帖子: 18
- 在線: 52.9小時(shí)
- 蟲號(hào): 1033449
- 注冊(cè): 2010-06-01
- 專業(yè): 理論和計(jì)算化學(xué)
★ ★ ★ ★
小木蟲(金幣+0.5):給個(gè)紅包，謝謝回帖交流
余澤成(金幣+3):謝謝參與應(yīng)助！ 2010-12-06 15:18:15
小木蟲(金幣+0.5):給個(gè)紅包，謝謝回帖交流
余澤成(金幣+3):謝謝參與應(yīng)助！ 2010-12-06 15:18:15
|
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 ] |
3樓2010-12-02 09:37:27
maomao1210
金蟲 (正式寫手)
- 程序強(qiáng)帖: 5
- 應(yīng)助: 2 (幼兒園)
- 金幣: 1432.8
- 散金: 242
- 紅花: 16
- 沙發(fā): 1
- 帖子: 991
- 在線: 442.1小時(shí)
- 蟲號(hào): 253215
- 注冊(cè): 2006-05-20
- 性別: MM
- 專業(yè): 考古理論
4樓2010-12-02 10:05:39
| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 080200專業(yè)277分，求帶走！ +3 | 瓶子PZ 2026-03-31 | 3/150 |
|
|---|---|---|---|---|
|
|
[考研] 294分080500材料科學(xué)與工程求調(diào)劑 +10 | 柳溪邊 2026-03-26 | 11/550 |
|
|
[考研] 環(huán)境工程 085701，267求調(diào)劑 +13 | minht 2026-03-29 | 13/650 |
|
|
|
[考研] 材料與化工（0856）304求B區(qū)調(diào)劑 +6 | 邱gl 2026-03-30 | 11/550 |
|
|
|
[考研] 311求調(diào)劑 +9 | 藍(lán)月亮亮 2026-03-30 | 9/450 |
|
|
|
[考研] 334分 一志愿武理-080500 材料求調(diào)劑 +9 | 李李不服輸 2026-03-25 | 9/450 |
|
|
|
[考研] 考研材料工程351分調(diào)劑 +3 | 整個(gè)好的 2026-03-31 | 3/150 |
|
|
|
[基金申請(qǐng)] 面上5B能上會(huì)嗎？ +8 | redcom 2026-03-29 | 8/400 |
|
|
|
[考研] 289求調(diào)劑 +3 | Acesczlo 2026-03-29 | 4/200 |
|
|
|
[考研] 一志愿哈爾濱工業(yè)大學(xué)材料與化工方向336分 +13 | 辰沐5211314 2026-03-26 | 13/650 |
|
|
|
[考研] 一志愿南開大學(xué)0710生物學(xué)359求調(diào)劑 +5 | 兔兔兔111223314 2026-03-29 | 7/350 |
|
|
|
[考研] 342求調(diào)劑 +4 | 加油a李zs 2026-03-26 | 4/200 |
|
|
|
[考研] 329求調(diào)劑 +8 | 星野? 2026-03-26 | 8/400 |
|
|
|
[考研] 0703化學(xué)/290求調(diào)劑/本科經(jīng)歷豐富/工科也可 +13 | 丹青奶蓋 2026-03-26 | 15/750 |
|
|
|
[考研] 一志愿中南大學(xué)化學(xué)0703總分337求調(diào)劑 +6 | niko- 2026-03-27 | 6/300 |
|
|
|
[考研] 求調(diào)劑 +4 | QiMing7 2026-03-25 | 5/250 |
|
|
|
[考研] 394求調(diào)劑 +3 | 好事多磨靜候佳?/a> 2026-03-26 | 5/250 |
|
|
|
[考研] 0856，材料與化工321分求調(diào)劑 +12 | 大饞小子 2026-03-27 | 13/650 |
|
|
|
[考研] 330一志愿中國(guó)海洋大學(xué) 化學(xué)工程 085602 有讀博意愿 求調(diào)劑 +3 | wywy.. 2026-03-27 | 4/200 |
|
|
|
[考研] 化學(xué)調(diào)劑 +4 | 愛吃番茄的旭 2026-03-24 | 5/250 |
|