Fortran 板


LINE

不好意思又打擾了... 現在是這樣的我有一組數據示意如下 參考原子編號: 與此原子相對應的其他原子編號 1: 2 5 8 2: 5 9 13 15 16 18 ... 以此類推 我試著想要把他寫入一個矩陣中 (e.g 同一列中第一行紀錄參考原子編號,其他行紀錄對應原子編號 但問題是我沒辦法得知這個未知的矩陣大小.... 我試過但似乎allocatable的矩陣無法滿足這樣的狀況 (或是可能我操作上有問題... 不知道有沒有什麼方法可以做這樣的事情 或是定義一個絕對超過所需大小的的矩陣 把不足的地方補"0"之類的? ※目前進度有點笨Orz 不過好像有一線曙光這樣... 小弟不才寫了很醜八怪的程式碼= = 決定再產生數據的時候每過一個迴圈讓counter+1 看了之前產生的參差不齊數據最多不超過 25 個 於是我設一個邏輯迴圈當 if (counter<25) do i=1,(25-counter) write(*,*)0 end do end if 於是我整個程式碼醜到爆炸充滿迴圈....... 感謝各位前輩們 好多新手問題SOR... --



※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 165.123.137.235
1F:→ gilocustom:你最後提出來的構想是可行的,實際做法就同你字面所述, 03/01 22:53
2F:→ gilocustom:前提是記憶體足夠。 03/01 22:54
3F:→ pttlyt:!!好的我研究看看怎麼做! 03/01 22:57
4F:→ gilocustom:也可以考慮用type自訂結構符合需求的變數。 03/01 23:02
5F:→ pttlyt:阿...我看彭那本書還是沒有很懂type 能示範一下簡單例子嗎 03/01 23:28
6F:→ pttlyt:QAQ 03/01 23:28
7F:→ gilocustom:書裡面應該有附範例吧?若看不懂不妨提出來討論。 03/01 23:55
書裡的範例是這樣的 (第四章ex0434.F90) type :: person character(len=30) :: name !人名 integer :: age !年齡 (其餘身高體重地址都還是integer & char- 就不多打了) end type person type(person) :: a !聲明一個person類型變量 這樣的結果讓使用者可以輸入這些量 (同理推測可以藉由讀取檔案得到這些量 紀錄就透過 read(*,*)a%name 我之前處理別的狀況下(要同時儲存integer 與 real的兩種類型的值也曾嘗試過 這樣子的情況下我不理解的是 這樣儲存下來的資料長什麼樣子@@ 可以像我現在這邊問題中存成一個矩陣嗎? (這樣問題聽起來是不是很蠢QQ 可是真的很沒有sense 感謝! ※ 編輯: pttlyt 來自: 165.123.137.235 (03/02 00:07) ※ 編輯: pttlyt 來自: 165.123.137.235 (03/02 00:42)
8F:→ gilocustom:以範例來說,只要將自訂型態person的內容設為可配置陣 03/02 00:54
9F:→ gilocustom:列/指標陣列,再將變數a宣告為person型態的可配置陣列 03/02 00:55
10F:→ gilocustom:/指標陣列,就可以廣義地在同個變數下分別配置不同維 03/02 00:55
11F:→ gilocustom:度。 03/02 00:55
12F:→ gilocustom:建議先採用比較單純的做法(配置足夠大的陣列), 03/02 01:03
13F:→ gilocustom:確定可行但仍有記憶體不夠用之虞再考慮其他做法。 03/02 01:03
感謝G大指教QQQ 我用最笨的方法寫出來了 編了註解不過真的很醜超多迴圈... 不過至少是統一了數據格式與數量... code: http://imgur.com/AsMhoNB,QkCh7KS#0 部分結果: http://imgur.com/AsMhoNB,QkCh7KS#1 如果有什麼比較好的想法再麻煩指教! 感謝!!!! ※ 編輯: pttlyt 來自: 165.123.137.235 (03/02 01:19)







like.gif 您可能會有興趣的文章
icon.png[問題/行為] 貓晚上進房間會不會有憋尿問題
icon.pngRe: [閒聊] 選了錯誤的女孩成為魔法少女 XDDDDDDDDDD
icon.png[正妹] 瑞典 一張
icon.png[心得] EMS高領長版毛衣.墨小樓MC1002
icon.png[分享] 丹龍隔熱紙GE55+33+22
icon.png[問題] 清洗洗衣機
icon.png[尋物] 窗台下的空間
icon.png[閒聊] 双極の女神1 木魔爵
icon.png[售車] 新竹 1997 march 1297cc 白色 四門
icon.png[討論] 能從照片感受到攝影者心情嗎
icon.png[狂賀] 賀賀賀賀 賀!島村卯月!總選舉NO.1
icon.png[難過] 羨慕白皮膚的女生
icon.png閱讀文章
icon.png[黑特]
icon.png[問題] SBK S1安裝於安全帽位置
icon.png[分享] 舊woo100絕版開箱!!
icon.pngRe: [無言] 關於小包衛生紙
icon.png[開箱] E5-2683V3 RX480Strix 快睿C1 簡單測試
icon.png[心得] 蒼の海賊龍 地獄 執行者16PT
icon.png[售車] 1999年Virage iO 1.8EXi
icon.png[心得] 挑戰33 LV10 獅子座pt solo
icon.png[閒聊] 手把手教你不被桶之新手主購教學
icon.png[分享] Civic Type R 量產版官方照無預警流出
icon.png[售車] Golf 4 2.0 銀色 自排
icon.png[出售] Graco提籃汽座(有底座)2000元誠可議
icon.png[問題] 請問補牙材質掉了還能再補嗎?(台中半年內
icon.png[問題] 44th 單曲 生寫竟然都給重複的啊啊!
icon.png[心得] 華南紅卡/icash 核卡
icon.png[問題] 拔牙矯正這樣正常嗎
icon.png[贈送] 老莫高業 初業 102年版
icon.png[情報] 三大行動支付 本季掀戰火
icon.png[寶寶] 博客來Amos水蠟筆5/1特價五折
icon.pngRe: [心得] 新鮮人一些面試分享
icon.png[心得] 蒼の海賊龍 地獄 麒麟25PT
icon.pngRe: [閒聊] (君の名は。雷慎入) 君名二創漫畫翻譯
icon.pngRe: [閒聊] OGN中場影片:失蹤人口局 (英文字幕)
icon.png[問題] 台灣大哥大4G訊號差
icon.png[出售] [全國]全新千尋侘草LED燈, 水草

請輸入看板名稱,例如:BuyTogether站內搜尋

TOP