SOGO論壇
  登入   註冊   找回密碼
查看: 980|回覆: 0
列印 上一主題 下一主題

[問題求助] 求助~請問fortran要如何將原來矩陣內插成新矩陣 [複製連結]

狀態︰ 離線
跳轉到指定樓層
1
發表於 2014-3-7 08:34:27 |只看該作者 |倒序瀏覽
請教各位大大,小的現在遇到的問題是我要在一個[60*120]的A矩陣中對兩點進行線性內插,內插點數的方式是在A(1,j)和A(1,j+1)中間內插出8個點存到另一B矩陣,B矩陣大小為[60*1200]
以下是我現在的寫法:
DO i=1,60                           
   DO j=1,120                       
        DO k=1,1200,10                        
           xxx=(base2(i,j)-base2(1,j+1))/9     
           baseall(i,k)=base2(i,j)
           baseall(i,k+1)=base2(i,j) + xxx
           baseall(i,k+2)=base2(i,j) + (2* xxx)
           baseall(i,k+3)=base2(i,j) + (3* xxx)
           baseall(i,k+4)=base2(i,j) + (4* xxx)
           baseall(i,k+5)=base2(i,j) + (5* xxx)
           baseall(i,k+6)=base2(i,j) + (6* xxx)
           baseall(i,k+7)=base2(i,j) + (7* xxx)
           baseall(i,k+8)=base2(i,j) + (8* xxx)
           baseall(i,k+9)=base2(i,j+1)
        END DO
   END DO
END DO

小的的寫法造成一直重複地計算錯誤答案,還請各位大大堤點小的要如何善用不同語法將式子改寫,麻煩各位大大提點!!謝謝各位大大!!
喜歡嗎?分享這篇文章給親朋好友︰
               感謝作者     

請注意︰利用多帳號發表自問自答的業配文置入性行銷廣告者,將直接禁訪或刪除帳號及全部文章!
您需要登錄後才可以回覆 登入 | 註冊


本論壇為非營利自由討論平台,所有個人言論不代表本站立場。文章內容如有涉及侵權,請通知管理人員,將立即刪除相關文章資料。侵權申訴或移除要求:abuse@oursogo.com

GMT+8, 2024-11-28 18:21

© 2004-2024 SOGO論壇 OURSOGO.COM
回頂部