L
LuigiB
Guest
Volevo informare che nella nuovaversione 1.3.89 ho aggiunto una funzione statistica da usare negli script
che è molto piu performante rispetto all'analoga che gia c'era.
Sul mio pc è circa 8 volte piu veloce.
Per ora la funzione è presente solo per il lotto.
La funzione a cui mi riferisco è StatisticaFormazione che serve appunto per fare la statistica su un qualsivoglia gruppo numerico su qualsivoglia numero di ruote.
Ora ho aggiunto la funzione analoga (ha addirittura gli stessi parametri quindi basta solo cambiare nome nei propri script) che si chiama appunto StatFrzTurbo
Provate questo banale script che ricerca l'ambo piu ritardato sulla ruota di bari mediante l'uso di tutte e due le funzioni quella vecchia e quella nuova , poi fatemi sapere le prestazioni.
che è molto piu performante rispetto all'analoga che gia c'era.
Sul mio pc è circa 8 volte piu veloce.
Per ora la funzione è presente solo per il lotto.
La funzione a cui mi riferisco è StatisticaFormazione che serve appunto per fare la statistica su un qualsivoglia gruppo numerico su qualsivoglia numero di ruote.
Ora ho aggiunto la funzione analoga (ha addirittura gli stessi parametri quindi basta solo cambiare nome nei propri script) che si chiama appunto StatFrzTurbo
Provate questo banale script che ricerca l'ambo piu ritardato sulla ruota di bari mediante l'uso di tutte e due le funzioni quella vecchia e quella nuova , poi fatemi sapere le prestazioni.
Codice:
Option Explicit
Sub Main
Dim a,b
Call Scrivi("Test di velocita per la nuova funzione StaFrzTurbo")
Call Scrivi("Verrà individuto l'ambo piu ritardato sulla ruota di Bari")
Call Scrivi
a = EseguiStatTurbo
Call Scrivi
b = EseguiStatFormazione
Call Scrivi(b/a & " volte piu veloce")
End Sub
Function EseguiStatTurbo
Dim t,tt
ReDim aN(2)
ReDim aR(1)
Dim rit
Dim k,r
Dim s
Dim nClasse,nColonneTot
ReDim aNumeri(90)
Dim aCol
Dim RitMax
t = Timer
aR(1) = 1
nClasse = 2 ' sviluppo in ambi
For k = 1 To 90
aNumeri(k) = k
Next
'inizializza lo sviluppo
nColonneTot = InitSviluppoIntegrale(aNumeri,nClasse)
k = 0
' ciclo che continua fiono a quando le colonne non finiscono
Do While GetCombSviluppo(aCol)
k = k + 1 ' conteggio colonna corrente
Call StatFrzTurbo(aCol,aR,2,rit,0,0,0)
' costruisco la stringa che contiene la colonna
If rit > RitMax Then
RitMax = rit
s = StringaNumeri(aCol)
End If
Loop
tt = Timer - t
Call Scrivi(" funzione StatFrzTurbo secondi : " & tt)
Call Scrivi("Ambo : " & s & " " & RitMax)
EseguiStatTurbo = tt
End Function
Function EseguiStatFormazione
Dim t,tt
ReDim aN(2)
ReDim aR(1)
Dim rit
Dim k,r
Dim s
Dim nClasse,nColonneTot
ReDim aNumeri(90)
Dim aCol
Dim RitMax
t = Timer
aR(1) = 1
nClasse = 2 ' sviluppo in ambi
For k = 1 To 90
aNumeri(k) = k
Next
'inizializza lo sviluppo
nColonneTot = InitSviluppoIntegrale(aNumeri,nClasse)
k = 0
' ciclo che continua fiono a quando le colonne non finiscono
Do While GetCombSviluppo(aCol)
k = k + 1 ' conteggio colonna corrente
Call StatisticaFormazione(aCol,aR,2,rit,0,0,0)
' costruisco la stringa che contiene la colonna
If rit > RitMax Then
RitMax = rit
s = StringaNumeri(aCol)
End If
Loop
tt = Timer - t
Call Scrivi(" funzione StatisticaFormazione secondi : " & tt)
Call Scrivi("Ambo : " & s & " " & RitMax)
EseguiStatFormazione = tt
End Function
Ultima modifica di un moderatore: