Caro Luigi vorrei farti notare una cosa che ho riscontrato controllando gli output di uno script
avente il costrutto fr = SerieFreq(es +1,es + clp,n,rug,2)
utilizzante la funzione che segue:
SerieFreq (Inizio, fine, vetNumeri, RUOTE, Sorte, Optional tipogioco = 0, Optional jolly = False, Optional idArchivio = 0) AS Long
la ciu nota dice:
Analizza una determinata combinazione di numeri per una data sorte entro un certo range di estrazioni su una data ruota e torna il valore di frequenza per la sorte specificata,
non specifica che "se il fine range di estrazioni (es + colpi ) supera il finearchivio in memoria (EstrazioniArchivio), in pratica non calcola nulla.
Ti allego uno script di verifica in cui partendo dalle ultime 10 estrazioni, trovata la spia 60 , si comporta in maniera diversa a seconda dei colpi di gioco che definiscono il range di ricerca.
Credo che questo sia un errore da correggere onde evitare di doversi sempre ricordare di inserire la "if" di correzione.
Saluti
Codice:
Sub Main
Dim rg(1)
Dim n(1)
Dim clp
rg(1) = 1
r = 1
spia = 60
'clp = 5
For clp = 3 To 5
For es = EstrazioneFin - 10 To EstrazioneFin
If Posizione(es,r,spia) > 0 Then
Scrivi " Numeri e presenze dopo la spia [ " & spia & " ] del " & DataEstrazione(es) & " in colpi " & clp
For i = 1 To 90
n(1) = i
fr = SerieFreq(es + 1,es + clp,n,rg,1)
If fr > 0 Then
Scrivi "il " & FormatSpace(i,3,- 1) & " ha " & fr & " presenze"
End If
Next
End If
Next
Next
End Sub
Ultima modifica:
