24小时热门版块排行榜    

北京石油化工学院2026年研究生招生接收调剂公告
查看: 1862  |  回复: 14
当前主题已经存档。

yy5393

金虫 (小有名气)

[交流] 【求助】如何生成没有重复的随机数

我想在1-2500之间生成200个没有重复的随机数,我编了好长时间都不对,哪位虫友知道指点一下或者有类似的程序分享一下,真是不胜感激啊!
回复此楼

» 猜你喜欢

伟大都是熬出来的!
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

woshilsh

荣誉版主 (职业作家)

优秀版主


sunxiao(金币+1,VIP+0):不要不行,呵呵 4-2 23:21
不要BB,呵呵,兄弟在Fortran下生成随机数?

想不重复,你可以找出重复的,剔除,然后把不重复的加进去,咋样?

方法笨了点,但有效哇!
[center][url=http://www.91cool.net/][img]http://id.91cool.net/sign/?name=小木虫印&say=各位版主辛苦了![/img][/url][/center]
2楼2009-04-02 22:17:00
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

windhair

铜虫 (小有名气)

★ ★ ★ ★
sunxiao(金币+3,VIP+0):谢谢参与交流,欢迎常来仿真编程版 4-2 23:21
yy5393(金币+1,VIP+0):谢谢 4-3 16:07
要生成不同随机数,就要改变seed, 而要seed 不同,最简单的方法就是用系统时间做seed
F90 里有现在生成seed的函数吧,查查
3楼2009-04-02 22:36:57
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

lynarcissusly

金虫 (正式写手)


yy5393(金币+1,VIP+0):我试试 4-3 16:07
程序里不是有自带的随机数产生器吗?ran(iseed). iseed是整数,这样产生的随机数是0-1之间的,你自己把它乘以2500就可以了。
4楼2009-04-03 14:10:13
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

fspdlh

金虫 (正式写手)

★ ★
sunxiao(金币+2,VIP+0):谢谢参与,欢迎常来仿真编程版 4-13 22:23
这是我想到的方法,以100个中取10个为例,用MATLAB搞的
>> a=rand(1,11)'

a =

    0.6813
    0.3795
    0.8318
    0.5028
    0.7095
    0.4289
    0.3046
    0.1897
    0.1934
    0.6822
    0.3028

>> a=cumsum(a)

a =

    0.6813
    1.0608
    1.8926
    2.3954
    3.1048
    3.5337
    3.8383
    4.0280
    4.2214
    4.9037
    5.2064

>> a=a.*100./a(end)

a =

   13.0853
   20.3740
   36.3504
   46.0079
   59.6348
   67.8726
   73.7234
   77.3660
   81.0813
   94.1848
  100.0000

>> a=round(a)

a =

    13
    20
    36
    46
    60
    68
    74
    77
    81
    94
   100

>> a=a(1:end-1)

a =

    13
    20
    36
    46
    60
    68
    74
    77
    81
    94

>>
5楼2009-04-12 23:23:02
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

fspdlh

金虫 (正式写手)

★ ★
sunxiao(金币+2,VIP+0):谢谢参与,欢迎常来仿真编程版 4-13 22:24
还可以在生成随机数后每个值都加上一个常数,来保证间隔,比如说间隔不小于6,不过这地方要算一下,我想应该是能做到的,就是说在第一步生成随机数后加上一步
>> a=rand(1,11)'

a =

    0.5298
    0.6405
    0.2091
    0.3798
    0.7833
    0.6808
    0.4611
    0.5678
    0.7942
    0.0592
    0.6029

>> a(2:end-1)=a(2:end-1)+0.2
a =

    0.5298
    0.8405
    0.4091
    0.5798
    0.9833
    0.8808
    0.6611
    0.7678
    0.9942
    0.2592
    0.6029
这个加上的值怎么调还要算一下,我忽然想到的,不知对不对

[ Last edited by fspdlh on 2009-4-13 at 00:16 ]
6楼2009-04-12 23:30:51
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

fspdlh

金虫 (正式写手)


sunxiao(金币+1,VIP+0):谢谢参与,欢迎常来仿真编程版 4-13 22:24
我算了一下,如果1到M之间插入n个数,间隔不小于d,那么另外加的这个数可以按下式计算:
t=d*(n+1)/(2*(M-d*n+d))
因为
t*M/(sum(a)+t*n-t)=d
其中sum(a)为各随机数的总和,约等于0.5*(n+1),从这里也可看出,插入的数据越多该计算式越准确。
不知对不对,请高手指正!

[ Last edited by fspdlh on 2009-4-13 at 00:25 ]
7楼2009-04-13 00:04:06
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

fspdlh

金虫 (正式写手)

★ ★
sunxiao(金币+2,VIP+0):谢谢参与,欢迎常来仿真编程版 4-13 22:25
这是从0到100之间生成10个间隔大于5的随机数
>>  M=100

M =

   100

>> n=10

n =

    10

>> d=5

d =

     5

>> t=d*(n+1)/(2*(M-d*n+d))

t =

    0.5000

>> a=rand(1,11)'

a =

    0.9501
    0.2311
    0.6068
    0.4860
    0.8913
    0.7621
    0.4565
    0.0185
    0.8214
    0.4447
    0.6154

>> a(2:end-1)=a(2:end-1)+0.5

a =

    0.9501
    0.7311
    1.1068
    0.9860
    1.3913
    1.2621
    0.9565
    0.5185
    1.3214
    0.9447
    0.6154

>>  a=cumsum(a)

a =

    0.9501
    1.6813
    2.7881
    3.7741
    5.1654
    6.4275
    7.3840
    7.9025
    9.2239
   10.1686
   10.7840

>>  a=a.*100./a(end)

a =

    8.8105
   15.5904
   25.8541
   34.9971
   47.8987
   59.6021
   68.4714
   73.2795
   85.5329
   94.2931
  100.0000

>> a=round(a)

a =

     9
    16
    26
    35
    48
    60
    68
    73
    86
    94
   100

>> a=a(1:end-1)

a =

     9
    16
    26
    35
    48
    60
    68
    73
    86
    94

>>

[ Last edited by fspdlh on 2009-4-24 at 09:20 ]
8楼2009-04-13 00:23:09
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

fspdlh

金虫 (正式写手)

sunxiao(金币+0,VIP+0):迟来的金币,呵呵 4-13 22:25
顶一下,呵呵
9楼2009-04-13 17:36:11
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

duyingchun

银虫 (小有名气)


小木虫(金币+0.5):给个红包,谢谢回帖交流
#include
#include

char RandomData[2500];
int   ActureData[200];

void InitData()
{
memset(RandomData,0,2500);
}

void CreatData()
{
int Num=0;
int Data;
while(Num<200)
     {
      Data=random(2500);
      if(RandomData[Data])   continue;
      RandomData[Data]=1;
      ActureData[Num++]=Data;
     }
}

void main()
{
randomize();
InitData();
CreateData();
}

200个随机数字存在ActureData数组里,没有排过序,如果需要排序的话,修改下CreateData函数如下:
void CreateData()
{
int Num=0,index=0;
int Data;
while(Num<200)
     {
      Data=random(2500);
      if(RandomData[Data])   continue;
      RandomData[Data]=1;
      Num++;
     }

Num=0;

while(index<200)
     {
      if(RandomData[Num])  ActureData[index++]=Num;
      Num++;
     }
}

[ Last edited by duyingchun on 2009-6-1 at 14:14 ]
10楼2009-06-01 14:03:48
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 yy5393 的主题更新
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[考研] 求调剂一志愿武汉理工大学材料工程(085601) +7 WW.' 2026-03-23 9/450 2026-03-29 12:42 by fmesaito
[考研] 343求调剂 +6 爱羁绊 2026-03-29 6/300 2026-03-29 12:00 by 无际的草原
[考研] 348求调剂 +5 小懒虫不懒了 2026-03-28 5/250 2026-03-29 10:34 by 唐沐儿
[考研] 085600 材料与化工 329分求调剂 +11 Mr. Z 2026-03-25 11/550 2026-03-29 08:14 by 无际的草原
[考研] 一志愿哈尔滨工业大学材料与化工方向336分 +9 辰沐5211314 2026-03-26 9/450 2026-03-29 01:12 by 我是小康
[考研] 295求调剂 +4 wei-5 2026-03-26 4/200 2026-03-28 23:20 by 小木虫tim
[考研] 315求调剂 +4 akie... 2026-03-28 5/250 2026-03-28 21:05 by zhq0425
[考研] 295材料工程专硕求调剂 +7 1428151015 2026-03-27 7/350 2026-03-28 19:58 by S240
[考研] 食品工程专硕一志愿中海洋309求调剂 +4 小张zxy张 2026-03-26 8/400 2026-03-28 19:25 by lbsjt
[考研] 283求调剂 +3 A child 2026-03-28 3/150 2026-03-28 15:41 by ms629
[考研] 085701环境工程,267求调剂 +16 minht 2026-03-26 16/800 2026-03-28 12:16 by zllcz
[考研] 一志愿南京航空航天大学材料学硕求调剂 +3 @taotao 2026-03-28 3/150 2026-03-28 10:26 by JourneyLucky
[考研] 材料与化工考研调剂 +17 孅華 2026-03-22 17/850 2026-03-28 08:35 by WYUMater
[考研] 0703化学求调剂,各位老师看看我!!! +5 祁祺祺 2026-03-25 5/250 2026-03-27 21:44 by 东方猪猪
[考研] 272求调剂 +7 脚滑的守法公民 2026-03-27 7/350 2026-03-27 17:23 by laoshidan
[考研] 安徽大学专硕生物与医药专业(086000)324分,英语已过四六级,六级521,求调剂 +4 美味可乐鸡翅 2026-03-26 4/200 2026-03-27 15:27 by 星空星月
[考研] 286求调剂 +4 lim0922 2026-03-26 4/200 2026-03-27 10:28 by guoweigw
[考研] 07化学303求调剂 +5 睿08 2026-03-25 5/250 2026-03-25 22:46 by 418490947
[考研] 材料调剂 +3 iwinso 2026-03-23 3/150 2026-03-25 11:29 by greychen00
[考研] 一志愿吉大化学322求调剂 +4 17501029541 2026-03-23 6/300 2026-03-24 10:21 by 戴围脖的小蚊子
信息提示
请填处理意见