Novità

di rubino script a colpo

[12581] [ 97] 19.04.2011...Estratti...05 07 09 11 14 20 29 32 36 42 47 48 51 55 57 63 65 71 74 82
[12582] [ 98] 19.04.2011...Estratti...04 08 12 14 17 20 21 28 29 35 39 41 46 47 53 64 74 76 88 89
Rilevato....12582 19.04.2011....Estratti aventi Distanza richiesta...4 ...... 04 - 08
Rilevato....12582 19.04.2011....Estratti aventi Distanza richiesta...4 ...... 08 - 12
Rilevato....12582 19.04.2011....Estratti aventi Distanza richiesta...4 ...... 17 - 21
Rilevato....12582 19.04.2011....Estratti aventi Distanza richiesta...4 ...... 35 - 39
...numeri.in gioco...21......dal........12583...04 08 12 14 17 20 21 29 35 39 47 70 71 72 73 74 75 76 77 78 79

Sviluppo delle 7 combinazioni
#1 12 17 72 74 75 77
#2 08 29 39 47 73 77
#3 04 17 21 47 71 76
#4 08 14 20 35 71 72
#5 12 14 29 74 76 78
#6 04 12 20 73 74 79
#7 21 35 39 75 78 79
 
[12582] [ 98] 19.04.2011...Estratti...04 08 12 14 17 20 21 28 29 35 39 41 46 47 53 64 74 76 88 89
[12583] [ 99] 19.04.2011...Estratti...04 13 22 23 27 39 46 47 50 52 56 63 65 67 68 81 83 85 88 90
Rilevato....12583 19.04.2011....Estratti aventi Distanza richiesta...4 ...... 23 - 27
Rilevato....12583 19.04.2011....Estratti aventi Distanza richiesta...4 ...... 46 - 50
Rilevato....12583 19.04.2011....Estratti aventi Distanza richiesta...4 ...... 52 - 56
Rilevato....12583 19.04.2011....Estratti aventi Distanza richiesta...4 ...... 63 - 67
Rilevato....12583 19.04.2011....Estratti aventi Distanza richiesta...4 ...... 81 - 85
...numeri.in gioco...24......dal........12584...04 23 27 39 46 47 50 52 56 63 67 70 71 72 73 74 75 76 77 78 79 81 85 88

Sviluppo delle 12 combinazioni
#1 04 56 72 77 78 90
#2 39 47 56 70 71 81
#3 46 50 56 73 74 85
#4 46 52 70 78 79 88
#5 67 75 76 78 81 85
#6 63 67 71 73 88 90
#7 04 50 71 76 77 79
#8 23 27 46 47 76 90
#9 27 47 63 72 79 85
#10 04 23 52 63 74 81
#11 27 39 52 73 75 77
#12 23 39 50 67 72 88
 
49 53 70 71 72 73 75 78 79 85
49 53 70 71 72 74 75 76 78 79
49 53 70 71 72 75 77 78 79 89
[12583] [ 99] 19.04.2011...Estratti...04 13 22 23 27 39 46 47 50 52 56 63 65 67 68 81 83 85 88 90
[12584] [100] 19.04.2011...Estratti...01 03 08 10 17 18 25 26 33 43 49 53 61 66 72 75 85 86 87 89
Rilevato....12584 19.04.2011....Estratti aventi Distanza richiesta...4 ...... 49 - 53
Rilevato....12584 19.04.2011....Estratti aventi Distanza richiesta...4 ...... 85 - 89
...numeri.in gioco...14......dal........12585...49 53 70 71 72 73 74 75 76 77 78 79 85 89
[12585] [101] 19.04.2011 Cinquina colpi : 1 .. .. .. .. .. .. .. .. .. .. 49 53 .. .. 76 79 .. .. 85 ..
____________________________________________________________________________________________________


49 53 70 73 74 76 77 78 85 89
49 53 71 72 73 74 75 78 79 89
49 53 71 72 73 75 76 77 78 79
49 53 71 72 74 75 77 78 79 85
49 53 71 72 75 76 78 79 85 89
49 70 71 73 74 76 77 79 85 89
49 70 72 73 74 75 76 77 85 89
53 70 71 73 74 75 76 77 85 89
53 70 72 73 74 76 77 79 85 89
70 71 72 73 74 76 77 78 85 89
70 73 74 75 76 77 78 79 85 89
 
[12584] [100] 19.04.2011...Estratti...01 03 08 10 17 18 25 26 33 43 49 53 61 66 72 75 85 86 87 89
[12585] [101] 19.04.2011...Estratti...01 02 04 07 15 19 32 35 43 47 49 53 58 68 76 79 83 84 85 87
Rilevato....12585 19.04.2011....Estratti aventi Distanza richiesta...4 ...... 15 - 19
Rilevato....12585 19.04.2011....Estratti aventi Distanza richiesta...4 ...... 43 - 47
Rilevato....12585 19.04.2011....Estratti aventi Distanza richiesta...4 ...... 49 - 53
Rilevato....12585 19.04.2011....Estratti aventi Distanza richiesta...4 ...... 79 - 83
Rilevato....12585 19.04.2011....Estratti aventi Distanza richiesta...4 ...... 83 - 87
...numeri.in gioco...20......dal........12586...01 15 19 43 47 49 53 70 71 72 73 74 75 76 77 78 79 83 85 87

01 15 19 43 71 73 77 79 83 85
01 15 47 49 53 74 76 78 79 85
01 15 47 53 72 75 76 78 79 85
01 15 47 70 71 76 79 83 85 87
01 15 49 70 73 74 77 79 85 87
01 19 43 47 49 72 74 75 76 79
01 19 43 53 70 73 77 78 79 87
01 47 53 70 72 75 76 78 79 87
01 49 71 72 73 74 75 77 79 83
15 19 43 49 53 70 74 78 85 87
15 19 43 49 71 72 74 75 83 85
15 49 53 72 73 74 75 77 78 85
15 53 70 71 72 75 78 83 85 87
19 43 47 53 71 73 76 77 78 83
19 43 47 70 72 73 75 76 77 87
19 43 49 53 70 71 74 78 83 87
47 49 70 71 73 74 76 77 83 87

estr.102 01 .. .. .. .. .. .. .. .. 43 .. .. 49 53 .. .. 71 73 .. 87
 
[12586] [102] 19.04.2011...Estratti...01 06 08 11 17 24 26 31 38 43 44 45 49 53 60 63 71 73 80 87
[12587] [103] 19.04.2011...Estratti...02 07 12 19 21 27 28 29 33 38 47 49 53 61 62 67 70 71 73 85
Rilevato....12587 19.04.2011....Estratti aventi Distanza richiesta...4 ...... 29 - 33
Rilevato....12587 19.04.2011....Estratti aventi Distanza richiesta...4 ...... 49 - 53
Rilevato....12587 19.04.2011....Estratti aventi Distanza richiesta...4 ...... 67 - 71
...numeri.in gioco...16......dal........12588...29 33 38 49 53 67 70 71 72 73 74 75 76 77 78 79

29 33 38 49 53 67 70 71 72 77
29 33 38 49 53 74 75 76 77 79
29 33 38 49 67 71 73 74 76 78
29 33 67 70 72 73 74 75 78 79
29 38 49 70 71 72 73 75 78 79
29 38 53 67 70 72 73 76 77 78
29 38 53 67 71 74 75 76 77 79
33 49 53 67 71 73 75 77 78 79
33 49 53 70 71 72 73 74 77 78
33 49 67 70 71 72 74 75 76 79
38 53 70 72 73 75 76 77 78 79
 
quote:Originally posted by rubino

non lo so, non l'ho mai fatto.

e non saprei come fare


-----------------------------
hobby e passatempo, il bello dello studio e della ricerca

Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.

camapanagaus.jpg
Clicca per espandere...
potresti inserimi il riduttore che hai inserito per l'altro script keeper10elotto mi semplificherebbe il lavoro.grazie
 
in decina era questo, con 19 numeri

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

-----------------------------
hobby e passatempo, il bello dello studio e della ricerca

Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.

camapanagaus.jpg
 
credo di si ora ti allego il post
prova con sviluppo di 1 ridotto che ho preso a caso:


1) creare directory in c:\temp\SVILUPPOBASE

2) Dovranno essere immessi i ridotti (file txt) i numeri devono essere separati da (,) virgola


esempio:

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

questo sviluppo è n19g6f0
vuol dire che
è di 19 numeri
garanzia 6 punti su 10
fisse 0

almeno se tu mi applichi la funzione posso io cambiare il ridotto a mio piacimento e fare delle prove grazie
 
keeper

io metto lo script, ma guarda che è da provare, non è detto che funzioni bene, perchè di prove ne ho fatte poche, e qualche volta si impiantava dando errore.

probabilmente lo devo riguardare bene!

Codice: 
Sub Main()
	' statistica per rilevamento delle somme dei 20 estratti a gruppi da ambo-terno-quaterna-cinquina-etc...'
	''''' nome script   sistemaKEEPER10LOTTO5M
	'-------------------------------------------------------------------------------------------------------------------------------
	ImpostaArchivio10ELotto(2)
	Dim num(20)
	Dim asom(20)
	Dim acolpi(9999)
	storia = InputBox("Statistica Ult.Estrazione da Considerare   ",,EstrazioniArchivioDL)
	z = InputBox("Quante Estrazione vuoi esaminare? ",,50)
	v = InputBox("somma nr.consecutivi  2,3,4,5",,3)
	lis = InputBox("garanzia Terno=3, Quaterna=4, Cinquina=5",,3)
	k = InputBox("Verifica esito n.colpi..",,20)
	acc = InputBox("Accorpa giocate Si-No ",,"S")
	If lis < 3 Then
		MsgBox("valore (Garanzia)  errato, deve essere >= 3")
		StopProcess
	End If
	fin = storia
	Ini = storia - z
	ColoreTesto 1
	Scrivi "Rileva somme numeri  dal concorso n." & Ini & "   al conc.n. " & fin & "    Sistemi Per il 10 E LOTTO 5 minuti  -  by Rubino - "
	Scrivi "Somma nr. consecutività.." & v
	Scrivi "Accorpa giocate.." & acc
	Scrivi "Verifica esito : segnala punteggio  >=  di..." & lis
	Scrivi "Verifica esito : n.colpo..." & k
	Scrivi
	ColoreTesto 0
	Scrivi "Conc.n. 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20 ........somme......... 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 16 17 18 19 20"
	Scrivi "______________________________________________________________________________________________________________________________________________________"
	For x = 1 To z
		idestr = storia - x
		riga = ""
		For t = 1 To 20
			asom(t) = ""
		Next
		For yy = 1 To 20
			riga = riga & Format2(EstrattoDL(idestr,yy)) & " "
			num(yy) = Format2(EstrattoDL(idestr,yy))
		Next
		If v = 2 Then
			For b = 1 To 19
				c = Fuori90(Int(num(b)) + Int(num(b + 1)))
				asom(b) = asom(b) & CLng(c)
			Next
			lim = 19
		End If
		If v = 3 Then
			For b = 1 To 18
				c = Fuori90(Int(num(b)) + Int(num(b + 1)) + Int(num(b + 2)))
				asom(b) = asom(b) & CLng(c)
			Next
			lim = 18
		End If
		If v = 4 Then
			For b = 1 To 17
				c = Fuori90(Int(num(b)) + Int(num(b + 1)) + Int(num(b + 2)) + Int(num(b + 3)))
				asom(b) = asom(b) & CLng(c)
			Next
			lim = 17
		End If
		If v = 5 Then
			For b = 1 To 16
				c = Fuori90(Int(num(b)) + Int(num(b + 1)) + Int(num(b + 2)) + Int(num(b + 3)) + Int(num(b + 4)))
				asom(b) = asom(b) & CLng(c)
			Next
			lim = 16
		End If
		rsomme = ""
		For f = 1 To Int(lim)
			rsomme = rsomme & Format2(asom(f)) & " "
		Next
		Scrivi "___________________________________________________________________________________________________________________________________________________________"
		ColoreTesto(0)
		Scrivi idestr & "    " & riga & "......................." & rsomme
		''''riepilogo terni con somme uguali
		For r = 1 To lim
			For r2 = r + 1 To lim + 1
				If asom(r) = asom(r2) Then
					t1 = Format2(EstrattoDL(idestr,r))
					t2 = Format2(EstrattoDL(idestr,r + 1))
					If v = 3 Then
						t3 = Format2(EstrattoDL(idestr,r + 2))
					End If
					If v = 4 Then
						t3 = Format2(EstrattoDL(idestr,r + 2))
						t4 = Format2(EstrattoDL(idestr,r + 3))
					End If
					If v = 5 Then
						t3 = Format2(EstrattoDL(idestr,r + 2))
						t4 = Format2(EstrattoDL(idestr,r + 3))
						t5 = Format2(EstrattoDL(idestr,r + 4))
					End If
					u1 = Format2(EstrattoDL(idestr,r2))
					u2 = Format2(EstrattoDL(idestr,r2 + 1))
					If v = 3 Then
						u3 = Format2(EstrattoDL(idestr,r2 + 2))
					End If
					If v = 4 Then
						u3 = Format2(EstrattoDL(idestr,r2 + 2))
						u4 = Format2(EstrattoDL(idestr,r2 + 3))
					End If
					If v = 5 Then
						u3 = Format2(EstrattoDL(idestr,r2 + 2))
						u4 = Format2(EstrattoDL(idestr,r2 + 3))
						u5 = Format2(Estratto
 
ho applicato allo script delle somme</u> riduttori diversi, in base alla lunghezza dei numeri della lunghetta, cioè da 15 a 22.

devo dire che dalle prove veloci che ho fatto, i riduttori a garanzia del 6 su 10, si poichè tutti sono sviluppati in decine,
i risultati non sono molto confortanti.

generalmente portano ad ottenere un serie di 5,6 punti, niente di più.

di sette non ce nè.

questo per far capire che o si sale nel numero delle colonne dello sviluppo del sistema e quindi della garanzia.

premesso che garanzia 7,8 punti, costano un'occhio!.

[?]


pertanto, la sintesi del ragionamento è:

obbligo di scendere nella quantità dei numeri.

da 10 a 13 max deve avere la lunghetta.

porta a rivedere pertanto il metodo di partenza.

o meno fissi da aggiungere,
o introdurre metodo alternativo ai fissi, che generi max 5,6 numeri




ora provo ad applicarlo allo script ultimo, delle presenze e delle distanze</u>

poi ci rileggiamo dopo cena.






-----------------------------
hobby e passatempo, il bello dello studio e della ricerca

Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.

camapanagaus.jpg
 
rubino lo so che ti sto rompendo ma forse mi sono espresso male
allo script a colpo che hai creato in questo post se ti è possibile aggiungimi la parte di codice per applicare i ridotto come hai fatto per lo script keeper10elotto che hai appena postato
vorrei vedere se con i consicutivi le distanze e le decine riesco a trovare un buon riduttore
 
quote:Originally posted by rubino

ho applicato allo script delle somme</u> riduttori diversi, in base alla lunghezza dei numeri della lunghetta, cioè da 15 a 22.

devo dire che dalle prove veloci che ho fatto, i riduttori a garanzia del 6 su 10, si poichè tutti sono sviluppati in decine,
i risultati non sono molto confortanti.

generalmente portano ad ottenere un serie di 5,6 punti, niente di più.

di sette non ce nè.

questo per far capire che o si sale nel numero delle colonne dello sviluppo del sistema e quindi della garanzia.

premesso che garanzia 7,8 punti, costano un'occhio!.

[?]


pertanto, la sintesi del ragionamento è:

obbligo di scendere nella quantità dei numeri.

da 10 a 13 max deve avere la lunghetta.

porta a rivedere pertanto il metodo di partenza.

o meno fissi da aggiungere,
o introdurre metodo alternativo ai fissi, che generi max 5,6 numeri




ora provo ad applicarlo allo script ultimo, delle presenze e delle distanze</u>

poi ci rileggiamo dopo cena.






-----------------------------
hobby e passatempo, il bello dello studio e della ricerca

Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.

camapanagaus.jpg

Clicca per espandere...


Rubino
hai ragione ho fatto delle prove con delle condizioni di consecutivi e peso, non necessariamente bisogna aggiungere dei Fissi.
Piu tardi vi darò maggio dettaglio, sullo sviluppo
ciao
 
Allora vi spiego la mìa idea lo script mì serviva per avere dei dati su cui lavorare alla formazione di poche lunghette con pochi numeri xrtanto se siete d'accordo i fissi potrebbero essere i consecutivi poi l'abbinamento migliore la distanza 4 con la settantina che ha una forte presenza poi cerccavo di trovare un metodo in terzine cmq continuiamo a lavorare perchè siamo vicini alla meta
 
quote:Originally posted by keeper

Allora vi spiego la mìa idea lo script mì serviva per avere dei dati su cui lavorare alla formazione di poche lunghette con pochi numeri xrtanto se siete d'accordo i fissi potrebbero essere i consecutivi poi l'abbinamento migliore la distanza 4 con la settantina che ha una forte presenza poi cerccavo di trovare un metodo in terzine cmq continuiamo a lavorare perchè siamo vicini alla meta
Clicca per espandere...
x rubino mi puoi applicare il riduttore per favore? così lo testo
 
scarica da Megaupload

cartella con alcuni sistemini ridotti

http://www.megaupload.com/?d=EBU0DO23




creare cartella SVILUPPOBASE in

c:\Temp



-----------------------------
hobby e passatempo, il bello dello studio e della ricerca

Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.

camapanagaus.jpg
 
aggiornato script keepsistema

alcuni riduttori indicativi sono applicati in base alla lunghezza dei numeri ricavati dal metodo

1) metodo
rintraccia numeri con 2 presenze in 2 concorsi consecutivi

2) metodo
rintraccia numeri aventi distanza (x) nell'estrazione

3) metodo
possibilità di aggiungere una decina di numeri come se fossero fissi
a) se non si vuole applicare questo metodo basta lasciare la scelta sullo zero
b) se si vuole invece aggiungere questo metodo, basta mettere un valore di partenza lo script mettere 10 numeri calcolati dal numero che avrete messo.

4) lo script una volta elaborato il tutto, si trova una lunghetta di (x) numeri ed a questi cercherà se vi è un riduttore nella directory
c:\Temp\SVILUPPOBASE

a questo punto verificherà gli esiti di ogni colonna del sistemino ridotto, per (n) colpi e ne darà in output i punteggi e al termine il riepilogo.


Codice: 
Sub Main()
	ImpostaArchivio10ELotto(2)
	'-------------------------------------------------------------------------------------------------------------------------------
	Dim num(2)
	Dim nm(40)
	Dim lun(90)
	Dim anm(90)
	fin = EstrazioniArchivioDL
	storia = InputBox("Estrazioni Iniziale..",,fin)
	lis = InputBox("verifica garanzia  2=Ambo   3=Terno   4=Quaterna 5=Cinquina  6=Sestina  7=Settina   8=Ottina  9=Novina  10=10 punti   11=11 punti   12=12 punti   13=13punti",,6)
	s1 = InputBox("esamina solo presenze = 2 ",,2)
	s2 = InputBox("esamina distanza (x) tra 2 estratti",,4)
	s3 = InputBox("vuoi aggiungere fissi una 1 decina ? ",,0)
	s4 = InputBox("Verifica in n.colpi..",,6)
	ColoreTesto 2
	Scrivi " Ricerca Numeri che si sono ripetuti in 2 concorsi consecutivi nel range dal....al...." & Storia & "/" & DataEstrazioneDL(storia) & "    -    " & fin & "/" & DataEstrazioneDL(fin)
	Scrivi " Metodo verifica quanti si ripetono per la terza volta nei 2 concorsi successivi            (script  KeepSistema)"
	Scrivi "_________________________________________________________________________________________________________________________________"
	Scrivi
	ColoreTesto 0
	Ini = storia - 1
	For Ini = Ini + 1 To fin
		idestr = Ini
		numeria = ""
		numerib = ""
		ok = 0
		lunghetta = ""
		z = z + 1
		'''azzera schiere
		For j = 1 To 90
			anm(j) = 0
			lun(j) = 0
		Next
		'''carica schiera con 20 numeri estratti
		For h = 1 To 20
			numeria = numeria & Format2(EstrattoDL(idestr - 1,h)) & " "
			numerib = numerib & Format2(EstrattoDL(idestr,h)) & " "
		Next
		ColoreTesto 0
		Scrivi "____________________________________________________________________________________________________"
		Scrivi GetInfoEstrazioneDL(idestr - 1) & "...Estratti..." & numeria
		Scrivi GetInfoEstrazioneDL(idestr) & "...Estratti..." & numeriB
		ColoreTesto 2
		''''----------------------------------------------------------------------------------------------------
		num(1) = 0
		num(2) = 0
		''''''vede se presenze = 2 in 2 concorsi
		For h = 1 To 20
			num(1) = EstrattoDL(idestr,h)
			pres = SerieFreqDL(idestr - 1,idestr,num,1)
			If pres = 2 Then
				ok = ok + 1
				lun(ok) = Format2(num(1))
			End If
		Next
		''''----------------------------------------------------------------------------------------------------
		''''esamina distanza (x) tra 2 estratti
		For h = 1 To 19
			h1 = h
			For h1 = h1 + 1 To 20
				dis = EstrattoDL(idestr,h1) - EstrattoDL(idestr,h)
				If Int(s2) = dis Then
					num(1) = EstrattoDL(idestr,h)
					num(2) = EstrattoDL(idestr,h1)
					anm(num(1)) = Format2(num(1))
					anm(num(2)) = Format2(num(2))
					ColoreTesto 1
					Scrivi "Rilevato...." & idestr & " " & DataEstrazioneDL(idestr) & "....Estratti aventi Distanza richiesta..." & dis & "  ...... " & Format2(num(1)) & " - " & Format2(num(2))
				End If
			Next
		Next
		For j = 1 To 90
			If anm(j) > 0 Then
				ok = ok + 1
				lun(ok) = anm(j)
			End If
		Next
		''''------facoltativo a scelta--------------------------------------------------------------------------
		'''aggiungere una decina come
 
Ciao Rubino,
ho provato a far girare lo script,
ma in "possibilità di aggiungere una decina di numeri come se fossero fissi" se lascio lo 0 mi funziona,ma se ad es metto un valore di partenza mi da errore,in cosa sbaglio?
Grazie:)
 
mi puoi dire quali valori hai messo?

a me funziona

che valore hai messo come inizio della decina da aggiungere?

oppure


che tipo di pc hai?

io ho XP

non vorrei che non trovi il percorso giusto per recuperare lo sviluppo del ridotto.



-----------------------------
hobby e passatempo, il bello dello studio e della ricerca

Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.

camapanagaus.jpg
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 12 luglio 2025
    Bari
    67
    30
    66
    89
    47
    Cagliari
    06
    66
    33
    32
    37
    Firenze
    43
    25
    78
    21
    23
    Genova
    34
    20
    85
    52
    33
    Milano
    36
    19
    02
    70
    77
    Napoli
    21
    72
    74
    15
    53
    Palermo
    32
    08
    37
    02
    86
    Roma
    27
    32
    12
    67
    06
    Torino
    45
    47
    08
    13
    32
    Venezia
    29
    34
    19
    51
    53
    Nazionale
    34
    18
    56
    47
    85
    Estrazione Simbolotto
    Nazionale
    02
    26
    01
    08
    17
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto