24小时热门版块排行榜

返回列表

18772958660

新虫 (初入文坛)

应助: 0 (幼儿园)
金币: 5
帖子: 2
在线: 1.2小时
虫号: 5180430
注册: 2016-10-30
专业: 计算机网络

[求助] 随机数问题

怎样修改下面的代码，从k(i)数组中1000个不为0的元素随机选择900个置0？
!按90%随机去点
do m = 1, 900
      call random_number(r1(m))
      i = r1(m)*1000+1
      k(i) = 0
do j=1,1000
         if(a(i,j) /= 0 .and. i /= j)then
            a(i,j) = 0
            a(j,i) = 0
            k(j) = k(j) - 1
         end if
      end do
end do

1.png

2.png

回复此楼

» 猜你喜欢

1楼 2016-10-30 13:23:41

已阅回复此楼关注TA 给TA发消息送TA红花 TA的回帖

相关版块跳转我要订阅楼主 18772958660 的主题更新

返回列表