转“自编双色球缩水程序（C语言）”

楼主

duy3 | 发表于2018-01-11 23:19:50

自编双色球缩水程序（C语言）

以下是本人自编自用的双色球缩水程序，四年多来本人最多一次中过3000（离500W就一个数，28与29的差别），中过十几次200。儿子杨朗死后就再也没有用过该程序。现将其公布在天涯，以感谢天涯对本人的支持。
　　编程的思路是以前面的30期为数据统计依据，计算下一期要出的号码。懂C的朋友如有不解之处，可给本人发短信，共同探讨。
　　
　　main()
　　{
　　 int i, j, k, l, m, n, o, p,s,t,X;
　　 int w,R, d[6], f[6],c[33], e[33], N1,N2,N3,N4,N5,N6;
　　 int S=0, Z;
　　 int CS[13];
　　 int LH[13];
　　 int a[30][6]={{5,7,10,14,17,25},
　　 {5,8,10,15,23,26},{3,7,13,23,27,30},{7,13,17,26,32,33},
　　 {10,11,13,16,19,30},{10,19,20,21,23,32},{2,5,11,26,30,32},
　　 {1,2,14,23,28,29},{8,12,20,22,30,33},{2,15,19,24,31,32},
　　 {4,10,16,23,28,30},{6,11,18,20,25,30},{3,5,12,18,21,23},
　　 {1,2,9,10,21,31},{4,5,23,26,31,32},{1,3,12,20,21,29},
　　 {9,16,17,18,22,27},{5,10,16,19,23,28},{1,13,15,17,20,30},
　　 {9,18,19,25,28,31},{1,9,14,16,28,32},{5,7,12,14,15,20},
　　 {2,9,16,21,30,31},{1,11,13,25,32,33},{4,5,6,25,29,30},
　　 {11,15,18,21,27,29},{2,8,12,18,24,28},{4,9,11,20,32,33},
　　 {4,8,12,17,20,30},{11,12,13,18,23,32}};
　　 int b[5][6]={{11,15,18,21,27,29},{2,8,12,18,24,28},
　　 {4,9,11,20,32,33},{4,8,12,17,20,30},{11,12,13,18,23,32}};
　　 for(k=0;k<=32;k++)
　　 for(i=0;i<=29;i++)
　　 for(j=0;j<=5;j++)
　　 if(a[j]==k+1) c[k]=c[k]+1;
　　 for(k=0;k<=32;k++)
　　 for(i=0;i<=4;i++)
　　 for(j=0;j<=5;j++)
　　 if(b[j]==k+1) e[k]=e[k]+1;
　　 for(i=0;i<=16;i++)
　　 {
　　 d[0]=c;f[0]=e;N1=i+1;
　　 for(j=1;j<=19;j++)
　　 { d[1]=c[j];f[1]=e[j];N2=j+1;
　　 for(k=3;k<=24;k++)
　　 {d[2]=c[k];f[2]=e[k];N3=k+1;
　　 for(l=4;l<=29;l++)
　　 {d[3]=c[l];f[3]=e[l];N4=l+1;
　　 for(m=10;m<=31;m++)
　　 {d[4]=c[m];f[4]=e[m];N5=m+1;
　　 for(n=15;n<=32;n++)
　　 {d[5]=c[n];f[5]=e[n];N6=n+1;
　　 R=0;Z=0;X=0;
　　 for(o=0;o<=12;o++) {CS[o]=0;LH[o]=0;}
　　 Z=N1+N2+N3+N4+N5+N6;
　　 R=d[0]+d[1]+d[2]+d[3]+d[4]+d[5];
　　 X=f[0]+f[1]+f[2]+f[3]+f[4]+f[5];
　　 for(o=0;o<=12;o++)
　　 for(p=0;p<=5;p++)
　　 {if(d[p]==o) CS[o]=CS[o]+1;
　　 if(f[p]==o) LH[o]=LH[o]+1;}
　　 if((R==25||R==27||R==33)&&N1　　 (Z==88||Z==94||Z==100||Z==66)&&(X==5||X==7)&&
　　 (N1==1||N1==3||N1==5||N1==6)&&
　　 (N6==22||N6==24||N6==26||N6==27||N6==28||Z==31)&&
　　 (N2<11))
　　 {if((CS[2]+CS[4])>=1&&CS[7]==0&&CS[8]>=1&&CS[9]<=1&&CS[2]<=2&&CS[6]>=1&&CS[5]<=2&&CS[6]<=3&&CS[4]<=1&&(CS[2]>=2||CS[5]==2||CS[6]>=2)&&
　　 LH[0]>=2&&LH[0]<=3&&LH[1]>=1&&LH[1]<=2&&(LH[2]+CS[3])>=1)
　　 {
　　 printf("%d %d %d %d %d %d ", N1, N2, N3, N4, N5, N6);
　　 printf(" ");
　　 printf("%d ",Z);
　　 printf("%d ",R);
　　 printf("%d%d%d%d%d%d ",d[0],d[1],d[2],d[3],d[4],d[5]);
　　 printf("%d%d%d%d%d%d ",f[0],f[1],f[2],f[3],f[4],f[5]);
　　 printf(" ");S++; }
　　 }
　　 }
　　 }
　　 }
　　 }
　　 }
　　
　　 }
　　 printf("S=%d ",S);
　　 }
　　

1楼
duy3 | 发表于2018-01-11 23:20:15
转：
以上程序运行的结果为：
　　1 8 19 20 22 24 94 27 645822 020201
　　6 8 13 19 20 22 88 27 246582 021020
　　
　　如果你的调试结果与上面一样，说明你知道怎样用该程序了。
2楼
duy3 | 发表于2018-01-11 23:24:20
本帖最后由 duy3 于 2018-1-11 23:25 编辑

以上程序运行的结果为：
　　1 8 19 20 22 24 94 27 645822 020201
　　6 8 13 19 20 22 88 27 246582 021020
3楼
duy3 | 发表于2018-01-12 12:40:33
本帖最后由 duy3 于 2018-5-15 14:01 编辑

核心：1
if((R==25||R==27||R==33)&&N1
N1...N6:开奖号码的六个红球
Z:六个红球和值
R:30期六个红球出现次数的总和
X:5期六个红球出现次数的总和

核心：2
if((CS[2]+CS[4])>=1&&CS[7]==0&&CS[8]>=1&&CS[9]<=1&&CS[2]<=2&&CS[6]>=1&&CS[5]<=2&&CS[6]<=3&&CS[4]<=1&&(CS[2]>=2||CS[5]==2||CS[6]>=2)&&LH[0]>=2&&LH[0]<=3&&LH[1]>=1&&LH[1]<=2&&(LH[2]+CS[3])>=1)
CS[n]：六个红球中30期次数为n的号码个数,n=0...12
LH[n]：六个红球中5期次数为n的号码个数,n=0...5
4楼
duy3 | 发表于2018-01-13 12:34:23
VBA高手可以弄个表格出来
5楼
jingning918 | 发表于2018-01-15 10:23:16
谢谢大师理论，学习领会。
6楼
dnjgyp | 发表于2018-01-15 15:58:32

愿闻其详，谢谢
7楼
duy3 | 发表于2018-01-15 16:17:49

c、e数组从单元格获得数据进统计
8楼
duy3 | 发表于2018-01-15 16:50:30
For k=0 To 32
For i=0 To 29
　 For j=0 To 5
　　If a(i,j)=k+1 Then c(k)=c(k)+1
Next:Next:Next:End If
For k=0 To 32
　For i=0 To 4
　　For j=0; To 5
　　 If b(i,j)=k+1 Then e(k)=e(k)+1;
Next:Next:Next:End If
For i=0 To 16
d(0)=c(i):f(0)=e(i):N1=i+1

For j=1 To 19
d(1)=c(j):f(1)=e(j):N2=j+1

For k=3 To 24
d(2)=c(k):f(2)=e(k):N3=k+1

For l=4 To 29
d(3)=c(l):f(3)=e(l):N4=l+1

For m=10 To 31
d(4)=c(m):f(4)=e(m):N5=m+1

For n=15 To 32
d(5)=c(n):f(5)=e(n):N6=n+1

R=0;Z=0;X=0;
For o=0 To 12
CS(o)=0:LH(o)=0

Z=N1+N2+N3+N4+N5+N6
R=d(0)+d(1)+d(2)+d(3)+d(4)+d(5)
X=f(0)+f(1)+f(2)+f(3)+f(4)+f(5);
For o=0 To 12
For p=0 To 5
If d(p)=o) Then CS(o)=CS(o)+1
If f(p)=o) Then LH(o)=LH(o)+1
If (R=25 OR R=27 OR R=33)&&N1　　 (Z=88 OR Z=94 OR Z=100 OR Z=66)&&(X=5 OR X=7)&&(N1=1 OR N1=3 OR N1=5 OR N1=6)&&(N6=22 OR N6=24||N6=26||N6=27||N6==8||Z=31)&&
　　 (N2<11) Then
　If (CS(2)+CS(4))>=1&&CS(7)=0&&CS(8)>=1&&CS(9)<=1&&CS(2)<=2&&CS(6)>=1&&CS(5)<=2&&CS(6)<=3&&CS(4)<=1&&(CS(2)>=2||CS(5)=2||CS(6)>=2)&&
　　 LH(0)>=2&&LH(0)<=3&&LH(1)>=1&&LH(1)<=2&&(LH(2)+CS(3))>=1 Then
　　 Next
　　 printf("%d %d %d %d %d %d ", N1, N2, N3, N4, N5, N6);
　　 printf(" ");
　　 printf("%d ",Z);
　　 printf("%d ",R);
　　 printf("%d%d%d%d%d%d ",d(0),d(1),d(2),d(3),d(4),d(5));
　　 printf("%d%d%d%d%d%d ",f(0),f(1),f(2),f(3),f(4),f(5));
　　 printf(" ");S++; }
　　 Next
　　 Next
　　 Next
　　 Next
　　 Next
　　 Next
　　
　　 Next
　　 printf("S=%d ",S)
End If
　　 End Sub
不完善，请高手们修正！
9楼
dnjgyp | 发表于2018-01-15 17:25:01

10楼
汽修 | 发表于2018-01-15 23:24:46
大师，可否将表格程式发上来参考参考
11楼
duy3 | 发表于2018-01-16 12:58:48

核心：1
if((R==25||R==27||R==33)&&N1核心：1
R=参数1
N1---N6=位置号码
Z=合分值或参数0
X=参数2
核心：2
if((CS[2]+CS[4])>=1&&CS[7]==0&&CS[8]>=1&&CS[9]<=1&&CS[2]<=2&&CS[6]>=1&&CS[5]<=2&&CS[6]<=3&&CS[4]<=1&&(CS[2]>=2||CS[5]==2||CS[6]>=2)&&LH[0]>=2&&LH[0]<=3&&LH[1]>=1&&LH[1]<=2&&(LH[2]+CS[3])>=1)
核心：2
CS[2]--CS[9]==参数22--参数29
LH[0]--LH[3]==参数11--参数14

12楼
duy3 | 发表于2018-01-16 15:04:56
13楼
duy3 | 发表于2018-01-23 14:22:12
本帖最后由 duy3 于 2018-1-23 14:27 编辑

Private Sub CommandButton1_Click()
Dim arrSrc, brrSrc
Dim c(33),e(33),d(33),f(33),CS(13),LH(13)
Dim N1,N2,N3,N4,N5,N6
Dim k As Long, i As Long, j As Long, l As Long, m As Long, n As Long, o As Long, p As Long
Dim R As Long,Z As Long,X As Long,S As Long
S=0
For k=0 To 32
For i=0 To 29
　 For j=0 To 5
　　If arrSrc(i,j)=k+1 Then
c(k)=c(k)+1
Next:Next:Next:End If
For k=0 To 32
　For i=0 To 4
　　For j=0; To 5
　　 If brrSrc(i,j)=k+1 Then
e(k)=e(k)+1;
Next:Next:Next:End If
For i=0 To 16
d(0)=c(i):f(0)=e(i):N1=i+1

For j=1 To 19
d(1)=c(j):f(1)=e(j):N2=j+1

For k=3 To 24
d(2)=c(k):f(2)=e(k):N3=k+1

For l=4 To 29
d(3)=c(l):f(3)=e(l):N4=l+1

For m=10 To 31
d(4)=c(m):f(4)=e(m):N5=m+1

For n=15 To 32
d(5)=c(n):f(5)=e(n):N6=n+1

R=0;Z=0;X=0;
For o=0 To 12
CS(o)=0:LH(o)=0

Z=N1+N2+N3+N4+N5+N6
R=d(0)+d(1)+d(2)+d(3)+d(4)+d(5)
X=f(0)+f(1)+f(2)+f(3)+f(4)+f(5);
For o=0 To 12
For p=0 To 5
If d(p)=o) Then CS(o)=CS(o)+1
If f(p)=o) Then LH(o)=LH(o)+1
If (R=25 OR R=27 OR R=33)&&N1　　 (Z=88 OR Z=94 OR Z=100 OR Z=66)&&(X=5 OR X=7)&&(N1=1 OR N1=3 OR N1=5 OR N1=6)&&(N6=22 OR N6=24||N6=26||N6=27||N6==8||Z=31)&&
　　 (N2<11) Then
　If (CS(2)+CS(4))>=1&&CS(7)=0&&CS(8)>=1&&CS(9)<=1&&CS(2)<=2&&CS(6)>=1&&CS(5)<=2&&CS(6)<=3&&CS(4)<=1&&(CS(2)>=2||CS(5)=2||CS(6)>=2)&&
　　 LH(0)>=2&&LH(0)<=3&&LH(1)>=1&&LH(1)<=2&&(LH(2)+CS(3))>=1 Then
　　 Next
　　 Cells(i, 1) = N1:Cells(i, 2) = N2:Cells(i, 3) = N3:Cells(i, 4) = N4:Cells(i, 5) = N5:Cells(i, 6) = N6
　　 Cells(i, 7) = Z'红球和值
　　 Cells(i, 8) = R
　　 Cells(i, 9) = d(0):Cells(i, 10) = d(1):Cells(i, 11) = d(2):Cells(i, 12) = d(3):Cells(i, 13) = d(4):Cells(i, 14) = d(5)
　　 Cells(i, 15) = f(0):Cells(i, 16) =f(1):Cells(i, 17) =f(2):Cells(i, 18) =f(3):Cells(i, 19) =f(4):Cells(i, 20) =f(5)
　　 S=S+1
　　 Next:Next:Next:Next:Next:Next: Next
　　 Cells(i, 21) =S
End If
　　 End Sub
14楼
汽修 | 发表于2018-01-23 17:45:17
楼主不好将双色同大乐透两个版本发上来参议吗
15楼
hw2 | 发表于2018-02-01 16:54:05
C语言看不懂，有理论么？或者有没有验证的表格呢？
16楼
杨哥哥儿 | 发表于2018-02-04 15:45:17
s=0
17楼
duy3 | 发表于2018-02-04 19:50:52

S的结果=2，按他的数据进行共两注；
18楼
duy3 | 发表于2018-05-15 13:53:39
核心：1
if((R==25||R==27||R==33)&&N1
N1...N6:开奖号码的六个红球
Z:六个红球和值
R:30期六个红球出现次数的总和
X:5期六个红球出现次数的总和
19楼
duy3 | 发表于2018-05-15 13:59:30
核心：2
if((CS[2]+CS[4])>=1&&CS[7]==0&&CS[8]>=1&&CS[9]<=1&&CS[2]<=2&&CS[6]>=1&&CS[5]<=2&&CS[6]<=3&&CS[4]<=1&&(CS[2]>=2||CS[5]==2||CS[6]>=2)&&LH[0]>=2&&LH[0]<=3&&LH[1]>=1&&LH[1]<=2&&(LH[2]+CS[3])>=1)
CS[n]：六个红球中30期次数为n的号码个数,n=0...12
LH[n]：六个红球中5期次数为n的号码个数,n=0...5
20楼
duy3 | 发表于2018-05-15 14:00:06
核心：1
if((R==25||R==27||R==33)&&N1
N1...N6:开奖号码的六个红球
Z:六个红球和值
R:30期六个红球出现次数的总和
X:5期六个红球出现次数的总和
核心：2
if((CS[2]+CS[4])>=1&&CS[7]==0&&CS[8]>=1&&CS[9]<=1&&CS[2]<=2&&CS[6]>=1&&CS[5]<=2&&CS[6]<=3&&CS[4]<=1&&(CS[2]>=2||CS[5]==2||CS[6]>=2)&&LH[0]>=2&&LH[0]<=3&&LH[1]>=1&&LH[1]<=2&&(LH[2]+CS[3])>=1)
CS[n]：六个红球中30期次数为n的号码个数,n=0...12
LH[n]：六个红球中5期次数为n的号码个数,n=0...5
21楼
duy3 | 发表于2018-05-15 14:05:06
核心：1
if((R==25||R==27||R==33)&&N1
N1...N6:开奖号码的六个红球
Z:六个红球和值
R:30期六个红球出现次数的总和（这个用表格可以统计计算）
X:5期六个红球出现次数的总和（这个用表格可以统计计算）
核心：2
if((CS[2]+CS[4])>=1&&CS[7]==0&&CS[8]>=1&&CS[9]<=1&&CS[2]<=2&&CS[6]>=1&&CS[5]<=2&&CS[6]<=3&&CS[4]<=1&&(CS[2]>=2||CS[5]==2||CS[6]>=2)&&LH[0]>=2&&LH[0]<=3&&LH[1]>=1&&LH[1]<=2&&(LH[2]+CS[3])>=1)
CS[n]：六个红球中30期次数为n的号码个数,n=0...12（这个用表格可以统计计算，分层提出号码组）
LH[n]：六个红球中5期次数为n的号码个数,n=0...5 （这个用表格可以统计计算，分层提出号码组）

22楼
duy3 | 发表于2018-05-15 14:12:48
本帖最后由 duy3 于 2018-5-15 14:14 编辑

核心：1
if((R==25||R==27||R==33)&&N1
if(or(R={25,27,33}),1,0)&if(or(Z={66,88,100}),1,0)

N1...N6:开奖号码的六个红球
Z:六个红球和值
R:30期六个红球出现次数的总和（这个用表格可以统计计算）
X:5期六个红球出现次数的总和（这个用表格可以统计计算）

核心：2
if((CS[2]+CS[4])>=1&&CS[7]==0&&CS[8]>=1&&CS[9]<=1&&CS[2]<=2&&CS[6]>=1&&CS[5]<=2&&CS[6]<=3&&CS[4]<=1&&(CS[2]>=2||CS[5]==2||CS[6]>=2)&&LH[0]>=2&&LH[0]<=3&&LH[1]>=1&&LH[1]<=2&&(LH[2]+CS[3])>=1)

if(and(CS[2]+CS[4])>=1,CS[7]=0,CS[8]>=1,CS[9]<=1,CS[2]<=2,CS[6]>=1,CS[5]<=2,CS[6]<=3,CS[4]<=1),1,0)&if(or(CS[2]>=2,CS[5]=2,CS[6]>=2),1,0)&if(and(LH[0]>=2,LH[0]<=3,LH[1]>=1,LH[1]<=2,(LH[2]+CS[3])>=1),1,0)

CS[n]：六个红球中30期次数为n的号码个数,n=0...12（这个用表格可以统计计算，分层提出号码组）
LH[n]：六个红球中5期次数为n的号码个数,n=0...5 （这个用表格可以统计计算，分层提出号码组）
23楼
ntcyf | 发表于2018-05-16 15:29:09
目前的结果如图：
24楼
duy3 | 发表于2018-05-16 16:00:46

25楼
duy3 | 发表于2018-05-16 16:01:49

宝石的过滤速度如何？
26楼
duy3 | 发表于2018-05-16 16:03:23

把CS和LH也列出来
27楼
ntcyf | 发表于2018-05-16 17:18:55
原来是差一期；
28楼
ntcyf | 发表于2018-05-16 17:19:33
优化了一下，否则出不了结果
29楼
duy3 | 发表于2018-05-16 19:24:40

共48条2页 30条/页首页上一页第1页下一页尾页

参与原帖交流，请访问:

http://bbs.17500.cn/thread-6221651-1-1.html