24小时热门版块排行榜    

查看: 3401  |  回复: 12

yuyi2009

铜虫 (小有名气)

[求助] 关于随机双色球的一个程序已有1人参与

首先,先说说我的思路。
1.红球从1-33中选6个数,先乱序随机抽出一个数,然后剔除后如此往复,直到获得6个数。得到数字必须满足的条件是
相邻2个球之差必须有2或者1,但是又不能多于3个。
2.同上1-16中获得一个乱序随机数。
看到很多用ceil(rand*n)函数的,感觉和真实过程相差很多,而且产生的伪随机数第一次运行结果必相同。
我的问题是运行过程中出席那混乱,有时候会得到同号。
function Lucky_Dog
clear all
clc
k=0;
while(k<=0||k>=4)
     k=0;
     A = 1:33;
    for i = 1:6
    A=randperm(numel(A));
    Red_ball(i) = randsrc(1,1,A);
    A(find(A==Red_ball(i))) = [];
    end
  Red_ball = sort(Red_ball);
for j = 1:5
    Test = Red_ball(j+1)-Red_ball(j);
    if Test==2||Test==1
        k = k+1;
    end     
end
end
    B = 1:16;
    B=randperm(numel(B));
    Blue_ball = randsrc(1,1,B);
disp('红球')  
disp(Red_ball)
disp('蓝球')
disp(Blue_ball)
回复此楼

» 收录本帖的淘贴专辑推荐

文献

» 猜你喜欢

» 本主题相关价值贴推荐,对您同样有帮助:

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

yuyi2009

铜虫 (小有名气)

2楼2014-06-27 21:40:34
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

yuyi2009

铜虫 (小有名气)

3楼2014-06-28 12:31:41
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

yuyi2009

铜虫 (小有名气)

引用回帖:
3楼: Originally posted by yuyi2009 at 2014-06-28 12:31:41

呵呵~

[ 发自小木虫客户端 ]
4楼2014-06-29 01:03:24
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

liuxinyu1206

银虫 (小有名气)

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与,应助指数 +1
xzhdty: 金币+1, 谢谢参与 2014-07-01 07:21:30
yuyi2009: 金币+20, 有帮助, 没有解释 2014-07-02 15:21:50
clear all
clc
k=0;  A = 1:33;  m=0;
while(k<=0||k>=4)
%      k=0;
    for i = 1:6
        m=1;
        if m==0
        A=randperm(numel(A));
        else
        Red_ball(i) = randsrc(1,1,A);
         A(find(A==Red_ball(i))) = [];
        end
    end
    Red_ball = sort(Red_ball);
    for j = 1:5
        Test = Red_ball(j+1)-Red_ball(j);
        if Test==2||Test==1
            k = k+1;
        end
    end
end
B = 1:16;
B=randperm(numel(B));
Blue_ball = randsrc(1,1,B);
disp('红球')
disp(Red_ball)
disp('蓝球')
disp(Blue_ball)
上帝创造了0和1,其余都是人的工作。
5楼2014-06-30 17:28:11
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

yuyi2009

铜虫 (小有名气)

引用回帖:
5楼: Originally posted by liuxinyu1206 at 2014-06-30 17:28:11
clear all
clc
k=0;  A = 1:33;  m=0;
while(k<=0||k>=4)
%      k=0;
    for i = 1:6
        m=1;
        if m==0
        A=randperm(numel(A));
        else
        Red_ball(i) = randsrc ...

能够解释一下么~m=1,m=0有什么用啊!
6楼2014-06-30 23:02:11
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

liujiankeng

铜虫 (小有名气)

“相邻2个球之差必须有2或者1,但是又不能多于3个”是什么意思,难道想让随机产生的数字都挤到一块去啊?
不认真你就输了
7楼2014-07-01 20:42:34
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

ju5200

木虫 (正式写手)

帮顶!

[ 发自小木虫客户端 ]
8楼2014-07-02 09:09:02
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

yuyi2009

铜虫 (小有名气)

引用回帖:
7楼: Originally posted by liujiankeng at 2014-07-01 20:42:34
“相邻2个球之差必须有2或者1,但是又不能多于3个”是什么意思,难道想让随机产生的数字都挤到一块去啊?

没有啊~你看看双色球号就知道了,90%不是有连号就是有相差为2的两个数,但是这种情况最多就3个~
9楼2014-07-02 15:21:25
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

liuxinyu1206

银虫 (小有名气)

引用回帖:
6楼: Originally posted by yuyi2009 at 2014-06-30 23:02:11
能够解释一下么~m=1,m=0有什么用啊!...

区分第一次运行
上帝创造了0和1,其余都是人的工作。
10楼2014-07-04 10:29:04
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 yuyi2009 的主题更新
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[教师之家] 博士去高校就是为了有寒暑假吗? +21 wenwen0825 2024-05-16 27/1350 2024-05-21 23:05 by otani
[硕博家园] 超过35岁的海外博士还可以进高校吗? +3 905452934 2024-05-20 4/200 2024-05-21 22:49 by gaohui8888
[找工作] 浙江的高校现在门槛都这么高吗 +12 dadqweq_qw 2024-05-16 12/600 2024-05-21 22:30 by foolishmani
[考博] 大扩招 +8 version211 2024-05-21 10/500 2024-05-21 21:53 by Silencewalk
[无机/物化] 请问什么溶剂能溶解二氧化锰 (金币+5) +4 这是春天 2024-05-15 5/250 2024-05-21 18:24 by 这是春天
[基金申请] 审不上青基又非升即走的青椒 和 牢里踩缝纫机的犯人哪个活的更舒服一点? +13 非非飞远了 2024-05-20 14/700 2024-05-21 17:49 by wangting_nju
[考博] 本科出身不好是不是会被直接刷呀 +5 未来富婆蛙 2024-05-20 5/250 2024-05-21 15:52 by chemdl
[硕博家园] 耐高温垫片求购 +7 Sexyflea 2024-05-16 10/500 2024-05-21 15:35 by wangnc3
[基金申请] 基金委也是打工的 +25 wsjing 2024-05-16 34/1700 2024-05-21 08:31 by mrKiller
[教师之家] 青椒的未来在哪里? +17 sxhuabin 2024-05-15 18/900 2024-05-20 22:55 by 瞬息宇宙
[硕博家园] 海外博士,国内博后找工作求建议 +8 905452934 2024-05-16 22/1100 2024-05-20 21:42 by littlezl
[有机交流] 除DMSO +5 Spiralup 2024-05-15 6/300 2024-05-20 17:49 by 刘洪振
[考博] 【2025 申博】材料或者冶金工程 +4 枫落孤城 2024-05-19 5/250 2024-05-20 10:52 by 枫落孤城
[基金申请] 有知道工材e01情况的吗? +13 xiaopang8958 2024-05-17 19/950 2024-05-20 09:52 by 蜕变123~
[教师之家] 执念 +7 459582015 2024-05-16 8/400 2024-05-19 18:22 by Quakerbird
[论文投稿] Nano-Micro Letters投稿可以用PDF上传吗 5+4 962511369 2024-05-18 4/200 2024-05-19 15:47 by ca0yan9
[教师之家] 为何一方面国内大学教师无效内卷过劳逝世,而另一方面国家却在硬核科技上被卡脖子深重 +16 zju2000 2024-05-15 20/1000 2024-05-18 07:28 by llhljsy
[留学DIY] 求助:医生想润 +7 safrina 2024-05-15 7/350 2024-05-17 18:50 by 卡皮吧啦123
[基金申请] 面上评委可能变为7个了,是好是坏呢? +20 suiyuanwgz 2024-05-15 25/1250 2024-05-17 17:05 by 能丫
[基金申请] 粗大,科研之友提示有一篇10多年前的文章被阅读 +9 babu2015 2024-05-16 11/550 2024-05-16 14:53 by TsolmonZ
信息提示
请填处理意见