[问题] 请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