24小时热门版块排行榜    

查看: 1968  |  回复: 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 的主题更新
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[文学芳草园] 梦想 +5 myrtle 2026-08-26 7/350 2026-09-01 15:18 by myrtle
[基金申请] 面上函评意见出来了,像什么等级? 20+4 Tsingking1 2026-08-27 15/750 2026-09-01 12:23 by icm639
[基金申请] 国社科又开始会评了,不知道这次命运如何 +7 雨打竹帘 2026-08-30 11/550 2026-08-31 23:16 by hittle2008
[基金申请] 投票:  有多少人是今天查系统知道结果的? +17 爱看书的可乐 2026-08-26 19/950 2026-08-31 21:30 by xiangy672
[基金申请] 哪位高人中了,把查询到的截图贴出来让我看看,让我长长见识 +6 yuleib84 2026-08-26 7/350 2026-08-31 19:46 by 鱼翔浅底1
[基金申请] 中青基了要发朋友圈吗? +7 349506619 2026-08-28 7/350 2026-08-31 13:39 by 冼亮淀粉酶
[基金申请] 基金不中,共勉 +12 eulota 2026-08-26 12/600 2026-08-31 08:42 by ZJTJZ
[基金申请] 为什么到现在没收到通知? +5 tannykie 2026-08-29 5/250 2026-08-30 21:05 by purplejack
[基金申请] 我就是申请一个面上项目而已,这评审意见是按照杰青的条件评的吧? +6 gouxfjh 2026-08-28 11/550 2026-08-30 07:57 by gouxfjh
[基金申请] 国自然评审意见 +13 wangmingqi 2026-08-28 19/950 2026-08-29 10:22 by Poppy1104
[基金申请] 2026年叶企孙基金 +4 bud_bud 2026-08-27 7/350 2026-08-29 07:23 by foolishmani
[基金申请] 系统查不到 +11 董八千 2026-08-26 11/550 2026-08-28 18:06 by Leogzhya
[基金申请] 基金系统什么内容也没有 30+4 winsaint 2026-08-27 9/450 2026-08-28 11:06 by maolC
[基金申请] 怎么查啊 +6 huang1991js 2026-08-26 6/300 2026-08-28 08:42 by winsaint
[基金申请] 为什么 国际(地区)合作与交流项目 没有放榜? 10+3 majunge000 2026-08-26 11/550 2026-08-27 08:42 by 北京莱茵编辑
[基金申请] 我不理解! +15 Edward_pc 2026-08-26 23/1150 2026-08-26 20:34 by zzuzxg
[基金申请] 为什么国自然不能直接公布 +4 bjdxyxy 2026-08-26 4/200 2026-08-26 13:12 by qingmu1201
[基金申请] 国际合作可查了,中了面上 (EPI+1)(金币+50) +18 Ldrop2023 2026-08-26 18/900 2026-08-26 11:15 by cmrandy
[基金申请] 系统进不去 +4 yanglien 2026-08-26 5/250 2026-08-26 11:10 by wenfengw83
[基金申请] 项目信息和经费信息在系统里都可以看到了 +6 wittyboy 2026-08-26 14/700 2026-08-26 10:55 by wittyboy
信息提示
请填处理意见