ちょっとシリアスにロト６を考えるスレ

予想方法をまじめに考えていきつつ当選を狙っていくスレッドです

(ルール)
予想法は何でもOK!!
ただし、
・他のURLの転載には注意を！
・著作権も考えて、安易に攻略本の方法を載せない
・業者、荒らしは禁止、原則としてスルー
・嘘は厳禁！！

(･∀･)ｼｷｰﾁ

　　　|:::::::::::::::::::::::::::::::
　　　|i＿＿∩::::::::::::::::::::::
　　　| ,,.ノ ヽ､,,ヽ::::::::::::::::::::::::::::　
　　　| ●　 ●　|::::::::::::::::::::::::::::　ここじゃない気がするクマー・・・
　　　|U(_●_)Uミ＿∩::::::::::::::::　
　　　| 　|∪|　　 ﾉ ヽ､,,ヽ::::::::::::::::::　
　　　| 　ヽノ 　 i)　 ●　|::::::::::::::::::　
　　　ミヽ＿　　/(_●_)　ミ:::::::::::::　
　　　| ヾ　　　/　|∪|　 ﾉ::::::::::::::::::::::::　スレ間違えたクマー
　　　|　　　　　　ヽノ　　　::::::::::::::::::::

はじめまして、NM4シリアススレのものです
ロトスレもついに立ったんですね
ロト6は以前やってましたが全く当たりませんでした（TT)
ちょくちょく寄ることもあると思いますがよろしくお願いいたします
NM4に生かせる攻略法がありましたら生かして生きたいと思いますので

NM4シリアススレで参考になることがありましたらどうぞ

ID:viPaW1O7でつ。スレたててくれたのね。乙です。
で？とりあえずEXCELのコードいくつかあげます？
皆で一番いいフィルターを探すなんていいかもね。

コードの使い方。
EXCELを起動して「ツール」−「マクロ」−「Visual Basic Editor」でエディタを開いて
「挿入」-「標準モジュール」を開いて、コードをコピペすれば出来上がり。
エディタを閉じてEXCELの「ツール」−「マクロ」−「マクロ」でマクロ名「LOTO6」
を実行して待つこと20分くらいでフィルターをかけた全組合せがシートに完成する。

Sub LOTO6()
' LOTO6 Macro
Dim counter1 As Long
Workbooks.Add.Activate
sn = 1
Worksheets.Add after:=ActiveSheet
ActiveSheet.Name = "LOTO6_" + FormatNumber(sn, "000")
counter = 2
counter1 = 0
retsu = 2
i = 6
j = 5
k = 4
l = 3
m = 2
n = 1
Do Until counter1 > 6096454 - 1
counter1 = counter1 + 1
If counter = 65536 Then '列を変える行数65536-1で列を変えてまつ。
counter = 2
retsu = retsu + 7
If retsu > 245 Then
sn = sn + 1: retsu = 2
Worksheets.Add after:=ActiveSheet
ActiveSheet.Name = "LOTO6_" + FormatNumber(sn, "000")
End If
End If

Cells(counter, retsu).Formula = n
Cells(counter, retsu + 1).Formula = m
Cells(counter, retsu + 2).Formula = l
Cells(counter, retsu + 3).Formula = k
Cells(counter, retsu + 4).Formula = j
Cells(counter, retsu + 5).Formula = i
counter = counter + 1
i = i + 1
If i > 43 Then
j = j + 1: i = j + 1
If j > 42 Then
k = k + 1: j = k + 1: i = j + 1
If k > 41 Then
l = l + 1: k = l + 1: j = k + 1: i = j + 1
If l > 40 Then
m = m + 1: l = m + 1: k = l + 1: j = k + 1: i = j + 1
If m > 39 Then
n = n + 1: m = n + 1: l = m + 1: k = l + 1: j = k + 1: i = j + 1
End If
End If
End If
End If
End If
Loop

End Sub

>>7 >>8 の解説。
roto6での全組合せ43C6 （EXCEL関数では =combin(43,6) 6096454通りの全ての数字の
組合せをEXCELのシートに表示します。どっかのサイトでは有料データとしているようです。
非常にむかつきます。（しかもTEXTデータだし・・・。）　と言うわけでこのコードをいじって
高確率のまま予想数字を絞れないかを考える、というのもいいかもね・・。

ID:viPaW1O7さん
乙です。
私も本気で確率に取り組んでいます。

まず簡単なところで選んだ数字をバラ買い理論で購入できれば
出費を落とせるので、たとえば30個くらいまでのバラ買いパターンを
開発するのはどうでしょうか。

私は最近9to6のバラ買いパターンを自力で調べましたが10以上は
力技は負担が大きすぎます。
私はeXCEL関数しか取りあえず出来ないので(VBAはチビッと)
何方か開発していただければと思います。

現在本数字を全て含んだものを18個くらいにまで絞る方法を
研究中です。　

KEN's LOTO６にある12のフィルターのうち数字固定のものが7つあります。
★★★高確率当選フィルターとは？？？★★★
■１■奇数を２〜４個の範囲内にする。
■２■低数字(01〜21)を２〜４個の範囲内にする。
■３■下一桁(0〜4)の含有個数を２〜４個の範囲内にする。
■４■同じ下一桁のペアを１組入れる。
■５■前回の抽選回で未出現だった下一桁の含有個数を２〜４個の範囲内にする。
■６■連番数字を１組入れる。
■７■ＡＢＣＤＥＦ６分割分析法
■８■直近10回で、本数字として出現していない数字の含有個数を０〜２個の範囲内にする。
■９■組み合わせ合計数を105〜155の範囲内にする。
■10■素数の含有個数を１〜３個の範囲内にする。
■11■前回当選本数字と前々回当選本数字の含有個数を１〜３個の範囲内にする。
■12■前回当選本数字に±１した数字を１〜３個入れる。
1,2,3,4,6,9,10が固定されています。このフィルターをかけるマクロのコードを次にあげます。

Sub LOTO6Filter()
' LOTO6 filter Macro
Dim counter1 As Long
Workbooks.Add.Activate
sn = 1
Worksheets.Add after:=ActiveSheet
ActiveSheet.Name = "LOTO6_" + FormatNumber(sn, "000")
counter = 2
counter1 = 0
retsu = 2
i = 6
j = 5
k = 4
l = 3
m = 2
n = 1
Do Until counter1 > 6096454 - 1
counter1 = counter1 + 1
If counter = 65536 Then '列を変える行数65536-1で列を変えてまつ。
counter = 2
retsu = retsu + 7
If retsu > 245 Then
sn = sn + 1: retsu = 2
Worksheets.Add after:=ActiveSheet
ActiveSheet.Name = "LOTO6_" + FormatNumber(sn, "000")
End If
End If

t0 = n + m + l + k + j + i
kisuu = i Mod 2 + j Mod 2 + k Mod 2 + l Mod 2 + m Mod 2 + n Mod 2
teiisuu = (CInt(i <= 21) + CInt(j <= 21) + CInt(k <= 21) + CInt(l <= 21) _
+ CInt(m <= 21) + CInt(n <= 21)) * -1
renban = (CInt(j = i - 1) + CInt(k = j - 1) + CInt(l = k - 1) + CInt(m = l - 1) + CInt(n = m - 1)) * -1
s1 = i Mod 10: s2 = j Mod 10: s3 = k Mod 10: s4 = l Mod 10: s5 = m Mod 10: s6 = n Mod 10
simo1_04 = (CInt(s1 < 5) + CInt(s2 < 5) + CInt(s3 < 5) + CInt(s5 < 5) + CInt(s6 < 5)) * -1
simo1 = (CInt(s1 = s2) + CInt(s1 = s3) + CInt(s1 = s4) + CInt(s1 = s5) _
+ CInt(s1 = s6) + CInt(s2 = s3) + CInt(s2 = s4) + CInt(s2 = s5) + CInt(s2 = s6) _
+ CInt(s3 = s4) + CInt(s3 = s5) + CInt(s3 = s6) + CInt(s4 = s5) + CInt(s4 = s6) _
+ CInt(s5 = s6)) * -1

sosuu_i = (CInt(i = 2) + CInt(i = 3) + CInt(i = 5) + CInt(i = 7) + CInt(i = 11) _
+ CInt(i = 13) + CInt(i = 17) + CInt(i = 19) + CInt(i = 23) + CInt(i = 29) _
+ CInt(i = 31) + CInt(i = 37) + CInt(i = 41) + CInt(i = 43)) * -1
sosuu_j = (CInt(j = 2) + CInt(j = 3) + CInt(j = 5) + CInt(j = 7) + CInt(j = 11) _
+ CInt(j = 13) + CInt(j = 17) + CInt(j = 19) + CInt(j = 23) + CInt(j = 29) _
+ CInt(j = 31) + CInt(j = 37) + CInt(j = 41) + CInt(j = 43)) * -1
sosuu_k = (CInt(k = 2) + CInt(k = 3) + CInt(k = 5) + CInt(k = 7) + CInt(k = 11) _
+ CInt(k = 13) + CInt(k = 17) + CInt(k = 19) + CInt(k = 23) + CInt(k = 29) _
+ CInt(k = 31) + CInt(k = 37) + CInt(k = 41) + CInt(k = 43)) * -1
sosuu_l = (CInt(l = 2) + CInt(l = 3) + CInt(l = 5) + CInt(l = 7) + CInt(l = 11) _
+ CInt(l = 13) + CInt(l = 17) + CInt(l = 19) + CInt(l = 23) + CInt(l = 29) _
+ CInt(l = 31) + CInt(l = 37) + CInt(l = 41) + CInt(l = 43)) * -1
sosuu_m = (CInt(m = 2) + CInt(m = 3) + CInt(m = 5) + CInt(m = 7) + CInt(m = 11) _
+ CInt(m = 13) + CInt(m = 17) + CInt(m = 19) + CInt(m = 23) + CInt(m = 29) _
+ CInt(m = 31) + CInt(m = 37) + CInt(m = 41) + CInt(m = 43)) * -1
sosuu_n = (CInt(n = 2) + CInt(n = 3) + CInt(n = 5) + CInt(n = 7) + CInt(n = 11) _
+ CInt(n = 13) + CInt(n = 17) + CInt(n = 19) + CInt(n = 23) + CInt(n = 29) _
+ CInt(n = 31) + CInt(n = 37) + CInt(n = 41) + CInt(n = 43)) * -1
sosuu = sosuu_i + sosuu_j + sosuu_k + sosuu_l + sosuu_m + sosuu_n

If kisuu <= 4 And kisuu >= 2 Then '奇数の数が2から4つ
If teiisuu >= 2 And teiisuu <= 4 Then '低位数21以下が2つから4つ
If simo1_04 >= 2 And simo1_04 <= 4 Then '下1桁が0から4の個数が2
If renban = 1 Or renban = 2 Then '連番は1個か2個 3連を許す
If simo1 = 1 Then '下1桁のペアは1個
If t0 >= 90 And t0 <= 160 Then '合計数90より大かつ160より小
If sosuu >= 1 And sosuu <= 3 Then '素数の数は1から3個

Cells(counter, retsu).Formula = n
Cells(counter, retsu + 1).Formula = m
Cells(counter, retsu + 2).Formula = l
Cells(counter, retsu + 3).Formula = k
Cells(counter, retsu + 4).Formula = j
Cells(counter, retsu + 5).Formula = i

counter = counter + 1
End If
End If
End If
End If
End If
End If
End If

i = i + 1
If i > 43 Then
j = j + 1: i = j + 1
If j > 42 Then
k = k + 1: j = k + 1: i = j + 1
If k > 41 Then
l = l + 1: k = l + 1: j = k + 1: i = j + 1
If l > 40 Then
m = m + 1: l = m + 1: k = l + 1: j = k + 1: i = j + 1
If m > 39 Then
n = n + 1: m = n + 1: l = m + 1: k = l + 1: j = k + 1: i = j + 1
End If
End If
End If
End If
End If
Loop

End Sub

>>9
> 高確率のまま予想数字を絞れないかを考える、というのもいいかもね・・。


ピカッと閃きました。

前回本数字の出る確率は６５％なので(全ての数字は各2.3%)
フィルター後全組合せからさらに絞れるのではないでしょうか?!

結局いくら絞っても確率を超えられない罠

当たる確率を上げるために絞込むなんてちょっとシリアスに考えれば
まったく無駄だってことが判らない香具師がこのスレに集うのか。

敢えて、コントロール幻想に浸るのさ・・・！

+InUU/0x さん
先に言うと上記のフィルターは検証してからのほうが良いと思いますよ
私は奇数は2-5の方が良いと思います

aaaaa
sssss
iiiiiiiii

>■１■奇数を２〜４個の範囲内にする。
>■２■低数字(01〜21)を２〜４個の範囲内にする。
・・・
>■11■前回当選本数字と前々回当選本数字の含有個数を１〜３個の範囲内にする。
>■12■前回当選本数字に±１した数字を１〜３個入れる。
なにを根拠にこんなことがいえるのかひとつひとつ教えてくれ。

>>23
■１・・・全体の81.5％を押さえられる。
■２・・・全体の81.5％を押さえられる。
後は面倒だから考えてくれ。
高確率×高確率・・・で当たると思う、ってだけの予想だ。

成功率８割のフィルターでも
２つ併せれば
８割Ｘ８割＝６割４分まで落ちてしまう罠

>■１■奇数を２〜４個の範囲内にする。
奇数が１個の場合はありえないということだろ？
だれかシリアスに答えてくれ。

＞奇数を２〜４個
逆にいえば偶数が２〜４個？

結局フィルター重ねるほどどんどん確率が落ちていくから意味無いのでは・・・

>>26
ありえないんじゃなくて確率が低いから削除するということ

>>23
いや、漏れが言い出したんじゃなくて、あるサイトの高確率当選術に
あるフィルターだよ。そのフィルターをかけたら意味のある数字が残る
のかどうかということ。今までの抽選回数が196回と、統計的にはあま
りに少ない実証しか出来ないのに高確率というのはどういうことなのか
ということも念頭においている。しかし実際には9とか24みたいに非常に
偏っていることも確か。まあ回数が増えればいずれ収束していくことも
確率論的にはあるんだが、資金の上限のなかで無作為に買うのがいい
のかそれとも、なにがしかのフィルターをかけたほうがより有利なのかが
知りたいということだけだよ。純粋に確立論を言えば1,2,3,4,5,6が出る確
率も4,11,28,32,39,41も全く同じなんだが1,2,3,4,5,6を当たると思って買う
香具師はいないだろうしな（たぶん買ってる香具師もいるんだろうが・・）

約２００回程度施行の段階では、残った組み合わせを
見れば計算上の確率以上の当選実績を残せるだろうってこと。
近い将来に1,2,3,4,5,6とか38,39,40,41,42,43を連発すれば
またフィルターは変わる罠。

どちらにしても約50万通り＝1億円投資なんて無理だし
最終的には数字を絞り込むしかない訳だが。

ゴタク並べてないで自分のやり方でやれば良いんじゃないのか

LOTO6の出現数字6096454通り全部に上のマクロでフィルターをかけると454283通りの
組合せ以外は削除されてしまう。つまりこの7つのフィルターを全部かけるとどんな出現予
想も454283通りの中から選んでいるのと同じことだ罠。
で、それとは別に1回〜196回までの当選数字にこの7つのフィルターをかけると全部で21
回1等を当選している。21/196だ。毎回454283通り全てを買っていれば196回で21回は
1等とっていたことになる。その確立は1/6096454よりも1.43倍高いということになる。
果たして確率論的に意味があるかは疑問なんだがね。

>>32
まあ、それを言うなら毎回QPでいいわけだし・・。
当選がQPかどうかを公表してるんだっけか？

>>32
それを言ったら身も蓋も無い。
嘘でもいいから自分の買い方を他人に納得させるような香具師はいないか？

多く買っても５千円までしか買えないから(´・ω・｀)そこんとこよろしこ

>>33
+InUU/0x さん

上記フィルターの値は自分で調べた方が良いですよ
調査しました? 　合計数位に見えるけど
いくらかおかしいし、あいまいだったりする。

前回と前々回当選本数字に±１した数字はそれぞれ３個以下、
合計で1-5個入れるにした方が良いですよ、オレの調査では。

>>35
今納得されて、真似されたら当った時の貰いが少ないじゃんw
公開は当った後だね
俺は一等当ったら止めるから

>>38
そう言われ見ればそうだね。
逆に嘘を納得させておいて、自分は本命の買い方するとか。

>>39
そう、それが上記のフィルターだと思うよ


今調べてるけど
■２■低数字(01〜21)を２〜４個の範囲内にする。

これやったら196回の内、2割がた落とされる
こんなの真に受けて使えないと考えるのは当然だよ
自分で調べなきゃ

上記フィルターは考え方としては有効だから
実績に即してより良い値に調整してやればいい

■２■低数字(01〜21)を２〜４個の範囲内にする。

これ使えない
第一数字は１６以下にするにした方がいい
これなら外れるのは１３／１９６。

１から１２や１から３１は日付に使われるから
あえて３２以上を選ぶ、みたいな考え方の香具師はいないかな？

>>42
ｶﾞｲｼｭﾂ
32以上の数字で勝負しているサイトはある

>>43
ｶﾞｲｼｭﾂならポインタぐらい示せよ。

面倒だからｗ
自分で調べなさい。

折角熱くなってらっしゃる所なんなんですが…
ひとつ質問です…
何やら小難しい事をして論理を語りあってる方々は勿論当選実績があるんですよね？
もしナイなら…
時間と労力のム…（略

>>46
実績?
気が早いね。
これからだよ、これから。

1-196回の当選数字にフィルターをかけた場合の当選回数。
1.合計数105〜155　123回
2.奇数の数2〜4　 　161回
3.素数の数1〜3　 　161回
4.21以下の数2〜4　157回
5.一桁の数が4以下 144回
6.連番が1個だけ 　 　89回
7.一桁数のペアが1 107回

全部組み合わせた場合　21回

6.7.1.はフィルターとしては非常に疑問。
6にいたっては50％切っている。連番は1個だけじゃないほうが確立高い。

>>37
前回と前々回の当選数字とかの変数のあるフィルターだけで
購入できる数にまで絞りきれるのならいいが・・・。
予想数字を20個とかにするために、自分の好きな数とか出そ
うだなと思った数字なんてQPで選ぶのも結局は同じだろ？
全組合せの中から恣意的な選択をしないで20とかの数まで
絞り込むことができるか？ということを考えてるんだけど・・・。

>>49
おは

一つ気づいたのは上記のマクロ使ってフィルターを幅広にした結果に対して
出現率６５％の前回数字を含んだものを抽出するという方法。
これならお手軽だけど、でも相当数残る気がするね。

昨日ずっとフィルター調べたけど全てを使用して本数字の大半を
残そうと思ったら、相当に幅広い値を設定しなければならなくなった。
一つ一つ本当に使用する意義があるかも検証しなければならないなもすれん。

>■２■低数字は使えないね
変わりに第一数字は23以上、第六数字19以下は無効というふうにした。

絞込みは過去何回までの数字持ってれば当選圏に達するかってやってみたら


何分、確率はオカルトに成りかねんから気を付けんと･・

>>50
この７つのフィルターを当選結果に当てはめて、それぞれのフィルターが90％以上
残るようにしてみた。
6数字合計 75から180　177/196　90.31％
奇数の数　 2から5　 　 179/196　91.33％
素数の数　 1から4　 　 178/196　90.82％
21以下の数 1から4　 　180/196　91.84％
下一桁が4以下 1から5 187/196　95.41％
連番　 　 　 0から2　 　 193/196　98.47％
下一桁ペア数 0から2　 177/196　90.31％
これを一度に当てはめると124/196　63.27％残る。
で、問題の組合せの数は4,001,833通り。
41 to 6が4,496,388通りだから2つの数字を削除するのに
37％も費やすと言うことになってるな。

>>51
この手の検証はやってことがあるけど
組み合わせを減らすより、予想数字を減らすほうが効率的だ。
24と40番台を消すだけでも組み合わせはかなり減るからね。

出現率最低の24.2.32を消したら3838380通り。
これで138/196　70.4％残る。
適当に計算したんで間違っていたらすまん。

む。施行回に対しての90％か。
確率論じゃなかった・・・

>>52
196回での段階での偏りの大きい数字。
１位　24　13/196　最終出現から33
２位　 9　 22/196　最終出現から22
３位　 2　 22/196　最終出現から15
４位　14　22/196　最終出現から11
５位　34　22/196　最終出現から5
しかしいずれ理想値に近づいていくと考えるといつ出ても
おかしくないのも事実なんだよな。

逆に偏りが多く出るほうのベスト5
１位　 30　 39/196　 最終出現から 0
２位　 25　 34/196　 最終出現から 5
３位　 37　 34/196　 最終出現から 14
４位　 11　 33/196　 最終出現から 0
４位　 16　 33/196　 最終出現から 0
あら、前回はベスト5から３つも出たんだ。

>>51
フィルターは悪魔で軍資金節約って考えておけばいいんじゃない
問題は抽出と絞込みだ


いまVBAでバラ買い8to6やってるけど　間違ってるぞ　ヽ(｀Д´)ノｳﾜｧｧｧﾝ!!

うまくいかないと思ったらバラ買いのパターンって一つじゃないのなw

>>57
バラ買ってどんなの？
予想数字いくつか立ててからそのバラ買とやらで絞り込むんじゃ、
その予想数字立てる根拠がないと検証できないジャン。

>>55
>>56
いつも思うんだが24がこのようにでない可能性が大きいまま推移する可能性だって
あるんだよな。まあいずれ玉交換でそういうこともなくなるんだろうｹﾄﾞ。
いくら試行回数が少ないからと言って最大出現とトリプルスコアじゃ24は選択肢から
はずしておくほうがいいかもね。

>>59
http://www.geocities.co.jp/Colosseum/3863/minilot1map.html

>>60
出るまでほっといて良いと思うよ
人間が期待したって出ないもんは出ないんだから

基本的にロト６は出ない数字は放っておいた方がいい。
１回出てからでも遅くない罠。

おまいら、「お宝ドンピシャ！」読んだら当たったぞ〜

http://www.lesson-jp.com/main.html

宣伝乙

>>64
読んだ人全員当たらないのは何故？

結局は、フィルターはQPを超えられるか？と言うことなんだろうな。
今のところ24とか9とか2がある以上フィルターや勘のほうがまし？

24と9削ってあとはランダムでいいじゃん。

>>68
24と9削っても24や9が出た時点でQPより劣ってるわけだし・・・。
QPは24や9は削っていないから、QPのほうが確率高いことになる。

>>69
こういう言い方は誤解を招きそうだな。ｗ

EXCELだけでなくCもください
/* LOTO6 全組み合わせ表示プログラム */
#include <stdio.h>
#define MAX_NUMBER 43
#define DATA_SIZE 6
void print_data(int *a){
int i;
for(i=0;i<DATA_SIZE;i++)
printf(" %02d",a[i]+1);
printf("\n");
}
int main(){
int dt[DATA_SIZE],i;
for(i=0;i<DATA_SIZE;i++) /* 初期化 */
dt[i]=i;
for(;;){
print_data(dt);
/* 次のデータに変更する */
for(i=DATA_SIZE-1;i>=0;i--){
dt[i]++;
if(dt[i]<MAX_NUMBER-(DATA_SIZE-1-i)) /* 繰り上がりチェック */
break; /* 繰り上がりなし */
}
if(i<0)break; /* 繰り上がり不能につき終了 */
for(i++;i<DATA_SIZE;i++) /* 繰り上がり処理 */
dt[i]=dt[i-1]+1;
}
return 0;
}
/* ここまで */

漏れは単純に６重forループだな・・・

VBにしてもCにしても、皆さんインデントつける習慣無いのですか？

半角スペースのままだから潰れてしまうのでは・・・？

ここはプログラム板ですか？

本スレからプログラム分を分離した感じ・・・

ちょっとシリアスに考えればフィルタなんか無意味だと気づきそうなもんだが。

すいません、10to5って19本で３等保証にできますか？

（偶然にせよ）思った通りに事が運んだら気持ちいいだろう・・・？

って、ここはロト６でしたね

>>80 誘導
ミニロトに５万さっき使ってきたんですが・・
http://money3.2ch.net/test/read.cgi/gamble/1040627522/

>>77
チョッとしか考えないから、そんな答えしか出ない

>>78
18本

>>83
マジっすか？
パターン教えてくれませんか？

/* シリアル値から考えてみると規則があるかも */
#include <stdio.h>
#define MAX_NUMBER 43
#define DATA_SIZE 6
/* 組み合わせ nCm */
int combin(int n,int m){
int a=1,nn=n,i;
if(n<m)return 0;
for(i=1;i<=m;i++){
a*=nn;
nn--;
a/=i;
}
return a;
}
/* シリアル値を得る */
int get_serial(int *a){
int tmp[MAX_NUMBER],i,x=0,n,m;
for(i=0;i<MAX_NUMBER;i++)tmp[i]=0;
for(i=0;i<DATA_SIZE;i++)tmp[MAX_NUMBER-1-a[i]%MAX_NUMBER]=1;
n=MAX_NUMBER-1;
m=DATA_SIZE;
for(i=0;i<MAX_NUMBER;i++){
if(tmp[i]){
x+=combin(n,m);
m--;
if(m<=0)break;
}
n--;
}
return x;
}

/* シリアル値からの変換 */
int serial2dt(int se,int *dt){
int n,m,t;
for(m=DATA_SIZE;m>0;m--){
for(n=MAX_NUMBER;n>=0;n--){
t=combin(n,m);
if(se>=t){
se-=t;
dt[m-1]=n;
break;
}
}
}
}
void prn(int *a){
int i;
for(i=0;i<DATA_SIZE;i++) printf(" %02d",a[i]+1);
printf("\n");
}
int main(){
int dt[DATA_SIZE];
int i,t,mx;
mx=combin(MAX_NUMBER,DATA_SIZE);
for(i=0;i<mx;i++){
printf("%7d ",i);
serial2dt(i,dt);
t=get_serial(dt);
printf("%7d ",t);
prn(dt);
}
return 0;
}/* まあ、変換規則は色々あるわけですが、そのなかの１つとして */

>>56
「39/196」の196ってどういう数字？　

>>87
今まで196回の当選数字があってそのうち何回出たかということ。

>>88
あ、そうか。（＾＾；ありがと。

ttp://up.nm78.com/data/up051761.zip
上のフィルターを過去196回の当選数字にかける
EXCELのシート。ここのマクロも一緒に。

>>84
Xto6でググってみる

俺、理詰めの数字選択方法一つ編み出したかもしれん

>>91
あ、10to6じゃなくて10to5です。
ちなみに10to6は私が知る限り最少16本です。

◆hJnkVnTMkAさん！
どうぞ今日のロト６でその成果を知らしめる為に
今回だけでいいので晒してくださいませ・・・。

16　 30　 33　22　 26　 41

(64+58) *0.43(%) の確率で一個以上の本数字が入ってる。
4 5 が来たら終了。

こういう具合に勘じゃなくて全部計算づくで出るから
確率２％をはじき出した日にゃ、年に一回一等が当るってわけ

ををを！ありがとうございます！

難しい事は解かりませんが
なんだか勝手に信頼してしまう素人ですが
これからも参考にさせていただきます。

9to6は７本でできますよね？

↑３等保証型のことです。

>>95
64+58って何の数字ですか？

>>97
８本だそうです。

>99
な　･　い　･　しょ　　!

(64+58-α) *0.43(%)　が正解でした
αの計算がまた難しいンだ、10%台だけど

>>100
「*」は×（かけ算）のことですか？

>>101
さいだす

>>102
なるほど。初歩的質問スマソ。

>>97
検証しました。
7本が最小かどうかはわかりませんが、とりあえずできるようです。

7to5は現在の11本が最少でほぼ間違いないよう気がします。
もうちょっと大きなXtoが検証できるようにプログラムを改良中です。。。

↑7to5じゃなかった、9to5です。

>>102
ナンバーズすれとは違ってほんとにシリアスですね。

貴方でもきっと月100万稼げるはず！
今ならまだ遅くない・・・
早く気づいて、実行するべきです！
↓　　　↓　　　　↓　
http://kot.gooside.com/

並び数字が多過ぎだろ？今回は９と１０。確率的に多すぎるだろ？これで１等が減る
んだよ。みずほの策略だろ？

連番（並び数字）が１つ以上出る確率は4253340/6096454
確率の範囲内で多すぎることはない
もっと頭使えよ>>109（藁

俺、当選を難しくしている根本に近い原因を見つけたかも知れん
こんな事言いながら、今はまだ言えん

10to6三等保証型、マークシート３枚に収まるようです。

>>112
それって16パターンで知られてるけど15以内になるの
まぁ、合計値が最小と最大は削除するけどね。

これ以上はウチの昇天寸前のオンボロPCじゃ限界です・・・
誰か水冷式のアスロンPC買って・・・

>>114
3GHz HT でも辛いモノが在ったよ

ていうか10to6のパターン計算やってるの?
8to6でもシャレにならんのに。。

10to6
ABCDEF
ABCGHI
ABCEFG
ABCDFI
ABDEGJ
ABEHIJ
ACDFHJ
ACEFGI
ACDEGH
ADFGIJ
BCDEIJ
BCFGHJ
BDFGHI
BDEFHI
CDEGHJ
EFGHIJ

>>115
検証は発熱の少ないクルーソー500MHzでやってます。

完璧な総当たりでは無く、無駄（と思われる）読みはかなり省いてる
ので、必ずしも最少本数を見つけられるとは限りません。
まぁでも省いたおかげで8to6・4本くらいなら一瞬で見つけます。
9to6・7本も20秒くらいで組み上げました。
10to6・15本は、何本かを人間が選んで固定して、残りを探索させたら
たまたま運良くできました。

9to5・10本は途中まで探索したけど、あまりに
見込みが無さそうなので辞めました。。。。

>>116,117
すばらしいです。
それ、Excelマクロだったら協力しますので
マクロと省き方教えてもらえますか?

>>118
C++で書いてます。VBAは学生の時使った記憶があるのですが
あまり覚えてないです、、、、

でとりあえず9to6の場合
01 02 03 04 05 07
01 02 03 05 06 07
01 03 04 05 06 07
01 03 04 06 08 09
01 03 05 07 08 09
02 04 05 06 08 09
02 04 06 07 08 09
の7本で３等保証（なはず。確認よろ）です。

84通り全ての探索では無く｛02 05 06 07 08 09｝までの77通りで
探索させました。１本目は固定、２〜５本目は往復範囲を個別に指定、
６，７本目は他と重複しない残り全てを往復、で探索しました。

まぁ要するに省き方をその都度細かくカスタマイズできる仕様にしてるので、
全Xto6で共通の方法を見つけたわけでは無いです。。。

10to6・１５本。こちらも確認よろです。
01 02 03 04 08 09
01 02 03 05 07 10
01 02 04 05 07 08
01 02 04 06 07 10
01 02 05 06 09 10
01 02 05 07 08 09
01 03 04 05 06 10
01 03 05 06 07 08
01 03 07 08 09 10
01 04 05 06 08 09
02 03 04 06 07 09
02 03 05 06 08 10
02 04 07 08 09 10
03 04 05 07 09 10
04 06 07 08 09 10

あ、>>119-120は偏りを少なくするためにシェイクかけてあるので、
探索で出力した生の結果では無いです。。。。

ロトセミナーというサイトのミニロトのバラ買理論で当選組合せの検証してみました。
06 07 08 09 10 / 01 02 03 04 05 / 01 02 03 06 07 / 01 04 05 06 08 / 02 04 05 07 09
02 03 04 08 10 / 01 03 05 09 10 / 03 05 06 07 08 / 01 02 06 08 09 / 01 04 06 07 10
03 04 07 08 09 / 02 05 07 08 10 / 02 03 06 09 10 / 03 04 05 06 10 / 01 07 08 09 10
01 02 04 06 07 / 01 02 05 06 07 / 01 03 04 06 08 / 02 04 05 08 09 / 01 02 03 04 09
10to5では252通りの当選組合せがあるのでそれぞれに上の20口の組合せ（5040組）でい
くつの当たり数字があるかを調べてみた。
5つ当たり　 　 　20回
4つ当たり　 　 　500回
3つ当たり　 　 　2000回
2つ当たり　 　 　2000回
1つ当たり　 　 　500回
0 当たらず　 　　20回
まあ調べるまでもないほどシンプルな結果でした。で、何で3等保証なんだ？

>>119
これもやってみました。84×7=588組
6つ当たり　 　 　7回
5つ当たり　 　 　126回
4つ当たり　 　 　315回
3つ当たり　 　 　140回
2つ当たり　 　 　0回
1つ当たり　 　 　0回
0　当たらず 　 　0回

おお、3等保証。GJ

>>119,120
検証しますた。おけです。

>>124
まじすか？漏れが >>120 やったら
6つ当たり　 　 　15回
5つ当たり　 　 　360回
4つ当たり　 　 　1350回
3つ当たり　 　 　1200回
2つ当たり　 　 　225回
1つ当たり　 　 　0回
0　当たらず 　 　0回
になったけどな。計算間違ってるのかな。

>>125
キミが何を検証してるのかよくわからん。

シリアスに考えているつもりなんだろうが、
他人から見ればお馬鹿なことこの上ない。

おれはちょっとだけ期待している。

>>127
新しい事を始める人間はまず異端と呼ばれるのだよ

>>119
今C++の環境無いんだなぁ
BorlandC++、WinXPには入らんしw

お願いがあるのですが、
18to6くらいまでバラ買いパターンの開発できますか?

こちらは本数字と前回出現間隔の因果関係を調査しています。
(今、妙なグラフを眺めている･･･)

･･･････････････････・、 ！

待てよ、
４３個のバラ買いパターンがあれば最強なんじゃ？w

>>127
おまいはこのスレを荒らすべきだ。
http://money3.2ch.net/test/read.cgi/gamble/1087228977/

>>130
これ以上の探索は、人間が何本か選んで残りを探索させるスタイルになるので
そのための手がかりが必要です。
18to6までの現在最少のバラ買いデータがあれば助かるのですが、誰か持ってませんかね？
11to6までは手元にあるのですが。

>>133
Ｌｏｔｏ６　バラ買い理論
マルチバラ
6 1 1
7 7 1
8 28 4
9 84 8
10 210 16
11 462 22
12 924 46
13 1716 81
14 3003 127
15 5005 193
16 8008 282
17 12376 506

17までしか無いんですよね
現状そこからは未知の領域です
予想じゃ800くらいかなと･・

思いっきりズレｽﾏｿ

チョッと激ムズに遭遇したのでレス中止します。

>>134
いや、本数は分かってるんですけど、肝心の中身がね・・・
シェアウェアだからなぁ。

>>136
18だから

01 02 03 04 05 06
01 02 03 07 08 09
01 02 03 10 11 12
01 02 03 13 14 15
01 02 03 16 17 18
04 05 06 07 08 09
04 05 06 10 11 12
04 05 06 13 14 15
04 05 06 16 17 18
07 08 09 10 11 12
07 08 09 10 11 12
07 08 09 13 14 15
07 08 09 16 17 18
10 11 12 13 14 15
10 11 12 16 17 18
13 14 15 16 17 18

の16通り辺りを基本にして良いんじゃない?

>>137
いやいや、だいたい均等間隔で設定すれば見つけられるだろうと
最初は私も思ったんですけど、実際はもの凄く偏ってるんですよ。
例えば今回選んだ9to6のたった7本の中にも５元重複が４組も含まれてたりするし。
従来のやり方で選んだ8本の中には５元重複は一つも無かったんですよね。
今まで見つけられなかった訳です。

理論的な発想で目星をつける事はまず無理っぽいので
実際に極限近くまで絞り込んだデータが必要なのです。

11to6までなら一般公開しているサイトがあるけど、
シェアウェアの内容は公開できない罠。

17to6と18to5のデータは某所に載ってるから手に入るんですけどね。
12to6〜16to6はどうしようかな。。。

どうにかフィルター通して本数字を１０個に絞るプログラムを作ってください。

>>138
なんか凄いですね。
シェアウェアより高度じゃないですか（驚

今物凄そうなものに気づいてます
近々大予想たてるかもＷ

１１９さん、今のうちにトリップ付けておきませんか
理由は僕の方で成果が挙がった時に

>>141
例えば、バラ買いで数十個になっても、
そこからフィルター掛ければ半分以上減ったりするよ

>>140

http://homepage3.nifty.com/chall/kingloto/help/KL/std/p008.htm

ここ見ると18to6 は 671　てなってるけど、
他の数字見ると信憑性に掛ける気がする。
取りあえず６７１個以下で可能なのでしょうね。

>>140
> 17to6と18to5のデータは某所に載ってるから手に入るんですけどね。

１７to6はどこに乗ってましたか?

>>144
ここで紹介されているソフトでかなりなことが可能だな。
いいかもしれない。

いろいろと情報が飛び交っているようですが、
ここまでのまとめとして3当保証の最少本数は以下の通りでよいですか？

7to6 1通り
8to6 4通り
9to6 7通り
10to6 15通り
11to6 22通り

11to6でも意外と少ないですね。

11to6はバラ買い理論で22通りだから、
>>119ﾀｿの理論だともっと減るんじゃないか？
期待してまつ。

たとえば18to6のバラ買い方法が分かったとしても、
一般人が1回で買える口数ではないだろう。
ここはひとまず現在わかっている11to6までのバラ買いを
完全攻略してはどうだろうか。(ミニロトも10to5くらいまで)

その後、今度は数字の絞込みについて議論していけば
よいのでは？

12to6以上のバラ買いについては、情報が出たときに
検証していけばよいと思う。

>>149
> たとえば18to6のバラ買い方法が分かったとしても、
> 一般人が1回で買える口数ではないだろう。
> ここはひとまず現在わかっている11to6までのバラ買いを
> 完全攻略してはどうだろうか。(ミニロトも10to5くらいまで)

18to6で相当数残っても、そこから更に偶数奇数など
他のフィルター掛ければ良いと思いますよ。

数字の絞込みは、前回本数字とその±１ていうのは在るんですけどねぇ
｢ミニロト生活｣のフレンドリー数字っての色々と試したけど、サッパリだね
ホンのチョッピリだけ確率上がる。
何かそれらしい理屈の抽出方法はないものか？

>何かそれらしい理屈の抽出方法はないものか？

見付けたとしてもよー
此処で発表してみろや
真似真似ｸﾝが配当を下げるだろうな

沈黙は金なりとは、よく言ったものだ

バラ買いは単なる削減法だから根拠と用途がハッキリしてるが、
フィルターってのは予想法だから、いくら理論をまとったところで
オカルトの域を出ないな。
どうせオカルトならオナニー占いで絞った方がマシだ。

バラ買いにフィルター乗せるのは無理だろう。
なにせ必要最小限に絞ってるから、これを削減したら
本来の○等保証の意味がなくなる。

新たに楽しいサイトが登場したみたいｗ↓
ttp://page.freett.com/rotoroto/index.htm

>>153
そのとおりだな。バラ買いは数字をたくさん選べるため、その数字を
いかにして選ぶかが重要。

数字の選択方法だが、>>152の言うとおり、
「後は各人好きに選んでください」というのであれば
このスレの意味が無い。

明らかなオカルト予想法でなく、ある程度数字的根拠を持った方法
で選択数字を少なく出来れば・・・
でもきびしいなぁ

>>152
でも現実、１３ｔｏ６で８１個選んでも１６２００円分買わないでしょ
バラ買いで振り分けても全部偶数とかはありえるんだから
それは捨てても良いんじゃない、とオレは思う。。


>>155
> 明らかなオカルト予想法でなく、ある程度数字的根拠を持った方法

見つけたよ
でもこれはどの数字を選ぶかではなく、どの領域から選ぶのが
相応しいかというだけだから、やはり抽出か削除の方法が必要だ。
残った数字の正当性の評価にはモッテコイだと思う。
もうチョッと調査してからうｐします。

>>156
期待してます（｀・ω・´）ゝ

平均エントリー数３２．６個で、６個の含有率２３％
多いか少ないか？


同じパターンでフレンドリーレベルを一つ下げると
平均２６個で、含有率３％
なんだかなぁ･･･

このスレでやっている○to○は
ゲイルハワードのロトマスターで既出なのだが
これは禁句なのか？

あれは、著作権にうるさそうだから・・・
全てのチャートにコピーライト付きじゃん・・・(w
漏れ的には、どうやればああいうデータが求まるのかに興味がある・・・

>>159
それにバラ買いの最少データ載ってるの？

ふと思った。
フレンドリー数字って確率を「落とさない｣為にはソコソコ有効かもしれん。。

お手軽な四等保証から攻略中。
なんとか14to6を17本に削減。
ロトセミによれば17to6でも一万円以内で買えるらしいしね。

>>163
１１９さん、こんばんは
１４ｔｏ６の４等保障をを１７本にしたのですか！？
すばらしい！！

ボクは今、新たな削減法を考案してテスト中です。
チョッち、オカルトっぽいが統計によるものなので、良しとしましょう。

ヤッパリ、理屈で数字を選択って言うのは限界があるなぁ
動く数字に対して静的なアプローチは無理な気がして来た
いっそ、それこそオカルトにに走ろうかと思うよｗ

検証プログラムを改良したら作業がだいぶ効率アップしますた。
現在15to6の四等保証(23本)まで検証済み。
あと、10to6三等保証は新しいプログラムで検証し直したところ14本で組めました。

>>166
期待しています（｀・ω・´）

それにしても198回の出目って・・・・orz

>>166
す、凄い１１９さん
という事は、Ｗｅｂとかで公開してるバラ買い本数って
まったく改良の余地有りって事ですね。
Ｃ＋＋開発環境があれば３ＧＨｚＨＴで協力するのですが･・

本スレに書きましたが、二つのぬるぽ予想、どちらも５等でした。
含んでいる数字が違うのは改良中でシステムが違っていたためですが、
まったく人間の意志の含まれていないものなので、取りあえず
良しとしています。
現在、周期による数字削除方法を検証中･･･

１１９さん、こんち

･････・　今ね、恐ろしいものを見てるかもしれん
　　　　　本数字１００％残しなら数字を半分くらいにする
　　　　　抽出方法見つけたかもしれん。

１１９さんと応援してくれている１６７さん
今のうちにトリップ付けておきませんか。

半分は逝かんなぁ･･･Ｏｒｚ

優秀なフィルターを発見したけど
毎回の作業量が膨大　ＯＴＺ

ガンバレとしか言えんが
ガンバレ

>>169
とりあえずホームページを制作中ですので近況はそちらで書いてます。
http://p50.aaacafe.ne.jp/~nanasi/

実は皆固唾を飲んで>>173さんの動向を
ROMっていたりするとか・・・

今相当なものを作ってる自負があるけど
開発終了まで、あと二週間は掛かるよ Orz

それでヒット率低かったら･･･





　　　　　　　　　　逝って来ます。。

糞スレage

ttp://anagra.fc2web.com/index.html
（゜∀゜）

>>173
別ソフトになってたからもしやと思ってたけど、
やっぱりシェアウェアになるのですね(´･ω･`)ｼｮﾎﾞｰﾝ

>>175
ガンガレ、期待しています

>>179
おぃーす！

一晩中１２ｔｏ６検索させてるのに出てねーｏｒｚ

未来予測、使えなかった(´･ω･`)
やり方変えよう！

皆さんがんばってますか？

超えられそうにない壁にぶち当たってます。
超えることが出来たら、一等をゲット出来そうな悪寒。
しかし、これが自然の摂理なら人間には不可能だ。
やはり６００万分の１の壁は越えられないのだろうか･･･


何方か高速なＰＣ持ってる方、バラ買いパターン作成に
ご協力して頂くことは出来ますか？　ＥｘｃｅｌＶＢＡで。
総当たりではなく、二分割して高速に検索するようにしました。
出来ればこのソースを元に更なるものを作って頂きたい。
有償になる中、同士を求む。　（現在１２ｔｏ６三等保証調査中）

VBAでそういう力技は無理でしょ・・・
せめてちゃんとコンパイルできるVB６でやらんの？

つーか有償版とやら買えばいいんじゃないのか？
どうせ数千円だろ。

ソース晒してくれれば、Ｃへ変換してみたい・・・

アスロン64FX使ってるから計算だけでも協力したいけど、
夏場に長時間フル駆動はヤバそうだな・・・

>>184
> VBAでそういう力技は無理でしょ・・・
> せめてちゃんとコンパイルできるVB６でやらんの？

その辺の知識無い

>> つーか有償版とやら買えばいいんじゃないのか？
>> どうせ数千円だろ。

払いたくない

>>186
では編集して明日にでも。

>>188
VBAができるならVB６もすぐにできるよ。

>>188 　Cでかけ。

>>190
やり方教えてください

>>191
コンパイル環境が無いっつってんだろ

バラ買い理論パターン作成ＶＢＡを下記に記します。

Sub LOTO6_BARAKAIPATTERN_CREATE()
' LOTO6 Macro バラ買い理論パターン作成 改良版!!

Xto6 = 8 ' エントリー数を入力 Xto6 の X
CP = 4 ' バラ買いパターン本数
CP_C = 3 ' バラ買い本数前半の終わり値
MULTI_C = 21 ' マルチ本数前半の終わり値
Skima = 1 ' 各チェックポイント(CP)の次の位置間隔
P12345X = 6 ' 先頭のエントリーが含む数
Dim MULTIptn(924, 6) As Integer ' (マルチ本数, 6)
Dim MATRIX(924, 924) As Integer ' (マルチ本数,マルチ本数)
Dim C_ptn(924) As Integer ' (マルチ本数)
Dim P_CP(46) As Integer ' (CPの値)
Dim ctr As Long
Dim ctr1 As Long
MULTIno = Xto6 * (Xto6 - 1) * (Xto6 - 2) * (Xto6 - 3) * (Xto6 - 4) * (Xto6 - 5) / 6 / 5 / 4 / 3 / 2

i = 6: j = 5: k = 4: l = 3: M = 2: n = 1
Workbooks.Add.Activate
Cells.Select
Selection.ColumnWidth = 3
With Selection
.HorizontalAlignment = xlCenter
End With
Range("A1:A2").Select
With Selection
.HorizontalAlignment = xlGeneral
End With
Columns("A:A").ColumnWidth = 15.63

Cells(1, 1) = "バラ買い理論　パターン作成"
Cells(2, 1) = "マルチパターン作成中"
Range("A4").Select
ctr = 0
Do Until ctr > MULTIno - 1
ctr = ctr + 1
MULTIptn(ctr, 1) = CInt(n): MULTIptn(ctr, 2) = CInt(M)
MULTIptn(ctr, 3) = CInt(l): MULTIptn(ctr, 4) = CInt(k)
MULTIptn(ctr, 5) = CInt(j): MULTIptn(ctr, 6) = CInt(i)
i = i + 1
If i > Xto6 Then
j = j + 1: i = j + 1
If j > Xto6 - 1 Then
k = k + 1: j = k + 1: i = j + 1
If k > Xto6 - 2 Then
l = l + 1: k = l + 1: j = k + 1: i = j + 1
If l > Xto6 - 3 Then
M = M + 1: l = M + 1: k = l + 1: j = k + 1: i = j + 1
If M > Xto6 - 4 Then
n = n + 1: M = n + 1: l = M + 1: k = l + 1: j = k + 1: i = j + 1
End If
End If
End If
End If
End If
Loop

' マルチパターン表示　22to6 以降は65536行を超える
'GoTo SKIP1
For i = 1 To MULTIno
For j = 1 To 6
Cells(7 + i, 9 + j).Value = MULTIptn(i, j)
Next j
Next i
SKIP1:

' マトリクス作成
Cells(2, 1) = "マトリクス作成中"
For ctr = 1 To MULTIno
Cells(3, 1) = ctr
For ctr1 = 1 To MULTIno
M = 0
For i = 1 To 6
For j = 1 To 6
If MULTIptn(ctr, i) = MULTIptn(ctr1, j) Then
M = M + 1
End If
Next j
Next i
If M >= 5 Then
MATRIX(ctr, ctr1) = 1
End If
Next ctr1
Next ctr

' マトリクス表示　11to6以上はExcelの列が足りない
'GoTo SKIP2
For i = 1 To MULTIno
For j = 1 To MULTIno
Cells(7 + i, 16 + j) = MATRIX(i, j)
Next j
Next i
Range("J8:O217").Select
Selection.Copy
Range("Q1").Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
, Transpose:=True
Application.CutCopyMode = False
Range("A4").Select
SKIP2:

Cells(2, 1) = "バラ買いパターン走査中"
For i = 1 To CP_C ' 初期CP位置決定1
P_CP(i) = 1 + (i - 1) * Sukima
Next i
For i = CP_C + 1 To CP ' 初期CP位置決定2
P_CP(i) = MULTI_C + 1 + (i - CP_C + 1) * Sukima
Next i

count = 0 ' パターン処理回数
count100 = 100
OK = 1
Do Until P_CP(1) > P12345X ' 一本目の走査位置制限
count = count + 1
If count >= count100 Then
Cells(3, 1).Value = count
count100 = count100 + 100
End If
For i = 1 To MULTIno
C_ptn(i) = 0 ' 初期化
Next i

For i = 1 To MULTIno
For j = 1 To CP
If MATRIX(P_CP(j), i) = 1 Then
C_ptn(i) = 1
Exit For
End If
Next j
Next i

>>192
VB6スタンダードを買ってくるだけだ。

' バラ買いパターン表示
For i = 1 To MULTIno
If C_ptn(i) <> 1 Then
Exit For
End If
Next i
If i > MULTIno Then
For U = 1 To CP
Cells((CP + 1) * OK + U + 2, 2) = MULTIptn(P_CP(U), 1)
Cells((CP + 1) * OK + U + 2, 3) = MULTIptn(P_CP(U), 2)
Cells((CP + 1) * OK + U + 2, 4) = MULTIptn(P_CP(U), 3)
Cells((CP + 1) * OK + U + 2, 5) = MULTIptn(P_CP(U), 4)
Cells((CP + 1) * OK + U + 2, 6) = MULTIptn(P_CP(U), 5)
Cells((CP + 1) * OK + U + 2, 7) = MULTIptn(P_CP(U), 6)
Next U
OK = OK + 1
End If

' 走査位置移動
i_RESET = 0
P_CP(CP) = P_CP(CP) + 1
For i = CP_C + 1 To CP - 1
If P_CP(CP - i + CP_C + 1) <= MULTIno - (i - CP_C + 1) * Sukima Then
Exit For
End If
P_CP(CP - i - 1 + CP_C + 1) = P_CP(CP - i - 1 + CP_C + 1) + 1
For j = CP - i + CP_C + 1 To CP
P_CP(j) = P_CP(j - 1) + Sukima
Next j
Next i
If P_CP(CP_C + 1) > MULTIno - (CP - CP_C - 1) * Sukima Then
For i = CP_C + 1 To CP ' 初期ポインタ位置決定2
P_CP(i) = MULTI_C + 1 + (i - CP_C + 1) * Sukima
Next i
i_RESET = 1
End If

>>192UNIX系にすりゃ
コンパイル環境なんかタダでてにはいるだろう
あとWinなら、Windows　Cコンパイラでググレ。

If i_RESET = 1 Then
P_CP(CP_C) = P_CP(CP_C) + 1
For i = 0 To CP_C - 1
If P_CP(CP_C - i) <= MULTI_C - i * Sukima Then
Exit For
End If
P_CP(CP_C - i - 1) = P_CP(CP_C - i - 1) + 1
For j = CP_C - i To CP_C
P_CP(j) = P_CP(j - 1) + Sukima
Next j
Next i
End If

Loop
Range("A4") = "END JOB"
End Sub

>>198
> >>192
> VB6スタンダードを買ってくるだけだ。
買うのかよ (つД｀)

>>201
Cはこの人　→（ ﾟдﾟ）　に任せる


注）
変数の設定方法を昼食後に説明しますので、
連続カキコのために誰か一発レスしておいてください。

＞買うのかよ (つД｀)
ＣＤ・ソフトってお金出して買うのもなの？と言ってみるテスト

203>>（ ﾟдﾟ）そんなくだらねーこと任せられても。
俺も思われているよりは忙しいのだ。さて仕事でもしよっ。

つか、使いたい人が自分の環境に移植すれば。

まずはフィルターとやらを完成させては？

思うにバラ買いで選んだものにフィルターをかけるとバラ買いの意味が無くなるので、
まずフィルターで数字を絞って、その数字で各自がバラ買いすればいいんじゃないかな？

>>207
それで一等が狙えるなら苦労しないよ。
公開されている１１ｔｏ６で１１個まで数字を絞ったら
現実その時点で６個含まれている確率は皆無だよ。
それが現実だからバラ買いパターン全部買っても
三等さえおぼつかない。　と、オレは思ってる。
まぁ、潔くバッサバッサと数字削れば良いんだけどね。

未来予測に微分が使えそうなので調査中です。
昔の話だから憶えてネーよ、微分。
これがダメだったら諦めて、グラフの使い方でも
ご説明しましょうかね。

周期による数字の算出は不可能であることが理屈を以って判明した。

こうなったら場のパーセントで当たるしかないか。
まぁ横とポイント二つの抽出で確率を維持すれば良いだろぅ。。

問題はエントリー数が減ってくれるかだ。(つД｀)

◆hJnkVnTMkA←こいつ知識も無いくせにやけに態度が尊大だよな。
協力する気失せる。（ ﾟдﾟ）氏から見放されるのも無理はない。
凄いものを発見したとか言って勿体ぶる割には肝心な事は何も言わないし。

>>208
一等を狙うつもりなのに何故バラ買い理論にこだわるの？
あれは一等を半ば諦めて、３等４等を狙うというスタンスでしょ。

>>211
数字減らすのも勘じゃなく、理屈を利用したいから。
山勘は全て排除との方向で。

>>210
あのグラフでも最大限ヒントをプレゼントしてるんだよ
オレのレスも。　少しは自分で考えな。
協力は任意だし、オレの為じゃない、ここの同士のためだ
そのために公開したんだよ
何もしない、僻んで難癖着けるだけのお前に用はないよ。

>>210
それが本当に肝心なことなら、今言うわけねーだろ
依存してんじゃネーよ

このスレに来るなら少しは自分で考えて
努力の内容でも見せろ、提案の一つでもしてみろ

バラ買いの本数って、各Xto6の最少本数は何本？
総当たりじゃなくてちゃんと理論化して絞れないのかな？

◆hJnkVnTMkA ←こいつのﾋｷｵﾀｷﾁｶﾞｲ振りがわらけますね

>依存してんじゃネーよ
此処に貼り付いて依存してんのはてめぇーだろwwwwwwwwwwww

>あのグラフでも最大限ヒントをプレゼントしてるんだよ
腐ったケーキはプレゼントとして成り立たない
んなこともわっかんねーーーのwwwwwwwwwwwwwwww

>>205 何奴

>>216
トリップつけたら？

◆hJnkVnTMkAさんと協力して低ｽﾍﾟｯｸＰＣでも動くプログラムを作ってください！

◆hJnkVnTMkA
こんどからソース晒すとき
インデント入れてくれるとありがたいんだけど。無理？

どこかにﾊﾟｽ付きで直接うｐしてくれた方が楽だと思う・・・

それが一番だけどね。
何かどこかのスレでやり方分からないとか言ってたみたいだから。
違っうヒトだったらｽﾏｿ

半角でインデントつけると、ここでは無視されてしまうんだよね。
かと言って全角インデントだと後で消さなきゃいけないので面倒

もし全角スペースをコード中でインデント以外に使ってなければ
インデントだけだから単純にチェンジオールできるけど
晒す側が面倒だね。スルーしてください。

>>218
インデントは付いてるんだけど、貼り付けると
半角スペースは削除されてしまうようです。
全角でインデント付けると後がメンドいよ。

あ、>>221で言ってるね。

すみません。
晒したＶＢＡですが、人に見せるために
色々編集した時におかしくなったようです。
上記は無視してください。
修正して再度うぷします。

修正箇所が解りました。
トップの変数設定では"Skima" になっていますが
プログラム中では　"Sukima" になっていました。

あと、
i = CP_C + 1
となっているところの次の行で
( i - CP_C + 1 )
となっているところを
( i - CP_C - 1 )
としてください。

通りで12to6 ７００万通り走査しても出ないわけだ。

Sukima を２にすると
8to6 4本は３５通りの走査で出ましたが
9to6 8本は104000で出ました。
9to6 7本では441558でした。

怖いんですが･･･

とりあえず、
option explicit
を宣言しなはれ・・・
Variantは極力減らすのじゃ・・・

>>216→（ ﾟдﾟ）さん、さっきはごめんなさい。
名前を騙ったわけではなく俺が勝手に間違えたようです。

>>228 無問題です。ﾏﾀｰﾘ逝きましょう。

>>227
VBAもトーシロなんで、動けば良い程度にしか把握してません。
変数一つ一つをintegerとかで宣言すれば良いですか？
CountはDoubleとかにした方が良いかも。。

10to6
1000万通りの走査を超えそうです。
これじゃぁ12to6なんて兆になるんじゃないの？！
バラ買いパターンってシェアウェアの価値
確かにあるかもしれない。

根本的な改良が必要ですな。

Xto6 等級保証って真面目に全検索すると

(最小本数)
　　Σ　(XC6)Cn
　　n=1

通り検索することになるのかも

はっきり言ってパソコンじゃ無理ですね。
検索範囲を半分にすればいいとかそういうレベルじゃない。

直訳ソース置いとく・・・
http://www.geocities.jp/migiya_umah/Loto6Bara.cpp.txt
漏れがもっと解析（理解）できれば、最適化したコードも可能かもね・・・

パラメータのいじり方が分らないス。

>>230 option explicit にすれば、変数を宣言無しで使えないので
バグを未然に防げたりするですよ。
Variantはメモリ喰うし遅い。 プリミティブバンザイ！

>>232
そうそう、Σの計算方法ってスッカリ忘れてるんですけど
9to6だといくつになりますか？

>>234→（ ﾟдﾟ） さん
おおぅ、ステキ！
パラメタの説明忘れてましたね。次で。

７０００万超えて未だ出ない。
8から9で４桁上がってるから10to6は10億の桁ですね。
取りあえず根本的な解決方法見つけないと逝けませんね。

バラ買いＶＢＡのパラメタ設定方法です。
下記のパラメタのみ設定します。

Xto6 = 8　　　 ' エントリー数を入力 Xto6 の X
CP = 4　　　 ' 走査するバラ買いパターンの本数
この二つは説明不要でしょう

CP_C = 3 ' バラ買い本数前半の終わり値
既存のバラ買いパターンを見ると、左の列は１が２／３から４／３ほど
並んだ後２以降が残りを埋めています。
そこで１を含んだ行と２以降の行で作業を分けます。
8to6は４本である事が知られているので　６マスｘ４＝２４個
バラ買いパターンの数字の入るマスは２４マスです。
１−８までの数字が入るので　２４／８＝３
数字一つ当たり３っパターンに含まれる計算です。
この値を設定します。
１０ｔｏ６なら１４パターンなので１４ｘ６＝８４　　８４／１０＝８．４　だから
８か９を設定します。　ボクは１の数は少ない方が良いと思うので
８を設定しています。


次へ

MULTI_C = 21 ' マルチ本数前半の終わり値
これはＸｔｏ６の全パターンを表示させた時の１を含む行数を設定します。


Skima = 1 ' 各チェックポイント(CP)の次の位置間隔
走査するポイント同志の間隔を設定します。
Ｘｔｏ６のＸの値が大きくなるとバラ買いパターンのそれぞれの
間隔も大きくなるようなので、この値を大きくすることで走査回数を
短縮します。広げすぎるとパターンを見つけ損なうでしょう。

P12345X = 6 ' 先頭のエントリーが含む数
走査ポイントの一本目の移動範囲です。
これを越えたら終了。
１，２，３，４，５，６を一本目にした場合８ｔｏ６なら
１，２，３，４，５，７
１，２，３，４，５，８
１，２，３，４，６，７
１，２，３，４，６，８
を包含するので５を設定します。
まぁこの値にぶつかる前にヒットするでしょう。
この方法を越えたバラ買いパターンがあるかもしれませんが
現状１０ｔｏ６さえ、このプログラムでは対応できなそうなので
あまり気にしないでください。


Dim MULTIptn(924, 6) As Integer ' (マルチ本数, 6)
Dim MATRIX(924, 924) As Integer ' (マルチ本数,マルチ本数)
Dim C_ptn(924) As Integer ' (マルチ本数)
Dim P_CP(46) As Integer ' (CPの値)
目的のＸｔｏ６に対応したマルチパターンの数とＣＰ値を設定します。

今やってた１０ｔｏ６のＰ_ＣＰ（）の値見たら
前半と後半で分割しているうちの前半の値は
一つも上がっていなかった。ｗ
一晩中掛けて１０ｔｏ６でこの有様じゃ使えないですね、
このプログラム。　参考程度にしてください。

本物ではないですが、力技でバラ買いパターン
作ることは出来ますね。
当然本数は既知の値より増えるでしょうが。
それで済ませるか、金払うか･･･

>>232
X=8 最小本数4で 24,157
X=9 最小本数7で 4,968,747,691 かな
Excelで計算中に=COMBIN(COMBIN(9,6),1)が83なんてなったから怪しいけど

全検索で出そうとすると計算量がこんな感覚で増えていくわけですね
効率の良い手抜き検索など、ほかの方法考えないと・・・

119氏も手抜き検索の手法で9to6を7本、10to6を15本(今は14本らしいですが)
で編み出したわけですからね。とりあえず有望な方法かと思われます。
手抜きとはつまり見込みの無い走査をしないということでしょうが、
何を持って「見込みがない」と判断させるかがポイントですね。

おまいら理系でしか？文系の漏れには何を言ってるのかさっぱりわからん。
やっぱおまいさん達は天才。

Ｘto６
とかの買い方は、ハマレば、４等２本　５等７本とか、
おいしい当たり方をするけど、
一つ一つの当選確率が上がるわけでは無いのね。
だから、あたらない時はたくさん買っても５等すら当たらない。
無駄が多いんだよ。

むしろ、同じ数字を２回使わないようにして全ての数字を網羅する。
たった７〜８口の購入で済むんだ。

>>242
バラ買いは当選確率を上げる術じゃない。
予想が当たった時のリターンを大きくする術。

>>242
確率を上げるためではなく、出来る限り
落とさないで購入口数を減らす手段かな？

>>230Doubleは浮動少数点数型ですので表現できる範囲は広いですが計算は遅いそうです。
もし格納するデータが整数でしたら(必要な桁数にもよりますが)
IntegerやLongが良いと思われます。
(以下はVBAのHELPから)
整数型 (Integer) 2 バイト -32,768 〜 32,767

長整数型 (Long) 4 バイト -2,147,483,648 〜 2,147,483,647

単精度浮動小数点数型 (Single) 4 バイト
-3.402823E38 〜 -1.401298E-45 (負の値)。1.401298E-45 〜 3.402823E38 (正の値)。

倍精度浮動小数点数型 (Double) 8 バイト
-1.79769313486231E308 〜 -4.94065645841247E-324 (負の値)。
4.94065645841247E-324 〜 1.79769313486232E308 (正の値)。

バリアント型 (Variant) (数値) 16 バイト

(VB.NETは少々異なります。)

>>245
Doubleが浮動小数点数型なのは今日本を調べて知りました。
そういやＣでもそうでしたっけ。遠い記憶が･･･

簡易バラ買いパターン作ってみました。
X　　既知の数　フリー版
8　　　　4　　　　　4
9　　　　7　　　　　9
10　　　14　　　　19
11　　　22　　　　33
12　　　46　　　　68
13　　　81　　　　114
14　　　127　　　191
15　　　193　　　291
16　　　282　　　453
17　　　506　　　647

使えそうですか？
18to6以降はＶＢＡではメモリーオーバーで作成できません。
これ以上作っても実用に耐えない気もする･･･

ちなみに>>222はこういうことですね。以下ご参考まで。
　1.ソースファイルを別名で保存する。(本物を壊さないように)
　2.それをテキストエディタ（何でも良い）で開く。
　3.半角スペースを全角スペースに全(一括)置換※。
　　(前角スペースが使われていないことが前堤)
　4.それを貼り付ける(と見映えが少し良くなる)。
　Sub　sortValues()
　　　　For　i　=　0　To　5
　　　　　　　　For　j　=　i　To　6
　　　　　　　　　　　　If　MyArray(j)　<　MyArray(i)　Then
　　　　　　　　　　　　　　　　tmp_val　=　MyArray(j)
　　　　　　　　　　　　　　　　MyArray(j)　=　MyArray(i)
　　　　　　　　　　　　　　　　MyArray(i)　=　tmp_val
　　　　　　　　　　　　End　If
　　　　　　　　Next　j
　　　　Next　i
　End　Sub
　5.欲しい人はコピぺして全角スペースを半角に全(一括)置換(自分でインデントを調える必要がない)。
※インデントがタブなら１タブあたり全角スペース4個程度で全(一括)置換。
（これは簡易なエディタだと厳しいかも）

>>246
9to6とか10to6の手軽な本数のやつがそこんじょそこらの
フリーウェアに負けてるようじゃダメかと。。。。

もっともよく知られていている簡易バラ買い作成法は、
01 02 03 04 05 06から順に数字が5つ重複してるやつを
マルチパターンからどんどん削除していく方法。
ほとんどのフリーウェアはこれでやってる。

>>248
あらっ負けてるの？！　やってること同じなんだけど。

ていうか、フリーウェア在るんだ。

>>249

> あらっ負けてるの？！　やってること同じなんだけど。
全部負けてるわけじゃない。勝ってるのもある。


> ていうか、フリーウェア在るんだ。
有名所ではこれとか。
ttp://www.geocities.co.jp/SiliconValley-PaloAlto/9651/
119氏のフリーウェア版も本数が同じだから多分これと同じ手法だろうね。

あと、これもフリーウェアだが方法が違うようだ。
ttp://homepage3.nifty.com/chall/kingloto/software.html#label1

>>250
情報さんくすこ

https://sw.vector.co.jp/swreg/step1.reserve?srno=SR029959&site=y
一等保障バラ買いだって
在りうるのかよ？！

にょ〜らの見たけど

8to6 = 28通り (5,600円) → 4通り (800円)
9to6 = 84通り (16,800円) → 8通り (1,600円)
10to6 = 210通り (42,000円) → 18通り (3,600円)
11to6 = 462通り (92,400円) → 34通り (6,800円)
12to6 = 924通り (184,800円) → 68通り (13,600円)

11to6 は勝ってるし、12to6はタメ張ってるから
良い勝負だと思うけどなぁ。。

モンテカルロ解析でこのくらい、最小まではなかなか行きませんね
12to6,3等
CLGHIB,GLIFBA,CGKFBL,CFDHAJ,FBHALK,ECLGAJ,AFIKLC,BCLDAJ,JCHKGD,ICKJLH,JKAELH
DBLGEH,BFIELH,BIDKCF,FBAHDG,DEFICL,HLFDJB,GJKBEL,AGKEFD,BGCEAD,DCIBHA,HIGJKF
AKGELI,BJADIE,ACLGKD,LFDBEK,JIHGAB,LDGKJF,CEBDJF,HEFDAL,LFKECJ,KEDJCI,ECJHBI
BIJLAK,KADIBG,JABFKC,JGAILD,KGFEHC,IJCGAF,KEHLDC,GEJLIH,HECIFA,JFHCGL,BIGKEF
EHIBKD,FBECAL,KBHAEG,DGFIHE,GHDKIL,JIGBDC,DAFKIJ,KFJHEB,FJBEAG,EGDAJH,JAIHFL
KIBAEC,HGCKAI,ICFJLB,BAJDHK
59本

>>253
有難く頂戴します。
でもなんでこれ、グチャグチャなんですか？
Excelで整理するから良いけど。

乱数で番号を生成、貯めている番号と比べ5個未満の一致数なら貯める を繰り返し、
何回かやったら全検索補完、を繰り返すといったアルゴリズムになってます。
普通はモンテカルロ(風)解析はこのような局面では向かないと思います。(軽く自己矛盾してみる)
で、乱数で生成した後、ソートしてないのでそうなってます。

>>246
17to6の最少は406本ですよ。

>>255 nagirco氏の43to6 ５等保証のプログラムと同様な考え方かな

>>251
ソフトを解凍してみたが
1等保証＝全通り
だった。
バラ買いと書きつつ全買いという詐欺

モンテカルロを整列しました。

>>253さん
モンテカルロ(風)解析方法解るようでしたら、
プログラム組める位の解説をお願いできますか？
フリーで最小のもの作りたいので。
或いは他のパターンは既にありますか？

A B C D E G A C D F H J B C D E F J B E G J K L
A B C D H I A C D G K L B C D F I K C D E F I L
A B C D J L A C E F H I B C D G I J C D E H K L
A B C E F L A C E G J L B C E H I J C D E I J K
A B C E I K A C F G I J B C F G K L C D G H J K
A B C F J K A C F I K L B C F I J L C E F G H K
A B D E I J A C G H I K B C G H I L C E F J K L
A B D F G H A D E F G K B D E F K L C F G H J L
A B D G I K A D E F H L B D E G H L C H I J K L
A B D H J K A D E G H J B D E H I K D E F G H I
A B E F G J A D F I J K B D F H J L D F G J K L
A B E G H K A D G I J L B E F G I K D G H I K L
A B F G I L A E G I K L B E F H I L E G H I J L
A B F H K L A E H J K L B E F H J K F G H I J K
A B G H I J A F H I J L
A B I J K L

A,B,C,D,E,G　　A,C,D,F,H,J　　B,C,D,E,F,J　　B,E,G,J,K,L
A,B,C,D,H,I　　A,C,D,G,K,L　　B,C,D,F,I,K　　C,D,E,F,I,L
A,B,C,D,J,L　　A,C,E,F,H,I　　B,C,D,G,I,J　　C,D,E,H,K,L
A,B,C,E,F,L　　A,C,E,G,J,L　　B,C,E,H,I,J　　C,D,E,I,J,K
A,B,C,E,I,K　　A,C,F,G,I,J　　B,C,F,G,K,L　　C,D,G,H,J,K
A,B,C,F,J,K　　A,C,F,I,K,L　　B,C,F,I,J,L　　C,E,F,G,H,K
A,B,D,E,I,J　　A,C,G,H,I,K　　B,C,G,H,I,L　　C,E,F,J,K,L
A,B,D,F,G,H　　A,D,E,F,G,K　　B,D,E,F,K,L　　C,F,G,H,J,L
A,B,D,G,I,K　　A,D,E,F,H,L　　B,D,E,G,H,L　　C,H,I,J,K,L
A,B,D,H,J,K　　A,D,E,G,H,J　　B,D,E,H,I,K　　D,E,F,G,H,I
A,B,E,F,G,J　　A,D,F,I,J,K　　B,D,F,H,J,L　　D,F,G,J,K,L
A,B,E,G,H,K　　A,D,G,I,J,L　　B,E,F,G,I,K　　D,G,H,I,K,L
A,B,F,G,I,L　　A,E,G,I,K,L　　B,E,F,H,I,L　　E,G,H,I,J,L
A,B,F,H,K,L　　A,E,H,J,K,L　　B,E,F,H,J,K　　F,G,H,I,J,K
A,B,G,H,I,J　　A,F,H,I,J,L
A,B,I,J,K,L

フィルターの方はどうなったんですか？

>>257
たぶん同じような事をしているのだと思います

>>259
Xto6 3等 の時
1. 乱数を使って1本生成、1つめの「貯めデータ」にする
2. 乱数を使って1本生成
3. 全「貯めデータ」と比較、5個未満の一致の時、「貯めデータ」に追加
4. 「2.」からn回繰り返す
5. XC6通り(数字X個全買)のデータで「3.」と同じ事をして足りない部分を補完
6. 以前より少ない本数だったとき「貯めデータ」出力
7. 「1.」から繰り返してより少ない本数を探る

乱数を使っているので当然、再現性は無いです

>>262
ありがとうございます。
へー、「保障｣をカオスから求めるんだ！
明日にでも作ってみようかな

で、取りあえずフリーのバラ買いパターン作成コード晒します。

Option Explicit
Sub LOTO6_BARAKAIPATTERN_CREATE_FREE_VERSION()
' LOTO6 Macro バラ買い理論パターン作成 フリー版!!
Dim StartP As Long
Dim PStart As Long
Dim MULTIno As Long
Dim Xto6 As Long
Dim KAI As Integer
Dim KAISU As Integer
Dim I As Long
Dim J As Long
Dim K As Long
Dim L As Long
Dim M As Long
Dim N As Long
Dim Z As Integer
Dim OUT As Integer
Dim MULTIptn(12376, 6) As Integer ' (マルチ本数, 6)
Dim MATRIX(12376, 12376) As Integer ' (マルチ本数,マルチ本数)
Dim CHOOSE(12376, 6) As Integer ' (マルチ本数)
Dim COUNT As Long
Dim BARACNT As Integer

Xto6 = 17
MULTIno = Xto6 * (Xto6 - 1) * (Xto6 - 2) * (Xto6 - 3) * (Xto6 - 4) * (Xto6 - 5) / 6 / 5 / 4 / 3 / 2
KAISU = Xto6

I = 6: J = 5: K = 4: L = 3: M = 2: N = 1
Workbooks.Add.Activate
Cells.Select
Selection.ColumnWidth = 3
With Selection
.HorizontalAlignment = xlCenter
End With
Range("A1:A2").Select
With Selection
.HorizontalAlignment = xlGeneral
End With
Columns("A:A").ColumnWidth = 15.63

Cells(1, 1) = "バラ買い理論　パターン作成"
Cells(2, 1) = "マルチパターン作成中"
Range("A4").Select
COUNT = 0

Do Until COUNT > MULTIno - 1
COUNT = COUNT + 1
MULTIptn(COUNT, 1) = CInt(N): MULTIptn(COUNT, 2) = CInt(M)
MULTIptn(COUNT, 3) = CInt(L): MULTIptn(COUNT, 4) = CInt(K)
MULTIptn(COUNT, 5) = CInt(J): MULTIptn(COUNT, 6) = CInt(I)
I = I + 1
If I > Xto6 Then
J = J + 1: I = J + 1
If J > Xto6 - 1 Then
K = K + 1: J = K + 1: I = J + 1
If K > Xto6 - 2 Then
L = L + 1: K = L + 1: J = K + 1: I = J + 1
If L > Xto6 - 3 Then
M = M + 1: L = M + 1: K = L + 1: J = K + 1: I = J + 1
If M > Xto6 - 4 Then
N = N + 1: M = N + 1: L = M + 1: K = L + 1: J = K + 1: I = J + 1
End If
End If
End If
End If
End If
Loop
' マルチパターン表示　22to6 以降は65536行を超える
'GoTo SKIP1
For I = 1 To MULTIno
For J = 1 To 6
Cells(7 + I, 9 + J).Value = MULTIptn(I, J)
Next J
Next I
SKIP1:

' マトリクス作成
Cells(2, 1) = "マトリクス作成中"
For COUNT = 1 To MULTIno
Cells(3, 1) = COUNT
For COUNT100 = 1 To MULTIno
M = 0
For I = 1 To 6
For J = 1 To 6
If MULTIptn(COUNT, I) = MULTIptn(COUNT100, J) Then
M = M + 1
End If
Next J
Next I
If M >= 5 Then
MATRIX(COUNT, COUNT100) = 1
End If
Next COUNT100
Next COUNT
' マトリクス表示　11to6以上はExcelの列が足りない
GoTo SKIP2
For I = 1 To MULTIno
For J = 1 To MULTIno
Cells(7 + I, 16 + J) = MATRIX(I, J)
Next J
Next I

Range("J8:O217").Select
Selection.Copy
Range("Q1").Select
Selection.PasteSpecial Paste:=xlAll, Operation:=xlNone, SkipBlanks:=False _
, Transpose:=True
Application.CutCopyMode = False
Range("A4").Select
SKIP2:

Cells(2, 1) = "バラ買いパターン走査中"
OUT = 0
COUNT = 0 ' パターン処理回数
For KAI = 1 To KAISU
StartP = KAI ' 走査開始位置
PStart = MULTIno - KAI + 1


まだ続く･･･

18to6四等保証、ついにロトセミと同じ56本で組めました。
感動して泣いたよまじで。（つд｀）
たかがデータ如きで1600円も取るなんてなんてガメツイんだ
と思ってたけど、考えを改めました。ロトセミはすごいっす。

でも三等保証の方はだいぶ甘々みたいなんでね。
こちらは容赦なく超えさせて貰います(｡-_-｡)ノ

Do While 1
COUNT = COUNT + 1
Cells(3, 1).Value = COUNT

For I = StartP To MULTIno ' 選択パターン移動
If MULTIptn(I, 0) = 0 Then
StartP = I
Exit For
End If
Next I
If I >= MULTIno Then
Exit Do
End If
CHOOSE(StartP, 0) = 1
For I = 1 To 6
CHOOSE(StartP, I) = MULTIptn(StartP, I) ' バラ買いパターンコピー
Next I
For I = 1 To MULTIno
If MATRIX(I, StartP) = 1 Then
MULTIptn(I, 0) = 99
End If
Next I

'GoTo SKIP3
For I = PStart To 1 Step -1
If MULTIptn(I, 0) = 0 Then
PStart = I
Exit For
End If
Next I
If I <= 1 Then
Exit Do
End If
CHOOSE(PStart, 0) = 1
For I = 1 To 6
CHOOSE(PStart, I) = MULTIptn(PStart, I) ' バラ買いパターンコピー 逆ポイント探し
Next I
For I = PStart To 1 Step -1
If MATRIX(I, PStart) = 1 Then
MULTIptn(I, 0) = 99
End If
Next I
SKIP3:
Loop

' バラ買いパターン表示
BARACNT = 0
For I = 1 To MULTIno
If CHOOSE(I, 0) = 1 Then
For J = 1 To 6
Cells(OUT + 8, J + 1) = CHOOSE(I, J)
Next J
OUT = OUT + 1
BARACNT = BARACNT + 1
End If
Next I
Cells(OUT + 7, 1) = BARACNT
OUT = OUT + 1

For I = 1 To MULTIno ' データクリア
MULTIptn(I, 0) = 0
CHOOSE(I, 0) = 0
For J = 1 To 6
CHOOSE(I, J) = 0
Next J
Next I

Next KAI
Range("A4") = "END JOB"
End Sub

終了。。。

>>269
> でも三等保証の方はだいぶ甘々みたいなんでね。
> こちらは容赦なく超えさせて貰います(｡-_-｡)ノ

越えて良いからフリーにしようよ

>越えて良いからフリーにしようよ

貧乏人はｼﾈ

モンテカルロ解析で１８ｔｏ６が９１２本を
出したけど現実意味ないね。
１３ｔｏ６以降は４等保障のパターンで逝くかな。。

>>273
すでに費用が発生してるから無理ですね。
自宅のPCでやるとCPUが焼けそうなので、深夜に漫画喫茶に籠もって検証してます。
あと印刷機能つくるためにプリンタも買わなきゃいけないし。

>>276
そうですか、もう投資してるんですね。
じゃぁオレはモンテカルロでnanasiさんをチョッとだけドキドキさせようかなｗ
１８ｔｏ６、今９０３表示してます。

そうだよ、キーとなるパターンとモンテ組み合わせたらモット逝ける。。

>>277
18to6三等保証ならフリー版のCQPでも756本ですよ・・・

>>278
あっ！

>>278
β版ならこのスレの人だけフリーにしてくれ('A`)・・・

>>280
一応、CQPがフリーウェアという位置づけなんですがね。
フィルターにかける素材としてはあれくらいで十分なんじゃないでしょうか。
あ、でもちょっとコードをいじるだけでだいぶ本数減らせる事に気付いたんで、
シェアウェア版が一段落ついたら改良に着手します。

シェアウェア版は削減機能以外はCQPと基本的に同じですからβ版というものは無いですねぇ。

漏れも、研究再開するかな・・・