Pattern software

M

magusprovernum

Member
I've written a program that will create all sets for any given numbers. :rolling: I can also set it to randomly pick numbers except for those you choose to eliminate. The sets are then filtered by my pattern theory and by sum.

Here are the sets for tonight's 649 playing 13 random numbers with the last draw numbers eliminated, filtered by my patterns and sum 125 to 175.

Total sets = 230

Random numbers: 02 04 08 10 13 20 21 24 32 35 36 42 44

2 20 21 32 35 44
2 13 21 24 32 35
2 8 21 32 35 44
2 20 21 35 36 42
2 20 21 35 42 44
2 8 20 21 35 42
2 4 20 21 35 44
2 21 24 35 36 42
2 4 21 35 36 42
2 8 21 35 36 42
2 21 24 35 36 44
2 4 21 35 36 44
2 8 21 24 35 42
2 8 21 35 42 44
2 8 21 24 35 44
2 13 20 24 32 35
2 8 20 32 35 44
2 10 13 32 35 44
2 8 10 32 35 44
2 8 13 32 35 44
2 10 20 24 35 36
2 20 24 35 36 42
2 4 20 35 36 42
2 8 20 35 36 42
2 20 24 35 36 44
2 4 20 35 36 44
2 8 20 24 35 42
2 8 20 35 42 44
2 8 20 24 35 44
2 10 35 36 42 44
2 10 13 35 36 42
2 4 10 35 36 42
2 8 10 35 36 42
2 4 10 35 36 44
2 8 24 35 36 42
2 13 35 36 42 44
2 4 13 35 36 42
2 8 13 35 36 42
2 8 24 35 36 44
2 4 13 35 36 44
2 10 13 35 42 44
2 8 10 35 42 44
2 8 13 35 42 44
10 20 21 32 35 44
8 10 20 21 32 35
13 20 21 32 35 42
4 20 21 32 35 42
8 20 21 32 35 42
4 20 21 32 35 44
10 21 24 32 35 42
10 13 21 32 35 42
10 21 24 32 35 44
4 10 21 24 32 35
13 21 24 32 35 42
8 21 24 32 35 42
4 8 21 32 35 42
13 21 24 32 35 44
8 21 24 32 35 44
4 13 21 24 32 35
4 8 21 32 35 44
10 20 21 35 36 42
10 20 21 35 36 44
4 10 20 21 35 36
8 10 20 21 35 36
4 20 21 35 36 44
10 20 21 35 42 44
10 13 20 21 35 42
10 13 20 21 35 44
4 20 21 35 42 44
4 8 20 21 35 44
10 21 24 35 36 44
4 10 21 24 35 36
4 21 24 35 36 42
13 21 24 35 36 44
8 21 24 35 36 44
4 13 21 24 35 36
4 8 21 35 36 44
10 13 21 24 35 44
8 21 24 35 42 44
4 8 21 24 35 42
4 8 21 35 42 44
8 10 20 24 32 35
10 13 20 32 35 44
13 20 24 32 35 42
8 20 24 32 35 42
4 8 20 32 35 42
13 20 24 32 35 44
8 20 24 32 35 44
4 13 20 24 32 35
4 8 20 32 35 44
10 13 24 32 35 42
8 10 32 35 42 44
4 10 13 32 35 42
8 10 13 32 35 42
4 8 10 32 35 42
10 13 24 32 35 44
4 10 13 32 35 44
4 8 10 32 35 44
8 13 32 35 42 44
4 8 13 32 35 42
4 8 13 32 35 44
10 20 24 35 36 42
10 13 20 35 36 42
8 10 20 24 35 36
10 13 20 35 36 44
4 20 24 35 36 42
13 20 24 35 36 44
8 20 24 35 36 44
4 13 20 24 35 36
4 8 20 35 36 44
10 13 20 24 35 42
10 13 20 35 42 44
8 20 24 35 42 44
4 8 20 24 35 42
4 8 20 35 42 44
4 10 35 36 42 44
10 13 24 35 36 44
4 10 13 35 36 44
4 8 10 35 36 44
4 8 24 35 36 42
4 13 35 36 42 44
4 8 13 35 36 44
10 13 24 35 42 44
4 10 13 35 42 44
4 8 10 35 42 44
4 8 13 35 42 44
2 20 21 32 36 44
2 8 20 21 32 44
2 10 21 24 32 36
2 13 21 24 32 36
2 8 21 32 36 44
2 20 21 36 42 44
2 4 20 21 36 42
2 8 20 21 36 42
2 4 20 21 36 44
2 13 20 21 42 44
2 8 21 24 36 42
2 8 21 36 42 44
2 8 21 24 36 44
2 10 13 21 42 44
2 8 10 21 42 44
2 8 13 21 42 44
2 13 20 24 32 36
2 8 20 32 36 44
2 10 13 32 36 44
2 8 10 32 36 44
2 8 13 32 36 44
2 8 20 24 36 42
2 8 20 36 42 44
2 8 20 24 36 44
2 8 13 20 42 44
2 10 13 36 42 44
2 8 10 36 42 44
2 8 13 36 42 44
10 20 21 32 36 44
8 10 20 21 32 36
13 20 21 32 36 42
4 20 21 32 36 42
8 20 21 32 36 42
4 20 21 32 36 44
10 13 20 21 32 44
13 20 21 32 42 44
8 20 21 32 42 44
4 8 20 21 32 42
4 8 20 21 32 44
10 21 24 32 36 42
10 13 21 32 36 42
10 21 24 32 36 44
4 10 21 24 32 36
13 21 24 32 36 42
8 21 24 32 36 42
4 8 21 32 36 42
13 21 24 32 36 44
8 21 24 32 36 44
4 13 21 24 32 36
4 8 21 32 36 44
10 13 21 24 32 42
10 13 21 32 42 44
10 13 21 24 32 44
10 20 21 36 42 44
10 13 20 21 36 42
10 13 20 21 36 44
4 20 21 36 42 44
4 8 20 21 36 44
8 10 20 21 42 44
4 13 20 21 42 44
10 13 21 24 36 44
8 21 24 36 42 44
4 8 21 24 36 42
4 8 21 36 42 44
8 10 21 24 42 44
4 10 13 21 42 44
4 8 10 21 42 44
8 13 21 24 42 44
4 8 13 21 42 44
8 10 20 24 32 36
10 13 20 32 36 44
13 20 24 32 36 42
8 20 24 32 36 42
4 8 20 32 36 42
13 20 24 32 36 44
8 20 24 32 36 44
4 13 20 24 32 36
4 8 20 32 36 44
10 13 24 32 36 42
8 10 32 36 42 44
4 10 13 32 36 42
8 10 13 32 36 42
4 8 10 32 36 42
10 13 24 32 36 44
4 10 13 32 36 44
4 8 10 32 36 44
8 13 32 36 42 44
4 8 13 32 36 42
4 8 13 32 36 44
8 10 13 32 42 44
10 13 20 24 36 42
10 13 20 36 42 44
8 20 24 36 42 44
4 8 20 24 36 42
4 8 20 36 42 44
8 10 13 20 42 44
8 13 20 24 42 44
4 8 13 20 42 44
10 13 24 36 42 44
4 10 13 36 42 44
4 8 10 36 42 44
4 8 13 36 42 44
8 10 13 24 42 44
 
M

magusprovernum

Member
The code is in BASIC. I can post the code here if anybody has an old BASIC compiler or knows how to port it over to VisualBasic, or I can make a VB executable for download when I have the spare time.

bloubul said:
Hi magusprovernum

In what format is your software and is it availible for us to down load.

BlouBul :cool:
Click to expand...
 
M

magusprovernum

Member
bloubul said:
Hi magusprovernum

VB scrip please and or if possible as well in excel.

Thanks

BlouBul :cool:
Click to expand...

I've never written VBscript before, so it will be a learning experience. I'll try and have it done in a few days. I don't know anything about excel. I'm an old school QuickBasic programmer.. LOL. Just got used copy of VB 5 last week and hav'nt quite figured it out yet.
 
M

magusprovernum

Member
magusprovernum said:
I've never written VBscript before, so it will be a learning experience. I'll try and have it done in a few days. I don't know anything about excel. I'm an old school QuickBasic programmer.. LOL. Just got used copy of VB 5 last week and hav'nt quite figured it out yet.
Click to expand...

Blah, I don't have time to figure out VBscript right now. Here is the code for my program (Microsoft Quickbasic 4.5) Sorry about the sloppy coding, I never intended to distribute it. Maybe somebody who knows BASIC can clean it up and port it over to VB or excel.

---
RANDOMIZE TIMER

DIM PlayNums(14)
DIM tens(6)
DIM ones(6)
DIM TestSet(6)
DIM Sets$(3000)
DIM Primes(18)
DIM elim(6)

CLS

OPEN "PlayNums.txt" FOR OUTPUT AS #1

FOR x = 1 TO 18
READ Primes(x)
NEXT x

FOR x = 1 TO 6
READ elim(x)
NEXT x

DATA 01,02,03,05,07,11,13,17,19,21,23,27,29,31,37,41,43,47
DATA 07,20,22,25,46,47 ' These are the numbers to eliminate.

5 REM null
count = 0

FOR x = 1 TO 14
10 pick = INT(48 * RND(1)) + 1
FOR y = 1 TO 14
IF PlayNums(y) = pick GOTO 10
NEXT y
FOR y = 1 TO 6
REM IF elim(y) = pick GOTO 10
NEXT y
PlayNums(x) = pick
NEXT x

FOR x = 1 TO 14
FOR y = 1 TO 14
IF PlayNums(y) > PlayNums(x) THEN SWAP PlayNums(y), PlayNums(x)
NEXT y
NEXT x


count = 0

FOR a = 1 TO 14
FOR b = (a + 1) TO 10
FOR c = (b + 1) TO 11
FOR d = (c + 1) TO 12
FOR e = (d + 1) TO 13
FOR f = (e + 1) TO 14
SumCount = PlayNums(a) + PlayNums(b) + PlayNums(c) + PlayNums(d) + PlayNums(e) + PlayNums(f)
IF SumCount > 100 AND SumCount < 176 THEN
IF PlayNums(a) < 11 AND PlayNums(f) > 39 THEN

TestSet(1) = PlayNums(a)
TestSet(2) = PlayNums(b)
TestSet(3) = PlayNums(c)
TestSet(4) = PlayNums(d)
TestSet(5) = PlayNums(e)
TestSet(6) = PlayNums(f)
PrimeCount = 0
EvenCount = 0
DivThreeCount = 0
DivFiveCount = 0



FOR x = 1 TO 6
FOR y = 1 TO 18
IF TestSet(x) = Primes(y) THEN PrimeCount = PrimeCount + 1
NEXT y
IF (TestSet(x) / 2) = INT(TestSet(x) / 2) THEN EvenCount = EvenCount + 1
IF (TestSet(x) / 3) = INT(TestSet(x) / 3) THEN DivThreeCount = DivThreeCount + 1
IF (TestSet(x) / 5) = INT(TestSet(x) / 5) THEN DivFiveCount = DivFiveCount + 1
NEXT x

IF PrimeCount = 2 AND EvenCount = 3 AND DivThreeCount = 2 AND DivFiveCount = 1 THEN


FOR x = 1 TO 6
tens(x) = INT(TestSet(x) / 10)
NEXT x

FOR x = 1 TO 6
ones(x) = ((TestSet(x) / 10) - tens(x)) * 10
NEXT x

cdcount = 0
FOR x = 1 TO 6
countdouble = 0
FOR y = 1 TO 6
IF tens(y) = tens(x) THEN countdouble = countdouble + 1
NEXT y
IF countdouble = 1 THEN cdcount = cdcount + 1
NEXT x
IF cdcount <> 2 GOTO 20

cdcount = 0
FOR x = 1 TO 6
countdouble = 0
FOR y = 1 TO 6
IF ones(y) = ones(x) THEN countdouble = countdouble + 1
NEXT y
IF countdouble = 1 THEN cdcount = cdcount + 1
NEXT x
IF cdcount = 4 THEN


TestString$ = STR$(TestSet(1)) + STR$(TestSet(2)) + STR$(TestSet(3)) + STR$(TestSet(4)) + STR$(TestSet(5)) + STR$(TestSet(6))

count = count + 1
Sets$(count) = TestString$

REM PRINT TestString$
REM PRINT #1, TestString$


END IF
END IF
END IF

20 END IF
NEXT f
NEXT e
NEXT d
NEXT c
NEXT b
NEXT a

PRINT
PRINT "Total sets ="; count
IF count = 10 THEN

tencount = tencount + 1

FOR x = 1 TO 14
PRINT #1, PlayNums(x);
PRINT PlayNums(x);
NEXT x

FOR x = 1 TO count
PRINT #1, Sets$(x)
NEXT x
END IF
IF tencount = 10 THEN
CLOSE #1
END
END IF
GOTO 5
 
You must log in or register to reply here.

Sidebar

Top