如何查找双色球某一红号码在33选6所有号码排列中的位置？

如何查找双色球红号码在33选6组合号码中的位置？

双色球红号共有1107568注，有时特殊需要得知道某一号码在这1107568注的位置，也就是第几注，你一个个地找肯定可以，但计算速度会超级慢下来，而且1107568注在EXCEL中也没法子放。
所以我通过计算，找到一个快速查找位置的公式，现在分享给大家，方便大家查找。
公式中H1、H2、H3、H4、H5、H6分别代表你的号码中的六个号的值。
那么这六个号组成的号码在在33选6组合号码中的位置就是：

code:

---

=1107568 +((29 - H1) * (30 - H1) * (31 - H1) / 6 * (32 - H1) * (33 - H1) / 20) * (1 - (34 - H1) / 6) + ((30 - H2) * (31 - H2) * (32 - H2) / 6 * (33 - H2) / 4) * (1 - (34 - H2) / 5)
+((31 - H3) * (32 - H3) * (33 - H3) / 6) * (1 - (34 - H3) / 4) + ((32 - H4) * (33 - H4) / 2) * (1 - (34 - H4) / 3) - (33 - H5) * (34 - H5) / 2 - H5 + H6

---

写成多行就成这样的了。

code:

---

  = 1107568
+ ((29 - d1) * (30 - d1) * (31 - d1) / 6 * (32 - d1) * (33 - d1) / 20) * (1 - (34 - d1) / 6)
+ ((30 - d2) * (31 - d2) * (32 - d2) / 6 * (33 - d2) / 4) * (1 - (34 - d2) / 5)
+ ((31 - d3) * (32 - d3) * (33 - d3) / 6) * (1 - (34 - d3) / 4)
+ ((32 - d4) * (33 - d4) / 2) * (1 - (34 - d4) / 3)
- (33 - d5) * (34 - d5) / 2 - d5 
+ d6

---

至于是什么意思，怎么得来的，就请别问了。你可以验证对不对就行了！
本公式适用于EXCEL中的公式、VBA计算、其它编程语言都可以。

使用举例：
查找{01，02，03，04，05，06}的位置，得到值=1
查找{28，29，30，31，32，33}的位置，得到值=1107568
查找{1， 7， 13， 20， 26， 33}的位置，得到值=130444

这个 就是绝对序号。前一阵子刚刚学过。 vba处代码正是这样写的。 得出来的就是 这组6红的绝对序号位置。 谢谢分享

现在第二个问题也出来了，我想知道双色球第N个位置的号码中哪6个？应该怎样计算？
请高手回答为谢！

谢谢楼主分享.

现在这不能把绝对位置的号码给计算出来，只能使用试商法，速度受到影响。但也帖出来，请大家给个不需要循环的方法。

code:

---

'数转乐透33_6
Function DigitToLott(ByVal n As Long, ByRef ar() As Integer) As Long
  Dim d1 As Integer, d2 As Integer, d3 As Integer, d4 As Integer, d5 As Integer, d6 As Integer
  Dim dn As Long, tf As Long, g As Long
  dn = 32: tf = 0: While (tf < n): dn = dn - 1: g = tf: tf = tf + dn * (dn + 1) / 2 * (dn + 2) / 3 * (dn + 3) / 4 * (dn + 4) / 5: Wend: dn = dn + 1
  d1 = 33 - dn: tf = g: While (tf < n): dn = dn - 1: g = tf: tf = tf + dn * (dn + 1) / 2 * (dn + 2) / 3 * (dn + 3) / 4: Wend: dn = dn + 1
  d2 = 34 - dn: tf = g: While (tf < n): dn = dn - 1: g = tf: tf = tf + dn * (dn + 1) * (dn + 2) / 6: Wend: dn = dn + 1
  d3 = 35 - dn: tf = g: While (tf < n): dn = dn - 1: g = tf: tf = tf + dn * (dn + 1) / 2: Wend
  d4 = 35 - dn: tf = g: While (tf < n): g = tf: tf = tf + dn: dn = dn - 1: Wend
  d5 = 35 - dn
  d6 = d5 + (n - g)
  ar(1) = d1: ar(2) = d2: ar(3) = d3: ar(4) = d4: ar(5) = d5: ar(6) = d6
  DigitToLott = 1
End Function

---

杨哥哥，能不能用2003电子表格发一个！

杨哥哥，有没有双色球6个号码绝对位置全部排列表！很期待你帮助做一份用2003版本的表格！

直接用6个号码尾数做绝对位置排列的组数会减少不少！

那我就做一个吧，1107568注，每组只能65535行，所有得排20列了。

杨哥哥，1107568注在彩票软件上就可以达到要求！表格能否用6个号码【尾数】绝对位置来排列全部数组，应该比全部数组1107568注的组数少！

杨哥哥，本人理解的尾数绝对位置排列的定义：绝对位置意思：假设第一个位置尾数是0，对应号码10；20；30，第二个位置尾数是0，对应号码10；20；30，第三个尾数是0,对应号码10；20；30，第四个尾数是1，对应号码1；11；21；31第五个尾数1，对应号码1；11；21；31，第六个尾数1，对应号码1；11；21；31，那么这组尾数绝对位置排列组是000111；但是各自位置代入对应号码按大小顺序排列，这第一个号码是10，第二个只能选号20，第三个只能选号30，第四个选号31，第五个和第六个就没有号码了选上了，这组000111排列是不成立的！这个就是理解的绝对位置排列，用尾数定位选号可以缩小范围，6个号码每个位置虽然是“1-10”，约有99万多组，需要把有些不成立的排列组合过滤掉！再比如009999,888800,777700,006666,555500等等，这些尾数位置排列组都是可以排除的，这种排列方法是否应称定位尾数排列。因为定位是每个位置对应号码固定，但必须考虑大小顺序各自位置号码不能颠倒。就是第一个位置尾数对应号码定大小后，后面5个固定位置对应号码必须以递增选号.这样全部的定位尾数排列组数不是可以过滤很多组了！

这个可以做到，我近期给你表格！

尾序号表已经上传，共22.3MB，分成10个压缩文件，请全部下载！

总有效的序号个数为527626个，即从000123-999123。
尾序号表.part01.rar
尾序号表.part02.rar
尾序号表.part03.rar
尾序号表.part04.rar
尾序号表.part05.rar
尾序号表.part06.rar
尾序号表.part07.rar
尾序号表.part08.rar
尾序号表.part09.rar
尾序号表.part10.rar

你尽可以用此来杀尾！

杨哥哥！感谢你多次无私的帮助！心头再次暖暖地收下你制作的这份表格！有些选号思路和方法不能通过表格制作来完成，通过人工和表格内简易函数来完成难度可想而知，现在有此表格来做模板，想做个简便的选号表，在表格里面制作设定条件来过滤尾数数组【网上网站提供的有些尾数定位分析软件设定条件有的不全面，要是能再加上一些特定条件，会过滤掉很多尾数排列数组】，而只留下很少慨率高的尾数数组，不过表格所设定过滤条件计算方面能通过编程速度会更快一点。因为本人电子表格应用基础差，其中过滤条件节点挂接运算不好处理，能否请你再帮助解决！烦你考虑一下？行的话！我就把这份选号表给你传过去！

推荐你看看我最近发的立体阵，也可以用到你的尾数算法中，九宫格行列尾数相加等于1.

本帖最后由 闻名 于 2015-11-2 21:38 编辑



具体怎么用

我想知道反过来的怎么算

反过来的算法已经公布，在14楼！

麻烦问下这个代码怎么用

这个代码怎么用，新建excal还是

不是啊，我是不明白用这个代码怎么查找6红

直接复制进去，倒是代码没问题，但是我用到5万多注那里面没效果，我还复制了代码

代码复制进去，没效果啊，我想知道复制代码之后怎么查找下期开奖号，

代码用不来,谁来教教咱用代码:shy

公式中H1、H2、H3、H4、H5、H6分别代表你的号码中的六个号的值。你直接把公式复制到编辑栏执行就可以了。非常简单的。

本帖最后由 杨哥哥儿 于 2016-1-20 11:17 编辑



就像这样！

学会了 非常感谢

其实我更想知道如果知道了序号.又如何把序转为6红呢？