Option Explicit
Sub Main
Dim sFile
Dim k,y
Dim nSorte,RetRit1,RetRitMax,RetIncrRitMax,Inizio,Fine,RetFreq,anum,QuantitaNumeriscelti
Dim coltot,acol,Classe,i
' SCRIPT di lotto_tom75 numeri "segnalini" x rilevare cinquine di massimostorico più interessanti
' In sostanza rilevando la miglior DIFF (RS-RA) nelle terzine x E risultanti abbiamo i numeri
' che se presenti ci segnalano appunto la miglior o le migliori cinquine rilevati da MassimoStorico
'Ovviamente NESSUNA CERTEZZA ma solo PROBABILITA'
ReDim aRuote(2)
aRuote(1) = BA_
aRuote(2) = FI_
nSorte = 1
ReDim anum(0)
QuantitaNumeriscelti = ScegliNumeri(anum)
Classe = 3
coltot = InitSviluppoIntegrale(anum,Classe)
If coltot > 0 Then
Do While GetCombSviluppo(acol) = True
i = i + 1
Call StatisticaFormazioneTurbo(acol,aRuote,nSorte,RetRit1,RetRitMax,RetIncrRitMax,RetFreq)
Dim Diff
Diff = RetRitMax - RetRit1
If(RetRit1 >= 0 And Diff < 10) Then
Call Scrivi(FormattaStringa(i,"00000") & " " & StringaNumeri(acol) & " RA: " & RetRit1 & " RS: " & RetRitMax & " INCMAX: " & RetIncrRitMax & " FQ: " & RetFreq & " RUOTA: " & " DIFF " & Diff)
End If
Call AvanzamentoElab(1,coltot,i)
Call Messaggio("Colonna " & i)
If ScriptInterrotto Then Exit Do
Loop
End If
End Sub