Per Mike58 o chi è capace

[solare]

Ciao, approfittando della tua bravura
potresti fare un listato che riguarda le distanze. Mi spiego meglio, servirebbe un listato che trovi un ambo con distanza variabile "da decidere" a proprio piacimento.
Sulla base del ritrovamento, relativo all'ambo di distanza voluta, mi possa mostrare tutti i numeri maggiormente frequenti nelle successive 13 estrazioni.
Ovviamente non so se è possibile farlo ma spero di si.
Grazie

 

[Mike58]

Ciao Solare, non lo so a secondo della richiesta, immagino i codici da usare.
Per ora va bene la ricerca dell'ambo con distanza voluta, ma poi per gli estrattiFrequenti diventa complicato in quanto l'ambo di distanza può essere diverso in base alle estrazioni di rilevamento e quindi anche i frequenti saranno diversi.

Per ora attendo ispirazione.

 

[Mike58]

Ciao Solare lo script te lo faccio in vnscript per spaziometria in quanto non ci sono dei codici utili in vbnet per estrapolare i frequenti.
Scelta di Luigi, visto la diatriba frequenti presenti etc.
Avevo dei dubbi circa l'efficacia della raccolta dati e così effettivamente è stato confermato il dato Negativo di rilevamento.
Cosa voglio dire , se ad una data Es trovo la condizione di distanza e poi da questa Estraz. trovata vedo i frequenti in range di 13 estrazioni e chiaro che sono i migliori estratti e a verificaEsito è positiva e vincente.
Poi se al rilevamento condizione non sono passate estrazioni sufficiente ( meno di 13) trova i numeri estratti successivi.
Insomma non è veritiero.

Lo metto ma eviterei l'utilizzo.
Poi questo è il mio pensiero se altri riescono a fare di meglio AVANTI un altro.

Sub Main
   Dim Nu(2),Ru(1),r,p1,p2, aNumFreq
   Dim Ini,fin
   Dim T
   dist = cint(InputBox("Quale distanza Cercare... ",,36))
   Const cNum = 1
   Const cFrq = 2
   Const cPre = 3
   Const cRit = 4
   Const cRitMax = 5
   q = 10

   Ini = EstrazioneFin - 100
   fin = EstrazioneFin
   T = Array(T,"Casi","Info Estraz.","Estraz Trascorse","Ruota","Ambo Rilevato","Dist","Numeri Freq","VerificaEsito Ambo","Colpo")
   Call InitTabella(T)
   For es = Ini To fin
   ess = es+13
   If ess > fin Then ess = fin : End If
      For r = 1 To 12
         If r = 11 Then r = 12
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               a = Estratto(es,r,p1)
               b = Estratto(es,r,p2)
               If Distanza(a,b) = dist Then
                  k = k + 1
                  Nu(1) = a : Nu(2) = b : Ru(1) = r
                  aNumFreq = StatEstratti(es,ess,,r,,10,2)
                  Call VerificaEsitoTurbo(aNumFreq,Ru,es+1,2,13,,,clp,Estr,id)
                  T = Array(T,k,GetInfoEstrazione(es),fin-es ,SiglaRuota(r),StringaNumeri(Nu),dist,StringaNumeri(aNumFreq,,1),EStr,clp)
                  Call AddRigaTabella(T)
               End If
            Next
         Next
      Next
   Next
   CreaTabella
End Sub

 

[solare]

Ok Mike58
ti ringrazio comunque della tua gentilezza e bravura
soltanto una modifica se puoi, fare in modo che possa selezionare il la ruota da elaborare.

 

[Mike58]

Eccolo Solare.

Sub Main
   Dim Nu(2),Ru(1),r,p1,p2,aNumFreq
   Dim Ini,fin
   Dim T
   dist = CInt(InputBox("Quale distanza Cercare... ",,36))
   Const cNum = 1
   Const cFrq = 2
   Const cPre = 3
   Const cRit = 4
   Const cRitMax = 5
   q = 10
   rr = InputBox("Quale ruota",,1)
   Ini = EstrazioneFin - 100
   fin = EstrazioneFin
   T = Array(T,"Casi","Info Estraz.","Estraz Trascorse","Ruota","Ambo Rilevato","Dist","Numeri Freq","VerificaEsito Ambo","Colpo")
   Call InitTabella(T)
   For es = Ini To fin
   ess = es + 13
   If ess > fin Then ess = fin : End If
      For r = rr To rr
         If r = 11 Then r = 12
         For p1 = 1 To 4
            For p2 = p1 + 1 To 5
               a = Estratto(es,r,p1)
               b = Estratto(es,r,p2)
               If Distanza(a,b) = dist Then
                  k = k + 1
                  Nu(1) = a : Nu(2) = b : Ru(1) = r
                  aNumFreq = StatEstratti(es,ess,,r,,10,2)
                  Call VerificaEsitoTurbo(aNumFreq,Ru,es + 1,2,13,,,clp,Estr,id)
                  T = Array(T,k,GetInfoEstrazione(es),fin - es,SiglaRuota(r),StringaNumeri(Nu),dist,StringaNumeri(aNumFreq,,1),EStr,clp)
                  Call AddRigaTabella(T)
               End If
            Next
         Next
      Next
   Next
   CreaTabella
End Sub

 

[solare]

grazie