Richiesta di listato

[*blacklotto*]

Buona sera,

chiedo a voi la possibilità di avere il listato riguardo alla ricerca che vorrei fare :

presa l'ultima estrazione in archivio, ipotizziamo Bari, si procederà nel fare somme come segue

13/08/2019 ruota di Bari : 69 49 21 34 11 ( ultima in archivio )

( 1° est + 2° est ) 69 + 49 = 28 (F90)
( 2° est + 3° est ) 49 + 21 = 70
( 3° est + 4° est ) 21 + 34 = 55
( 4° est + 5° est ) 34 + 11 = 45

i numeri somma ottenuti sono 28 - 70 - 55 - 45

bisognerebbe scandagliare l'archivio dove ovviamente numeri diversi facendo somma riportino l'esatta quartina.

faccio io un esempio inventato :

a marzo 2018 gli estratti a a Bari erano

18 - 10 - 60 - 85 - 45

facendo le rispettive somme con eventuale F90 consegnerà stessa quartina : 28 - 70 - 55 - 45

Resto in attesa che qualcuno possa aiutarmi, grazie.

 

[i legend]

Buona sera,

chiedo a voi la possibilità di avere il listato riguardo alla ricerca che vorrei fare :

presa l'ultima estrazione in archivio, ipotizziamo Bari, si procederà nel fare somme come segue

13/08/2019 ruota di Bari : 69 49 21 34 11 ( ultima in archivio )

( 1° est + 2° est ) 69 + 49 = 28 (F90)
( 2° est + 3° est ) 49 + 21 = 70
( 3° est + 4° est ) 21 + 34 = 55
( 4° est + 5° est ) 34 + 11 = 45

i numeri somma ottenuti sono 28 - 70 - 55 - 45

bisognerebbe scandagliare l'archivio dove ovviamente numeri diversi facendo somma riportino l'esatta quartina.

faccio io un esempio inventato :

a marzo 2018 gli estratti a a Bari erano

18 - 10 - 60 - 85 - 45

facendo le rispettive somme con eventuale F90 consegnerà stessa quartina : 28 - 70 - 55 - 45

Resto in attesa che qualcuno possa aiutarmi, grazie.

Ciao al momento, non posso esserti utile realizzando lo script ,ma se qualcuno volesse cimentarsi mancano alcuni passaggi da spiegare .
Ti faccio qualche esempio:
Una volta ricavata la quartina di ricerca dove andrebbe ricercata?
Sulla ruota di ricavo su una ruota a scelta o su qualsiasi ruota?
Le somme devono essere isotope o vanno bene in qualsiasi posizione?
Devono essere presenti tutte e quattro le somme o bisogna scegliere un minimo?
una volta trovata la condizione cosa bisogna fare ?
Senza questi questi dati che mi vengono in mente
magari ne occorrono anche altri e' difficile stabilire come impostare lo script .
spero di esserti stato utile con questi suggerimenti
ciao

 

[*blacklotto*]

Buon giorno e buon ferragosto a tutti,

ciao i legend, hai ragione ho tralasciato tutto ciò che hai chiesto e ti do immediata risposta.

La quartina ottenuta dalle quattro somme specifiche andrà ricercata nella ruota in cui si vorrà svolgere la ricerca,
le quartine dovranno corrispondere esattamente nelle posizioni base, non a caso, quindi solo isotope.

se, sempre partendo dall'ultima estrazione in archivio, la scelta sarà nella ruota di Bari

13/08/2019 ruota di Bari : 69 49 21 34 11 ( ultima in archivio )

( 1° est + 2° est ) 69 + 49 = 28 (F90)
( 2° est + 3° est ) 49 + 21 = 70
( 3° est + 4° est ) 21 + 34 = 55
( 4° est + 5° est ) 34 + 11 = 45

i numeri somma ottenuti sono 28 - 70 - 55 - 45

la ricerca a ritroso della quartina nella stessa ruota dovrà avere solo stessa posizione per tutte e quattro le somme.

Ti ringrazio per l'aiuto che mi potrai dare, grazie.

 

[i legend]

Ciao Blacklotto se trovo dei risultati utili te li posto .

 

[salvo50]

Ciao ILegend, Blacklotto

Ho constatato che non ci sono molti riscontri, ho cercato solo in una ruota, quella di Roma, partendo dall'estrazione n1 del 1871 fino all'ultima in archivio, è risultato solo un riscontro, cioè sono una volta si è verificato la ripetizione isotopa delle 4 somme, che abbia cercato nella ruota sbagliata, non lo sò e non ho nessuna voglia di verificarlo, anche perchè con lo script fatto da me, ci son voluti più di 2 ore per questa ricerca nella ruota di Roma, ti posto lo script ed anche il risultato della ricerca, spero che ILegend riesca a fare uno script più veloce.

[IMG2=JSON]{"data-align":"none","data-size":"full","src":"https:\/\/i.postimg.cc\/W151LHFm\/blacklotto-2.png"}[/IMG2]

Option Explicit
Sub Main
   Dim Fin,Ini,Es,Es2,R1,Caso,Casi,Ruota
   Dim A12,A23,A34,A45,B12,B23,B34,B45
   Dim A(5),B(5),A1(5),B1(5)
   Fin = EstrazioneFin
   Ini = InputBox("Inserisci l'estrazione che vuoi iniziare",,1)
   Ruota = CInt(InputBox(" In quale ruota vuoi fare la ricerca? ",,8))
   Call ScegliRange(Ini,Fin,Ini,Fin)
   Scrivi Space(1) & " CHIESTO DA BLACKLOTTO - SCRIPT SALVO50",1,,4,,3,,1
   For Es = Ini To Fin
      For Es2 = Es + 1 To Fin
         Caso = 0
         AvanzamentoElab Ini,Fin,Es
         For R1 = Ruota To Ruota
            A(1) = Estratto(Es,R1,1)
            A(2) = Estratto(Es,R1,2)
            A(3) = Estratto(Es,R1,3)
            A(4) = Estratto(Es,R1,4)
            A(5) = Estratto(Es,R1,5)
            '
            B(1) = Estratto(Es2,R1,1)
            B(2) = Estratto(Es2,R1,2)
            B(3) = Estratto(Es2,R1,3)
            B(4) = Estratto(Es2,R1,4)
            B(5) = Estratto(Es2,R1,5)
            If A(1) > 0 Then
               A12 = Fuori90(A(1) + A(2)) : A23 = Fuori90(A(2) + A(3)) : A34 = Fuori90(A(3) + A(4)) : A45 = Fuori90(A(4) + A(5))
               B12 = Fuori90(B(1) + B(2)) : B23 = Fuori90(B(2) + B(3)) : B34 = Fuori90(B(3) + B(4)) : B45 = Fuori90(B(4) + B(5))
               If A12 = B12 And A23 = B23 And A34 = B34 And A45 = B45 Then
                  A1(1) = A12 : A1(2) = A23 : A1(3) = A34: A1(4) = A45 : B1(1) = B12 : B1(2) = B23 : B1(3) = B34: B1(4) = B45
                  Caso = Caso + 1
                  Casi = Casi + 1
                  Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),,,,1
                  Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),,,,2
                  Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                  Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1
                  Scrivi Space(23) & " Somme Calcolate " & StringaNumeri(A1,,True),1,,,2
                  Scrivi
                  Scrivi(" Estrazione n." & Format2(Es2) & " del " & DataEstrazione(Es2)),1,0
                  Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es2,R1),1
                  Scrivi Space(18) & " Somme Uguali Trovate " & StringaNumeri(B1,,True),1,,,2
               End If
            End If
         Next
      Next
      If ScriptInterrotto Then Exit For
   Next
   Scrivi " Tempo Trascorso " & TempoTrascorso
End Sub

 

[*blacklotto*]

Grazie Salvo 50,

davvero bravissimo !!! Ti ringrazio per il lavoro svolto domani me lo studierò con più lucidità
Una cosa vorrei chiederti, la modifica di far partire la ricerca all'inverso, cioè dall'ultima estrazione estratta andando indietro.

Cordialmente saluto, ciao

 

[salvo50]

Grazie Salvo 50,

davvero bravissimo !!! Ti ringrazio per il lavoro svolto domani me lo studierò con più lucidità
Una cosa vorrei chiederti, la modifica di far partire la ricerca all'inverso, cioè dall'ultima estrazione estratta andando indietro.

Cordialmente saluto, ciao

Ciao a Tutti.

Secondo me in questo caso la ricerca all'indietro non influenza il risultato, con la ricerca all'indietro lo script prima visualizzava l'estrazione 8367 e dopo la 6812, comunque direi di aspettare il parere di ILegend

 

[i legend]

Ciao Blacklotto se trovo dei risultati utili te li posto .

Ciao a tutti
ho scritto così proprio perché i risulta da me ottenuti sono simili a quelli di salvo .
Ciao.

 

[salvo50]

Ciao ILegend

Blacklotto, a riguardo la ricerca all'indietro ho fatto qualche modifica allo script, l'unica differenza con lo script già postato è che questo ha impiegato meno tempo, poco più di 10 minuti in meno, ti posto risultati e script

[IMG2=JSON]{"data-align":"none","data-size":"full","src":"https:\/\/i.postimg.cc\/pLbDDSVB\/blacklotto-3.png"}[/IMG2]

Option Explicit
Sub Main
   Dim Fin,Ini,Es,Es2,R1,Caso,Casi,Ruota
   Dim A12,A23,A34,A45,B12,B23,B34,B45
   Dim A(5),B(5),A1(5),B1(5)
   Fin = EstrazioneFin

   Ini = InputBox("Inserisci l'estrazione che vuoi finire",,1)
   Ruota = CInt(InputBox(" In quale ruota vuoi fare la ricerca? ",,8))
   'Call ScegliRange(Ini,Fin,Ini,Fin)
   Scrivi Space(1) & " CHIESTO DA BLACKLOTTO Ricerca inversa - SCRIPT SALVO50",1,,4,,3,,1
   For Es = Fin To Ini Step - 1
      For Es2 = Es - 1 To Ini Step - 1
         Caso = 0
         AvanzamentoElab Fin,Ini,Es
         For R1 = Ruota To Ruota
            A(1) = Estratto(Es,R1,1)
            A(2) = Estratto(Es,R1,2)
            A(3) = Estratto(Es,R1,3)
            A(4) = Estratto(Es,R1,4)
            A(5) = Estratto(Es,R1,5)
            '
            B(1) = Estratto(Es2,R1,1)
            B(2) = Estratto(Es2,R1,2)
            B(3) = Estratto(Es2,R1,3)
            B(4) = Estratto(Es2,R1,4)
            B(5) = Estratto(Es2,R1,5)
            If A(1) > 0 Then
               A12 = Fuori90(A(1) + A(2)) : A23 = Fuori90(A(2) + A(3)) : A34 = Fuori90(A(3) + A(4)) : A45 = Fuori90(A(4) + A(5))
               B12 = Fuori90(B(1) + B(2)) : B23 = Fuori90(B(2) + B(3)) : B34 = Fuori90(B(3) + B(4)) : B45 = Fuori90(B(4) + B(5))
               If A12 = B12 And A23 = B23 And A34 = B34 And A45 = B45 Then
                  A1(1) = A12 : A1(2) = A23 : A1(3) = A34: A1(4) = A45 : B1(1) = B12 : B1(2) = B23 : B1(3) = B34: B1(4) = B45
                  Caso = Caso + 1
                  Casi = Casi + 1
                  Scrivi String(89,"*") & " Casi Totali " & FormattaStringa(Casi,"0000"),,,,1
                  Scrivi String(80,"*") & " Estrazione " &(Es) & " caso " & FormattaStringa(Caso,"0000"),,,,2
                  Scrivi(" Estrazione n." & Format2(Es) & " del " & DataEstrazione(Es)),1,0
                  Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es,R1),1
                  Scrivi Space(23) & " Somme Calcolate " & StringaNumeri(A1,,True),1,,,2
                  Scrivi
                  Scrivi(" Estrazione n." & Format2(Es2) & " del " & DataEstrazione(Es2)),1,0
                  Scrivi "  " & SiglaRuota(R1) & " " & StringaEstratti(Es2,R1),1
                  Scrivi Space(18) & " Somme Uguali Trovate " & StringaNumeri(B1,,True),1,,,2
               End If
            End If
         Next
      Next
      If ScriptInterrotto Then Exit For
   Next
   Scrivi " Tempo Trascorso " & TempoTrascorso
End Sub

 

[*blacklotto*]

Ciao Salvo50, buona giornata a tutti,

sto facendo girare il tuo listato modificato, ho messo a 7000 estrazioni, quando terminerà vedremo risultato.
Ecco, ha terminato ora la ricerca sulla ruota di Bari questo il resoconto :

CHIESTO DA BLACKLOTTO Ricerca inversa - SCRIPT SALVO50
Tempo Trascorso 00:07:04

Ora farò partire la ricerca a 5000 estrazioni e vedremo se succede qualcosa. La mia domanda leggendo il tuo messaggio è : " Secondo me in questo caso la ricerca all'indietro non influenza il risultato, con la ricerca all'indietro lo script prima visualizzava l'estrazione 8367 e dopo la 6812, comunque direi di aspettare il parere di ILegend "


Non capisco perché non si può inserire l'estrazione di partenza come l'ultima estratta in archivio, ma come scrivi tu ne da una a caso, ma la ricerca è stata impostata come base l'ultima estrazione in archivio di Roma ? Tutto deve partire solo da quella li, se faccio calcolo dell'ultima estrazione di Roma, corrisponde al resoconto dato da te nel listato con le somme 25.64.83.33 ? [IMG2=JSON]{"data-align":"none","data-size":"full","src":"https:\/\/i.postimg.cc\/pLbDDSVB\/blacklotto-3.png"}[/IMG2]Ha terminato la ricerca di 5000 estrazioni e ha dato questo resoconto :
CHIESTO DA BLACKLOTTO Ricerca inversa - SCRIPT SALVO50
Tempo Trascorso 00:21:05

esito nullo ora proverò a 3000 estrazioni, vedremo il tempo e se ci sarà qualche esito

a 7000 Tempo Trascorso 00:07:04 ​​​​​​​
a 5000 Tempo Trascorso 00:21:05

​​​​​​​ciao e grazie per quanto si sta facendo !

Blacklotto

 

[i legend]

Ciao appena mi è possibile posto il mio script ,almeno sul mio PC è più veloce.
Non entro nel merito del metodo ma solo dell algoritmo per trovare i casi.
ciao

 

[i legend]

Ciao a tutti
l algoritmo è da verificare ,
sul mio pc è piu veloce , ma i tempi cambiano in base alla potenza della macchina
eccolo qui, fatemi sapere se è coretto
bisognerebbe vedere se fra quello di salvo è il mio ci sono discordanze
codice:

Option Explicit
' questo è uno script test, SOLO UN TEST
' lo script è rigorosamente da verificare per vedere se rintraccia tutti i casi CHE SI SONO VENUTI A CREARE
Sub Main
   Dim idEstr,IdSucc,R,p
   Dim aSum(4),aR(1)
   Dim i,ii,tro,m
   ReDim aStat(EstrazioniArchivio,3)
   ReDim aRuote(0):Call ScegliRuote(aRuote)
   ReDim aRapp(0)
   For i = 1 To UBound(aRuote)
      If aRuote(i) <> 11 Then
         m = m + 1
         ReDim Preserve aRapp(m)
         aRapp(m) = aRuote(i)
      End If
   Next
   Call ResetTimer
   For R = 1 To UBound(aRapp)
      aR(1) = aRapp(R)
      For idEstr = 1 To EstrazioniArchivio
         If Estratto(idEstr,aR(1),1) > 0 Then
            For i = 1 To 4
               aSum(i) = Fuori90(Estratto(idEstr,aR(1),i) + Estratto(idEstr,aR(1),i + 1))
            Next
            aStat(idEstr,1) = idEstr
            aStat(idEstr,2) = StringaEstratti(idEstr,aR(1),".")
            aStat(idEstr,3) = StringaNumeri(aSum,".",True)
         End If
      Next
      Call OrdinaMatriceTurbo(aStat,1,"3,1")
      tro = 0
      For idEstr = 1 To UBound(aStat) - 1
         If aStat(idEstr,2) <> 0 Then
            ReDim aV(0):Call SplitByChar("0." & aStat(idEstr,3),".",aV)
            For IdSucc = idEstr + 1 To UBound(aStat)
               ReDim aV1(0):Call SplitByChar("0." & aStat(IdSucc,3),".",aV1)
               If aV1(1) > aV(1) Then
                  Exit For
               Else
                  If aStat(idEstr,3) = aStat(IdSucc,3) Then
                     tro = tro + 1
                     Scrivi SiglaRuota(aR(1)) & "    " & aStat(idEstr,1) & "   " & aStat(idEstr,2) & "   " & aStat(idEstr,3) & " -> " & aStat(IdSucc,1) & "   " & aStat(IdSucc,2) & "   " & aStat(IdSucc,3)
                  End If
               End If
               If ScriptInterrotto Then Exit For
            Next
            Call AvanzamentoElab(1,UBound(aStat),idEstr)
            If ScriptInterrotto Then Exit For
         End If
      Next
      If tro Then Scrivi String(80,"-")
   Next
   Scrivi "elaborato In : " & TempoTrascorso
End Sub

controllate che non ci siano errori di digitazione , ho inserito scegliruote , per rendere un po piu flessibile il tutto , ma fate le prove del caso

se ci sono errori proveremo a risolverli

 

[*blacklotto*]

Ciao i legend,

questa riga If aStat(idEstr,2) <> 0 Then mi blocca l'esecuzione dello script ( Spaziometria 1.6.26 ) e non posso visualizzare
che mi puoi consigliare ?

Grazie

 

[i legend]

Controlla che tra <> non ci siano spazi tipo < >
io utilizzo la versione 1.6.31
Che messaggio di errore da?

 

[*blacklotto*]

Messaggio

errore script!
13-tipo nono corrispondente : aStat(...)
Linea : 34
Colonna : 9
Source : Errore di run-time di Microsoft VB Script

evidenziando la stringa If aStat(idEstr,2) <> 0 Then

ciao

 

[salvo50]

Messaggio

errore script!
13-tipo nono corrispondente : aStat(...)
Linea : 34
Colonna : 9
Source : Errore di run-time di Microsoft VB Script

evidenziando la stringa If aStat(idEstr,2) <> 0 Then

ciao

Dava lo stesso errore anche a me, ho modificato questa riga

da così

If aStat(idEstr,2) <> 0 Then

a così

If aStat(idEstr,1) <> 0 Then

è funziona

L'unico riscontro che potevo fare era quello nella ruota di Roma

ed in 13 secondi ha trovato le stesse righe dello script fatto da me

BRAVISSIMO

adesso devo capire quello che hai fatto

Ciao

 

[salvo50]

Dato che è velocissimo ho controllato anche le altre ruote ed ho trovato

A Palermo 2 somme uguali
Roma già verificato 1 somma uguale
Torino 1 somma uguale

nelle altre ruote zero

 

[*blacklotto*]

Accipicchia !!! Facendo ricerca nelle 3 ruote separatamente ho avuto questo resoconto

PA 2399 04.09.71.29.75 13.80.10.14
PA6618 24.79.01.09.05 13.80.10.14
PA 1194 80.69.21.26.47 59.90.47.73
PA 3065 77.72.18.29.44 59.90.47.73
---------------------------------------------
elaborato In : 00:00:07

RO 6812 23.02.62.21.12 25.64.83.33
RO 8367 35.80.74.09.24 25.64.83.33
---------------------------------------------
elaborato In : 00:00:07

TO 6914 12.30.76.90.89 42.16.76.89
TO 7764 68.64.42.34.55 42.16.76.89
---------------------------------------------
elaborato In : 00:00:07

mentre digitando le 11 ruote assieme :

PA 2399 04.09.71.29.75 13.80.10.14
PA 6618 24.79.01.09.05 13.80.10.14
PA 1194 80.69.21.26.47 59.90.47.73
PA 3065 77.72.18.29.44 59.90.47.73
---------------------------------------------
RO 6812 23.02.62.21.12 25.64.83.33
RO 8367 35.80.74.09.24 25.64.83.33
---------------------------------------------
TO 6914 12.30.76.90.89 42.16.76.89
RO 7764 68.64.42.34.55 42.16.76.89
---------------------------------------------
elaborato In : 00:01:13

una vera scheggia ! Bravi e ottimi esecutori di listati.

Davvero incredibile ciò che si ottiene al controllo delle 11 ruote, in 9669 estrazioni si ha davvero un quasi nulla di fatto come resoconto,
pur vero, mi sembra al quanto strano che sia così difficile trovare somme uguali isotope, anche se trattasi di quartina.

Nel listato c'è scritto che deve essere ritenuto solo un test, una prova se la procedura esegue la giusta ricerca, questo perché non è la realtà dei fatti i resoconti ? Se hai messo questa specifica un motivo ci sarà.

" lo script è rigorosamente da verificare per vedere se rintraccia tutti i casi CHE SI SONO VENUTI A CREARE " non sono confermati gli 11 resoconti ?

Grazie per quanto fate per noi, ciao

Blacklotto

 

[i legend]

Ciao a tutti
ho scritto così, perché dato che esiste un altro algoritmo quello di salvo è giusto confrontare i dati
vedere se su Palermo ci sono 2 riscontri e Torino 1
E magari su un altra ruota neanche 1

Noi facciamo gli script , voi ci fate una mano a testarlo.
Black nel tuo output c è un errore sotto Torino c e scritto Roma e non è possibile.
Perché la ricerca è su ruota unica.

Devo controllare.

X salvo
Il mio listato fa i calcoli solo una volta e sono messi in un array che ordino poi quando ciclo ogni estrazione se il primo numero da confrontare è più grande lo faccio uscire. In pratica lavora meno
Per questo motivo ho scritto che è da controllare
Per verificare che il ragionamento sia esatto. Non sono un programmatore.

 

[salvo50]

Ciao a Tutti.

Per ILegend, grazie per le ulteriori spiegazioni.

Per Blacklotto, sembra strano anche a me che ci siano così pochi riscontri, perchè la prima somma non è rigida, per ogni somma ci sono 178 (non sono sicuro di questo numero, non sono un matematico) possibilità diverse per comporre la stessa somma, poi per la seconda,terza e quarta somma si hanno per tutte e tre le somme solo 2 possibilità, secondo il mio ragionamento.

Questo tipo di ricerca io l'avevo già pensato, non con le somme, ma con le distanze, pensando alla Distanza Nostram menzionata nella formula della Tavola Settenaria


[IMG2=JSON]{"data-align":"none","data-size":"full","src":"https:\/\/i.postimg.cc\/7h84y7wk\/Formula.png"}[/IMG2]