PROGRAMMAZIONE

[genios]

Come allocare tutti i singoli valori della variabile rt dello script in una nuova matrice dinamica e stampare in out tutti i valori della nuova matrice .

Sub Main()
Dim numeri(10),ruote(1)
ruote(1) = InputBox("Quale ruota vuoi analizzare?",,1)
dec = InputBox("Quale decina naturale vuoi analizzare?",,6)

ruota = CInt(ruote(1)) : dec = CInt(dec)
For i = 1 To 90
   If DecinaNaturale(i) = dec Then
      co = co + 1
      numeri(co) = i
   End If
Next

Scrivi NomeRuota(RUOTA),1

For n = EstrazioneFin - 4000 To EstrazioneFin
Messaggio n
a = SerieFreq(n,n,numeri,ruote,2)
   If a > 0 Then
      rt = SerieRitardo(n - 250,n - 1,numeri,ruote,2)'Questa è roba mia
      ColoreTesto 0'.............................""......"".....""
      If rt > 9 Then ColoreTesto 2'................""......"".....""
      Scrivi  rt
   End If

   If n = EstrazioneFin Then
      Scrivi " RITARDO ATTUALE: " & SerieRitardo(n - 250,n,numeri,ruote,2)
   End If
Next    
End Sub

 

[genios]

prima parte risolta . Ora però mi occorre aiuto sul da farsi per sapere il numero degli indici della variabile rt . Come si fà ?

Sub Main()
   Dim ritardi(400)
   'ReDim Preserve ritardi(400)
   Dim numeri(10),ruote(1)
   Dim ritardo
   Dim Indice
   Dim x
   ruote(1) = InputBox("Quale ruota vuoi analizzare?",,1)
   dec = InputBox("Quale decina naturale vuoi analizzare?",,6)
   ruota = CInt(ruote(1)) : dec = CInt(dec)
   For i = 1 To 90
      If DecinaNaturale(i) = dec Then
         co = co + 1
         numeri(co) = i
      End If
   Next
   Scrivi NomeRuota(RUOTA),1
   For n = EstrazioneFin - 4000 To EstrazioneFin
      Messaggio n
      a = SerieFreq(n,n,numeri,ruote,2)
      If a > 0 Then
         rt = SerieRitardo(n - 250,n - 1,numeri,ruote,2)'Questa è roba mia
         b = b + 1
         ritardi(b) = rt
         'Scrivi ritardi(b)
         ColoreTesto 0'.............................""......"".....""
         If rt > 9 Then ColoreTesto 2'................""......"".....""
         'Scrivi DataEstrazione(n,True) & " " & StringaEstratti(n,ruota) & " " & " & Ritardo: " & rt
      End If
      If n = EstrazioneFin Then
         Scrivi " RITARDO ATTUALE: " & SerieRitardo(n - 250,n,numeri,ruote,2)
      End If
   Next
   z = UBound(ritardi)
   Scrivi z
   For aa = 1 To 20

         For Indice = aa To aa+9
            b = Indice
            ritardo = ritardi(b)
            Scrivi ritardo

            ritardo10 = ritardo + ritardo
         Next
         Scrivi
      Next

   Scrivi
End Sub

 

[i legend]

Ciao
Potresti spiegare cosa intendi calcolare ed ottenere con questo algoritmo?

 

[i legend]

Se posso ti do volentieri un aiuto
ciao

 

[genios]

Grazie i legend se fai girare il primo script vedrai che in out avremmo tutti i ritardi consecutivi della decinaturale 6 ( variabile rt). Con il secondo script modifica del primo volevo raggrupparli a 10 a 10 scalando ogni volta di un ritardo per avere la somma di tutti e dieci i ritardi consecutivi . Pero' non sapendo il limite superiore della variabile mi trovo in difficoltà .

Ciao Eugenio

 

[i legend]

Come allocare tutti i singoli valori della variabile rt dello script in una nuova matrice dinamica e stampare in out tutti i valori della nuova matrice .

Sub Main()
Dim numeri(10),ruote(1)
ruote(1) = InputBox("Quale ruota vuoi analizzare?",,1)
dec = InputBox("Quale decina naturale vuoi analizzare?",,6)

ruota = CInt(ruote(1)) : dec = CInt(dec)
For i = 1 To 90
If DecinaNaturale(i) = dec Then
co = co + 1
numeri(co) = i
End If
Next

Scrivi NomeRuota(RUOTA),1

For n = EstrazioneFin - 4000 To EstrazioneFin
Messaggio n
a = SerieFreq(n,n,numeri,ruote,2)
If a > 0 Then
rt = SerieRitardo(n - 250,n - 1,numeri,ruote,2)'Questa è roba mia
ColoreTesto 0'.............................""......"".....""
If rt > 9 Then ColoreTesto 2'................""......"".....""
Scrivi rt
End If

If n = EstrazioneFin Then
Scrivi " RITARDO ATTUALE: " & SerieRitardo(n - 250,n,numeri,ruote,2)
End If
Next
End Sub

Ciao Eugenio
allora ho lanciato il primo script come mi hai suggerito

ne ho scritto un altro piu flessibile, in modo che possa prestarsi anche ad altri studi
per favore confrontalo con il tuo e vedi se fa cio che vuoi, cosi è un' po' piu veloce
N.B : il primo risultato confrontato al tuo è diverso in quanto tu calcoli il ritardo( in SerieRitardo) con n-250 a me viene calcolato dalla data in cui decido l inizio archivio cioè da Ini .
Mi spiego meglio se il mio archivio comincia in data (Estrazionefin-4000 come dal tuo esempio ) comincio a contare da qui
le estrazioni .
ecco lo script ,
Salvo errori ed Omissis sempre possibili

Option Explicit
' Controllare sempre che i dati restituiti siano esatti confrontandoli da altre fonti l errore è sempre possibile
' Salvo errori ed omissis
Sub Main
   Dim i
   Dim Ini,Fin:Call ScegliRange(Ini,Fin,EstrazioneFin - 4000,EstrazioneFin)
   ReDim aNum(0):Call ScegliNumeri(aNum)
   Dim aR(1):aR(1) = ScegliRuota
   Dim sorte:sorte = 2
   ReDim aRit(0),aIdEstr(0)
   Call ElencoRitardiTurbo(aNum,aR,sorte,Ini,Fin,aRit,aIdEstr)
   Scrivi "Ruota Esaminata:     " & NomeRuota(aR(1))
   Scrivi "Lunghetta Esaminata: " & StringaNumeri(aNum,,True):Scrivi
   Scrivi "   DATA        ESTRATTI       RIT "
   For i = 1 To UBound(aRit) - 1
      Scrivi DataEstrazione(aIdEstr(i)) & Space(2) & StringaEstratti(aIdEstr(i),aR(1)) & Space(4) & aRit(i)
   Next
   Scrivi "Ritardo Cronologico attuale: " & aRit(UBound(aRit))
End Sub

Il secondo punto non ho capito bene
potresti fare un esempio , calcolando manualmente magari 2 o 3 esempi. così se sono in grado automatizzo il tutto e ti semplifico la ricerca e raccolta dati .
Ciao

 

[genios]

Lo script che hai postato ricerca tutti i ritardi consecutivi . Ma come puoi vedere dal mio secondo listato l' out dovrebbe essere :


34
35
1
6
5
10
51
13
7
20 Somma 10 ritardi 182

35
1
6
5
10
51
13
7
20
4
Somma 10 ritardi 152

1
6
5
10
51
13
7
20
4
8
Somma 10 ritardi 125

Ciao Eugenio

 

[i legend]

Ciao Eugenio per favore mi servirebbe un esempio reale , e i parametri ruota inizio archivio e sorte da cui li ricavi, ho bisogno di allineare i dati

 

[i legend]

Ciao Eugenio
se mi dai una descrizione del metodo e del suo utilizzo lo inserisco nello script così anche gli altri utenti possano utilizzarlo al meglio .
aspetto te e dopo posto il tutto.
Ciao.

 

[genios]

l' esempio è reale dal tuo script decina 1 2 3 4 5 6 7 8 9 10 ruota di BA DA ESTRAZIONE 5487 DEL 06 03 1976 ALLA ESTRAZIONE 9487 DEL 16 06 2018. Sorte ambo
.

Ciao eugenio

 

[i legend]

Ok Eugenio.
mi basta solo una piccola descrizione ed il suo utilizzo.
poi ti posto il tutto e controlli se va bene

 

[genios]

lo script ricerca il max di 10 ritardi consecutivi . La legge dei grandi numeri dice che, per un numero di ripetizioni identiche dello stesso esperimento, che tende all’infinito, la probabilità di un determinato evento tende a coincidere con la sua frequenza. Cerco di capire con quale valore di ritardi consecutivi più o meno la frequenza statistica si avvicina a quella teorica .

Ciao Eugenio

 

[i legend]

lo script ricerca il max di 10 ritardi consecutivi . La legge dei grandi numeri dice che, per un numero di ripetizioni identiche dello stesso esperimento, che tende all’infinito, la probabilità di un determinato evento tende a coincidere con la sua frequenza. Cerco di capire con quale valore di ritardi consecutivi più o meno la frequenza statistica si avvicina a quella teorica .

Ciao Eugenio

ok.Eugenio .la inserisco così con gli apici
oggi penso dopo pranzo ti posto lo script .
In output avrai i ritardi raggruppati e affiancato la somma
a dopo
ciao

 

[i legend]

Un ultima cosa .
nel calcolo deve essere compreso anche il ritardo cronologico corrente?
ciao

 

[genios]

Si grazie ilegend

 

[i legend]

Eugenio ho fatto tutto
l unico dubbio che ho è quanti ritardi andare indietro
devo aggiungere dei filtri per evitare che i pc piu vecchi si impiantino
Ti faccio un esempio
Ho inserito il limite massimo di 10 numeri
calcolo i ritardi dall estratto alla cinquina
inserisco il blocco che non posso calcolare piu di 10 ritardi
ho ancora un paio di errori da gestire , in cui un utente inesperto potrebbe incappare, inserendo dati errati
ti posto un immagine di esempio
pazienta un' pò

l immagine è solo un esempio non contiene previsioni

 

[genios]

ottimo

 

[i legend]

Ciao joe nella tabella uscite vengono elencate le date di sortita e il ritardo a quella data.
nella tabella ritardi viene considerato il ritardo cronologico a estrazione fin .
spero che sia questo il dato che non collima.
per questo sto aspettando a postare , per fare le dovute verifiche.
grazie per avermelo fatto notare.

 

[joe]

Come spesso leggo ... traduco, contento lui contenti tutti.

 

[i legend]

Joe non capisco
ti ho spiegato l impostazione dati, se hai riscontrato un errore, ti ringrazio per la segnalazione .lo puoi confermare?
ciao