Novità

Ricerca Algoritmi

bubù

bubù

Advanced Member >PLATINUM PLUS<
Buona sera,
chi mi potrebbe aiutare a fare uno script ,
che in una determinata estrazione mi calcolasse un risultato finale, dato da un determinato estratto di una ruota, moltiplicato ad un altro determinato estratto di un’altra ruota + un numero mi dessi un risultato .

Esempio : Fuori90(Estratto(es,?,?)*Estratto(es,?,?)+??) = 15

Vi do 2 estrazioni a riferimento con il numero da trovare chi riesce mi fa un grosso favore .

Estrazione del 02/02/2019 , il numero deve essere 15

Estrazione del 16/04/2019 , il numero deve essere 22

Ovviamente gli estratti in questione devono essere sempre gli stessi per tutte e 2 le estrazioni .
Grazie e Buona serata e grazie in anticipo ? ?
 
Ciao Bubù ( non so se sei il Bubù che scriveva su ************) .

Algoritmi che in una deteminata estrazione di 2 estratti su 2 ruote moltiplicati tra loro con il fuori 90 danno un numero cercato se ne possono formare tanti, quindi figurarsi se poi li adattiamo con la somma di un altro numero chiave da 0 a 90.
Incuriosito ho fatto un semplice script e ricerca, nel caso specifico solo la moltiplicazione di 2 estratti che trovati danno il risultato del solo numero 15 senza addizionamento chiave ( zero in questo caso).

Prova a vedere, se ti è utile (purtroppo oggi non ho + tempo causa lavoro fuori) nel caso ti leggo stasera o domani.

Sicuramente con specifiche + strette e definite si può mettere anche l'addizione chiave con un ciclo for di 90 numeri, ma per ora visto i tanti casi ho preferito cosi.

Ciao

Codice: 
Sub Main
   Ini = EstrazioneFin - 156
   fin = EstrazioneFin
   For es = Ini To fin
      For r1 = 1 To 9
         For r2 = r1 + 1 To 10
            For p1 = 1 To 5
               For p2 = 1 To 5
                  a = Estratto(es,r1,p1)
                  b = Estratto(es,r2,p2)
                  c = Fuori90(a*b)
                  If c = 15 Then
                  k = k + 1
                     Scrivi GetInfoEstrazione(es) & vbTab & p1& SiglaRuota(r1) & "_ " &   Format2(a) & " * " & p2& SiglaRuota(r2) & "_ " & Format2(b) & " = " & c
                  End If
               Next
            Next
         Next
      Next
   Next
   Scrivi "Algoritmi Trovati.... " & k,1
End Sub
 
Ciao , non sono quel Bubù che scrive sul giornale , magari, sono un semplice appassionato e ogni tanto mi diletto a mischiare i numeri e vedere cosa succede . Grazie per quello che hai già fatto e per quello che se avrai tempo e voglia di fare . Se riesci alla fine vedrò se è valsa la pena e eventualmente sarò felice di condividere con te il risultato di questa nuova avventura . Ciao e Buona serata ??
 
bubù ha scritto:
Ciao , non sono quel Bubù che scrive sul giornale , magari, sono un semplice appassionato e ogni tanto mi diletto a mischiare i numeri e vedere cosa succede . Grazie per quello che hai già fatto e per quello che se avrai tempo e voglia di fare . Se riesci alla fine vedrò se è valsa la pena e eventualmente sarò felice di condividere con te il risultato di questa nuova avventura . Ciao e Buona serata ??
Clicca per espandere...
Forse anzi sicuramente NON mi sono spiegato bene io, la ricerca del 15 deve essere fatta solo sull'estrazione del 2/2/2019 , e poi usando sempre gli stessi estratti e somma , nell'estrazione del 16/04/2019 deve risultare 22 . Penso che così il campo si riduce di molto ma non so le difficoltà . Grazie dell'impegno che ci metterai e se non si riesce fa niente . ?
 
Sicuramente non ho ben capito cosa bisognerebbe cercare, ma ci si può arrivare.
Dovresti farmi degli esempi reali visto che abbiamo le estrazioni passate.

Io senza chiave sommatoria in queste 2 estrazioni da te citate ho trovato con lo script questo algoritmo, poi sommando la chiave ne potremmo ottenere anche altri, ma per ora cerco di capire meglio.

[09586] [ 15] 02.02.2019 3RO_ 83 * 5VE_ 75 = 15
[09617] [ 46] 16.04.2019 3RO_ 38 * 5VE_ 29 = 22
Algoritmi Trovati.... 1
 
Mike58 ha scritto:
Sicuramente non ho ben capito cosa bisognerebbe cercare, ma ci si può arrivare.
Dovresti farmi degli esempi reali visto che abbiamo le estrazioni passate.

Io senza chiave sommatoria in queste 2 estrazioni da te citate ho trovato con lo script questo algoritmo, poi sommando la chiave ne potremmo ottenere anche altri, ma per ora cerco di capire meglio.

[09586] [ 15] 02.02.2019 3RO_ 83 * 5VE_ 75 = 15
[09617] [ 46] 16.04.2019 3RO_ 38 * 5VE_ 29 = 22
Algoritmi Trovati.... 1
Clicca per espandere...
Grazie lo stesso Mike58 sei stato gentilissimo , proverò a trovare qualche altra soluzione e se riesco ti farò sapere . Ciao e Buona giornata ? ?
 
Ciao Bubù, non ti arrendere facilmente eccoti la parte con il numero chiave da sommare.
Sono considerati solo le 2 estrazioni di riferimento citate.
Codice: 
Sub Main
   Inix = 9586 ' 2.2.2019
   finx = 9617 ' 16.4.2019
   'Ini = EstrazioneFin - 156
   'fin = EstrazioneFin
   For ch = 0 To 90
      For es = Inix To Inix
         For ess = finx To finx
            For r1 = 1 To 10
               For r2 = r1 + 1 To 12
               If r2 = 11 Then r2 = 12
                  For p1 = 1 To 5
                     For p2 = 1 To 5
                        a = Estratto(es,r1,p1)
                        b = Estratto(es,r2,p2)
                        aa = Estratto(ess,r1,p1)
                        bb = Estratto(ess,r2,p2)
                        c = Fuori90(a*b) + ch
                        cc = Fuori90(aa*bb) + ch
                        If c = 15 And cc = 22 Then
                           k = k + 1
                           Call Messaggio("Algoritmi Trovati . . . . " & k & Space(10) & "Script By Mike58 *** Riciesta Bubù")
                           Call AvanzamentoElab(1,k,k)
                           Scrivi GetInfoEstrazione(es) & vbTab & p1 & SiglaRuota(r1) & "_ " & Format2(a) & " * " & p2 & SiglaRuota(r2) & "_ " & Format2(b) & " + " & ch & " = " & c
                           Scrivi GetInfoEstrazione(ess) & vbTab & p1 & SiglaRuota(r1) & "_ " & Format2(aa) & " * " & p2 & SiglaRuota(r2) & "_ " & Format2(bb) & " + " & ch & " = " & cc
                           Scrivi
                        End If
                     Next
                  Next
               Next
            Next
         Next
      Next
   Next
   Scrivi "Algoritmi Trovati.... " & k,1
End Sub
 
Mike58 ha scritto:
Ciao Bubù, non ti arrendere facilmente eccoti la parte con il numero chiave da sommare.
Sono considerati solo le 2 estrazioni di riferimento citate.
Codice: 
Sub Main
   Inix = 9586 ' 2.2.2019
   finx = 9617 ' 16.4.2019
   'Ini = EstrazioneFin - 156
   'fin = EstrazioneFin
   For ch = 0 To 90
      For es = Inix To Inix
         For ess = finx To finx
            For r1 = 1 To 10
               For r2 = r1 + 1 To 12
               If r2 = 11 Then r2 = 12
                  For p1 = 1 To 5
                     For p2 = 1 To 5
                        a = Estratto(es,r1,p1)
                        b = Estratto(es,r2,p2)
                        aa = Estratto(ess,r1,p1)
                        bb = Estratto(ess,r2,p2)
                        c = Fuori90(a*b) + ch
                        cc = Fuori90(aa*bb) + ch
                        If c = 15 And cc = 22 Then
                           k = k + 1
                           Call Messaggio("Algoritmi Trovati . . . . " & k & Space(10) & "Script By Mike58 *** Riciesta Bubù")
                           Call AvanzamentoElab(1,k,k)
                           Scrivi GetInfoEstrazione(es) & vbTab & p1 & SiglaRuota(r1) & "_ " & Format2(a) & " * " & p2 & SiglaRuota(r2) & "_ " & Format2(b) & " + " & ch & " = " & c
                           Scrivi GetInfoEstrazione(ess) & vbTab & p1 & SiglaRuota(r1) & "_ " & Format2(aa) & " * " & p2 & SiglaRuota(r2) & "_ " & Format2(bb) & " + " & ch & " = " & cc
                           Scrivi
                        End If
                     Next
                  Next
               Next
            Next
         Next
      Next
   Next
   Scrivi "Algoritmi Trovati.... " & k,1
End Sub
Clicca per espandere...
Ti ringrazio dell'impegno ma ho deciso di abbandonare la ricerca avevo ricevuto da un'altro scripter un lavoro simile al tuo forse più allargato , sono uscite troppe combinazioni e non so quale è quella giusta ho cercato di usare anche le tue ma non riesco a venire a capo forse non so nemmeno io dove andare a parare , mi sono confuso e devo ritrovare l'equilibrio per focalizzare lo scopo finale . Ti allego i tuoi risultati e alcuni di quelli trovati con l'altro script :
I tuoi :

[09586] [ 15] 02.02.2019 3RO_ 83 * 5VE_ 75 + 0 = 15

[09617] [ 46] 16.04.2019 3RO_ 38 * 5VE_ 29 + 0 = 22

[09586] [ 15] 02.02.2019 2NA_ 06 * 4VE_ 02 + 3 = 15

[09617] [ 46] 16.04.2019 2NA_ 17 * 4VE_ 17 + 3 = 22



Alcuni dell’altro :

[09586] 02.02.2019 3CA * 5VE + 45 = 15

[09617] 16.04.2019 3CA * 5VE + 45 = 22

[09586] 02.02.2019 3CA * 1NZ + 55 = 15

[09617] 16.04.2019 3CA * 1NZ + 55 = 22

[09586] 02.02.2019 3PA * 4NZ + 75 = 15

[09617] 16.04.2019 3PA * 4NZ + 75 = 22

Troppa grazia mi ha mandato in tilt scusa , e GRAZIE
 
Ciao Bubù benvenuto fra i confusi, talvolta l'analisi di tanti dati manda in confusione.
Purtroppo la fretta e un operazione errata portavano il mio script a pochi risultati.
Facendo il confronto con l'altro script ho capito lo sbaglio del mio calcolo.

Ciao verifica

Codice: 
Sub Main
   Inix = 9586 ' 2.2.2019
   finx = 9617 ' 16.4.2019
   'Ini = EstrazioneFin - 156
   'fin = EstrazioneFin
   For ch = 0 To 90
      For es = Inix To Inix
         For ess = finx To finx
            For r1 = 1 To 10
               For r2 = r1 + 1 To 12
               If r2 = 11 Then r2 = 12
                  For p1 = 1 To 5
                     For p2 = 1 To 5
                        a = Estratto(es,r1,p1)
                        b = Estratto(es,r2,p2)
                        aa = Estratto(ess,r1,p1)
                        bb = Estratto(ess,r2,p2)
                        c = Fuori90((a*b) + ch)
                        cc = Fuori90((aa*bb) + ch)
                        If c = 15 And cc = 22 Then
                           k = k + 1
                           Call Messaggio("Algoritmi Trovati . . . . " & k & Space(10) & "Script By Mike58 *** Riciesta Bubù")
                           Call AvanzamentoElab(1,k,k)
                           Scrivi GetInfoEstrazione(es) & vbTab & p1 & SiglaRuota(r1) & "_ " & Format2(a) & " * " & p2 & SiglaRuota(r2) & "_ " & Format2(b) & " + " & ch & " = " & c
                           Scrivi GetInfoEstrazione(ess) & vbTab & p1 & SiglaRuota(r1) & "_ " & Format2(aa) & " * " & p2 & SiglaRuota(r2) & "_ " & Format2(bb) & " + " & ch & " = " & cc
                           Scrivi
                        End If
                     Next
                  Next
               Next
            Next
         Next
      Next
   Next
   Scrivi "Algoritmi Trovati.... " & k,1
End Sub
 
Mike58 ha scritto:
Ciao Bubù benvenuto fra i confusi, talvolta l'analisi di tanti dati manda in confusione.
Purtroppo la fretta e un operazione errata portavano il mio script a pochi risultati.
Facendo il confronto con l'altro script ho capito lo sbaglio del mio calcolo.

Ciao verifica

Codice: 
Sub Main
   Inix = 9586 ' 2.2.2019
   finx = 9617 ' 16.4.2019
   'Ini = EstrazioneFin - 156
   'fin = EstrazioneFin
   For ch = 0 To 90
      For es = Inix To Inix
         For ess = finx To finx
            For r1 = 1 To 10
               For r2 = r1 + 1 To 12
               If r2 = 11 Then r2 = 12
                  For p1 = 1 To 5
                     For p2 = 1 To 5
                        a = Estratto(es,r1,p1)
                        b = Estratto(es,r2,p2)
                        aa = Estratto(ess,r1,p1)
                        bb = Estratto(ess,r2,p2)
                        c = Fuori90((a*b) + ch)
                        cc = Fuori90((aa*bb) + ch)
                        If c = 15 And cc = 22 Then
                           k = k + 1
                           Call Messaggio("Algoritmi Trovati . . . . " & k & Space(10) & "Script By Mike58 *** Riciesta Bubù")
                           Call AvanzamentoElab(1,k,k)
                           Scrivi GetInfoEstrazione(es) & vbTab & p1 & SiglaRuota(r1) & "_ " & Format2(a) & " * " & p2 & SiglaRuota(r2) & "_ " & Format2(b) & " + " & ch & " = " & c
                           Scrivi GetInfoEstrazione(ess) & vbTab & p1 & SiglaRuota(r1) & "_ " & Format2(aa) & " * " & p2 & SiglaRuota(r2) & "_ " & Format2(bb) & " + " & ch & " = " & cc
                           Scrivi
                        End If
                     Next
                  Next
               Next
            Next
         Next
      Next
   Next
   Scrivi "Algoritmi Trovati.... " & k,1
End Sub
Clicca per espandere...
Grazie , ho già cambiato strada . Buona serata ??
 
ciao ,
fare uno script senza conoscere i dati ,non è certamente cosa semplice.
bisogna conoscere l insieme.
qui ci sono algoritmi che dovrebbero soddisfare la sua richiesta , e magari se ha altre date da controllare , potrebbero rispondere alle sue esigenze,e,potrebbero impiegarci anche 10 estrazioni per uscire, magari anche tutte sulla stessa ruota se si ha fortuna.
se ho fatto cosa utile , mi faccia sapere, è una ricerca da pochi secondi dopo tutto .
Immagine1.png
ciao :)
 
i legend ha scritto:
ciao ,
fare uno script senza conoscere i dati ,non è certamente cosa semplice.
bisogna conoscere l insieme.
qui ci sono algoritmi che dovrebbero soddisfare la sua richiesta , e magari se ha altre date da controllare , potrebbero rispondere alle sue esigenze,e,potrebbero impiegarci anche 10 estrazioni per uscire, magari anche tutte sulla stessa ruota se si ha fortuna.
se ho fatto cosa utile , mi faccia sapere, è una ricerca da pochi secondi dopo tutto .
Vedi l'allegato 2193426
ciao :)
Clicca per espandere...
Grazie ,oramai non serve più , sto lavorando a qualcosa di meglio, spero . ??
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 22 novembre 2025
    Bari
    82
    08
    24
    45
    37
    Cagliari
    07
    16
    67
    74
    35
    Firenze
    76
    32
    44
    06
    51
    Genova
    22
    77
    19
    27
    89
    Milano
    46
    81
    56
    29
    85
    Napoli
    68
    90
    80
    06
    47
    Palermo
    31
    07
    43
    83
    19
    Roma
    08
    68
    17
    12
    57
    Torino
    87
    17
    61
    60
    58
    Venezia
    27
    05
    17
    72
    50
    Nazionale
    70
    76
    56
    81
    15
    Estrazione Simbolotto
    Torino
    26
    34
    10
    42
    33
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto