Winnalotto-Sangoma 2

B

black prince

Member
ganbatte

Originally Posted by ganbatte
BP

Could you have a look at 100% Degree of Certainty for 6/49 to check that I'm on the right path with how much history to use.
Click to expand...

FFG for 6/49 with DC of 99% is 36. I would use 40

-BP
 
J

joesam

Member
Hi Ganbatte

ganbatte said:
As I couldn't get my GWBASIC to work properly I ran BP's idea through Excel and it is showing promise. It seems to work better for some lotteries than others. For the EuroMillions 5/50 tonight it was a 50/50 split, whilst for the SA 6/49Lottery on Saturday I managed to exclude 74% (36 balls) using the last 100 draws.

The median value of each ball column (B1, B2, ...) was 5 to 6 so I used it just as BP does.

BP what would you suggest as the best base to work off - 100, 50 or 30 recent draws?
Click to expand...

What are the numbers that you have eliminated?

JoeSam
 
G

ganbatte

Member
Hi JoeSam

I definitely got excited when I removed 74% on my first try but after looking at the results of the EuroMillions last night and with BP giving me a base of 40 draws to try, I have decided to play it a bit safer since some of the balls drawn came from the middle and none from the top. I'm also now looking at the patterns in detail.

Here are the ball numbers with the lowest occuring patterns for various histories.

30 Draw History
Lowest : 27, 44, 09, 19, 29, 04, 14, 24, 43, 41, 38, 49
Possibly exclusion : 07, 34, 08, 18, 46, 25, 31, 32, 21, 45
Click to expand...
40 Draw History
Lowest : 38
49, 04, 14, 24, 43, 27, 44, 09, 19, 29
Click to expand...
50 Draw History
Lowest : 29, 09, 19, 04, 14, 24, 43, 27, 44
Click to expand...

Good luck :thumb:
 
T

turtle0747

Member
Hello BP from turtle0747

black prince said:
Chose patterns groups that have 1 to 4 counts. Use winnalotto
and load your lottery. Go to 'Draws Analysis' tab and click on Balls.
The pattern above says Skip1 > 5, Skip2 > 5, Skip3 > 5, Skip4 > 5
and Skip5 > 5. Check the numbers that have this pattern and
eliminate them. If 6 is part of a pattern look for Skips <6. I would
recommend backtesting this to get a better feel of how to check it.
Maybe Patrick will add this to winnalotto and make me and maybe
others happy :)


-BP
Click to expand...
Hello BP

Looks like I will have to go back to the drawing board. There were no numbers that had skips of 5 all across the board. There were 5's withing each skip. Are those the ones to eliminate??

turtle0747
 
S

struxo

Member
to BP

Hi
i have problem with your program. I get message : " input past end in 1500"

here is program, i have lotto 7/35.

100 '================================================= ==
200 '= SKIP PATTERNS FOR 7/35 =
300 '================================================= ==
400 OPEN "I",1,"C:\GWBASIC.EXE\sweRes.CSV"
500 OPEN "I",2,"C:\GWBASIC.EXE\sweResx.CSV"
600 OPEN "O",3,"C:\GWBASIC.EXE\RESULTS.TXT"
700 '------------------------------------
800 '- LOAD ARRAY TABLE -
900 '------------------------------------
1000 'GOTO 7400
1010 X1=1
1100 DIM A(800),B(800),C(800),D(800),E(800),F(800),G(800)
1200 N=0
1300 IF EOF(2)THEN 1900
1400 N=N+1
1500 INPUT#2,DT$,A$,B$,C$,D$,E$,F$,G$
1600 A(N)=VAL(A$)
1605 B(N)=VAL(B$)
1610 C(N)=VAL(C$)
1615 D(N)=VAL(D$)
1625 E(N)=VAL(E$)
1635 F(N)=VAL(F$)
1645 G(N)=VAL(G$)
1700 '
1800 GOTO 1300
1900 CLOSE 2
2000 '
2100 '------------------------------------
2200 '- FORMAT INPUT FILE FOR TESTS -
2300 '------------------------------------
2400 '
2500 C1=0:N1=0:N2=0:N3=0:N4=0:N5=0:CNT1=0:CNT2=0
2600 IF EOF(1) THEN 7400
2700 INPUT#1,DT$,A$,B$,C$,D$,E$,F$,G$
2800 A1=VAL(A$)
2805 B1=VAL(B$)
2810 C1=VAL(C$)
2815 D1=VAL(D$)
2825 E1=VAL(E$)
2835 F1=VAL(F$)
2845 G1=VAL(G$)
2900 CNT1=CNT1+1
3000 '
3100 '------------------------------------
3200 '- FILTER TESTS -
3300 '------------------------------------
3400 GOTO 3700
3500 CLOSE ALL
3600 END
3700 '
3800 '------------------------------------
3900 '- CREATE SKIPS FROM WINNING HIST -
4000 '------------------------------------
4310 X1=X1+1
4500 CNTX=0:N1=0:N2=0:SW1=0
4502 CNTZ=CNTZ+1
4504 IF CNTZ=31 GOTO 8500
4510 PRINT#3," "
4600 FOR R=X1 TO N
4700 IF A(R)=A1 OR B(R)=A1 OR C(R)=A1 OR D(R)=A1 OR E(R)=A1 OR F(R)=A1 OR G(R)=A1 THEN N1=N1+1 ELSE N2=N2+1
4800 IF N1>0 GOTO 4900 ELSE GOTO 5300
4900 GOSUB 6900
5000 N1=0:N2=0
5100 CNTX=CNTX+1
5200 IF CNTX=5 GOTO 5301
5300 NEXT R
5301 GOTO 5310
5310 '
5312 CNTX=0:N1=0:N2=0:SW1=0
5315 PRINT#3," "
5316 FOR R=X1 TO N
5318 IF A(R)=B1 OR B(R)=B1 OR C(R)=B1 OR D(R)=B1 OR E(R)=B1 OR F(R)=B1 G(R)=B1 THEN N1=N1+1 ELSE N2=N2+1
5320 IF N1>0 GOTO 5322 ELSE GOTO 5330
5322 GOSUB 6900
5324 N1=0:N2=0
5326 CNTX=CNTX+1
5328 IF CNTX=5 GOTO 5331
5330 NEXT R
5331 GOTO 5340
5340 '
5342 CNTX=0:N1=0:N2=0:SW1=0
5345 PRINT#3," "
5346 FOR R=X1 TO N
5348 IF A(R)=C1 OR B(R)=C1 OR C(R)=C1 OR D(R)=C1 OR E(R)=C1 OR F(R)=C1 G(R)=C1 THEN N1=N1+1 ELSE N2=N2+1
5350 IF N1>0 GOTO 5352 ELSE GOTO 5360
5352 GOSUB 6900
5354 N1=0:N2=0
5356 CNTX=CNTX+1
5358 IF CNTX=5 GOTO 5370
5360 NEXT R
5370 '
5372 CNTX=0:N1=0:N2=0:SW1=0
5375 PRINT#3," "
5376 FOR R=X1 TO N
5378 IF A(R)=D1 OR B(R)=D1 OR C(R)=D1 OR D(R)=D1 OR E(R)=D1 OR F(R)=D1 G(R)=D1 THEN N1=N1+1 ELSE N2=N2+1
5380 IF N1>0 GOTO 5382 ELSE GOTO 5390
5382 GOSUB 6900
5384 N1=0:N2=0
5386 CNTX=CNTX+1
5388 IF CNTX=5 GOTO 5400
5390 NEXT R
5400 '
5442 CNTX=0:N1=0:N2=0:SW1=0
5445 PRINT#3," "
5446 FOR R=X1 TO N
5448 IF A(R)=E1 OR B(R)=E1 OR C(R)=E1 OR D(R)=E1 OR E(R)=E1 OR F(R)=E1 G(R)=E1 THEN N1=N1+1 ELSE N2=N2+1
5450 IF N1>0 GOTO 5452 ELSE GOTO 5460
5452 GOSUB 6900
5454 N1=0:N2=0
5456 CNTX=CNTX+1
5458 IF CNTX=5 GOTO 5500
5460 NEXT R
5500 '
5501 '
5502 '
5503 CNTX=0:N1=0:N2=0:SW1=0
5504 PRINT#3," "
5546 FOR R=X1 TO N
5548 IF A(R)=F1 OR B(R)=F1 OR C(R)=F1 OR D(R)=F1 OR E(R)=F1 OR F(R)=F1 G(R)=F1 THEN N1=N1+1 ELSE N2=N2+1
5550 IF N1>0 GOTO 5552 ELSE GOTO 5560
5552 GOSUB 6900
5554 N1=0:N2=0
5556 CNTX=CNTX+1
5558 IF CNTX=5 GOTO 5600
5560 NEXT R
5600 GOTO 2000
5701 '
6900 IF SW1=0 GOTO 7000 ELSE GOTO 7100
7000 SW1=1
7100 Y$=STR$(N2):pRINT#3,Y$;
7200 CNT2=CNT2+1
7300 RETURN
7400 '
8500 END
8600 CLOSE ALL

also can you check with superformula how many draws i need to check for 99%

thanx
 
B

black prince

Member
turtle0747

Originally Posted by turtle0747
Hello BP

Looks like I will have to go back to the drawing board. There were no numbers that had skips of 5 all across the board. There were 5's withing each skip. Are those the ones to eliminate??

turtle0747
Click to expand...

Check for groups of patterns that have a count of 4 or less and use these
to eliminate numbers.

-BP
 
B

black prince

Member
struxo

Originally Posted by struxo
Hi
i have problem with your program. I get message : " input past end in 1500"

here is program, i have lotto 7/35.
Click to expand...

Check 1300 IF EOF(2)THEN 1900. There should be a space between
EOF(2) THEN GOTO 1900.

FFG for 7/35 with a DC of 99.9% is 30. Try this as a start.

-BP
 
T

turtle0747

Member
Hello BP from turtle0747

black prince said:
Check for groups of patterns that have a count of 4 or less and use these
to eliminate numbers.

-BP
Click to expand...
Hello BP

I will give that a try. What is this Superformula all about?

thanks
turtle0747
 
B

black prince

Member
Struxo

Originally Posted by struxo
Thanx BP. I made changes but i get same message

Any suggestions ? Please !
Click to expand...

How did you create "sweResx.CSV". Did you save this file from Excel as
csv or rename a text file with the extention .CSV. You must open this
file using EXCEL and save it as CSV. Then try it again. Also, make sure
the record count does not exceed 800. If so, change the GWBASIC program
1100 DIM A(800),...G(800) size to handle the larger number of records.

-BP
 
S

struxo

Member
to BP

I have draws in text file. I opened that file in Excel and saved it as sweRes.csv
then i open text file in excel again and saved it as sweResx.csv.

struxo
 
B

black prince

Member
Struxo

Origunally Posted by struxo
I have draws in text file. I opened that file in Excel and saved it as sweRes.csv
then i open text file in excel again and saved it as sweResx.csv.
struxo
Click to expand...

I'll assume DT$ is a date field. Does the date have spaces, commas, slashes, dashes
or blanks between month day year? It would be better to remove the column
DT$ and save again as "sweRes.CSV" and "sweResx.CSV". Adjust your
program according to this change. If this doesn't work, then print out 20 lines
of "sweRes.CSV" and paste this into you next post. GWBASIC could be using
the separations in the date field as delimiters and this would throw off the
last line in your file would be short some fields and the EOF ends in an error.

-BP
 
G

ganbatte

Member
Just a quick update on the patterns for yesterday's SA 6/49 Lottery (13,19,39,40,43,46+37).

Two numbers from the top, two from the middle and two from the bottom. This makes it a lot more difficult in reducing the numbers.
 
S

struxo

Member
to BP

Hi bp,
i removed DT$ from program but it not helping. I dont have dates in my record only draws. Here is 30 lines from my sweRes.csv made in excel :

1 5 6 9 14 20 32
1 3 7 11 16 21 33
2 10 13 16 30 32 35
1 10 18 21 22 27 29
3 19 20 21 28 34 35
9 16 20 22 23 31 34
3 8 15 21 31 34 35
2 6 13 17 21 30 34
5 6 10 14 24 30 31
4 7 14 17 25 30 33
2 9 14 18 23 25 28
3 4 5 7 9 12 20
2 10 13 16 17 26 32
3 6 15 20 21 29 34
8 11 19 25 26 29 35
13 15 21 24 26 29 32
5 6 16 24 25 33 34
8 9 15 16 25 30 33
8 10 24 26 27 32 35
3 4 5 7 14 15 23
8 9 18 23 30 31 33
2 7 11 18 26 33 34
2 4 7 10 19 22 25
2 8 13 14 16 29 30
5 6 9 11 12 21 24
2 12 19 21 23 26 31
1 5 10 17 27 33 35
7 11 12 28 29 30 35
3 16 21 27 30 31 35
2 13 17 28 29 30 33

struxo
 
G

ganbatte

Member
Hi struxo

Your csv file should have commas between the numbers. Here's an example from my file. Open the csv file in notepad or any other text editor to check.
13,39,19,46,40,43
37,7,8,36,10,16
5,42,13,12,48,16
17,6,23,18,28,30
Click to expand...
Also have a look at your line 2500.
2500 C1=0:N1=0:N2=0:N3=0:N4=0:N5=0:CNT1=0:CNT2=0
Click to expand...
I had to amend mine to cater for 6 balls as follows:
2500 C1=0:N1=0:N2=0:N3=0:N4=0:N5=0:N6=0:CNT1=0:CNT2=0
Click to expand...
After I made the change suggested by BP to line 1300 and all the changes to accommodate 6 balls, mine ran fine.
 
S

struxo

Member
Thanx ganbatte,
i made changes but it not working. Here is program with changes:

100 '================================================= ==
200 '= SKIP PATTERNS FOR 7/35 =
300 '================================================= ==
400 OPEN "I",1,"C:\GWBASIC.EXE\sweRes1.CSV"
500 OPEN "I",2,"C:\GWBASIC.EXE\sweRes1x.CSV"
600 OPEN "O",3,"C:\GWBASIC.EXE\RESULTS.TXT"
700 '------------------------------------
800 '- LOAD ARRAY TABLE -
900 '------------------------------------
1000 'GOTO 7400
1010 X1=1
1100 DIM A(800),B(800),C(800),D(800),E(800),F(800),G(800)
1200 N=0
1300 IF EOF(2) THEN GOTO 1900
1400 N=N+1
1500 INPUT#2,A$,B$,C$,D$,E$,F$,G$
1600 A(N)=VAL(A$)
1605 B(N)=VAL(B$)
1610 C(N)=VAL(C$)
1615 D(N)=VAL(D$)
1625 E(N)=VAL(E$)
1635 F(N)=VAL(F$)
1645 G(N)=VAL(G$)
1700 '
1800 GOTO 1300
1900 CLOSE 2
2000 '
2100 '------------------------------------
2200 '- FORMAT INPUT FILE FOR TESTS -
2300 '------------------------------------
2400 '
2500 C1=0:N1=0:N2=0:N3=0:N4=0:N5=0:N6=0:N7=0:CNT1=0:CNT2=0
2600 IF EOF(1) THEN GOTO 7400
2700 INPUT#1,A$,B$,C$,D$,E$,F$,G$
2800 A1=VAL(A$)
2805 B1=VAL(B$)
2810 C1=VAL(C$)
2815 D1=VAL(D$)
2825 E1=VAL(E$)
2835 F1=VAL(F$)
2845 G1=VAL(G$)
2900 CNT1=CNT1+1
3000 '
3100 '------------------------------------
3200 '- FILTER TESTS -
3300 '------------------------------------
3400 GOTO 3700
3500 CLOSE ALL
3600 END
3700 '
3800 '------------------------------------
3900 '- CREATE SKIPS FROM WINNING HIST -
4000 '------------------------------------
4310 X1=X1+1
4500 CNTX=0:N1=0:N2=0:SW1=0
4502 CNTZ=CNTZ+1
4504 IF CNTZ=31 GOTO 8500
4510 PRINT#3," "
4600 FOR R=X1 TO N
4700 IF A(R)=A1 OR B(R)=A1 OR C(R)=A1 OR D(R)=A1 OR E(R)=A1 OR F(R)=A1 OR G(R)=A1 THEN N1=N1+1 ELSE N2=N2+1
4800 IF N1>0 GOTO 4900 ELSE GOTO 5300
4900 GOSUB 6900
5000 N1=0:N2=0
5100 CNTX=CNTX+1
5200 IF CNTX=5 GOTO 5301
5300 NEXT R
5301 GOTO 5310
5310 '
5312 CNTX=0:N1=0:N2=0:SW1=0
5315 PRINT#3," "
5316 FOR R=X1 TO N
5318 IF A(R)=B1 OR B(R)=B1 OR C(R)=B1 OR D(R)=B1 OR E(R)=B1 OR F(R)=B1 G(R)=B1 THEN N1=N1+1 ELSE N2=N2+1
5320 IF N1>0 GOTO 5322 ELSE GOTO 5330
5322 GOSUB 6900
5324 N1=0:N2=0
5326 CNTX=CNTX+1
5328 IF CNTX=5 GOTO 5331
5330 NEXT R
5331 GOTO 5340
5340 '
5342 CNTX=0:N1=0:N2=0:SW1=0
5345 PRINT#3," "
5346 FOR R=X1 TO N
5348 IF A(R)=C1 OR B(R)=C1 OR C(R)=C1 OR D(R)=C1 OR E(R)=C1 OR F(R)=C1 G(R)=C1 THEN N1=N1+1 ELSE N2=N2+1
5350 IF N1>0 GOTO 5352 ELSE GOTO 5360
5352 GOSUB 6900
5354 N1=0:N2=0
5356 CNTX=CNTX+1
5358 IF CNTX=5 GOTO 5370
5360 NEXT R
5370 '
5372 CNTX=0:N1=0:N2=0:SW1=0
5375 PRINT#3," "
5376 FOR R=X1 TO N
5378 IF A(R)=D1 OR B(R)=D1 OR C(R)=D1 OR D(R)=D1 OR E(R)=D1 OR F(R)=D1 G(R)=D1 THEN N1=N1+1 ELSE N2=N2+1
5380 IF N1>0 GOTO 5382 ELSE GOTO 5390
5382 GOSUB 6900
5384 N1=0:N2=0
5386 CNTX=CNTX+1
5388 IF CNTX=5 GOTO 5400
5390 NEXT R
5400 '
5442 CNTX=0:N1=0:N2=0:SW1=0
5445 PRINT#3," "
5446 FOR R=X1 TO N
5448 IF A(R)=E1 OR B(R)=E1 OR C(R)=E1 OR D(R)=E1 OR E(R)=E1 OR F(R)=E1 G(R)=E1 THEN N1=N1+1 ELSE N2=N2+1
5450 IF N1>0 GOTO 5452 ELSE GOTO 5460
5452 GOSUB 6900
5454 N1=0:N2=0
5456 CNTX=CNTX+1
5458 IF CNTX=5 GOTO 5500
5460 NEXT R
5500 '
5501 '
5502 '
5503 CNTX=0:N1=0:N2=0:SW1=0
5504 PRINT#3," "
5546 FOR R=X1 TO N
5548 IF A(R)=F1 OR B(R)=F1 OR C(R)=F1 OR D(R)=F1 OR E(R)=F1 OR F(R)=F1 G(R)=F1 THEN N1=N1+1 ELSE N2=N2+1
5550 IF N1>0 GOTO 5552 ELSE GOTO 5560
5552 GOSUB 6900
5554 N1=0:N2=0
5556 CNTX=CNTX+1
5558 IF CNTX=5 GOTO 5600
5560 NEXT R
5600 GOTO 2000
5701 '
6900 IF SW1=0 GOTO 7000 ELSE GOTO 7100
7000 SW1=1
7100 Y$=STR$(N2):pRINT#3,Y$;
7200 CNT2=CNT2+1
7300 RETURN
7400 '
8500 END
8600 CLOSE ALL

struxo
 
G

ganbatte

Member
Hi struxo

struxo said:
Thanx ganbatte,
i made changes but it not working. Here is program with changes:

100 '================================================= ==
200 '= SKIP PATTERNS FOR 7/35 =
300 '================================================= ==
Click to expand...
Here is a version that should work for you. Make sure of the commas in the identical two initial csv files and don't create a blank RESULTS.TXT file before the program runs.

When the RESULTS.TXT file in generated open it in Excel by selecting space delimited, clean it up and save as SKIPS.CSV and DUMMY.CSV and then run the second program.

Also remember that the :D are supposed to be "colon D".
100 '===================================================
200 '= SKIP PATTERNS FOR 7/35 =
300 '===================================================
400 OPEN "I",1,"C:\GWBASIC\SWERES.CSV"
500 OPEN "I",2,"C:\GWBASIC\SWERESX.CSV"
600 OPEN "O",3,"C:\GWBASIC\RESULTS.TXT"
700 '------------------------------------
800 '- LOAD ARRAY TABLE -
900 '------------------------------------
1000 'GOTO 7400
1010 X1=1
1100 DIM A(800),B(800),C(800),D(800),E(800),F(800),G(800)
1200 N=0
1300 IF EOF(2) THEN 1900
1400 N=N+1
1500 INPUT#2,A$,B$,C$,D$,E$,F$,G$
1600 A(N)=VAL(A$):B(N)=VAL(B$):C(N)=VAL(C$):D(N)=VAL(D$):E(N)=VAL(E$):F(N)=VAL(F$):G(N)=VAL(G$)
1700 '
1800 GOTO 1300
1900 CLOSE 2
2000 '
2100 '------------------------------------
2200 '- FORMAT INPUT FILE FOR TESTS -
2300 '------------------------------------
2400 '
2500 C1=0:N1=0:N2=0:N3=0:N4=0:N5=0:N6=0:N7=0:CNT1=0:CNT2=0
2600 IF EOF(1) THEN 7400
2700 INPUT#1,A$,B$,C$,D$,E$,F$,G$
2800 A1=VAL(A$):B1=VAL(B$):C1=VAL(C$):D1=VAL(D$):E1=VAL(E$):F1=VAL(F$):G1=VAL(G$)
2900 CNT1=CNT1+1
3000 '
3100 '------------------------------------
3200 '- FILTER TESTS -
3300 '------------------------------------
3400 GOTO 3700
3500 CLOSE ALL
3600 END
3700 '
3800 '------------------------------------
3900 '- CREATE SKIPS FROM WINNING HIST -
4000 '------------------------------------
4310 X1=X1+1
4500 CNTX=0:N1=0:N2=0:SW1=0
4502 CNTZ=CNTZ+1
4504 IF CNTZ=31 GOTO 8500
4510 PRINT#3," "
4600 FOR R=X1 TO N
4700 IF A(R)=A1 OR B(R)=A1 OR C(R)=A1 OR D(R)=A1 OR E(R)=A1 OR F(R)=A1 OR G(R)=A1 THEN N1=N1+1 ELSE N2=N2+1
4800 IF N1>0 GOTO 4900 ELSE GOTO 5300
4900 GOSUB 6900
5000 N1=0:N2=0
5100 CNTX=CNTX+1
5200 IF CNTX=5 GOTO 5301
5300 NEXT R
5301 GOTO 5310
5310 '
5312 CNTX=0:N1=0:N2=0:SW1=0
5315 PRINT#3," "
5316 FOR R=X1 TO N
5318 IF A(R)=B1 OR B(R)=B1 OR C(R)=B1 OR D(R)=B1 OR E(R)=B1 OR F(R)=A1 OR G(R)=A1 THEN N1=N1+1 ELSE N2=N2+1
5320 IF N1>0 GOTO 5322 ELSE GOTO 5330
5322 GOSUB 6900
5324 N1=0:N2=0
5326 CNTX=CNTX+1
5328 IF CNTX=5 GOTO 5331
5330 NEXT R
5331 GOTO 5340
5340 '
5342 CNTX=0:N1=0:N2=0:SW1=0
5345 PRINT#3," "
5346 FOR R=X1 TO N
5348 IF A(R)=C1 OR B(R)=C1 OR C(R)=C1 OR D(R)=C1 OR E(R)=C1 OR F(R)=A1 OR G(R)=A1 THEN N1=N1+1 ELSE N2=N2+1
5350 IF N1>0 GOTO 5352 ELSE GOTO 5360
5352 GOSUB 6900
5354 N1=0:N2=0
5356 CNTX=CNTX+1
5358 IF CNTX=5 GOTO 5370
5360 NEXT R
5370 '
5372 CNTX=0:N1=0:N2=0:SW1=0
5375 PRINT#3," "
5376 FOR R=X1 TO N
5378 IF A(R)=D1 OR B(R)=D1 OR C(R)=D1 OR D(R)=D1 OR E(R)=D1 OR F(R)=A1 OR G(R)=A1 THEN N1=N1+1 ELSE N2=N2+1
5380 IF N1>0 GOTO 5382 ELSE GOTO 5390
5382 GOSUB 6900
5384 N1=0:N2=0
5386 CNTX=CNTX+1
5388 IF CNTX=5 GOTO 5400
5390 NEXT R
5400 '
5442 CNTX=0:N1=0:N2=0:SW1=0
5445 PRINT#3," "
5446 FOR R=X1 TO N
5448 IF A(R)=E1 OR B(R)=E1 OR C(R)=E1 OR D(R)=E1 OR E(R)=E1 OR F(R)=A1 OR G(R)=A1 THEN N1=N1+1 ELSE N2=N2+1
5450 IF N1>0 GOTO 5452 ELSE GOTO 5460
5452 GOSUB 6900
5454 N1=0:N2=0
5456 CNTX=CNTX+1
5458 IF CNTX=5 GOTO 5501
5460 NEXT R
5501 '
5510 CNTX=0:N1=0:N2=0:SW1=0
5511 PRINT#3," "
5512 FOR R=X1 TO N
5513 IF A(R)=E1 OR B(R)=E1 OR C(R)=E1 OR D(R)=E1 OR E(R)=E1 OR F(R)=A1 OR G(R)=A1 THEN N1=N1+1 ELSE N2=N2+1
5514 IF N1>0 GOTO 5515 ELSE GOTO 5519
5515 GOSUB 6900
5516 N1=0:N2=0
5517 CNTX=CNTX+1
5518 IF CNTX=5 GOTO 5521
5519 NEXT R
5521 '
5530 CNTX=0:N1=0:N2=0:SW1=0
5531 PRINT#3," "
5532 FOR R=X1 TO N
5533 IF A(R)=E1 OR B(R)=E1 OR C(R)=E1 OR D(R)=E1 OR E(R)=E1 OR F(R)=A1 OR G(R)=A1 THEN N1=N1+1 ELSE N2=N2+1
5534 IF N1>0 GOTO 5535 ELSE GOTO 5539
5535 GOSUB 6900
5536 N1=0:N2=0
5537 CNTX=CNTX+1
5538 IF CNTX=5 GOTO 5540
5539 NEXT R
5540 GOTO 2000
5541 '
6900 IF SW1=0 GOTO 7000 ELSE GOTO 7100
7000 SW1=1
7100 Y$=STR$(N2):pRINT#3,Y$;
7200 CNT2=CNT2+1
7300 RETURN
7400 '
8500 END
8600 CLOSE ALL
Click to expand...
 
HalfBee

HalfBee

Member
Probably should have moved all this skip stuff to a new thread...
Anyways, for anyone interested here's what happens when a idea gets taken past it's original intentions. I'll put it up for a week or so...

http://www.amafrog.com/halfbee/bpskip.zip

You'll need Windows with .Net 2.0 installed (sorry about that)
Lottery file needs to have draw number and draw date fields (zero is fine for date field)
View the readme file for more info.

This is just raw program file rather than do the whole installer routine stuff. You might have to massage your data file a bit, but you should be used to this by now... I recommend 200-300 draws just so you're sure to get a full 5 skips for each number, but it will handle any large sets (I hope. depending on memory of your machine).

Feedback or suggestions/problems should be posted in thread I'm starting for this type of discussion so as not to clog this thread with more side issues ;)
 
You must log in or register to reply here.

Sidebar

Top