Rafele ‘o Ruoss’
Banned
va bè
Ultima modifica:
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.
A volte basta uno script facile per tutti.
- Creatore Discussione Missione Impossibile.
- Data di inizio
Mike58
Advanced Member >PLATINUM PLUS<
Batter troppa carne al fuoco.
Uno script quando è costruito e mostrato in output in un determinato modo, poi è complicato stravolgere il tutto e raccogliere altri dati.
Con gli script (pezzi di programma) si possono fare molte analisi ma farle interagire tutte insieme a volte è complicatissimo.
Il mio suggerimento è una volta avuto un dato da una certa raccolta costruire uno script che da quella raccolta esamini altre risultanze.
Per ora ci penso ma....
Ciao
Mike58
Advanced Member >PLATINUM PLUS<
Anche se non sono molto d'accordo sulle modifiche, ti aggiungo i primi 2 punti.
A mio avviso si definisce poco a colpo d'occhio.
Comunque ecco lo script ultimo.
A mio avviso si definisce poco a colpo d'occhio.
Comunque ecco lo script ultimo.
Codice:
Sub Main()
Dim ru(3)
Dim terni(4005,13)
Dim nn(3)
Dim spia(1)
r = InputBox("Ruota della spia....(1-10)",,2)
rr = InputBox("Ruota di gioco....(1-10)",,r)
sp = CInt(InputBox("Numero Spia",,82))
'ee = InputBox("Estrazioni da controllare",,200)
c = InputBox("Numero colpi di gioco",,18)
sorte = CInt(InputBox("Quale sorte vuoi considerare...","1,2,3",1))
'------- titoli tabella ---------------------
ReDim atitoli(11)
atitoli(1) = " Casi "
atitoli(2) = " Numeri "
atitoli(3) = " Presenze "
atitoli(4) = " esito % "
atitoli(5) = " ret_estratti fin-colpi "
atitoli(6) = " colpo "
atitoli(7) = " Data esito ultimo "
atitoli(8) = " Ritardo serie "
atitoli(9) = " Presenza serie "
atitoli(10) = " Rit. Max "
atitoli(11) = "Pres ambate singole e in Posizioni"
Call InitTabella(atitoli,1,,3,5)
For i = 1 To 4005
terni(i,1) = 0
terni(i,2) = 0
terni(i,3) = 0
terni(i,4) = 0
terni(i,5) = 0
terni(i,6) = 0
terni(i,7) = 0
terni(i,8) = 0
terni(i,9) = 0
terni(i,10) = 0
terni(i,11) = 0
terni(i,12) = 0
terni(i,13) = 0
Next
casi = 0
co = 0
ini = 8950'EstrazioneFin - ee
fin = EstrazioneFin
For es = ini To fin
Messaggio "casi trovati....... " & casi & " ****** Script by Mike58 ****** "
AvanzamentoElab ini,fin,es
If Posizione(es,r,sp) > 0 Then
spia(1) = sp
rsp = SerieRitardoTurbo(Ini,fin,spia,ru,1)
Inco = fin - es
clp = fin - es
casi = casi + 1
Tot = fin - Ini
ess = es + c
If ess > fin Then ess = fin End If
co = 0
For x = 1 To 89
For y = x + 1 To 90
co = co + 1
terni(co,1) = co
terni(co,2) = x
terni(co,3) = y
nn(1) = x
nn(2) = y
ru(1) = rr
presenze = SerieFreqTurbo(es + 1,ess,nn,ru,1)
If presenze > 0 Then 'condizione da non eliminare perch'e se capitano + terni(es. 10..eccediamo)
'nello stesso caso in analisi, il resoconto finale viene falsato da tutti questi errori.
terni(co,5) = terni(co,5) + 1
cef = fin - rsp + 1' inizio estrazione di verifica
clp = c - rsp
Call VerificaEsitoTurbo(nn,ru,fin - rsp + 1,sorte,rsp,,resito,retcolpi,retestratti,idd)
'End If
Call StatisticaFormazioneTurbo(nn,ru,sorte,rerit,reritmax,Incrmax,refre,Ini,fin)
ef1 = EstrattoFrequenzaTurbo(r,nn(1),Ini,fin)
ef2 = EstrattoFrequenzaTurbo(r,nn(2),Ini,fin)
ReDim eff1(5)
ReDim eff2(5)
For x1 = 1 To 5
ReDim aPos(x1)
aPos(x1) = True
eff1(x1) = EstrattoFrequenzaTurbo(r,nn(1),Ini,fin,,,aPos)
eff2(x1) = EstrattoFrequenzaTurbo(r,nn(2),Ini,fin,,,aPos)
Next
'sr = SerieRitardoTurbo(Ini,fin,nn,ru,sorte)
'fr = SerieFreqTurbo(Ini,fin,nn,ru,sorte)
terni(co,6) = terni(co,5) / casi *100
terni(co,7) = retestratti
terni(co,8) = retcolpi
terni(co,10) = rerit
terni(co,11) = refre
terni(co,12) = reritmax
terni(co,13) = FormatSpace(ef1,3,1) & " [ " & StringaNumeri(eff1) & " ] - " & FormatSpace(ef2,3,1) & " [ " & StringaNumeri(eff2) & " ]"
'If DataEstrazione(retidestr) > DataEstrazione(fin) Then terni(co,9) = " In corso "
If resito = "" Then terni(co,9) = ""
If resito <> "" Then terni(co,9) = GetInfoEstrazione(idd)
If resito = "" Then terni(co,9) = " in corso "
End If
Next
Next
End If
Next
OrdinaMatrice terni,- 1,5
ColoreTesto 1
Scrivi "spia " & CInt(sp) & " su " & NomeRuota(r) & " - Ritarda da... " & Inco,1
ColoreTesto 2
If rsp < c Then Scrivi "SPIA ATTIVA ",1:End If
If rsp > c Then Scrivi "SPIA NON ATTIVA":End If
ColoreTesto 1
Scrivi "Coppie più frequenti entro " & c & " colpi sulla a ruota di " & NomeRuota(rr) & " Per sorte di " & NomeSorte(sorte)
Scrivi "N. " & CInt(casi) & " casi " & "dal " & DataEstrazione(ini) & " al " & DataEstrazione(fin)
Scrivi
Scrivi "Totali estrazioni esaminate.... " & Tot,1
ColoreTesto 0
For x = 1 To 15
'----------- valori tabella ------------------
ReDim avalori(11)
avalori(1) = x
avalori(2) = Format2(terni(x,2)) & "." & Format2(terni(x,3))' & "." & Format2(terni(x,4))
avalori(3) = Format2(terni(x,5))
avalori(4) = Round(terni(x,6),2)
avalori(5) = terni(x,7)
avalori(6) = terni(x,8)
avalori(7) = terni(x,9)
avalori(8) = terni(x,10)
avalori(9) = terni(x,11)
avalori(10) = terni(x,12)
avalori(11) = terni(x,13)
'If casi = terni(x,5) Then
Call AddRigaTabella(avalori,,,3)
'End If
If avalori(4) = "Ambo" Then Call SetColoreCella(4,2,4)
If avalori(4) = "Estratto" Then Call SetColoreCella(4,3,0)
If avalori(8) = 0 Then Call SetColoreCella(7,4,1)
Next
Call SetTableWidth("100%")
Call CreaTabella(0,0,0,15)
Scrivi
Scrivi " ********* Tabella List by Mike58 *********** ",1,- 1,3
End Sub
Marco-elle
Banned
Sembra che la 4° e 5° posizione siano le più frequenti.
ottimo lavoro Mike anche se...ora diventa una agonia per Spaziometria
leggere lo script
ottimo lavoro Mike anche se...ora diventa una agonia per Spaziometria
leggere lo script
Missione Impossibile.
Banned
?
Ultima modifica:
Missione Impossibile.
Banned
?
Ultima modifica:
Missione Impossibile.
Banned
?
Ultima modifica:
Missione Impossibile.
Banned
?
Ultima modifica:
Mike58
Advanced Member >PLATINUM PLUS<
Non ho capito cosa volevi di più preciso, ma va bene cosi .
Per la scritta intestazione basta un semplice scrivi tra virgolette.
Per la scritta intestazione basta un semplice scrivi tra virgolette.
Codice:
Sub Main()
Dim ru(3)
Dim terni(4005,13)
Dim nn(3)
Dim spia(1)
ResetTimer
Scrivi "* * * * F U T U R O 2 * * * * Mission Impossible **** Project By Batter " & Chr(169) & " ***** Script List By Mike58 **** Forum LottoCed ****",1,,,1,3
r = InputBox("Ruota della spia....(1-10)",,2)
rr = InputBox("Ruota di gioco....(1-10)",,r)
sp = CInt(InputBox("Numero Spia",,82))
'ee = InputBox("Estrazioni da controllare",,200)
c = InputBox("Numero colpi di gioco",,18)
sorte = CInt(InputBox("Quale sorte vuoi considerare...","1,2,3",1))
'------- titoli tabella ---------------------
ReDim atitoli(11)
atitoli(1) = " Casi "
atitoli(2) = " Numeri "
atitoli(3) = " Presenze "
atitoli(4) = " esito % "
atitoli(5) = " ret_estratti fin-colpi "
atitoli(6) = " colpo "
atitoli(7) = " Data esito ultimo "
atitoli(8) = " Ritardo serie "
atitoli(9) = " Presenza serie "
atitoli(10) = " Rit. Max "
atitoli(11) = "Pres ambate singole e in Posizioni"
Call InitTabella(atitoli,1,,3,5)
For i = 1 To 4005
terni(i,1) = 0
terni(i,2) = 0
terni(i,3) = 0
terni(i,4) = 0
terni(i,5) = 0
terni(i,6) = 0
terni(i,7) = 0
terni(i,8) = 0
terni(i,9) = 0
terni(i,10) = 0
terni(i,11) = 0
terni(i,12) = 0
terni(i,13) = 0
Next
casi = 0
co = 0
ini = 8950'EstrazioneFin - ee
fin = EstrazioneFin
For es = ini To fin
Messaggio "casi trovati....... " & casi & " ****** Script by Mike58 ****** "
AvanzamentoElab ini,fin,es
If Posizione(es,r,sp) > 0 Then
spia(1) = sp
rsp = SerieRitardoTurbo(Ini,fin,spia,ru,1)
Inco = fin - es
clp = fin - es
casi = casi + 1
Tot = fin - Ini
ess = es + c
If ess > fin Then ess = fin End If
co = 0
For x = 1 To 89
For y = x + 1 To 90
co = co + 1
terni(co,1) = co
terni(co,2) = x
terni(co,3) = y
nn(1) = x
nn(2) = y
ru(1) = rr
presenze = SerieFreqTurbo(es + 1,ess,nn,ru,1)
If presenze > 0 Then 'condizione da non eliminare perch'e se capitano + terni(es. 10..eccediamo)
'nello stesso caso in analisi, il resoconto finale viene falsato da tutti questi errori.
terni(co,5) = terni(co,5) + 1
cef = fin - rsp + 1' inizio estrazione di verifica
clp = c - rsp
Call VerificaEsitoTurbo(nn,ru,fin - rsp + 1,sorte,rsp,,resito,retcolpi,retestratti,idd)
'End If
Call StatisticaFormazioneTurbo(nn,ru,sorte,rerit,reritmax,Incrmax,refre,Ini,fin)
ef1 = EstrattoFrequenzaTurbo(r,nn(1),Ini,fin)
ef2 = EstrattoFrequenzaTurbo(r,nn(2),Ini,fin)
ReDim eff1(5)
ReDim eff2(5)
For x1 = 1 To 5
ReDim aPos(x1)
aPos(x1) = True
eff1(x1) = EstrattoFrequenzaTurbo(r,nn(1),Ini,fin,,,aPos)
eff2(x1) = EstrattoFrequenzaTurbo(r,nn(2),Ini,fin,,,aPos)
Next
'sr = SerieRitardoTurbo(Ini,fin,nn,ru,sorte)
'fr = SerieFreqTurbo(Ini,fin,nn,ru,sorte)
terni(co,6) = terni(co,5) / casi *100
terni(co,7) = retestratti
terni(co,8) = retcolpi
terni(co,10) = rerit
terni(co,11) = refre
terni(co,12) = reritmax
terni(co,13) = FormatSpace(ef1,3,1) & " [ " & StringaNumeri(eff1,,1) & " ] - " & FormatSpace(ef2,3,1) & " [ " & StringaNumeri(eff2,,1) & " ]"
'If DataEstrazione(retidestr) > DataEstrazione(fin) Then terni(co,9) = " In corso "
If resito = "" Then terni(co,9) = ""
If resito <> "" Then terni(co,9) = GetInfoEstrazione(idd)
If resito = "" Then terni(co,9) = " in corso "
End If
Next
Next
End If
Next
OrdinaMatrice terni,- 1,5
ColoreTesto 1
Scrivi "spia " & CInt(sp) & " su " & NomeRuota(r) & " - Ritarda da... " & Inco,1
ColoreTesto 2
If rsp < c Then Scrivi "SPIA ATTIVA ",1:End If
If rsp > c Then Scrivi "SPIA NON ATTIVA":End If
ColoreTesto 1
Scrivi "Coppie più frequenti entro " & c & " colpi sulla a ruota di " & NomeRuota(rr) & " Per sorte di " & NomeSorte(sorte)
Scrivi "N. " & CInt(casi) & " casi " & "dal " & DataEstrazione(ini) & " al " & DataEstrazione(fin)
Scrivi
Scrivi "Totali estrazioni esaminate.... " & Tot,1
ColoreTesto 0
For x = 1 To 15
'----------- valori tabella ------------------
ReDim avalori(11)
avalori(1) = x
avalori(2) = Format2(terni(x,2)) & "." & Format2(terni(x,3))' & "." & Format2(terni(x,4))
avalori(3) = Format2(terni(x,5))
avalori(4) = Round(terni(x,6),2)
avalori(5) = terni(x,7)
avalori(6) = terni(x,8)
avalori(7) = terni(x,9)
avalori(8) = terni(x,10)
avalori(9) = terni(x,11)
avalori(10) = terni(x,12)
avalori(11) = terni(x,13)
'If casi = terni(x,5) Then
Call AddRigaTabella(avalori,,,3)
'End If
If avalori(4) = "Ambo" Then Call SetColoreCella(4,2,4)
If avalori(4) = "Estratto" Then Call SetColoreCella(4,3,0)
If avalori(8) = 0 Then Call SetColoreCella(7,4,1)
Next
Call SetTableWidth("100%")
Call CreaTabella(0,0,0,15)
Scrivi
Scrivi " ********* Tabella List by Mike58 *********** ",1,- 1,3
Scrivi TempoTrascorso,1
End SubMissione Impossibile.
Banned
?
Ultima modifica:
Missione Impossibile.
Banned
Grazie Mike Hai fatto anche troppo sei sempre Super.
Mike58
Advanced Member >PLATINUM PLUS<
Si può fare devi solo sostituire i cosi con il suffisso SE ed impostare l'archivioSE.
Di script ne mastichi un pochetto è un occasione per provare in proprio.
P.s. dopo un po di modifiche in uno script si perde l'interesse e una volta raggiunto l'obiettivo non ricordo più il costrutto usato per quel progetto.
Mentalmente si esce dallo script. e almeno io vado per nuove verifiche.
Ciao a tutti i partecipanti.
Di script ne mastichi un pochetto è un occasione per provare in proprio.
P.s. dopo un po di modifiche in uno script si perde l'interesse e una volta raggiunto l'obiettivo non ricordo più il costrutto usato per quel progetto.
Mentalmente si esce dallo script. e almeno io vado per nuove verifiche.
Ciao a tutti i partecipanti.
Mike58
Advanced Member >PLATINUM PLUS<
x Batter non so se ho capito bene circa le decine della spia.
Dopo Numero spia
trovo tutte le coppie sviluppate x decina della spia ( o decina voluta)
If Decina(x) = Decina
And Decina(x) = Decina(sp) Then
Come dicevo gli script sono pezzi di programma e tante situazioni si possono trovare.
spia 82 su Cagliari - Ritarda da... 9
SPIA ATTIVA
Coppie più frequenti entro 18 colpi sulla a ruota di Cagliari Per sorte di Estratto
N. 76 casi dal 10.01.2015 al 31.10.2023
Totali estrazioni esaminate.... 1377
Sviluppo solo coppie in decina spia 82
Dopo Numero spia
trovo tutte le coppie sviluppate x decina della spia ( o decina voluta)
If Decina(x) = Decina
And Decina(x) = Decina(sp) Then Come dicevo gli script sono pezzi di programma e tante situazioni si possono trovare.
Codice:
Sub Main()
Dim ru(3)
Dim terni(4005,13)
Dim nn(3)
Dim spia(1)
r = InputBox("Ruota della spia....(1-10)",,2)
rr = InputBox("Ruota di gioco....(1-10)",,r)
sp = CInt(InputBox("Numero Spia",,82))
'ee = InputBox("Estrazioni da controllare",,200)
c = InputBox("Numero colpi di gioco",,18)
sorte = CInt(InputBox("Quale sorte vuoi considerare...","1,2,3",1))
'------- titoli tabella ---------------------
ReDim atitoli(11)
atitoli(1) = " Casi "
atitoli(2) = " Numeri "
atitoli(3) = " Presenze "
atitoli(4) = " esito % "
atitoli(5) = " ret_estratti fin-colpi "
atitoli(6) = " colpo "
atitoli(7) = " Data esito ultimo "
atitoli(8) = " Ritardo serie "
atitoli(9) = " Presenza serie "
atitoli(10) = " Rit. Max "
atitoli(11) = "Pres ambate singole e in Posizioni"
Call InitTabella(atitoli,1,,3,5)
For i = 1 To 4005
terni(i,1) = 0
terni(i,2) = 0
terni(i,3) = 0
terni(i,4) = 0
terni(i,5) = 0
terni(i,6) = 0
terni(i,7) = 0
terni(i,8) = 0
terni(i,9) = 0
terni(i,10) = 0
terni(i,11) = 0
terni(i,12) = 0
terni(i,13) = 0
Next
casi = 0
co = 0
ini = 8950'EstrazioneFin - ee
fin = EstrazioneFin
For es = ini To fin
Messaggio "casi trovati....... " & casi & " ****** Script by Mike58 ****** "
AvanzamentoElab ini,fin,es
If Posizione(es,r,sp) > 0 Then
spia(1) = sp
rsp = SerieRitardoTurbo(Ini,fin,spia,ru,1)
Inco = fin - es
clp = fin - es
casi = casi + 1
Tot = fin - Ini
ess = es + c
If ess > fin Then ess = fin End If
co = 0
For x = 1 To 89
For y = x + 1 To 90
co = co + 1
If Decina(x) = Decina(y) And Decina(x) = Decina(sp) Then
terni(co,1) = co
terni(co,2) = x
terni(co,3) = y
nn(1) = x
nn(2) = y
ru(1) = rr
presenze = SerieFreqTurbo(es + 1,ess,nn,ru,1)
If presenze > 0 Then 'condizione da non eliminare perch'e se capitano + terni(es. 10..eccediamo)
'nello stesso caso in analisi, il resoconto finale viene falsato da tutti questi errori.
terni(co,5) = terni(co,5) + 1
cef = fin - rsp + 1' inizio estrazione di verifica
clp = c - rsp
Call VerificaEsitoTurbo(nn,ru,fin - rsp + 1,sorte,rsp,,resito,retcolpi,retestratti,idd)
'End If
Call StatisticaFormazioneTurbo(nn,ru,sorte,rerit,reritmax,Incrmax,refre,Ini,fin)
ef1 = EstrattoFrequenzaTurbo(r,nn(1),Ini,fin)
ef2 = EstrattoFrequenzaTurbo(r,nn(2),Ini,fin)
ReDim eff1(5)
ReDim eff2(5)
For x1 = 1 To 5
ReDim aPos(x1)
aPos(x1) = True
eff1(x1) = EstrattoFrequenzaTurbo(r,nn(1),Ini,fin,,,aPos)
eff2(x1) = EstrattoFrequenzaTurbo(r,nn(2),Ini,fin,,,aPos)
Next
'sr = SerieRitardoTurbo(Ini,fin,nn,ru,sorte)
'fr = SerieFreqTurbo(Ini,fin,nn,ru,sorte)
terni(co,6) = terni(co,5) / casi *100
terni(co,7) = retestratti
terni(co,8) = retcolpi
terni(co,10) = rerit
terni(co,11) = refre
terni(co,12) = reritmax
terni(co,13) = FormatSpace(ef1,3,1) & " [ " & StringaNumeri(eff1,,1) & " ] - " & FormatSpace(ef2,3,1) & " [ " & StringaNumeri(eff2,,1) & " ]"
'If DataEstrazione(retidestr) > DataEstrazione(fin) Then terni(co,9) = " In corso "
If resito = "" Then terni(co,9) = ""
If resito <> "" Then terni(co,9) = GetInfoEstrazione(idd)
If resito = "" Then terni(co,9) = " in corso "
End If
End If
Next
Next
End If
Next
OrdinaMatrice terni,- 1,5
ColoreTesto 1
Scrivi "spia " & CInt(sp) & " su " & NomeRuota(r) & " - Ritarda da... " & Inco,1
ColoreTesto 2
If rsp < c Then Scrivi "SPIA ATTIVA ",1:End If
If rsp > c Then Scrivi "SPIA NON ATTIVA":End If
ColoreTesto 1
Scrivi "Coppie più frequenti entro " & c & " colpi sulla a ruota di " & NomeRuota(rr) & " Per sorte di " & NomeSorte(sorte)
Scrivi "N. " & CInt(casi) & " casi " & "dal " & DataEstrazione(ini) & " al " & DataEstrazione(fin)
Scrivi
Scrivi "Totali estrazioni esaminate.... " & Tot,1
Scrivi "Sviluppo solo coppie in decina spia " & sp,1,,,2,3
ColoreTesto 0
For x = 1 To 15
'----------- valori tabella ------------------
ReDim avalori(11)
avalori(1) = x
avalori(2) = Format2(terni(x,2)) & "." & Format2(terni(x,3))' & "." & Format2(terni(x,4))
avalori(3) = Format2(terni(x,5))
avalori(4) = Round(terni(x,6),2)
avalori(5) = terni(x,7)
avalori(6) = terni(x,8)
avalori(7) = terni(x,9)
avalori(8) = terni(x,10)
avalori(9) = terni(x,11)
avalori(10) = terni(x,12)
avalori(11) = terni(x,13)
'If casi = terni(x,5) Then
Call AddRigaTabella(avalori,,,3)
'End If
If avalori(4) = "Ambo" Then Call SetColoreCella(4,2,4)
If avalori(4) = "Estratto" Then Call SetColoreCella(4,3,0)
If avalori(8) = 0 Then Call SetColoreCella(7,4,1)
Next
Call SetTableWidth("100%")
Call CreaTabella(0,0,0,15)
Scrivi
Scrivi " ********* Tabella List by Mike58 *********** ",1,- 1,3
End SubSPIA ATTIVA
Coppie più frequenti entro 18 colpi sulla a ruota di Cagliari Per sorte di Estratto
N. 76 casi dal 10.01.2015 al 31.10.2023
Totali estrazioni esaminate.... 1377
Sviluppo solo coppie in decina spia 82
Casi | Numeri | Presenze | esito % | ret_estratti fin-colpi | colpo | Data esito ultimo | Ritardo serie | Presenza serie | Rit. Max | Pres ambate singole e in Posizioni |
1 | 86.89 | 74 | 97,37 | CA .. 89 .. .. .. | 6 | [10324] [144] 26.10.2023 | 0 | 145 | 48 | 69 [ 12.12.19.10.16 ] - 76 [ 10.17.14.14.21 ] |
2 | 81.82 | 73 | 96,05 | CA .. .. 81 .. .. | 8 | [10326] [146] 28.10.2023 | 1 | 168 | 49 | 92 [ 23.17.21.13.18 ] - 76 [ 16.11.11.22.16 ] |
3 | 81.87 | 72 | 94,74 | CA .. .. 81 .. .. | 8 | [10326] [146] 28.10.2023 | 1 | 167 | 43 | 92 [ 23.17.21.13.18 ] - 75 [ 14.12.14.11.24 ] |
4 | 80.86 | 72 | 94,74 | CA 86 .. .. .. .. | 8 | [10326] [146] 28.10.2023 | 1 | 151 | 53 | 82 [ 10.17.19.21.15 ] - 69 [ 12.12.19.10.16 ] |
5 | 86.87 | 72 | 94,74 | CA 86 .. .. .. .. | 8 | [10326] [146] 28.10.2023 | 1 | 144 | 38 | 69 [ 12.12.19.10.16 ] - 75 [ 14.12.14.11.24 ] |
6 | 84.85 | 71 | 93,42 | CA .. .. .. .. 84 | 8 | [10326] [146] 28.10.2023 | 1 | 145 | 50 | 80 [ 17.12.13.17.21 ] - 65 [ 12.14.15.12.12 ] |
7 | 86.88 | 71 | 93,42 | CA .. .. .. 88 .. | 6 | [10324] [144] 26.10.2023 | 1 | 136 | 59 | 69 [ 12.12.19.10.16 ] - 67 [ 08.14.17.12.16 ] |
8 | 81.84 | 71 | 93,42 | CA .. .. 81 .. 84 | 8 | [10326] [146] 28.10.2023 | 1 | 172 | 47 | 92 [ 23.17.21.13.18 ] - 80 [ 17.12.13.17.21 ] |
9 | 84.86 | 70 | 92,11 | CA 86 .. .. .. 84 | 8 | [10326] [146] 28.10.2023 | 1 | 149 | 56 | 80 [ 17.12.13.17.21 ] - 69 [ 12.12.19.10.16 ] |
10 | 84.87 | 70 | 92,11 | CA .. .. .. .. 84 | 8 | [10326] [146] 28.10.2023 | 1 | 155 | 44 | 80 [ 17.12.13.17.21 ] - 75 [ 14.12.14.11.24 ] |
11 | 84.89 | 70 | 92,11 | CA .. 89 .. .. .. | 6 | [10324] [144] 26.10.2023 | 0 | 156 | 27 | 80 [ 17.12.13.17.21 ] - 76 [ 10.17.14.14.21 ] |
12 | 80.82 | 70 | 93,33 | | 9 | in corso | 9 | 158 | 53 | 82 [ 10.17.19.21.15 ] - 76 [ 16.11.11.22.16 ] |
13 | 81.86 | 70 | 92,11 | CA 86 .. 81 .. .. | 8 | [10326] [146] 28.10.2023 | 1 | 161 | 42 | 92 [ 23.17.21.13.18 ] - 69 [ 12.12.19.10.16 ] |
14 | 80.87 | 70 | 93,33 | | 9 | in corso | 9 | 157 | 44 | 82 [ 10.17.19.21.15 ] - 75 [ 14.12.14.11.24 ] |
Codicebinario
Advanced Member >PLATINUM<
Grazie batter,usando i tuoi numeri proposti,mi sono permesso di fare una ricerca approfondita per avere degli abbinamenti...se mi dai il permesso vorrei aprire un post nel forum. Lo chiamero' "FUTURO 2 "citando anche le fonti.Grazie a te per i tuoi studi e metodologie. La "proposta sara' valida fino a fine mese (K17).se non ti garba,non è un problema,vorrà dire che posterò qui ,al seguito di tutto lo studio,Grazie ancora a te e a Mike58 per il tempo e la "disponibilità" concessaci.Un grazie ancora a "tutti gli abitanti del 3d" ,un saluto speciale a MARCOELLE detto da me "Monello" in ricordo di tempi passati.Grazie.
Missione Impossibile.
Banned
E' ottimo Mike,quel 80 appartiene alla decina 71-80 queste sono decine cabalistiche,quelle per ricerca devono essere naturali sono 81-90.e cosi per tutte le decine: 1-10/11-20/ 21-30/ 41-50/51-60/61-70/71-80/81-90.x Batter non so se ho capito bene circa le decine della spia.
Dopo Numero spia
trovo tutte le coppie sviluppate x decina della spia ( o decina voluta)
If Decina(x) = Decina
Come dicevo gli script sono pezzi di programma e tante situazioni si possono trovare.
spia 82 su Cagliari - Ritarda da... 9Codice:Sub Main() Dim ru(3) Dim terni(4005,13) Dim nn(3) Dim spia(1) r = InputBox("Ruota della spia....(1-10)",,2) rr = InputBox("Ruota di gioco....(1-10)",,r) sp = CInt(InputBox("Numero Spia",,82)) 'ee = InputBox("Estrazioni da controllare",,200) c = InputBox("Numero colpi di gioco",,18) sorte = CInt(InputBox("Quale sorte vuoi considerare...","1,2,3",1)) '------- titoli tabella --------------------- ReDim atitoli(11) atitoli(1) = " Casi " atitoli(2) = " Numeri " atitoli(3) = " Presenze " atitoli(4) = " esito % " atitoli(5) = " ret_estratti fin-colpi " atitoli(6) = " colpo " atitoli(7) = " Data esito ultimo " atitoli(8) = " Ritardo serie " atitoli(9) = " Presenza serie " atitoli(10) = " Rit. Max " atitoli(11) = "Pres ambate singole e in Posizioni" Call InitTabella(atitoli,1,,3,5) For i = 1 To 4005 terni(i,1) = 0 terni(i,2) = 0 terni(i,3) = 0 terni(i,4) = 0 terni(i,5) = 0 terni(i,6) = 0 terni(i,7) = 0 terni(i,8) = 0 terni(i,9) = 0 terni(i,10) = 0 terni(i,11) = 0 terni(i,12) = 0 terni(i,13) = 0 Next casi = 0 co = 0 ini = 8950'EstrazioneFin - ee fin = EstrazioneFin For es = ini To fin Messaggio "casi trovati....... " & casi & " ****** Script by Mike58 ****** " AvanzamentoElab ini,fin,es If Posizione(es,r,sp) > 0 Then spia(1) = sp rsp = SerieRitardoTurbo(Ini,fin,spia,ru,1) Inco = fin - es clp = fin - es casi = casi + 1 Tot = fin - Ini ess = es + c If ess > fin Then ess = fin End If co = 0 For x = 1 To 89 For y = x + 1 To 90 co = co + 1 If Decina(x) = Decina(y) And Decina(x) = Decina(sp) Then terni(co,1) = co terni(co,2) = x terni(co,3) = y nn(1) = x nn(2) = y ru(1) = rr presenze = SerieFreqTurbo(es + 1,ess,nn,ru,1) If presenze > 0 Then 'condizione da non eliminare perch'e se capitano + terni(es. 10..eccediamo) 'nello stesso caso in analisi, il resoconto finale viene falsato da tutti questi errori. terni(co,5) = terni(co,5) + 1 cef = fin - rsp + 1' inizio estrazione di verifica clp = c - rsp Call VerificaEsitoTurbo(nn,ru,fin - rsp + 1,sorte,rsp,,resito,retcolpi,retestratti,idd) 'End If Call StatisticaFormazioneTurbo(nn,ru,sorte,rerit,reritmax,Incrmax,refre,Ini,fin) ef1 = EstrattoFrequenzaTurbo(r,nn(1),Ini,fin) ef2 = EstrattoFrequenzaTurbo(r,nn(2),Ini,fin) ReDim eff1(5) ReDim eff2(5) For x1 = 1 To 5 ReDim aPos(x1) aPos(x1) = True eff1(x1) = EstrattoFrequenzaTurbo(r,nn(1),Ini,fin,,,aPos) eff2(x1) = EstrattoFrequenzaTurbo(r,nn(2),Ini,fin,,,aPos) Next 'sr = SerieRitardoTurbo(Ini,fin,nn,ru,sorte) 'fr = SerieFreqTurbo(Ini,fin,nn,ru,sorte) terni(co,6) = terni(co,5) / casi *100 terni(co,7) = retestratti terni(co,8) = retcolpi terni(co,10) = rerit terni(co,11) = refre terni(co,12) = reritmax terni(co,13) = FormatSpace(ef1,3,1) & " [ " & StringaNumeri(eff1,,1) & " ] - " & FormatSpace(ef2,3,1) & " [ " & StringaNumeri(eff2,,1) & " ]" 'If DataEstrazione(retidestr) > DataEstrazione(fin) Then terni(co,9) = " In corso " If resito = "" Then terni(co,9) = "" If resito <> "" Then terni(co,9) = GetInfoEstrazione(idd) If resito = "" Then terni(co,9) = " in corso " End If End If Next Next End If Next OrdinaMatrice terni,- 1,5 ColoreTesto 1 Scrivi "spia " & CInt(sp) & " su " & NomeRuota(r) & " - Ritarda da... " & Inco,1 ColoreTesto 2 If rsp < c Then Scrivi "SPIA ATTIVA ",1:End If If rsp > c Then Scrivi "SPIA NON ATTIVA":End If ColoreTesto 1 Scrivi "Coppie più frequenti entro " & c & " colpi sulla a ruota di " & NomeRuota(rr) & " Per sorte di " & NomeSorte(sorte) Scrivi "N. " & CInt(casi) & " casi " & "dal " & DataEstrazione(ini) & " al " & DataEstrazione(fin) Scrivi Scrivi "Totali estrazioni esaminate.... " & Tot,1 Scrivi "Sviluppo solo coppie in decina spia " & sp,1,,,2,3 ColoreTesto 0 For x = 1 To 15 '----------- valori tabella ------------------ ReDim avalori(11) avalori(1) = x avalori(2) = Format2(terni(x,2)) & "." & Format2(terni(x,3))' & "." & Format2(terni(x,4)) avalori(3) = Format2(terni(x,5)) avalori(4) = Round(terni(x,6),2) avalori(5) = terni(x,7) avalori(6) = terni(x,8) avalori(7) = terni(x,9) avalori(8) = terni(x,10) avalori(9) = terni(x,11) avalori(10) = terni(x,12) avalori(11) = terni(x,13) 'If casi = terni(x,5) Then Call AddRigaTabella(avalori,,,3) 'End If If avalori(4) = "Ambo" Then Call SetColoreCella(4,2,4) If avalori(4) = "Estratto" Then Call SetColoreCella(4,3,0) If avalori(8) = 0 Then Call SetColoreCella(7,4,1) Next Call SetTableWidth("100%") Call CreaTabella(0,0,0,15) Scrivi Scrivi " ********* Tabella List by Mike58 *********** ",1,- 1,3 End Sub
SPIA ATTIVA
Coppie più frequenti entro 18 colpi sulla a ruota di Cagliari Per sorte di Estratto
N. 76 casi dal 10.01.2015 al 31.10.2023
Totali estrazioni esaminate.... 1377
Sviluppo solo coppie in decina spia 82
Missione Impossibile.
Banned
Vai tranquillo ben vengano altri studi.
Missione Impossibile.
Banned
Benissimo grazie Ora con calma verifico se ci sono errori, penso di no ma e' meglio confrontarlo con il mio.
Mike batter o interpreto male io o cè qualcosa che non quadra . Ruota di CA il 16 02 2023 si verifica la condizione di almeno quattro presenze in 18 estrazioni :
questo è l' out dello script spie decine naturali
il controllo dei risultati non dovrebbe avvenire dall' estrazione successiva dall' ultima spia 18 trovata ?
Sbaglio forse qualcosa ?
Ciao Eugenio
questo è l' out dello script spie decine naturaliil controllo dei risultati non dovrebbe avvenire dall' estrazione successiva dall' ultima spia 18 trovata ?Sbaglio forse qualcosa ?
Ciao Eugenio
Ultima estrazione Lotto
-
Estrazione del lotto
sabato 23 novembre 2024Bari3380865225Cagliari6757590580Firenze3132588877Genova4039233681Milano2858452538Napoli2082234457Palermo7656886231Roma1281597472Torino4653724523Venezia0412426420Nazionale6344781055Estrazione Simbolotto
Torino
4342123922
