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

銅蟲 (小有名氣)

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

| 最具人氣熱帖推薦 [查看全部] | 作者 | 回/看 | 最后發(fā)表 | |
|---|---|---|---|---|
|
[考研] 085700資源與環(huán)境308求調劑 +7 | 墨墨漠 2026-03-18 | 7/350 |
|
|---|---|---|---|---|
|
[考研] 279分求調劑 一志愿211 +3 | chaojifeixia 2026-03-19 | 3/150 |
|
|
[論文投稿]
申請回稿延期一個月,編輯同意了。但系統(tǒng)上的時間沒變,給編輯又寫郵件了,沒回復
10+3
|
wangf9518 2026-03-17 | 4/200 |
|
|
[考研] 能源材料化學課題組招收碩士研究生8-10名 +4 | 脫穎而出 2026-03-16 | 12/600 |
|
|
[考研]
|
.6lL 2026-03-18 | 6/300 |
|
|
[考研] 266求調劑 +5 | 陽陽哇塞 2026-03-14 | 10/500 |
|
|
[考研] 一志愿西安交通大學材料工程專業(yè) 282分求調劑 +5 | 楓橋ZL 2026-03-18 | 7/350 |
|
|
[考研] 085600材料與化工調劑 324分 +10 | llllkkkhh 2026-03-18 | 12/600 |
|
|
[考研] 化學求調劑 +3 | 臨澤境llllll 2026-03-17 | 4/200 |
|
|
[考研] 一志愿985,本科211,0817化學工程與技術319求調劑 +10 | Liwangman 2026-03-15 | 10/500 |
|
|
[考研] 本科鄭州大學物理學院,一志愿華科070200學碩,346求調劑 +4 | 我不是一根蔥 2026-03-18 | 4/200 |
|
|
[考研] 330求調劑 +3 | 小材化本科 2026-03-18 | 3/150 |
|
|
[考研] 301求調劑 +4 | A_JiXing 2026-03-16 | 4/200 |
|
|
[考研] 材料專碩326求調劑 +6 | 墨煜姒莘 2026-03-15 | 7/350 |
|
|
[考研] 一志愿蘇州大學材料工程(085601)專碩有科研經歷三項國獎兩個實用型專利一項省級立項 +6 | 大火山小火山 2026-03-16 | 8/400 |
|
|
[考研] 275求調劑 +4 | 太陽花天天開心 2026-03-16 | 4/200 |
|
|
[考研] 318求調劑 +3 | Yanyali 2026-03-15 | 3/150 |
|
|
[考研] 070305求調劑 +3 | mlpqaz03 2026-03-14 | 4/200 |
|
|
[考研] 中科大材料與化工319求調劑 +3 | 孟鑫材料 2026-03-14 | 3/150 |
|
|
[考研] 070303一志愿西北大學學碩310找調劑 +3 | d如愿上岸 2026-03-13 | 3/150 |
|