作者alan93702 (alan93702)
看板Fortran
标题[问题] 请FORTRAN高手帮帮忙?
时间Thu May 23 23:50:27 2013
想请教如果假设我现在有个矩阵K(10)内值是{0,11,0,15,0,0,30,0,100,0}，那我希望取15
减11,加100减30的值，而每次读这K(10)内的值都不一定，简单说就是想取中间都为0两数
之间的差距总和,但算过的值不在重复算，矩阵内值必定有偶数个不为零的数，且两两一
对,这样要怎麽写呢?
还有另一个问题，我把我的矩阵写成可调矩阵K(n),让程式码可以应用在不同比数的资料
上，但我有没有办法在读档时,读到没值时自己停,现在我得自己先输入资料比数让他读，
但我希望我不用自己输入资料比数，他回圈读档时自己知道资料比数是多少自己停要怎麽
做呢?
新手发问，有什麽犯错可以教导一下。谢谢
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.121.216.24
1F：推 george1224:1.我想到的方法是去除0的数值剩下的再两两相减後做加总 05/24 01:43
2F：→ alan93702:恩我试过把它非零写到档案，在计算在读出来算。 05/24 09:20
3F：→ charlesdc:1.是逻辑跟数学自己解 2.加入.not.eof(file number)判断 05/24 09:21
4F：→ alan93702:但每次比数不同，使我回圈读取到矩阵不知要读几次 05/24 09:22
5F：→ alan93702:可以问一下.not.eof(file number)试什麽意思吗? 05/24 09:33
6F：→ alan93702:或者书上哪里找的，新手问题有点多抱歉，谢谢你。 05/24 09:34
8F：→ charlesdc:data进记忆体之後写个function做一次抓两个非0整数 05/24 14:25
9F：→ charlesdc:回传相减值你在主程式做个回圈call他加总就好了 05/24 14:26
10F：→ fcuiii:读到没值，在OPEN那里用end=数字，就好了 05/24 17:26