配列へ指定数字を指定割合でランダム代入

Question

vbもしくはvbaを使用してプログラミングをしています。
配列に指定の数字を指定の割合でランダムに代入したく、色々と考えております。
しかしながら、なかなか考えが出てこない状況なので、質問させていただきました。
もしわかる方がおりましたら、アドバイス頂けると幸いです。

■例えば
A（0）~A（9）という配列があった場合
0を3個（30%）、1を5個（50％）、2を2個（20％）
と、A（0）~A(9）の配列にランダムで代入。

Answer 1

最初に所定の数だけ数字を入れて，あとからシャッフルすればいいのではないでしょうか．
シャッフルの手法は
0. 0-9の整数の乱数を発生させる
0. 選ばれた数字のインデックスにある要素を末尾(最初は9の位置)と入れ替える
0. 1.と2.を繰り返す．ただし，ループ毎に1.で発生させる乱数の上限を1下げ，2.で入れ替える対象の位置の番号を1下げる(2周目は0-8の乱数を出し，8の位置と入れ替え)
これが一番早くて均一にシャッフルできます．

Comments

[qwertyuiop12345]

ありがとうございます。
参考になりました。

Answer 2

大きく分けて2パターンが考えられるのですが、どちらの実装が好ましいでしょうか。

• 「0が3つ、1が5つ、2が2つ」というのは常に共通で、順番だけシャッフルする
• 本当に確率的に入れていくので、1回ごとには個数が変動しうる

前者の場合、(0, 0, 0, 1, 1, 1, 1, 1, 2, 2)という配列を作っておいて、このようなアルゴリズムでシャッフルすれば、目的の配列を作れます。

後者の場合は、Rndの値によって返り値が変わる関数を作っておいて、それを10回呼び出すことで配列を埋める感じです。

Comments

[qwertyuiop12345]

ありがとうございました。
前者のほうがイメージにピッタリでした。

Answer 3

"シャッフル アルゴリズム" で検索してみると、いろいろヒットしました。

以下のサイトなど、分かりやすくて参考になるかも知れません。
http://ppp-lab.sakura.ne.jp/ProgrammingPlacePlus/algorithm/other/002.html

要は、以下のような配列に対して"Fisher-Yates shuffle"を適用してやれば良いのかと思います。

 {0, 0, 0, 1, 1, 1, 1, 1, 2, 2};

Comments

[qwertyuiop12345]

ありがとうございました。
参考になりました。