Option Explicit
Sub Main
ColoreTesto(2)
Scrivi "Bep-Byron- Combinazioni Random Ritardo>=Ritardomax 10 e Lotto ",1
ColoreTesto(0)
Dim Classe,aretcol,i,minr,retrit,retritmax,n
ReDim comb(2600000,3),aNumeri(90)
Dim nSorte,Fine,QuantitaNumeriScelti,finale,frequenza,frreale,ritardomax
Dim valoreInizioelaborazione,valorefineelaborazione,rittt,aretritardi,aretidestr,frer
Dim numerocolonne,multiplocolonne,clssvil
Set clssvil = GetMotoreSviluppoIntegrale
'''''''''''
ImpostaArchivio10ELotto(1)
finale = EstrazioniArchivioDL
Classe = CInt(InputBox("QUALE CLASSE DI SVILUPPO",,6))
nSorte = CInt(InputBox("QUALE SORTE DI ESITO",,4))
'''scelte automatiche per lunghette ed numero colonne ValoreFineElaborazione
Fine = InputBox("All'estrazione n.",,finale)
numerocolonne = CInt(InputBox("QUANTE COLONNE RANDOM ANALIZZARE (max 10000)",,12000))
multiplocolonne = CInt(InputBox("FATTORE DI MOLTIPLICAZIONE COLONNE RANDOM (max 10000)",,1))
valorefineelaborazione = numerocolonne * multiplocolonne
'''rileva a campione Ritardo Minimo di classe scelta
Call GetColonnaCasuale(Classe,aretcol)
Call ElencoRitardiDL(aretcol,nSorte,3950,Fine,aretritardi,aretidestr)
minr = MassimoV(aretritardi,1)
frer = UBound(aretritardi) - 1
Scrivi " P a r a m e t r i I m p o s t a z i o n i ",1
ColoreTesto(1)
Scrivi " CLasse Sviluppo Lunghette " & Classe,1
Scrivi " Sorte esaminata " & nSorte
Scrivi " Situazione all'estrazione n." & Fine & " 1 0 e L o t t o ",1
Scrivi " Default = 20000 * " & multiplocolonne & " = " & valorefineelaborazione,1
Scrivi " Ritardo Minimo Massimo intercettato.." & minr & " Minima frequenza .." & frer & "...Comb." & StringaNumeri(aretcol,"-"),1
ColoreTesto(0)
Scrivi "Rc-----Rx----FrReale---Combinazione-----------",1
For i = valoreInizioelaborazione To valorefineelaborazione
Call GetColonnaCasuale(Classe,aretcol)
Call ElencoRitardiDL(aretcol,nSorte,3950,Fine,aretritardi,aretidestr)
frequenza = UBound(aretritardi) - 1
Call StatisticaFormazioneDL(aretcol,nSorte,rittt,ritardomax,,,3950,Fine)
Messaggio(i & " : " & n)
If rittt >= minr Then
If rittt >= ritardomax Then
n = n + 1
comb(n,1) = StringaNumeri(aretcol,".")
comb(n,2) = rittt
comb(n,3) = ritardomax
Scrivi FormattaStringa(rittt,"0000") & " / " & FormattaStringa(ritardomax,"0000") & " " & FormattaStringa(frequenza,"0000") & " " & StringaNumeri(aretcol,".")
End If
End If
If ScriptInterrotto Then Exit For
Next
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''
Scrivi TempoTrascorso,1
End Sub
