討論串[問題] 依照迴圈變數讀取陣列
共 4 篇文章
首頁
上一頁
1
下一頁
尾頁

推噓0(0推 0噓 0→)留言0則,0人參與, 最新作者JiGo (ㄐㄍ)時間11年前 (2013/12/26 14:55), 編輯資訊
1
0
0
內容預覽:
目前有一筆11x11的資料(二維陣列?). 每一個橫行的資料我都會分別做計算所以使用一維陣列去讀值. 但是我要的資料只有矩陣的一半,對角線是右上到左下. 如下:. 1 1 1 1 1 1 1 1 1 1 1. 1 1 1 1 1 1 1 1 1 1 0. 1 1 1 1 1 1 1 1 1 0 0.
(還有1711個字)

推噓0(0推 0噓 0→)留言0則,0人參與, 最新作者snowanimal (動物先生)時間11年前 (2013/12/26 22:57), 編輯資訊
1
0
0
內容預覽:
1的部分是我要讀的值,並做一點計算. 如果我沒搞錯問題,那麼方法該跟下面的方式差不多。. 先聲明一點,因為太久沒用fortran,所以我無法保證語法的正確性。. do x=LYR,1,-1 (迴圈11次). array(x)=0.0. read (,)array(x). enddo. 迴圈的變數可以

推噓0(0推 0噓 0→)留言0則,0人參與, 最新作者JiGo (ㄐㄍ)時間11年前 (2013/12/27 11:43), 編輯資訊
1
0
0
內容預覽:
應該這樣說. 我是用下面的方式去讀值. 101 READ(Rline,FMT3)U_B,U_A. 102 READ(Rline,FMT4)U_1,U_2,U_3,U_4,U_5,U_6,U_7,U_8,U_9. FMT3和FMT4會隨迴圈數變化. 先讀最外面的兩個值. 再讀中間的其他值. 但是在第二
(還有62個字)

推噓1(1推 0噓 0→)留言1則,0人參與, 最新作者wenni時間11年前 (2013/12/28 12:57), 編輯資訊
0
0
0
內容預覽:
我在想. 如果你本來就是一個11x11的input data. 你可以直接開個11x11的array. 直接用簡單的迴圈把值都塞滿. 以90/95的語法接下來你就可以直接簡單給值了. REAL*8 array(11,11). OPEN(UNIT=11,FILE'xxx.txt'). DO J = 1
(還有521個字)
首頁
上一頁
1
下一頁
尾頁