Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
Sub Main()
' statistica per rilevamento delle somme dei 20 estratti a gruppi da ambo-terno-quaterna-cinquina-etc...'
'-------------------------------------------------------------------------------------------------------------------------------
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",,5)
lis = InputBox("Estratto=1, ambo=2, Terno=3, Quaterna=4, Cinquina=5",,5)
acc = InputBox("Accorpa giocate Si-No ",,"S")
fin = storia
Ini = storia - z
Scrivi "Rileva somme numeri dal concorso n." & Ini & " al conc.n. " & fin & " 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 "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(EstrattoDL(idestr,r2 + 4))
End If
ColoreTesto(1)
Scrivi "------ somma.." & Format2(asom(r)) & " ............" & t1 & " " & t2 & " " & t3 & " " & t4 & " " & t5 & " " & u1 & " " & u2 & " " & u3 & " " & u4 & " " & u5
ReDim tnm(10)
For j = 1 To 10
tnm(j) = 0
Next
tnm(1) = t1
tnm(2) = t2
tnm(3) = t3
tnm(4) = t4
tnm(5) = t5
''''''' accorpa giocate in una unica
quote:Originally posted by rubino
per keeper
allora facciamo il punto e qualche osservazione:
il lottolive estrae ad ogni concorsi 6 numeri su 36
il 10lotto5minuti estrae 20 numeri su 90
il lottolive è stato fatto riscontrando l'osservazione delle somme consecutive e genera coppie,terzine,quartine (in ripetizione)
abbiamo riscontrato che 2 coppie se unite in quartine spesso formano una quaterna che uscirà anche dopo 50-100 colpi.
la puntata è 0.10 minima e via via con progressione.
okey
il 10Lotto5Minuti è stato fatto riscontrando la medesima osservazione delle somme (ma solo per esperimento per vedere se potesse avere le stesse funzionalità del lottolive).
ma le coppie,terzine,quartine e cinquine derivanti da somme uguali anche se unite o accorpate in una decina, generano purtroppo spesso, solo cinque, sei punti, raramente 7 punti, dopo un esame di 400-500 concorsi.
ora io ti chiedo,
poichè una decina forma solo 5 punti come media, spesso o discretamente, ma sono pochi per andare a fare una vincita di qualità.
ho l'impressione e non solo quella, che se non si trova invece un modo di salire ad un punteggio del 8,9,10 punti su una decina non arriviamo a concretizzare nulla come vincite e guadagno.
quindi lo script attuale, basta impostarlo a somme consecutive = 5 e cinquina = 5
per rendersi conto di come gira nel breve, ma anche nel passato.
bisogna riuscire a trovare un modo più o meno come questo:
supponiamo che:
2 terzine, o 2 quartine (cioè accorpate sono 1 sestina o 8 ottina da giocare) garantiscono 4/5/6 punti, trovare altri 4,3,2 numeri che derivano da altro metodo di osservazione che incorporato con questo formino poi una decina per il punteggio minimo del 6,7 a salire.
-------------------------------------------------------------
osservazione 2:
far fare allo script uguale ragionamento del lottolive</u>
come può lo script andare a vedere nelle 400-500 estrazioni passate se una quaterna è già sortita per scremare le combinazioni?????
bisogna che il valore quaterna in questo caso sia sostituito con qualche altro valore, 5punti, 6punti,7 punti????
cosa è più corretto?
se lo script realizza 5 punti mediamente cosa andiamo a vedere ora!
mi sembra prematuro stabilire ora una sorta di scrematura.
mi ripeto a mio avviso, è il momento di mettere in campo qualche osservazione manuale per agganciare qualche numero in più (tipo decine,vertibili o altro) per arrivare ad acquisire in modo standard 2,3 punti in più già nella decina accorpata.
comunque attendo vostre osservazioni ed indicazioni.
-----------------------------
hobby e passatempo, il bello dello studio e della ricerca
Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.
quote:Originally posted by rubino
per keeper
allora facciamo il punto e qualche osservazione:
il lottolive estrae ad ogni concorsi 6 numeri su 36
il 10lotto5minuti estrae 20 numeri su 90
il lottolive è stato fatto riscontrando l'osservazione delle somme consecutive e genera coppie,terzine,quartine (in ripetizione)
abbiamo riscontrato che 2 coppie se unite in quartine spesso formano una quaterna che uscirà anche dopo 50-100 colpi.
la puntata è 0.10 minima e via via con progressione.
okey
il 10Lotto5Minuti è stato fatto riscontrando la medesima osservazione delle somme (ma solo per esperimento per vedere se potesse avere le stesse funzionalità del lottolive).
ma le coppie,terzine,quartine e cinquine derivanti da somme uguali anche se unite o accorpate in una decina, generano purtroppo spesso, solo cinque, sei punti, raramente 7 punti, dopo un esame di 400-500 concorsi.
ora io ti chiedo,
poichè una decina forma solo 5 punti come media, spesso o discretamente, ma sono pochi per andare a fare una vincita di qualità.
ho l'impressione e non solo quella, che se non si trova invece un modo di salire ad un punteggio del 8,9,10 punti su una decina non arriviamo a concretizzare nulla come vincite e guadagno.
quindi lo script attuale, basta impostarlo a somme consecutive = 5 e cinquina = 5
per rendersi conto di come gira nel breve, ma anche nel passato.
bisogna riuscire a trovare un modo più o meno come questo:
supponiamo che:
2 terzine, o 2 quartine (cioè accorpate sono 1 sestina o 8 ottina da giocare) garantiscono 4/5/6 punti, trovare altri 4,3,2 numeri che derivano da altro metodo di osservazione che incorporato con questo formino poi una decina per il punteggio minimo del 6,7 a salire.
-------------------------------------------------------------
osservazione 2:
far fare allo script uguale ragionamento del lottolive</u>
come può lo script andare a vedere nelle 400-500 estrazioni passate se una quaterna è già sortita per scremare le combinazioni?????
bisogna che il valore quaterna in questo caso sia sostituito con qualche altro valore, 5punti, 6punti,7 punti????
cosa è più corretto?
se lo script realizza 5 punti mediamente cosa andiamo a vedere ora!
mi sembra prematuro stabilire ora una sorta di scrematura.
mi ripeto a mio avviso, è il momento di mettere in campo qualche osservazione manuale per agganciare qualche numero in più (tipo decine,vertibili o altro) per arrivare ad acquisire in modo standard 2,3 punti in più già nella decina accorpata.
comunque attendo vostre osservazioni ed indicazioni.
-----------------------------
hobby e passatempo, il bello dello studio e della ricerca
Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.
Terni totali realizzati...31
Quaterne totali realizzati...11
Cinquine totali realizzati...11
6 Punti totali realizzati...4
7 Punti totali realizzati...1
8 Punti totali realizzati...
9 Punti totali realizzati...
10 Punti totali realizzati...
concorsi esaminati totale..50
Terni totali realizzati...
Quaterne totali realizzati...27
Cinquine totali realizzati...21
6 Punti totali realizzati...9
7 Punti totali realizzati...1
8 Punti totali realizzati...1
9 Punti totali realizzati...
10 Punti totali realizzati...
concorsi esaminati totale..50
Terni totali realizzati...
Quaterne totali realizzati...
Cinquine totali realizzati...29
6 Punti totali realizzati...14
7 Punti totali realizzati...6
8 Punti totali realizzati...2
9 Punti totali realizzati...
10 Punti totali realizzati...
concorsi esaminati totale..50
Cinquine totali realizzati...26
6 Punti totali realizzati...11
7 Punti totali realizzati...9
8 Punti totali realizzati...5
9 Punti totali realizzati...
10 Punti totali realizzati...
concorsi esaminati totale..50
Cinquine totali realizzati...20
6 Punti totali realizzati...12
7 Punti totali realizzati...8
8 Punti totali realizzati...6
9 Punti totali realizzati...4
10 Punti totali realizzati...1
concorsi esaminati totale..50
Cinquine totali realizzati...230
6 Punti totali realizzati...142
7 Punti totali realizzati...111
8 Punti totali realizzati...39
9 Punti totali realizzati...16
10 Punti totali realizzati...2
concorsi esaminati totale..500
Cinquine totali realizzati...674
6 Punti totali realizzati...445
7 Punti totali realizzati...299
8 Punti totali realizzati...121
9 Punti totali realizzati...46
10 Punti totali realizzati...9
concorsi esaminati totale..1500
Vincenti Combinazione 1a ..1594
Vincenti Combinazione 2a ..
01°.colpo..858
02°.colpo..383
03°.colpo..193
04°.colpo..85
05°.colpo..38
06°.colpo..24
07°.colpo..5
08°.colpo..4
09°.colpo..2
10°.colpo..1
11°.colpo..1
quote:Originally posted by rubino
verifica su 500 concorsi
riepilogo:</u>
Codice:Cinquine totali realizzati...230 6 Punti totali realizzati...142 7 Punti totali realizzati...111 8 Punti totali realizzati...39 9 Punti totali realizzati...16 10 Punti totali realizzati...2 concorsi esaminati totale..500
verifica su 1500 concorsi
riepilogo</u>
Codice:Cinquine totali realizzati...674 6 Punti totali realizzati...445 7 Punti totali realizzati...299 8 Punti totali realizzati...121 9 Punti totali realizzati...46 10 Punti totali realizzati...9 concorsi esaminati totale..1500 Vincenti Combinazione 1a ..1594 Vincenti Combinazione 2a .. 01°.colpo..858 02°.colpo..383 03°.colpo..193 04°.colpo..85 05°.colpo..38 06°.colpo..24 07°.colpo..5 08°.colpo..4 09°.colpo..2 10°.colpo..1 11°.colpo..1
-----------------------------
hobby e passatempo, il bello dello studio e della ricerca
Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.
Sub Main()
' statistica per rilevamento delle somme dei 20 estratti a gruppi da ambo-terno-quaterna-cinquina-etc...'
''''' nome script KEEPER10LOTTO5M
'-------------------------------------------------------------------------------------------------------------------------------
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",,5)
lis = InputBox("Estratto=1, ambo=2, Terno=3, Quaterna=4, Cinquina=5",,5)
k = InputBox("Verifica esito n.colpi..",,20)
acc = InputBox("Accorpa giocate Si-No ",,"S")
fin = storia
Ini = storia - z
Scrivi "Rileva somme numeri dal concorso n." & Ini & " al conc.n. " & fin & " 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 "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(EstrattoDL(idestr,r2 + 4))
End If
ColoreTesto(1)
Scrivi "------ somma.." & Format2(asom(r)) & " ............" & t1 & " " & t2 & " " & t3 & " " & t4 & " " & t5 & " " & u1 & " " & u2 & " " & u3 & " " & u4 & " " & u5
ReDim tnm(24)
For j = 1 To 24
tnm(j) = 0
Next
tnm(1) = t1
quote:Originally posted by cebino
quote:Originally posted by rubino
verifica su 500 concorsi
riepilogo:</u>
Codice:Cinquine totali realizzati...230 6 Punti totali realizzati...142 7 Punti totali realizzati...111 8 Punti totali realizzati...39 9 Punti totali realizzati...16 10 Punti totali realizzati...2 concorsi esaminati totale..500
verifica su 1500 concorsi
riepilogo</u>
Codice:Cinquine totali realizzati...674 6 Punti totali realizzati...445 7 Punti totali realizzati...299 8 Punti totali realizzati...121 9 Punti totali realizzati...46 10 Punti totali realizzati...9 concorsi esaminati totale..1500 Vincenti Combinazione 1a ..1594 Vincenti Combinazione 2a .. 01°.colpo..858 02°.colpo..383 03°.colpo..193 04°.colpo..85 05°.colpo..38 06°.colpo..24 07°.colpo..5 08°.colpo..4 09°.colpo..2 10°.colpo..1 11°.colpo..1
-----------------------------
hobby e passatempo, il bello dello studio e della ricerca
Non giocare i miei numeri, sono derivanti da studi teorici e sperimentazioni.
Rubino mi puoi postare lo script che voglio fare dei controlli anche io, se posso
grazie infinite