E' possibile ...

[Bubblegum]

Ciao forum , potrebbe un maestro fare uno script che mi ricerchi l'estratto minimo e massimo uniti e che abbiano le cadenze diametrali ?
Esempi veri :
26-08-2008
NZ 63-88-13-65-49
+ piccolo , 13 , ed il + grande , 88 , sono uniti e le loro cadenze sono diametrali : 3 ed 8
---------
19-07-2012
BA 09-87-02-78-29
+ piccolo , 02 , è unito al + grande , 87 , e le loro cadenze sono diametrali 2 e 7
------------
Nell'eventualità potreste mettere la scelta della ruota dove fare la ricerca ?
Grazie
Ciaoo

 

[joe]

Ciao,
prova questo:

Option Explicit
Sub Main
   Dim Ini,Fin,Es,P,Nu(5),Mu(5)
   Dim x,r,i,f
   Ini = EstrazioneFin - 9 : Fin = EstrazioneFin
   x = ScegliRuota
   If x = 11 Then i = 1 : f = 10 Else i = x : f = x
   For Es = Ini To Fin
      For r = i To f
         For P = 1 To 5
            Nu(P) = Estratto(Es,r,P) : Mu(P) = Nu(P)
         Next
         OrdinaMatrice Mu,1
         For P = 1 To 4
            If(Nu(P) = Mu(1) And Nu(P + 1) = Mu(5)) Or Nu(P) = Mu(5) And Nu(P + 1) = Mu(1) Then
               If FuoriX(Cadenza(Nu(P) + 5),5) = Cadenza(Nu(P + 1)) Then
                  Scrivi DataEstrazione(Es) & Space(1) & SiglaRuota(r) & Space(1) & StringaEstratti(Es,r) & Space(1),0,0
                  Scrivi Format2(Nu(P)) & "." & Format2(Nu(P + 1))
               End If
            End If
         Next
      Next
   Next
End Sub

 

[Mike58]

Ciao Joe, intanto una buona pasqua, complesso il costrutto, ma non mi trovo con alcune risultanze.
ecco le mie a confronto con la tua su ruota in range di 10 estrazioni.


Una buona Pasqua a tutti
script

Sub Main
   Dim nu(5),ru(1)
   Ini = EstrazioneFin - 9
   fin = EstrazioneFin
   For es = Ini To fin
      For r = 1 To 12
         If r = 11 Then r = 12
         For p = 1 To 5
            nu(p) = Estratto(es,r,p)
            ru(1) = r
         Next
         min = MinimoV(nu,1,5)
         max = MassimoV(nu)
         p1 = Posizione(es,r,min)
         p2 = Posizione(es,r,max)
         If Differenza(p1,p2) = 1 Then
         cd1 = Cadenza(min) : cd2 = Cadenza(max)
         If Differenza(cd1,cd2) = 5 Then
         k = k + 1
            Scrivi GetInfoEstrazione(es)  & vbTab & SiglaRuota(r) & vbTab & StringaNumeri(nu,,1) & vbTab & Format2(min) & "-" & max & vbTab & _
            " cad... " & cd1 & "-" & cd2 & vbTab & " Posiz... " & p1 & "." & p2
         End If
         End If
      Next
     'Scrivi
   Next
   Scrivi "Casi trovati... " & k,1
End Sub

 

[joe]

Ciao Mike,

Buona Pasqua a Tutte/i.

Hai ragione, ieri sera ho messo assieme quello scritto in una decina di minuti

ed ho solo controllato che rintracciasse i 2 casi in esempio.

La differenza nasceva nella ricerca delle differenza tra le cadenze.

Poi mancava la Nazionale che normalmente non considero uguale alle altre 10 ruote.

Con le correzioni che hai suggerito dovrebbe essersi uniformato nei risultati.

Probabilmente non è possibile correggere lo script poco funzionante dunque lo ripropongo qui di seguito.

Option Explicit
Sub Main
   Dim Ini,Fin,Es,P,Nu(5),Mu(5)
   Dim x,r,i,f
   Ini = EstrazioneFin - 9 : Fin = EstrazioneFin
   x = ScegliRuota
   If x = 11 Then i = 1 : f = 12 Else i = x : f = x
   For Es = Ini To Fin
      For r = i To f : If r = 11 Then r = 12 
         For P = 1 To 5
            Nu(P) = Estratto(Es,r,P) : Mu(P) = Nu(P)
         Next
         OrdinaMatrice Mu,1
         For P = 1 To 4
            If(Nu(P) = Mu(1) And Nu(P + 1) = Mu(5)) Or Nu(P) = Mu(5) And Nu(P + 1) = Mu(1) Then
               If Differnza (Cadenza(Nu(P)) , Cadenza(Nu(P+1)))  = 5  Then
                  Scrivi DataEstrazione(Es) & Space(1) & SiglaRuota(r) & Space(1) & StringaEstratti(Es,r) & Space(1),0,0
                  Scrivi Format2(Nu(P)) & "." & Format2(Nu(P + 1))
               End If
            End If
         Next
      Next
   Next
End Sub

 

[Bubblegum]

Grazie mille maestri Joe e Mike58 , auguri di buona Pasqua a voi ed a tutto il forum