Novità

AIUTO PER SCRIPT "SPIA CON MATEMATICA SOMMATIVA"

Si herat, per cambiare la percentuale è quella la riga su cui operare,ma il difficile poi è ottenere previsioni poi attendibili.

Quello che bisogna tener presente con queste tipologie di richieste e studi è che si fanno delle ricerche sul passato ed è facile per un Pc trovare le giuste corrispondenze e adattamenti.

Se ad esempio prendi un risultato di 20 estrazioni trascorse e poi lo confronti con 20 estrazioni successive il risultato e gli algoritmi cambiano
e quindi la stessa spia da risultati diversi.

Quindi può essere un aiuto ma non una certezza di risultato.

P.s. (questa è la mia idea in merito a tale tipo di ricerca)

Comunque ad ogni modo eccoti i colpi di verifica richiesti.

Codice:
Sub Main()
 Dim som(5,90)
 Dim estr(5)
 Dim T,V,Num(1),Ru(1),aNum(90)
 Dim VetN,VetQ
 Dim Val(5,90)
 T = Array(T,"Caso N°","Algoritmo","Addendi","Presenze su Casi"," % ","Ultima oper","Num Calcolato","VerificaEsito","Colpo","Info Data Id")
 Call InitTabella(T)
 qt = InputBox("Quante estrazioni controllo",,160)
 spia = CInt(InputBox("Quale SPIA controllo",,48))
 Rg = InputBox("Quale RUOTA di Gioco ",,1)
 clp = CInt(InputBox("Colpi di Verifica Esito",,10))
 Scrivi "Ricerca Algoritmi migliori con perc% > 90%, su Tutte le Ruote e gioca su Ruota : " & SiglaRuota(rg),1,1,3
 er = EstrattoRitardoTurbo(rg,spia,EstrazioneFin - qt,EstrazioneFin)
 Scrivi "Spia Analizzata : " & spia & " Ritarda da .... " & er,1
 For r2 = rg To rg
  For r = 1 To 10
   z = 0
   For i = 1 To 5
    For j = 1 To 90
     som(i,j) = 0
     Val(i,j) = True
    Next
   Next
   For i = 1 To 5
    estr(i) = 0
   Next
   valido = False
   For n = EstrazioneFin - qt To EstrazioneFin
    If valido = True Then
     For i = 1 To 5
      For j = 1 To 5
       k = Estratto(n,r2,j) - estr(i)
       If k <= 0 Then
        k = k + 90
       End If
       If Val(i,k) = True Then
        som(i,k) = som(i,k) + 1
       End If
      Next
     Next
     For i = 1 To 5
      For j = 1 To 5
       k = Estratto(n,r2,j) - estr(i)
       If k <= 0 Then
        k = k + 90
       End If
       If Val(i,k) = True Then
        Val(i,k) = False
       End If
      Next
     Next
    End If
    'If es = 0 Then m = n + 1 Else m = n End If
    'If IndiceMensile(m) = es Then
    If Posizione(n,rg,spia) > 0 Then
     z = z + 1
     valido = True
     For i = 1 To 5
      estr(i) = Estratto(n,r,i)
     Next
     For i = 1 To 5
      For j = 1 To 90
       Val(i,j) = True
      Next
     Next
    End If

   Next
   For i = 1 To 5
    For j = 1 To 90
     zz = Int((z/100)*90)
     's = CStr(eval(i)) + " estratto di " + SiglaRuota(r) + " + " + CStr(eval(j)) + " sulla ruota di "
     s = i & "°" & " Estratto di " & SiglaRuota(r)
     perc = Round(som(i,j)/z*100,2)
     's = s + NomeRuota(r2) + " è uscito " + CStr(som(i,j)) + " volte su " + CStr(eval(z))
     If som(i,j) > zz Then
      If Valido = True Then kk = kk + 1
      Num(1) = Fuori90(estr(i) + j)
      Ru(1) = Rg
      ReDim Preserve TotNum(kk)
      TotNum(kk) = Num(1)
      Ind = IndiceMensile(EstrazioneFin)
      Call VerificaEsito(Num,Ru,EstrazioneFin - er + 1 + 1,1,clp,,esito,colpi,es1,id)
      V = Array(V,kk,s,j,som(i,j) & " su " & z,perc & "%",estr(i) & " + " & j,StringaNumeri(Num),es1,colpi,GetInfoEstrazione(id))
      Call AddRigaTabella(V)
      For xx = 1 To 5
       If perc = 100 Then Call SetColoreCella((xx),2,4)
       If id = EstrazioneFin Then Call SetColoreCella(10,7,5)
      Next
     End If
     'End If
    Next
   Next
  Next
 Next
 CreaTabella
 'Scrivi ss
 'Scrivi Ind
 Scrivi "Stringa Numeri ricavati : " & StringaNumeri(TotNum),1,,,,3
 Call NumeriRipetutiRilevatiV(TotNum,VetN,VetQ)
 Scrivi "Numeri Ripetuti         : " & StringaNumeri(VetN),1,,,1,3
 Scrivi "Quantità Convergenti    : " & StringaNumeri(VetQ,,1),1,,,2,3
 Scrivi
 Scrivi "Script By Mike58 ",1,,,7,3
End Sub
 
lo script era nato per l'indice mensile, ve lo posto, fatene buon uso.


Codice:
Sub Main()
 Dim som(5,90)
 Dim estr(5)
 Dim T,V,Num(1),Ru(1),aNum(90)
 Dim VetN,VetQ
 Dim Val(5,90)
 T = Array(T,"Caso N°","Algoritmo","Addendi","Presenze su Casi"," % ","Ultima oper","Num Calcolato","VerificaEsito","Colpo","Info Data Id")
 Call InitTabella(T)
 qt = InputBox("Quante estrazioni controllo",,160)
 es = CInt(InputBox("inserisci 0 per l'ultima estrazione, 1 per la prima del mese.",,1))
 Rg = InputBox("Quale RUOTA di Gioco ",,12)
 Scrivi "Ricerca Algoritmi migliori con perc% > 90%, su Tutte le Ruote e gioca su Ruota : " & SiglaRuota(rg),1,1,3
 Scrivi "Indice Mensile analizzato : " & es,1
 For r2 = rg To rg
  For r = 1 To 10
   z = 0
   For i = 1 To 5
    For j = 1 To 90
     som(i,j) = 0
     Val(i,j) = True
    Next
   Next
   For i = 1 To 5
    estr(i) = 0
   Next
   valido = False
   For n = EstrazioneFin - qt To EstrazioneFin
    If valido = True Then
     For i = 1 To 5
      For j = 1 To 5
       k = Estratto(n,r2,j) - estr(i)
       If k <= 0 Then
        k = k + 90
       End If
       If Val(i,k) = True Then
        som(i,k) = som(i,k) + 1
       End If
      Next
     Next
     For i = 1 To 5
      For j = 1 To 5
       k = Estratto(n,r2,j) - estr(i)
       If k <= 0 Then
        k = k + 90
       End If
       If Val(i,k) = True Then
        Val(i,k) = False
       End If
      Next
     Next
    End If
    If es = 0 Then m = n + 1 Else m = n End If
    If IndiceMensile(m) = es Then
     z = z + 1
     valido = True
     For i = 1 To 5
      estr(i) = Estratto(n,r,i)
     Next
     For i = 1 To 5
      For j = 1 To 90
       Val(i,j) = True
      Next
     Next
    End If
   Next
   For i = 1 To 5
    For j = 1 To 90
     zz = Int((z/100)*90)
     's = CStr(eval(i)) + " estratto di " + SiglaRuota(r) + " + " + CStr(eval(j)) + " sulla ruota di "
     s = i & "°" & " Estratto di " & SiglaRuota(r)
     perc = Round(som(i,j)/z*100,2)
     's = s + NomeRuota(r2) + " è uscito " + CStr(som(i,j)) + " volte su " + CStr(eval(z))
     If som(i,j) > zz Then
      If Valido = True Then kk = kk + 1
      Num(1) = Fuori90(estr(i) + j)
      Ru(1) = Rg
      ReDim Preserve TotNum(kk)
      TotNum(kk) = Num(1)
      Ind = IndiceMensile(EstrazioneFin)
      Call VerificaEsito(Num,Ru,EstrazioneFin - Ind + 1,1,Ind,,esito,colpi,es1,id)
      V = Array(V,kk,s,j,som(i,j) & " su " & z,perc & "%",estr(i) & " + " & j,StringaNumeri(Num),es1,colpi,GetInfoEstrazione(id))
      Call AddRigaTabella(V)
      For xx = 1 To 5
       If perc = 100 Then Call SetColoreCella((xx),2,4)
       If id = EstrazioneFin Then Call SetColoreCella(10,7,5)
      Next
     End If
     'End If
    Next
   Next
  Next
 Next
 CreaTabella
 'Scrivi ss
 'Scrivi Ind
 Scrivi "Stringa Numeri ricavati : " & StringaNumeri(TotNum),1,,,,3
 Call NumeriRipetutiRilevatiV(TotNum,VetN,VetQ)
 Scrivi "Numeri Ripetuti         : " & StringaNumeri(VetN),1,,,1,3
 Scrivi "Quantità Convergenti    : " & StringaNumeri(VetQ,,1),1,,,2,3
 Scrivi
 Scrivi "Script By Mike58",1,,,7,3
End Sub
 

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 22 novembre 2024
    Bari
    27
    45
    81
    17
    55
    Cagliari
    78
    66
    45
    03
    14
    Firenze
    14
    90
    72
    88
    55
    Genova
    33
    23
    82
    81
    24
    Milano
    25
    79
    13
    42
    15
    Napoli
    39
    35
    65
    01
    14
    Palermo
    25
    83
    69
    50
    36
    Roma
    25
    71
    22
    10
    55
    Torino
    59
    30
    43
    74
    49
    Venezia
    39
    90
    77
    05
    35
    Nazionale
    82
    60
    62
    65
    59
    Estrazione Simbolotto
    Torino
    44
    12
    32
    06
    13
Indietro
Alto