テニス大会ダブルスの乱数表の作成をお願いしたい

Question

テニス大会開催のため、プレーヤーの組み合わせに乱数表を使うことになり、過去の質問・回答を検索しテニス乱数表の作成法を２件見つけたのですが、１件は同じプレーヤーの組み合わせ（ペア）が複数組できてしまい、もう１件は一人当たりのゲーム数が同数にならない（一定の試合数で、ある人は２ゲーム、ある人は５ゲームなどバラつきが出る）ことがわかりました。
そこで以下の条件で乱数表の作成をお願いしたいのですが。

１．１日で完了するダブルスのテニス大会
２．参加者（プレーヤー）は、１０－３０人程度
３．コートは２面を並行使用の予定なので、一人が同時に２面に入らない
４．全員が一人あたり４ゲーム行う
５．全員が４ゲームともそれぞれ別の人とペアを組む（同じペアを複数回作らない）
６．対戦相手はそれ以前のゲームと同じ人でも構わない（５．があるので同じペアとの再戦はない）

よろしくお願いします。

don9don9 · Accepted Answer

No.2です。

一応、VBAで作ってみましたけど、かなり長くなってしまいました。
ここに投稿しようとすると、5回ぐらい連投しないといけなくなりそうですので
別の方法でお伝えさせていただきます。
もしかしたら規約違反かもしれませんので、その場合はあしからず。

まず、添付画像のような表を作成してください。
シート名は「Sheet1」としてください。
以下シートの内容です。
G列に選手名を列挙する（タイトル行なし、1行目から）
H列、I列は、1～人数までの乱数を発生させるために使用
J列以降は、ペアを組んだ人の名前を順に記録するために使用
（試合がなかった人は空白）
A～F列に、抽選結果（試合の組み合わせ）を出力する

次にSheet1を右クリックして「コードの表示」でVisual Basic Editorが起動しますので
参考URLのリンク先の本文に書いてあるコードをコピー＆ペーストしてください。

ここでファイルをいったん保存して閉じ、開きなおしてください。
その時「マクロを有効にする」を選択してください。

ツール＞マクロ＞マクロで「Sheet1!抽選」というマクロを実行してください。

以上です。

参考URL：http://blog.goo.ne.jp/dondondon999/e/288d3f23e5a3e4997531051436041b8a

layy · Answer

「最大出場者だったら１日で終わらない」なら、
４試合→３試合調整、と思いましたがそうでもなければ、試合時間は問題ないです。

数字と選手名とで紐付けできていたら、
１試合目
「ＡＢ」と「ＣＤ」、データ上は「０１ＡＢＣＤ」
「Ａ」は誰、「Ｂ」は誰、「Ｃ」は誰、「Ｄ」は誰、
２試合目
「ＥＦ」と「ＧＨ」、データ上は「０２ＥＦＧＨ」
「Ｅ」は誰、「Ｆ」は誰、「Ｇ」は誰、「Ｈ」は誰、
こんな考じで管理かと思います。
組み合わせペアをランダムに出すことよりもダブりがないかチェックのが面倒です。

それか、
将来的には仕組みを作るとして、
とりあえず、
ビンゴゲームに使う乱数を出す機器、シートを使う等しても
いいと思います。

nattocurry · Answer

> 当方が乱数表に拘っているのは、ご回答のような方法ですと次の対戦者ないしはペアが誰なのか分かりやすく、時にはすぐ近くにいて、事前に打ち合わせなどができてしまう場合があり、公平性に欠けるかなと思うからです。乱数表を使えば、番号がバラけて、誰がどこにいるか把握しにくくなり、ある程度公平性が保てるかなと思った次第です。

対戦表は、事前に作っておくんですよね？
もしかして、対戦のたびに乱数を発生させて、組み合わせを決めたいのでしょうか？

もし、対戦のたびに乱数を発生させるつもりなら、最後に近づくにつれて、ペア作成不可能になる可能性もあると思いますよ。

事前に乱数で対戦表を作ったとして、それを最初に公表するのであれば、やはり「事前に打ち合わせなどができてしまう場合」があるので、対戦ごとに発表するんですよね？

なのであれば、乱数で対戦を決めなくても、ある法則にしたがって対戦を決めて、その順序を適当に入れ替えて、それを対戦ごとに発表するだけで良いと思いますけど。

layy · Answer

プログラムは作れるでしょうが時間かかります。

試合時間目安がわかりません。３２人４試合は３０分で終わると８時間です。

まずはＡ３で一目でわかる対戦計画記入シート作るのが良いと思います。

don9don9 · Answer

申し訳ないですが、乱数での処理は不可能に近いと思います。

>４．全員が一人あたり４ゲーム行う
>５．全員が４ゲームともそれぞれ別の人とペアを組む（同じペアを複数回作らない）

この部分が厄介です。

同じペアを複数回作らない、ということであれば
一度作ったペアは全てどこかに記録しておかなければなりません。
その上で、乱数を発生させてペアを決める際に
・その人のペアは過去に組んだ相手ではないか？
・その人の試合数は4試合を超えていないか？
・その人の手空き数は、(人数÷2を切り上げた値) - 4を超えていないか？
などを複雑に計算しなければなりません。

後の試合になるほどペア成立条件が厳しくなるため、一度ではうまく成立せず
条件に合うまで何度も乱数を発生させ直す、ということになるかと思います。
ヘタをすると、最初の数試合のペアの成立状況によっては
何度乱数を発生させ直してもペアができない状況になる
（手詰まりになる）可能性もあります。

あらかじめ人数分の番号を振っておいて、
ローテーション方式にした方がよろしいかと思います。

nattocurry · Answer

数珠をずらしていくイメージでどうでしょうか？

10人以上ということですが、まずは8人の場合から。

参加者が1から順にゼッケンをつけているとして、

1&8 Aコート1試合目
vs
2&7

3&6 Bコート1試合目
vs
4&5

その後は、

8&7 Aコート2試合目
vs
1&6

2&5 Bコート2試合目
vs
3&4

次は、

7&6 Aコート3試合目
vs
8&5

1&4 Bコート3試合目
vs
2&3

最後は、

6&5 Aコート4試合目
vs
7&4

8&3 Bコート4試合目
vs
1&2

こうすれば、全員が4試合ずつやって、同じ人とペアになることも無く、同じ人が同時に2面に入ることもありません。

15人なら、4で割り切れる人数だけで、組んで、

1&12 Aコート1試合目
vs
2&11

3&10 Bコート1試合目
vs
4&9

5&8 Aコート2試合目
vs
6&7

次は、余った人を先頭にして、また4で割り切れる人数。

13&9 Bコート2試合目
vs
14&8

15&7 Aコート3試合目
vs
1&6

2&5 Bコート3試合目
vs
3&4

同様に、

10&6 A4
vs
11&5

12&4 B4
vs
13&3

14&2 A5
vs
15&1

7&3 B5
vs
8&2

9&1 A6
vs
10&15

11&14 B6
vs
12&13

4&15 A7
vs
5&14

6&13 B7
vs
7&12

8&11 A8
vs
9&10

他の人数に関しては、まったく検証していませんが、同様のやり方でいけるような気がします。
ちなみに、1人5試合以上となると、このやり方ではかぶってしまいます。

テニス大会ダブルスの乱数表の作成をお願いしたい

No.2です。

「最大出場者だったら１日で終わらない」なら、

この回答への補足

プログラムは作れるでしょうが時間かかります。

この回答への補足

申し訳ないですが、乱数での処理は不可能に近いと思います。

数珠をずらしていくイメージでどうでしょうか？

この回答への補足

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング