| 查看: 4301 | 回復(fù): 12 | ||||
[求助]
關(guān)于隨機雙色球的一個程序 已有1人參與
|
|
首先,先說說我的思路。 1.紅球從1-33中選6個數(shù),先亂序隨機抽出一個數(shù),然后剔除后如此往復(fù),直到獲得6個數(shù)。得到數(shù)字必須滿足的條件是 相鄰2個球之差必須有2或者1,但是又不能多于3個。 2.同上1-16中獲得一個亂序隨機數(shù)。 看到很多用ceil(rand*n)函數(shù)的,感覺和真實過程相差很多,而且產(chǎn)生的偽隨機數(shù)第一次運行結(jié)果必相同。 我的問題是運行過程中出席那混亂,有時候會得到同號。 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('藍(lán)球') disp(Blue_ball) |
文獻(xiàn) |
|
|
銀蟲 (小有名氣)
|
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('藍(lán)球') disp(Blue_ball) |

銅蟲 (小有名氣)

木蟲 (正式寫手)
銀蟲 (小有名氣)

| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 332求調(diào)劑 +10 | 032500 2026-03-25 | 10/500 |
|
|---|---|---|---|---|
|
[考研] 南京大學(xué)化學(xué)調(diào)劑 +10 | 景隨風(fēng) 2026-03-29 | 15/750 |
|
|
[考研] 材料專碩調(diào)劑 +8 | 椰椰。 2026-03-29 | 8/400 |
|
|
[考研] 290求調(diào)劑 +3 | dfffsar 2026-03-29 | 3/150 |
|
|
[考研] 22408 359分調(diào)劑 +4 | Qshers 2026-03-27 | 6/300 |
|
|
[考研] 085600,專業(yè)課化工原理,321分求調(diào)劑 +5 | 大饞小子 2026-03-28 | 5/250 |
|
|
[考研] 329求調(diào)劑 +7 | 星野? 2026-03-26 | 7/350 |
|
|
[考研] 071000生物學(xué)求調(diào)劑,初試成績343 +7 | 小小甜面團 2026-03-25 | 7/350 |
|
|
[考研] 一志愿華北電力大學(xué)能動專碩,293,求調(diào)劑 +3 | 15537177284 2026-03-23 | 5/250 |
|
|
[考研] 材料與化工(0856)304求B區(qū)調(diào)劑 +8 | 邱gl 2026-03-27 | 8/400 |
|
|
[考研] 291求調(diào)劑 +6 | HanBeiNingZC 2026-03-24 | 6/300 |
|
|
[考研] 331環(huán)境科學(xué)與工程求調(diào)劑 +3 | 熠然好運氣 2026-03-27 | 3/150 |
|
|
[考研] 295求調(diào)劑 +5 | 1428151015 2026-03-27 | 6/300 |
|
|
[考研] 085701環(huán)境工程求調(diào)劑 +9 | 多久上課 2026-03-27 | 9/450 |
|
|
[考研] 296求調(diào)劑 +4 | 汪?! 2026-03-25 | 7/350 |
|
|
[考研] 086003食品工程求調(diào)劑 +6 | 淼淼111 2026-03-24 | 6/300 |
|
|
[考研] 一志愿武理085500機械專業(yè)總分300求調(diào)劑 +3 | an10101 2026-03-24 | 7/350 |
|
|
[考研] 一志愿北化315 求調(diào)劑 +3 | akrrain 2026-03-24 | 3/150 |
|
|
[考研] 求調(diào)劑 +6 | 研研,接電話 2026-03-24 | 7/350 |
|
|
[考研] 328求調(diào)劑 +4 | LHHL66 2026-03-23 | 4/200 |
|