[問題] 請FORTRAN高手幫幫忙?

作者: alan93702 (alan93702)   2013-05-23 23:50:27
想請教如果假設我現在有個矩陣K(10)內值是{0,11,0,15,0,0,30,0,100,0},那我希望取15
減11,加100減30的值,而每次讀這K(10)內的值都不一定,簡單說就是想取中間都為0兩數
之間的差距總和,但算過的值不在重複算,矩陣內值必定有偶數個不為零的數,且兩兩一
對,這樣要怎麼寫呢?
還有另一個問題,我把我的矩陣寫成可調矩陣K(n),讓程式碼可以應用在不同比數的資料
上,但我有沒有辦法在讀檔時,讀到沒值時自己停,現在我得自己先輸入資料比數讓他讀,
但我希望我不用自己輸入資料比數,他迴圈讀檔時自己知道資料比數是多少自己停要怎麼
做呢?
新手發問,有什麼犯錯可以教導一下。謝謝
作者: george1224 ( )   2013-05-24 01:43:00
1.我想到的方法是去除0的數值剩下的再兩兩相減後做加總
作者: alan93702 (alan93702)   2013-05-24 09:20:00
恩我試過把它非零寫到檔案,在計算在讀出來算。
作者: charlesdc (MoOn)   2013-05-24 09:21:00
1.是邏輯跟數學自己解 2.加入.not.eof(file number)判斷
作者: alan93702 (alan93702)   2013-05-24 09:22:00
但每次比數不同,使我回圈讀取到矩陣不知要讀幾次可以問一下.not.eof(file number)試什麼意思嗎?或者書上哪裡找的,新手問題有點多抱歉,謝謝你。
作者: charlesdc (MoOn)   2013-05-24 14:18:00
http://www.tek-tips.com/viewthread.cfm?qid=1371995data進記憶體之後寫個function做一次抓兩個非0整數回傳相減值你在主程式做個迴圈call他加總就好了
作者: fcuiii   2013-05-24 17:26:00
讀到沒值,在OPEN那裏用end=數字,就好了

Links booklink

Contact Us: admin [ a t ] ucptt.com