BaffoBlù
Advanced Member >PLATINUM<
Miscredenti
8 al 4°colpo e ambo 17-90 al 4 colpo a Firenze
2 volte il 73 a bari e una volta il 17...
stava li li ....
Condizioni Rare
- Creatore Discussione BaffoBlù
- Data di inizio
Miscredenti
8 al 4°colpo e ambo 17-90 al 4 colpo a Firenze
2 volte il 73 a bari e una volta il 17...
stava li li ....
BaffoBlù
Advanced Member >PLATINUM<
OCCHIO ! OCCHIO ! OCCHIO !
Condizioni rare
Esiti Infallibili dal 1871 ad oggi
Nel suo piccolo picchia...ed è affidabile...
Ricercare nel quadro estrazionale questa condizione che può presentarsi in 6 "Sequenze" Diverse.
Ognuno dei 3 elementi di ogni sequenza deve trovarsi in una ruota diversa
Sequenza 1 : 13.13.05
Sequenza 2 : 05.05.13
Sequenza 3 : 13.05.13
Sequenza 4 : 05.13.05
Sequenza 5 : 05.13.13
Sequenza 6 : 13.05.05
Una volta rilevata la condizione abbiamo una Sestina da giocare a tutte (15 ambi secchi integrale)
Nel ristretto ho isolato 9 ambi secchi più prolifici.
Lo script è rudimentale, ma fa il suo lavoro (Salvo Sbagli...) a tal fine chiedo agli scripter (chi vuole...)
Di verificare mie sviste e di creare uno script che comprenda in un colpo solo tutte le sequenze
e lasciarlo per TUTTI. (Utilizzabile alla prossima Condizione Rilevata...)
Il mio script elabora una Sequenza alla volta...
Mostra esiti multipli della Sestina e mostra lo sviluppo dei 9 Ambi Secchi nel corso di 18 colpi
Ad ogni modo ci si ferma al primo esito Raggiunto.
I 18 colpi sono solo a livello dimostrativo per visionare gli esiti multipli e vedere sulle 3 ruote fisse della condizione che succede...
Condizioni rare
Esiti Infallibili dal 1871 ad oggi
Nel suo piccolo picchia...ed è affidabile...
Ricercare nel quadro estrazionale questa condizione che può presentarsi in 6 "Sequenze" Diverse.
Ognuno dei 3 elementi di ogni sequenza deve trovarsi in una ruota diversa
Sequenza 1 : 13.13.05
Sequenza 2 : 05.05.13
Sequenza 3 : 13.05.13
Sequenza 4 : 05.13.05
Sequenza 5 : 05.13.13
Sequenza 6 : 13.05.05
Una volta rilevata la condizione abbiamo una Sestina da giocare a tutte (15 ambi secchi integrale)
Nel ristretto ho isolato 9 ambi secchi più prolifici.
Lo script è rudimentale, ma fa il suo lavoro (Salvo Sbagli...) a tal fine chiedo agli scripter (chi vuole...)
Di verificare mie sviste e di creare uno script che comprenda in un colpo solo tutte le sequenze
e lasciarlo per TUTTI. (Utilizzabile alla prossima Condizione Rilevata...)
Il mio script elabora una Sequenza alla volta...
Mostra esiti multipli della Sestina e mostra lo sviluppo dei 9 Ambi Secchi nel corso di 18 colpi
Ad ogni modo ci si ferma al primo esito Raggiunto.
I 18 colpi sono solo a livello dimostrativo per visionare gli esiti multipli e vedere sulle 3 ruote fisse della condizione che succede...
Codice:
Option Explicit
Sub Main()
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
TestoInBandaPassante(" *** A T T E N Z I O N E !!! Dalla serie CONDIZIONI RARE, nel suo piccolo, Nessun Esito Negativo dal'Inizio del Lotto - 1871 _ METODOLOGIA INFALLIBILE al 100% *** Script By BaffoBlù"),1,3,0
ColoreTesto 0
Scrivi String(100," * ")
Dim es,Ini,Fin,r1,r2,r3,r11,Seq,Tm,Clp,co,ok,a,b,c,sp1,sp2,sp3,pos
Dim ruota(12)
Dim ruote(12)
Dim poste(10)
Dim n(6)
Dim am1(2)
Dim am2(2)
Dim am3(2)
Dim am4(2)
Dim am5(2)
Dim am6(2)
Dim am7(2)
Dim am8(2)
Dim am9(2)
poste(2) = 1
r11 = 11
Seq = CInt(InputBox(" Scegli Una Sequenza da 1 a 6 ",,"1"))' Ricordarsi di Elaborare tutte le Sequenze da 1 a 6.
' Sequenza 1 : 13.13.05
' Sequenza 2 : 05.05.13
' Sequenza 3 : 13.05.13
' Sequenza 4 : 05.13.05
' Sequenza 5 : 05.13.13
' Sequenza 6 : 13.05.05
' Ricordarsi di Elaborare tutte le Sequenze da 1 a 6.
If Seq = 1 Then
sp1 = 13
sp2 = 13
sp3 = 05
ok = 1
End If
If Seq = 2 Then
sp1 = 05
sp2 = 05
sp3 = 13
ok = 1
End If
If Seq = 3 Then
sp1 = 13
sp2 = 05
sp3 = 13
ok = 1
End If
If Seq = 4 Then
sp1 = 05
sp2 = 13
sp3 = 05
ok = 1
End If
If Seq = 5 Then
sp1 = 05
sp2 = 13
sp3 = 13
ok = 1
End If
If Seq = 6 Then
sp1 = 13
sp2 = 05
sp3 = 05
ok = 1
End If
Tm = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"10432"))' Tutte quelle in archivio...
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"18"))'18 colpi per Dimostrazione e Visione degli esiti ripetuti, ci si ferma comunque al 1° Esito raggiunto
Ini = EstrazioneFin - Tm
Fin = EstrazioneFin
co = 0
For es = Ini To Fin
For r1 = 1 To 10
For r2 = r1 + 1 To 10
For r3 = r2 + 1 To 11
If r3 = 11 Then r3 = 12 End If
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,Fin,es)
ruota(1) = r1
ruota(2) = r2
ruota(3) = r3
ruote(1) = r11
ok = 0
For pos = 1 To 5
If(Estratto(es,r1,pos) = sp1) Then
If(Estratto(es,r2,pos) = sp2) Then
If(Estratto(es,r3,pos) = sp3) Then
ok = 1
'--------------
If ok = 1 Then
n(1) = 11
n(2) = 13
n(3) = 18
n(4) = 22
n(5) = 54
n(6) = 88
' La Sestina produce integralmente 15 Ambi Secchi
' Nel ristretto sono stati selezionati questi 9 Ambi Secchi :
' 22.88 / 54.88 / 13.22 / 13.54 / 11.54 / 13.18 / 18.88 / 22.54 / 13.88 /.
' -------------------------------------------------------------------------
' Questi invece sono il resto degli ambi derivanti dalla Sestina
' 11.22 / 18.22 / 11.88/ 18.54 / 11.18 / 11.13
' -------------------------------------------------------------------------
am1(1) = 22
am1(2) = 88
am2(1) = 54
am2(2) = 88
am3(1) = 13
am3(2) = 22
am4(1) = 13
am4(2) = 54
am5(1) = 11
am5(2) = 54
am6(1) = 13
am6(2) = 18
am7(1) = 18
am7(2) = 88
am8(1) = 22
am8(2) = 54
am9(1) = 13
am9(2) = 88
ruota(1) = r1
ruota(2) = r2
ruota(3) = r3
ruote(1) = r11
co = co + 1
Scrivi String(100,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(es) & " * " & SiglaRuota(r1) & " : " & sp1 & " / " & SiglaRuota(r2) & " : " & sp2 & " / " & SiglaRuota(r3) & " : " & sp3,1
Scrivi String(100,"°"),1
ImpostaGiocata 1,n,ruote,poste,Clp,2
ImpostaGiocata 2,am1,ruote,poste,Clp,2
ImpostaGiocata 3,am2,ruote,poste,Clp,2
ImpostaGiocata 4,am3,ruote,poste,Clp,2
ImpostaGiocata 5,am4,ruote,poste,Clp,2
ImpostaGiocata 6,am5,ruote,poste,Clp,2
ImpostaGiocata 7,am6,ruote,poste,Clp,2
ImpostaGiocata 8,am7,ruote,poste,Clp,2
ImpostaGiocata 9,am8,ruote,poste,Clp,2
ImpostaGiocata 10,am9,ruote,poste,Clp,2
Gioca es,1,,1
End If
If ScriptInterrotto Then Exit For
End If
End If
End If
Next
Next
Next
Next
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(100," * ")
ScriviResoconto
End SubCiao Baffo.
Ho modificato il tuo script per effettuare la ricerca con tutte le sequenze. Dai una controllata per verificare se tutto è ok.
Ciao, Maldor
Ho modificato il tuo script per effettuare la ricerca con tutte le sequenze. Dai una controllata per verificare se tutto è ok.
Ciao, Maldor
Codice:
Option Explicit
Sub Main()
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
TestoInBandaPassante(" *** A T T E N Z I O N E !!! Dalla serie CONDIZIONI RARE, nel suo piccolo, Nessun Esito Negativo dal'Inizio del Lotto - 1871 _ METODOLOGIA INFALLIBILE al 100% *** Script By BaffoBlù"),1,3,0
ColoreTesto 0
Scrivi String(100," * ")
Dim es,Ini,Fin,r1,r2,r3,r11,Seq,Tm,Clp,co,ok,a,b,c,sp1,sp2,sp3,pos,i,Vet_Seq(6,3)
Dim ruota(12)
Dim ruote(12)
Dim poste(10)
Dim n(6)
Dim am1(2)
Dim am2(2)
Dim am3(2)
Dim am4(2)
Dim am5(2)
Dim am6(2)
Dim am7(2)
Dim am8(2)
Dim am9(2)
poste(2) = 1
r11 = 11
' Sequenza 1 : 13.13.05
' Sequenza 2 : 05.05.13
' Sequenza 3 : 13.05.13
' Sequenza 4 : 05.13.05
' Sequenza 5 : 05.13.13
' Sequenza 6 : 13.05.05
Vet_Seq(1,1) = 13
Vet_Seq(1,2) = 13
Vet_Seq(1,3) = 05
Vet_Seq(2,1) = 05
Vet_Seq(2,2) = 05
Vet_Seq(2,3) = 13
Vet_Seq(3,1) = 13
Vet_Seq(3,2) = 05
Vet_Seq(3,3) = 13
Vet_Seq(4,1) = 05
Vet_Seq(4,2) = 13
Vet_Seq(4,3) = 05
Vet_Seq(5,1) = 05
Vet_Seq(5,2) = 13
Vet_Seq(5,3) = 13
Vet_Seq(6,1) = 13
Vet_Seq(6,2) = 05
Vet_Seq(6,3) = 05
Tm = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"10432"))' Tutte quelle in archivio...
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"18"))'18 colpi per Dimostrazione e Visione degli esiti ripetuti, ci si ferma comunque al 1° Esito raggiunto
Ini = EstrazioneFin - Tm
Fin = EstrazioneFin
co = 0
For es = Ini To Fin
For r1 = 1 To 10
For r2 = r1 + 1 To 10
For r3 = r2 + 1 To 11
If r3 = 11 Then r3 = 12 End If
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,Fin,es)
ruota(1) = r1
ruota(2) = r2
ruota(3) = r3
ruote(1) = r11
ok = 0
For i = 1 To 6
sp1 = Vet_Seq(i,1)
sp2 = Vet_Seq(i,2)
sp3 = Vet_Seq(i,3)
For pos = 1 To 5
If(Estratto(es,r1,pos) = sp1) Then
If(Estratto(es,r2,pos) = sp2) Then
If(Estratto(es,r3,pos) = sp3) Then
ok = 1
'--------------
If ok = 1 Then
n(1) = 11
n(2) = 13
n(3) = 18
n(4) = 22
n(5) = 54
n(6) = 88
' La Sestina produce integralmente 15 Ambi Secchi
' Nel ristretto sono stati selezionati questi 9 Ambi Secchi :
' 22.88 / 54.88 / 13.22 / 13.54 / 11.54 / 13.18 / 18.88 / 22.54 / 13.88 /.
' -------------------------------------------------------------------------
' Questi invece sono il resto degli ambi derivanti dalla Sestina
' 11.22 / 18.22 / 11.88/ 18.54 / 11.18 / 11.13
' -------------------------------------------------------------------------
am1(1) = 22
am1(2) = 88
am2(1) = 54
am2(2) = 88
am3(1) = 13
am3(2) = 22
am4(1) = 13
am4(2) = 54
am5(1) = 11
am5(2) = 54
am6(1) = 13
am6(2) = 18
am7(1) = 18
am7(2) = 88
am8(1) = 22
am8(2) = 54
am9(1) = 13
am9(2) = 88
ruota(1) = r1
ruota(2) = r2
ruota(3) = r3
ruote(1) = r11
co = co + 1
Scrivi String(100,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(es) & " * " & SiglaRuota(r1) & " : " & sp1 & " / " & SiglaRuota(r2) & " : " & sp2 & " / " & SiglaRuota(r3) & " : " & sp3,1
Scrivi String(100,"°"),1
ImpostaGiocata 1,n,ruote,poste,Clp,2
ImpostaGiocata 2,am1,ruote,poste,Clp,2
ImpostaGiocata 3,am2,ruote,poste,Clp,2
ImpostaGiocata 4,am3,ruote,poste,Clp,2
ImpostaGiocata 5,am4,ruote,poste,Clp,2
ImpostaGiocata 6,am5,ruote,poste,Clp,2
ImpostaGiocata 7,am6,ruote,poste,Clp,2
ImpostaGiocata 8,am7,ruote,poste,Clp,2
ImpostaGiocata 9,am8,ruote,poste,Clp,2
ImpostaGiocata 10,am9,ruote,poste,Clp,2
Gioca es,1,,1
End If
If ScriptInterrotto Then Exit For
End If
End If
End If
Next
Next
Next
Next
Next
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(100," * ")
ScriviResoconto
End SubBaffoBlù
Advanced Member >PLATINUM<
Grazie per la modifica
Purtroppo risulta esservi un esito negativo (nel 1800...) nella sequenza 5
Quindi affidabilità al 99.99%
Rimetto lo script con qualche correzione dovuta...
Codice:
Option Explicit
Sub Main()
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
TestoInBandaPassante(" *** Un Solo esito Negativo dal'Inizio del Lotto - 1871 _ METODOLOGIA INFALLIBILE al 99,9% *** Script By BaffoBlù"),1,3,0
ColoreTesto 0
Scrivi String(100," * ")
Dim es,Ini,Fin,r1,r2,r3,r11,Seq,Tm,Clp,co,ok,a,b,c,sp1,sp2,sp3,pos,i,Vet_Seq(6,3)
Dim ruota(12)
Dim ruote(12)
Dim poste(10)
Dim n(6)
Dim am1(2)
Dim am2(2)
Dim am3(2)
Dim am4(2)
Dim am5(2)
Dim am6(2)
Dim am7(2)
Dim am8(2)
Dim am9(2)
poste(2) = 1
r11 = 11
' Sequenza 1 : 13.13.05
' Sequenza 2 : 05.05.13
' Sequenza 3 : 13.05.13
' Sequenza 4 : 05.13.05
' Sequenza 5 : 05.13.13
' Sequenza 6 : 13.05.05
Vet_Seq(1,1) = 13
Vet_Seq(1,2) = 13
Vet_Seq(1,3) = 05
Vet_Seq(2,1) = 05
Vet_Seq(2,2) = 05
Vet_Seq(2,3) = 13
Vet_Seq(3,1) = 13
Vet_Seq(3,2) = 05
Vet_Seq(3,3) = 13
Vet_Seq(4,1) = 05
Vet_Seq(4,2) = 13
Vet_Seq(4,3) = 05
Vet_Seq(5,1) = 05
Vet_Seq(5,2) = 13
Vet_Seq(5,3) = 13
Vet_Seq(6,1) = 13
Vet_Seq(6,2) = 05
Vet_Seq(6,3) = 05
Tm = CInt(InputBox(" Quante estrazioni vuoi controllare ? ",,"10433"))' Tutte quelle in archivio...
Clp = CInt(InputBox(" Per quanti colpi vuoi giocare ? ",,"18"))'18 colpi per Dimostrazione e Visione degli esiti ripetuti, ci si ferma comunque al 1° Esito raggiunto
Ini = EstrazioneFin - Tm
Fin = EstrazioneFin
co = 0
For es = Ini To Fin
For r1 = 1 To 10
For r2 = r1 + 1 To 10
For r3 = r2 + 1 To 11
If r3 = 11 Then r3 = 12 End If
Messaggio "elab. estr. [" &(es) & "] di " & DataEstrazione(es,1)
Call AvanzamentoElab(Ini,Fin,es)
ruota(1) = r1
ruota(2) = r2
ruota(3) = r3
ruote(1) = r11
ok = 0
For i = 1 To 6
sp1 = Vet_Seq(i,1)
sp2 = Vet_Seq(i,2)
sp3 = Vet_Seq(i,3)
For pos = 1 To 5
If(Estratto(es,r1,pos) = sp1) Then
If(Estratto(es,r2,pos) = sp2) Then
If(Estratto(es,r3,pos) = sp3) Then
ok = 1
'--------------
If ok = 1 Then
n(1) = 11
n(2) = 13
n(3) = 18
n(4) = 22
n(5) = 54
n(6) = 88
' La Sestina produce integralmente 15 Ambi Secchi
' Nel ristretto sono stati selezionati questi 9 Ambi Secchi :
' 22.88 / 54.88 / 13.22 / 13.54 / 11.54 / 13.18 / 18.88 / 22.54 / 13.88 /.
' -------------------------------------------------------------------------
' Questi invece sono il resto degli ambi derivanti dalla Sestina
' 11.22 / 18.22 / 11.88/ 18.54 / 11.18 / 11.13
' -------------------------------------------------------------------------
am1(1) = 22
am1(2) = 88
am2(1) = 54
am2(2) = 88
am3(1) = 13
am3(2) = 22
am4(1) = 13
am4(2) = 54
am5(1) = 11
am5(2) = 54
am6(1) = 13
am6(2) = 18
am7(1) = 18
am7(2) = 88
am8(1) = 22
am8(2) = 54
am9(1) = 13
am9(2) = 88
ruota(1) = r1
ruota(2) = r2
ruota(3) = r3
ruote(1) = r11
co = co + 1
Scrivi String(100,"°") & " Caso n°" & co,1
Scrivi DataEstrazione(es) & " * " & SiglaRuota(r1) & " : " & sp1 & " / " & SiglaRuota(r2) & " : " & sp2 & " / " & SiglaRuota(r3) & " : " & sp3,1
Scrivi String(100,"°"),1
ImpostaGiocata 1,n,ruote,poste,Clp,2
ImpostaGiocata 2,am1,ruote,poste,Clp,2
ImpostaGiocata 3,am2,ruote,poste,Clp,2
ImpostaGiocata 4,am3,ruote,poste,Clp,2
ImpostaGiocata 5,am4,ruote,poste,Clp,2
ImpostaGiocata 6,am5,ruote,poste,Clp,2
ImpostaGiocata 7,am6,ruote,poste,Clp,2
ImpostaGiocata 8,am7,ruote,poste,Clp,2
ImpostaGiocata 9,am8,ruote,poste,Clp,2
ImpostaGiocata 10,am9,ruote,poste,Clp,2
Gioca es,1,,1
End If
If ScriptInterrotto Then Exit For
End If
End If
End If
Next
Next
Next
Next
Next
Next
Scrivi
Scrivi String(100,"*")
ColoreTesto 2
Scrivi" casi trovati : " & co,1
ColoreTesto 0
Scrivi String(100," * ")
ScriviResoconto
End SubUn cordiale saluto a tutti e uno davvero speciale a BaffoBlù.
Per il metodo mi son chiesto " e se invece di puntare all'affidabilità elevatissima, si cercasse l'efficacia in termini economici?".
Potrebbe essere un'idea mettere in gioco i nove ambi sulle sole ruote di origine?
Buona giornata.
Oberdan
BaffoBlù
Advanced Member >PLATINUM<
Qualche messaggio fa ho scritto :
"I 18 colpi sono solo a livello dimostrativo per visionare gli esiti multipli e vedere sulle 3 ruote fisse della condizione che succede..."
Ma la mia non voleva di certo essere una critica, ci mancherebbe.
E avevo letto e compreso la tua premessa a "livello dimostrativo". Avrei solo voluto vedere cosa potesse venirne fuori in ristretto...
Ripeto, anche qui, non ho confidenza con lo scripting di Spaziometria altrimenti avrei provato io stesso.
Oberdan
BaffoBlù
Advanced Member >PLATINUM<
appunto, se fai girare lo script, vedi da te dove vanno a cadere tutti gli esiti..
Ultima estrazione Lotto
-
Estrazione del lotto
giovedì 09 maggio 2024Bari8527285683Cagliari2934758218Firenze1674365564Genova7757293405Milano6933281821Napoli6910030512Palermo0634693813Roma3586691606Torino0856042623Venezia2784281368Nazionale6821641107Estrazione Simbolotto
Milano
4018201537
