| 查看: 397 | 回复: 0 | ||
[求助]
随机数问题
|
|
怎样修改下面的代码，从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 |
回复此楼» 猜你喜欢
08工科275分求调剂
已经有13人回复
-
材料工程322分
已经有6人回复
-
一志愿北京科技大学085601材料工程英一数二初试总分335求调剂
已经有7人回复
-
274求调剂
已经有5人回复
-
【求调剂】新能源材料本科，一志愿211，初试321
已经有3人回复
-
材料考研调剂
已经有3人回复
-
材料调剂
已经有12人回复
-
英一数一408，总分284，二战真诚求调剂
已经有14人回复
-
085410 一志愿211 22408分数359求调剂
已经有4人回复
-
271求调剂
已经有19人回复
