Chiedo questo script

[09/09/2021]

buongiorno ,
chiedo a chi elabora script

è possibile realizzare un listato che su singola ruota mi vada a verificare un numero entro un determinato numero di colpi quante volte è sortito

ruota selezionabile
numero di colpi selezionabile max 1 - 10.

esempio : voglio vedere su BA nelle 50/100 (max) estrazioni precedenti quante volte il numero (esemp: 8) è sortito in quel range che va da 1 a 10 nello specifico quante volte l'8 è uscito al 5 colpo. o al 4 o al 9 e cosi via.

se è fattibile vi ringrazio del tempo dedicato

 

[Cinzia27]

Ciao, Mediterraneo.
Eccolo. Fai qualche controllo che sia tutto a posto.

Sub main()
' Per Mediterraneo : analisi sortita numero entro tot colpi ( Cinzia27)
Dim n(1),ru(1)
nn=CInt (InputBox(" Scegli un numero ",,65))
If nn="" Then Exit Sub
rr=CInt (InputBox(" Scegli la ruota ",,1))
If rr="" Then Exit Sub
ex=CInt (InputBox(" Quante estrazioni vuoi esaminare ? ultime",,100))
If ex="" Then Exit Sub
col=CInt (InputBox(" Per quanti colpi vuoi esaminare l' esito ",,9))
If col="" Then Exit Sub
c=-1
n(1)=nn
r=rr
ru(1)=r
ini=EstrazioneFin-ex
fin=EstrazioneFin
    For es=ini To fin
        If Posizione(es,r,n(1))>0 Then
        rt=Serieritardo(1,es-1,n,ru,1)
            If rt<=col Then
            Messaggio es
            c=c+1
                If c>0 Then
                Scrivi FormatSpace(c,4,1)&" ) "&FormatSpace(es,4,1)&"  "& SiglaRuota (r)&"  "&format2(n(1))&" "&FormatSpace(rt,4,1)&" uscito entro "&col&" colpi"
                End If
            End If
        End If
    Next
End Sub

 

[09/09/2021]

Grazie @Cinzia27 è perfetto .buona serata

 

[joe]

Ciao non è difficile fare quello che chiedi e Cinzia l'ha già fatto.

Però sarebbe interessante conoscere come intendi sfruttare i risultati.

Soprattutto per predisporli adeguatamente o meglio.

Non ultimo sarebbe utile sapere sei uno studente e/o studioso di statistica

capace di suggerire come utilizzare i risultati ottenuti.

Perché In particolare ed è abbastanza raro che succeda, pertanto

trovo interessante ed originale che tu abbia chiesto, i risultati

di pochi elementi, raccolti recentemente.

 

[Cinzia27]

Ciao, Joe. Credo che possiamo ampliare la ricerca.
Ad esempio, si potrebbero analizzare tutti i numeri per ogni ruota per rilevare quelli che maggiormente rispettano il limite.

 

[09/09/2021]

Ciao

Ciao non è difficile fare quello che chiedi e Cinzia l'ha già fatto.

Però sarebbe interessante conoscere come intendi sfruttare i risultati.

Soprattutto per predisporli adeguatamente o meglio.

Non ultimo sarebbe utile sapere sei uno studente e/o studioso di statistica

capace di suggerire come utilizzare i risultati ottenuti.

Perché In particolare ed è abbastanza raro che succeda, pertanto

trovo interessante ed originale che tu abbia chiesto, i risultati

di pochi elementi, raccolti recentemente.

Ciao,

ti ringrazio per il tuo interessamento apprezzo davvero , in genere non mi piace molto attirare l'attenzione

e/o la curiosità preferisco: ( da neofito e appassionato di statistica oserei definirla istintiva).

aggirare la complicata statistica odierna e modificarla in semplice passione istintiva .analizzare i comportamenti

solo di alcuni numeri "seguirli" e valutare di conseguenza a volte si vince a volte no , cerco di applicare

il metodo "poco ma spesso".

Anche l'aiuto del mio blocco a quadretti e del pc utilizzando spaziometria perchè no.

Lo script che ho chiesto e che molto gentilmente @Cinzia27 me ne ha fatto regalo

è abbastanza semplice nella sua funzione come giustamente hai notato

mi serve a verifica dei singoli numeri ed il loro range di uscita come se guardassi la storia di quel numero

alle volte mi va bene altre il numero si incastra ci vuole: come tu mi insegni ,anche tanta fortuna

componente a mio avviso essenziale.

Come interagisco con i numeri è davvero semplice ma preferisco rimanga personale

sicuramente lo utilizzero' e ne faro partecipi gli utenti nelle mie piccole previsioni che offro,

qualcuna l'ho centrata poca roba ,altre si sono sfaldate ma sicuramente si ripresenteranno ,

ovviamente non avro' mai modo di garantire nulla e rispetto a tanti altri studiosi di statistica che hanno decisamente piu'

esperienza e risultati, io posso solo che imparare e osservare.

Buona notte @Cinzia27 e ancora grazie

notte Joe

 

[Cinzia27]

Lieta che lo script possa esserti utile.
Buona notte anche a te.

 

[joe]

Ciao Mediterraneo,

Ti ringrazio.

Il rispetto che ho delle opinioni altrui, mi vincola al non insistere,

accettando il contenuto della tua risposta.

 

[Cinzia27]

Ad esempio, si potrebbero analizzare tutti i numeri per ogni ruota per rilevare quelli che maggiormente rispettano il limite.

Ciao, Mediterraneo. Ho pensato di ampliare la tua ricerca.

Sub main()
' Sviluppo ricerca Mediterraneo - analisi sortita dei 90 numeri entro tot colpi ( Cinzia27)
Dim n(1),ru(1)

rr=CInt (InputBox(" Scegli la ruota ",,1))
If rr="" Then Exit Sub
ex=CInt (InputBox(" Quante estrazioni vuoi esaminare ? ultime",,100))
If ex="" Then Exit Sub
col=CInt (InputBox(" Per quanti colpi vuoi esaminare l' esito ",,9))
If col="" Then Exit Sub
c=-1

r=rr
ru(1)=r
ini=EstrazioneFin-ex
fin=EstrazioneFin
For i=1 To 90
c=0
n(1)=i
    For es=ini To fin
        If Posizione(es,r,n(1))>0 Then
        rt=SerieRitardo(1,es-1,n,ru,1)
            If rt<=col Then
            Messaggio es
            c=c+1
                If c>0 Then
                If c>mx Then mx=c:nn=n(1)
                Scrivi FormatSpace(c,4,1)&" ) "&FormatSpace(es,4,1)&"  "& SiglaRuota (r)&"  "&format2(n(1))&" "&FormatSpace(rt,4,1)&" uscito entro "&col&" colpi"
                End If
            End If
        End If
    Next
Scrivi "   Il numero "&format2(n(1))&" è uscito per "&c&" volte entro "&col&" colpi",1
Scrivi
Next
ColoreTesto 1
Scrivi "   Il numero  che è uscito maggiormente entro "&col&" colpi è il "&nn&" con "&mx&" casi",1
ColoreTesto 0
End Sub