作者wura (.......)
看板Fortran
标题[问题] 找出最大的三个数值
时间Tue Jun 3 18:53:30 2014
请问要怎麽找出每月最大的三个数值呢？
我目前只能用maxval找出每月最大值，无法找出最大的三个数值。
有人可以告诉我该怎麽写程式吗？感激不尽！
counts=1
do j=1,12*yr
do i=1,7
data2(i,j)=maxval(data1(i,counts:counts+month2(j)-1))
write (80,*) data2(i,j)
enddo
counts=counts+month2(j)
enddo
以上是我找出每月最大值的程式。
但不知道怎麽改写成每月最大的三个数值。谢谢。
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 131.111.184.21
※ 文章网址: http://webptt.com/cn.aspx?n=bbs/Fortran/M.1401792812.A.B35.html
※ 编辑: wura (131.111.184.21), 06/03/2014 18:56:18
1F：→ wura:有人可以帮帮我吗？感激不尽啊！！！ 06/04 07:00
2F：→ rex0707:如果都是正值 可以先找出最大值的位置 取值之後将该位置的 06/04 12:27
3F：→ rex0707:值设为零 重复做三次就可以得到最大的三个值 06/04 12:28
4F：→ MHG:楼上是一种解法...笨一点也可以每个月都抽出来作sorting...XD 06/04 20:21
5F：→ wura:谢谢各位的帮忙，我已设置为零，并成功找出三个最大值了 06/04 22:05