24小时热门版块排行榜

>论坛更新日志 (3705)
>导师招生 (618)
>考博 (163)
>文献求助 (162)
>虫友互识 (146)
>博后之家 (104)
>微米和纳米 (91)
>论文投稿 (50)
>硕博家园 (49)
>学术会议 (44)
>休闲灌水 (44)
>公派出国 (43)
>教师之家 (39)
>考研 (32)
>招聘信息布告栏 (21)
>基金申请 (20)

返回列表

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

回复此楼

» 猜你喜欢

售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急已经有9人回复
售SCI一区T0P文章，我:8.O.55.1.O.5.4,科目全,可+急已经有7人回复
售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急已经有12人回复
售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急已经有8人回复
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急已经有7人回复
售SCI一区文章，我:8.O.551.O.5.4,科目全,可伽急已经有8人回复
售一区SCI文章T0P，我:8O.551.O54,科目全,可十急已经有12人回复
售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急已经有14人回复
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急已经有16人回复
售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急已经有10人回复

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

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

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

返回列表