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

回复此楼

» 猜你喜欢

计算机、0854电子信息（085401-058412）调剂已经有4人回复
基金申报已经有3人回复
国自然申请面上模板最新2026版出了吗？已经有9人回复
溴的反应液脱色已经有6人回复
纳米粒子粒径的测量已经有7人回复
常年博士招收(双一流，工科) 已经有4人回复
推荐一本书已经有10人回复
参与限项已经有5人回复
有没有人能给点建议已经有5人回复
假如你的研究生提出不合理要求已经有12人回复

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

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

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

返回列表