ロト6・ミニロト、それとなく出現回数が多い方が選ばれやすい？ランダムプログラムの作り方。

ロト6でランダムプログラムで5等が当たっていたこともあり、
こちらをもっと肩入れして考えるか～なんて思いまして、

ランダムプログラムっていうのは、
いたって簡単で、エクセルVBAでいえば
Randomize
を使い、
あとは、
どの量のイント（Int(整数））の中から抽出するか、指定してやれば
すぐにできるです。

でもここでロト6ならイント43ですが、
これじゃあまりにもほんとのランダムでクイックピックと同じです。

まった当てずっぽの数字ということになります。
（宝くじとしては、その方がいいことがありますけど）

でも、過去の出現数字から出やすいのを選んだ方がいい
だからと言って、ほんとに出現回数上位を選んでも素直にくるとは思えない
（あるでしょ、データが抽出されたとしても、選択肢が多いと、
その中から、選ぶときどうしたらいいかって迷うこと）

だからまったくのランダムではなく、ある程度、過去の出現実績から選んでほしいという、
ランダムなんだけど、ちょっと肩入れして抽出してくれる？って気持ち。
（実は同僚に、このように頼まれたわけで・・・）

---

作り方です。

まず、先ほどのイントで抽せん回数の中から選ぶようにするんです。
ロト6でいえば、427回ですから、
Int＊427Rnd
でもって、何個目を選ぶかは、
指定するか、
もしくはここもランダムにします。その場合は（6個だから、イントは6で）
(この場合は全体的な出現数が高いものが選ばれやすくなるということです。）

しかし、ひとつ目に出やすいものを、ひとつ目の出現数字から選びたい！って思うときは、
やはり、指定した方がいいでしょう。
そして選ばれた抽せん回数の数字を抽出します。

でも、これでは過去の出現実績だけで選ばれたのだから、
出現回数が多くて選ばれたといえません。


そこで、もう一つ別のセルに、同じプログラムで、数字を選びます。
そして、2つのセルの数字が合致しない時は、またプログラムをやり直しなさいとしておきます。
こうすれば、
それとなく出現回数が多い方が選ばれやすい
というプログラムができます。

でも、ここで、抽せん回数を全部にしないで、ここ最近の数字にすると、
最近の数字から選ぶことも簡単にできます。

プログラムをやり直しなさいっていうプログラムは、
Do...Loop ステートメントをつかいます。
これを使用すると、ステートメント ブロックを繰り返し実行できます。
ステートメントは条件が真 (True) である間、または条件が真 (True) になるまで、繰り返し実行されます。

一気に6個選ぶときは、1個目選んだ数字と2個目が同じの選んだ場合、またプログラムをやり直しなさいとしておきます。
3個目は、1個目と2個目同じのを選んだ場合、やり直し、
4個目は、・・・
ん～ここは、面倒ですが、6個目では、1個目から～5個目と照らし合わせなければなりません。

これにさらに肩入れするプログラムにする場合は、

単なる、肩入れした抽せんテーブルを作るだけで、いいわけで、

基本はRandomizeであって、そうしなければ、ランダムでなく、
解析プログラムということであります。

あらかじめ、何が来たら、なにみたいな指定、計算式を入れておけば
できますが、
その場合は、その解析自体が重要ですね・・これはプログラムとは別な問題ですね、
でも、それの場合は、
数字は号(回）ごとに違って選ばれますが、ある一定のプログラムなので、
計算式自体を変更しない限り、プログラム通りに行うのですから、
ある一定の法則による継続買い、ということになります。
自分は、こちらを作りたいのですが、なんせ、実績ある解析データがまだみつからない！

プログラムの作り方よりも、
あたりやすい数字を抽出するという、
なんとも、都合のいい
方程式を見つけるのが
できません。

ばかだなぁ～そんなのあるわけないだろう・・・ってね。