ambi uniti

[giuseppe42]

un caro saluto a tutti, sareste così gentili da fare uno script di ricerca di ambi uniti di uguale somma evidenziando di un colore uguiale quelli che si trovano su tutte le ruote? grazie

 

[Mike58]

Per ora saltando l'evidenza numeri su un possibile quadro estrazionale, prova la ricerca Ambi uniti e stessa somma fuori90.
Se poi ci dici come intenti utilizzarlo, e se la cosa può essere interessante vedremo sviluppi.

Ciao

Sub Main
 Dim n(2),m(2),ru1(1),ru2(1)
 Call ScegliRange(Ini,fin,EstrazioneFin - 100,EstrazioneFin)
 t = Timer
 For es = Ini To fin
  For r1 = 1 To 9
   For r2 = r1 + 1 To 10
    For p1 = 1 To 4
     p2 = p1 + 1
     a = Estratto(es,r1,p1)
     b = Estratto(es,r1,p2)
     For p3 = 1 To 4
      p4 = p3 + 1
      c = Estratto(es,r2,p3)
      d = Estratto(es,r2,p4)
      If Differenza(a,b) = 1 Then
       If Differenza(c,d) = 1 Then
        If Fuori90(a + b) = Fuori90(c + d) Then
         k = k + 1
         n(1) = a
         n(2) = b
         m(1) = c
         m(2) = d
         Scrivi GetInfoEstrazione(es) & vbTab & SiglaRuota(r1) & vbTab & StringaNumeri(n) & vbTab & Fuori90(a + b)
         Scrivi GetInfoEstrazione(es) & vbTab & SiglaRuota(r2) & vbTab & StringaNumeri(m) & vbTab & Fuori90(c + d)
         Scrivi
        End If
       End If
      End If
     Next
    Next
   Next
  Next
 Next
 Scrivi
 Scrivi "Estrazione inizio : " & DataEstrazione(Ini)
 Scrivi "Estrazione Fine   : " & DataEstrazione(fin)
 Scrivi "Casi Trovati      : " & k,1
 Scrivi
 Scrivi "Secondi elaborazione : " & Round(Timer - t,2)
End Sub

 

[Joe91]

Scusate ma non ho capito.

E' la base di ricerca del metodo di Manara ...

(supponendo che esso possa essere uno standard-definizione-descrizione-tipo)

o ... Cosa si intende per "Ambo Unito" ?

Ogni possibile somma di 2 estratti (eventualmente col fuori 90) è una "unione" ?

O per unione si intende che i numeri debbano occupare posizioni contigue e nella stessa ruota.

Oppure che siano nelle stesse posizioni in ruote differenti ... ecc. ecc.

In pratica "unione" è termine troppo generico.

Ad esempio, per alcuni "unito" significa che la somma dei 2 numeri sia 90.

Secondo il mio modesto parere occorre una maggiore descrizione,

per poter dare ad essa ... una "interpretazione" (scritto o script) univoco e soddisfacente.

 

[Mike58]

Ciao Joe, hai ragione a non trovarti con la spiegazione e poi anch'io ho travisato la richiesta mettendo una differenza = 1 che non veniva citata, ( la fretta)

Per Ambo unito io ho inteso unito in posizioni contigue ma non necessariamente isotope.

Comunque io riposto lo script senza differenze con gli ambi contigui in posizione.

Qui i casi sono molteplici.

Sub Main
 Dim n(2),m(2),ru1(1),ru2(1),TL,VL,nu(1)
 Call ScegliRange(Ini,fin,EstrazioneFin - 100,EstrazioneFin)
 TL = Array(TL,"ID Data Trovata","Ruote","Ambi","Somma Comune","Posizioni")
 Call InitTabella(TL)
 t = Timer
 For es = Ini To fin
  For r1 = 1 To 9
   For r2 = r1 + 1 To 10
    For p1 = 1 To 4
     p2 = p1 + 1
     a = Estratto(es,r1,p1)
     b = Estratto(es,r1,p2)
     For p3 = 1 To 4
      p4 = p3 + 1
      c = Estratto(es,r2,p3)
      d = Estratto(es,r2,p4)
      If Fuori90(a + b) = Fuori90(c + d) Then
       k = k + 1
       Call Messaggio("Elaboro Estrazioni : " & es)
       Call AvanzamentoElab(Ini,fin,es)
       n(1) = a
       n(2) = b
       m(1) = c
       m(2) = d
       nu(1) = Fuori90(a + b)
       VL = Array(VL,GetInfoEstrazione(es),SiglaRuota(r1) & "<br>" & SiglaRuota(r2),StringaNumeri(n,,1) & _
       "<br>" & StringaNumeri(m,,1),Fuori90(a + b) & "<br>" & Fuori90(c + d),p1 & "-" & p2 & "<br>" & p3 & "-" & p4)
       Call AddRigaTabella(VL)
      End If
     Next
    Next
   Next
  Next
  If ScriptInterrotto Then Exit For
 Next
 CreaTabella
 Scrivi
 Scrivi "Estrazione inizio : " & DataEstrazione(Ini)
 Scrivi "Estrazione Fine   : " & DataEstrazione(fin)
 Scrivi "Casi Trovati      : " & k,1
 Scrivi
 Scrivi "Secondi elaborazione : " & Round(Timer - t,2)
End Sub

 

[giuseppe42]

No Title

buon giorno, innanzitutto ringrazio per le risposte; vi allego screen di un foglio excel che il buon pfca un pò di tempo fa mi realizzò solo che non aggiorna più riportandomi la dicitura "errore di run time 1004: impossibile aprire www.estrazionidellotto ecc.ecc.
per questo cercavo l'alternativa a quel lavoro. la somma uguale specie se isotopa e ruote unite spesso fornisce l'ambata cosi come il risultato della somma uguale .esempio dello screen CA-FI AMBO DI SOMMA 65 E 30 ( 65+65);

 

[Mike58]

Purtroppo dallo screen non si capisce molto, cosi non posso aiutarti,in mancanza di specifiche ben definite.
Siamo passati dagli ambi uniti stessa somma a ambi stessa somma ruote unite.

Vi posso solo dire che con gli script tutte le vostre ricerche possono essere raggiunte ma ribadisco che le specifiche devono essere sempre precise e correlate da esempi reali, cosi da avere un confronto reale delle operazioni da eseguire.

In mancanza di tutto ciò lo stimolo dello scripter può solo venir meno.

Ciao

 

[giuseppe42]

No Title

ciao Mike, l'esempio di CA-FI come da immagine da un ambo unito di ugual somma, quindi l'ambata; la seconda ambata scaturisce tra la somma dello stesso ambo unito cioè 65+65 = 40.

 

[Mike58]

Ciao Giuseppe,ora è leggibile l'immagine e perciò riesco a simularlo in script.

eccoti lo script.

P.s una volta copiato lo script eseguire autoFormattazione codice con apposita icona.
per evitare che la riga di congiunzione immessa possa venire sformattata con uno spazio.

Sub Main
 Dim n(2),m(2),ru1(1),ru2(1),TL,VL,ru(2),nu(2)
 Call ScegliRange(Ini,fin,EstrazioneFin - 30,EstrazioneFin)
 Scrivi "Ricerca Ambi stessa somma, su 2 Ruote Consecutive",1
 Scrivi "In posizione di isotopia",1
 Scrivi "Gioca Somma x 2 con il fuori90 entro 10 colpi",1
 Scrivi
 TL = Array(TL,"ID Data Trovata","Ruote","Ambi","Posizioni","Somma Comune","Verifica Somm x 2","Colpo","Id Esito")
 Call InitTabella(TL,1,,2,5)
 t = Timer
 For es = Ini To fin
  For r1 = 1 To 9
   r2 = r1 + 1
   For p1 = 1 To 4
    For p2 = p1 + 1 To 5
     a = Estratto(es,r1,p1)
     b = Estratto(es,r1,p2)
     For p3 = 1 To 4
      For p4 = p3 + 1 To 5
       c = Estratto(es,r2,p3)
       d = Estratto(es,r2,p4)
       'If Differenza(a,b) = 1 Then
       'If Differenza(c,d) = 1 Then
       If Fuori90(a + b) = Fuori90(c + d) Then
        If p1 = p3 And p2 = p4 Then
         k = k + 1
         Call Messaggio("Elaboro Estrazioni : " & es)
         Call AvanzamentoElab(Ini,fin,es)
         n(1) = a
         n(2) = b
         m(1) = c
         m(2) = d
         nu(1) = Fuori90((a + b)*2)
         'nu(2) = Vert(nu(1))
         ru(1) = r1
         ru(2) = r2
         Call VerificaEsito(nu,ru,es + 1,1,10,,esito,clp,es1,id1)
         VL = Array(VL,GetInfoEstrazione(es),SiglaRuota(r1) & "<br>" & SiglaRuota(r2),StringaNumeri(n,,1) & _
         "<br>" & StringaNumeri(m,,1),p1 & "-" & p2 & "<br>" & p3 & "-" & p4,Fuori90(a + b) & "<br>" & Fuori90(c + d),es1,clp,GetInfoEstrazione(id1))
         Call AddRigaTabella(VL)
         If esito <> "" Then Cposit = Cposit + 1
         'Scrivi GetInfoEstrazione(es) & vbTab & SiglaRuota(r1) & vbTab & StringaNumeri(n) & vbTab & Fuori90(a + b)
         'Scrivi GetInfoEstrazione(es) & vbTab & SiglaRuota(r2) & vbTab & StringaNumeri(m) & vbTab & Fuori90(c + d)
         'Scrivi
        End If
        'End If
       End If
      Next
     Next
    Next
    'Next
   Next
  Next
  If ScriptInterrotto Then Exit For
 Next
 AddRigaTabella(TL)
 CreaTabella
 Scrivi
 Scrivi "Estrazione inizio   : " & DataEstrazione(Ini)
 Scrivi "Estrazione Fine     : " & DataEstrazione(fin)
 Scrivi "Casi Trovati        : " & k,1
 Scrivi "Casi Positivi esito : " & Cposit,1
 Scrivi
 Scrivi "Secondi elaborazione : " & Round(Timer - t,2)
End Sub

 

[giuseppe42]

grazie Mike, gentilissimo!!!!