A volte basta uno script facile per tutti.

Rafele ‘o Ruoss’ · 1 Novembre 2023

va bè

Mike58 · 1 Novembre 2023

X Mike
1) Volevo sapere se si puo'aggiungere dalle coppie al 100%,quale delle due e'sortita di piu' rispetto all altro dal periodo dal 2015.

2 ) per gli estatti in coppie in quale posizione determinate sono usciti di piu', uno script dal 2015 inserendo a manuale le coppie.

3) Sempre dalle coppie, le decine Naturali in terzine e quartine che si sono abbinate di piu'.Grazie (con calma)

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 · 1 Novembre 2023

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.

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 · 1 Novembre 2023

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

Missione Impossibile. · 1 Novembre 2023

Missione Impossibile. · 1 Novembre 2023

Missione Impossibile. · 1 Novembre 2023

Missione Impossibile. · 1 Novembre 2023

Mike58 · 1 Novembre 2023

Non ho capito cosa volevi di più preciso, ma va bene cosi .
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 Sub

Missione Impossibile. · 1 Novembre 2023

Missione Impossibile. · 1 Novembre 2023

Mike58 ha scritto:

Non ho capito cosa volevi di più preciso, ma va bene cosi .
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 Sub

Grazie Mike Hai fatto anche troppo sei sempre Super.

genios · 2 Novembre 2023

Mike si puop' fare per il superenalotto ?

ciao Eugenio

Mike58 · 2 Novembre 2023

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.

Mike58 · 2 Novembre 2023

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.

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 Sub

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

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 · 2 Novembre 2023

batter ha scritto:
x Codicebinario...

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. · 2 Novembre 2023

Mike58 ha scritto:
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.

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 Sub

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

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 ]

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.

Missione Impossibile. · 2 Novembre 2023

Codicebinario ha scritto:
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.

Vai tranquillo ben vengano altri studi.

Mike58 · 2 Novembre 2023

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.

allora quel codice diventa

If DecinaNaturale(x) = DecinaNaturale And DecinaNaturale(x) = DecinaNaturale(sp) Then

provalo

Missione Impossibile. · 2 Novembre 2023

Mike58 ha scritto:
allora quel codice diventa

provalo

Benissimo grazie Ora con calma verifico se ci sono errori, penso di no ma e' meglio confrontarlo con il mio.

genios · 2 Novembre 2023

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

A volte basta uno script facile per tutti.

Banned

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Premium Member

Banned

Banned

Banned

Banned

Advanced Member >PLATINUM PLUS<

Banned

Banned

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Banned

Banned

Advanced Member >PLATINUM PLUS<

Banned

Advanced Member >PLATINUM<