Script per uscite n° su tot di estrazioni - richiesta

[skygirl]

Si può realizzare uno script che dica quante volte è uscito un dato numero su un tot di estrazioni?
Grazie

 

[Moro_80]

Si può realizzare uno script che dica quante volte è uscito un dato numero su un tot di estrazioni?
Grazie

Ciao Skygirl,
prova a vedere se è quello che cercavi Tu:

Sub Main() 
Scrivi "PER Skygirl : Script per uscite n° su tot di estrazioni - By Moro_80"
Scrivi
Dim es,tmp,ru,num,fin,ini,a,conta
tmp = InputBox("Quante estrazioni controllo?",,EstrazioniArchivio) 
ru = CInt (InputBox("Su che ruota?",,1))
num = CInt (InputBox("Quale numero?",,1)) 
fin = EstrazioneFin 
ini = fin - tmp 
conta = 0
For es = ini To fin 
Messaggio CStr (EstrazioneFin - es) 
a = Posizione(es,ru,num)
If a > 0 Then
conta = conta + 1
Scrivi DataEstrazione(es) & " " & Left(NomeRuota(ru),2) & " " & StringaEstratti(es,ru) &_
" Rilevato ---> " & Format2(num) & " In posizione " & a
End If
Next
Scrivi
Scrivi "Il Numero " & Format2(num) & " che hai scelto, è uscito n° " & conta & " volte su n° " & tmp & " estrazioni che hai scelto di analizzare"
End Sub

Ciao

 

[*Max-lotto*]

Si può realizzare uno script che dica quante volte è uscito un dato numero su un tot di estrazioni?
Grazie

Ciao skygirl ecco il codice per te, fammi sapere s'è tutto ok

Sub Main
    Scrivi "script by *Max-lotto*  per skygirl ",,,,,5
    Scrivi"----------------------------------------------------------------------------------"
    Dim Est,Corrente,R1,P1,N1,Numero,Frq(90)
    R1 = ScegliRuota
    Call ScegliNumeri(Numero)
    Est = InputBox("Quante Estrazione vuoi Calcolare",,500)
    Scrivi "Estrazioni elaborate.:" + DataEstrazione(EstrazioneFin - Est) + " al.:" + DataEstrazione(EstrazioneFin),True,,,2,4
    Scrivi"----------------------------------------------------------------------------------"
    For Corrente = EstrazioneFin - Est To EstrazioneFin 'quantità estrazioni 100
        For R1 = 1 To 10
            For P1 = 1 To 5
                N1 = Estratto(Corrente,R1,P1)
                Frq(N1) = Frq(N1) + 1
            Next
        Next
    Next
    
    For k = 1 To UBound(Numero)
        If Frq(Numero(k)) > 1 Then
            Scrivi + "Num.: " + Format2(Numero(k)) + " Freq.: " + Format2(Frq(Numero(k)))
        End If
    Next
End Sub

 

[skygirl]

Grazie Moro_80 e Max-lotto gli script che avete realizzato funzionano entrambi benissimo
Grazie ancora
Ciao

 

[skygirl]

Approfitto della vs. gentilezza per chiedervi se è possibile un'ulteriore sviluppo dello script.
Ovvero riuscire ad ottenere uno script che come risultato mi restituisca la risposta a questa domanda:

- Quali numeri ad ogni estrazione presa in esame soddisfano la condizione di non essere usciti più di 7 volte in 270 estrazioni, nelle varie ruote indicate con il nome ruota e non con il numero ruota.


La mia richiesta trae origine dalle ottime considerazioni di rubino lette qui http://forum.lottoced.com/f13/obbligo-di-vincoli-e-condizioni-117964/index6.html

Grazie ancora.

 

[Roby]

ciao
se usi spaziometria, potresti fare così:

statistiche
estratti
cicli teorici reali
puoi selezionare la ruota che ti interessas
puoi decidere di vedere le presenze o uscite dei numeri nei range
90 : 180 : 270 : 360

lista o griglia



ciao

 

[skygirl]

Grazie Rubino si uso spaziometria anche se non ne conosco tutte le funzionalità. Ti ringrazio per avermi segnalato questa funzionalità che trovo molto interessante