Ricerca Algoritmi

[bubù]

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 ? ?

 

[Mike58]

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

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

 

[bubù]

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ù]

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 ??

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 . ?

 

[Master]

Ciao a tutti
Scusa Mike58 non avevo visto

 

[Mike58]

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

 

[bubù]

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

Grazie lo stesso Mike58 sei stato gentilissimo , proverò a trovare qualche altra soluzione e se riesco ti farò sapere . Ciao e Buona giornata ? ?

 

[Mike58]

Ciao Bubù, non ti arrendere facilmente eccoti la parte con il numero chiave da sommare.
Sono considerati solo le 2 estrazioni di riferimento citate.

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

 

[bubù]

Ciao Bubù, non ti arrendere facilmente eccoti la parte con il numero chiave da sommare.
Sono considerati solo le 2 estrazioni di riferimento citate.

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

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

 

[Mike58]

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

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

 

[bubù]

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

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

Grazie , ho già cambiato strada . Buona serata ??

 

[i legend]

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 .

ciao

 

[bubù]

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

Grazie ,oramai non serve più , sto lavorando a qualcosa di meglio, spero . ??