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
    martedì 14 gennaio 2025
    Bari
    41
    25
    12
    73
    55
    Cagliari
    54
    20
    48
    32
    67
    Firenze
    75
    23
    68
    10
    38
    Genova
    33
    27
    81
    70
    64
    Milano
    68
    01
    64
    86
    87
    Napoli
    47
    75
    45
    10
    21
    Palermo
    55
    86
    33
    53
    70
    Roma
    88
    78
    61
    06
    07
    Torino
    76
    08
    23
    61
    82
    Venezia
    25
    15
    49
    21
    81
    Nazionale
    70
    10
    32
    78
    07
    Estrazione Simbolotto
    Bari
    07
    14
    28
    45
    31
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto