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
    martedì 14 gennaio 2025
    Bari
    41
    25
    12
    73
    55
    Cagliari
    54
    20
    48
    32
    67
    Firenze
    75
    23
    68
    10
    38
    Genova
    33
    27
    81
    70
    64
    Milano
    68
    01
    64
    86
    87
    Napoli
    47
    75
    45
    10
    21
    Palermo
    55
    86
    33
    53
    70
    Roma
    88
    78
    61
    06
    07
    Torino
    76
    08
    23
    61
    82
    Venezia
    25
    15
    49
    21
    81
    Nazionale
    70
    10
    32
    78
    07
    Estrazione Simbolotto
    Bari
    07
    14
    28
    45
    31
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto