Follow along with the video below to see how to install our site as a web app on your home screen.
Nota: This feature may not be available in some browsers.
sempre come prova, dati da verificarne l'esattezza:
Pare che BYRON e RENZO hanno proposto trentina con diverse combinazioni in ritardo al top
Option Explicit
Sub Main
Dim SYS(5),NM(90,2)
Dim x,y,z,des,classe,ct,jj,ctr
Dim coltot,acol,key,h,nsorte,ritardo,ritardomax,frequenza,fine,finale
ReDim nr(30),nu(30)
''
Scrivi "BEPP-Rubino DL-2",1
finale = EstrazioniArchivioDL
fine = InputBox("Estrazione ",,finale)
classe = InputBox("Sviluppa Classe 2-3-4 ",,3)
nsorte = InputBox("Sorte ",,3)
''COMBINAZIONI IN FASE DI VERIFICA
SYS(1) = "03-08-10-17-18-21-24-26-29-30-33-34-35-36-38-48-49-55-56-60-61-69-70-72-75-78-81-82-83-89"
SYS(2) = "10-18-12-16-29-28-36-35-34-50-46-49-48-43-47-41-54-58-60-55-57-59-61-63-69-64-66-80-83-88"
SYS(3) = "01-03-04-24-26-28-30-31-34-36-40-42-48-49-50-54-56-60-61-63-69-70-74-75-78-83-85-86-89-90"
SYS(4) = "01-03-08-10-17-18-24-26-30-33-34-35-36-38-48-49-55-56-60-61-62-64-69-70-75-78-81-83-85-89"
SYS(5) = "02-06-07-10-15-17-18-21-23-25-27-32-33-36-38-41-42-53-57-58-59-67-72-74-75-76-79-80-88-90"
'''CONTROLLA NUMERI RIPETUTI
For x = 1 To 5
ReDim an(30)
Call SplitByChar(SYS(x),"-",an)
For y = 0 To 29
NM(an(y),1) = NM(an(y),1) + 1
NM(an(y),2) = Format2(an(y))
nu(y + 1) = an(y)
Next
Next
'''lista dei primi 10 piu presenti
Call OrdinaMatrice(NM,- 1,1)
Scrivi "Numeri Ripetuti nei vari sistemi",1
For z = 1 To 10
If NM(z,1) > 0 Then
If NM(z,1) = 5 Then des = "Presente su tutti i sistemi" Else des = "" End If
Scrivi NM(z,2) & "..Pres." & NM(z,1) & " " & des,1
End If
Next
Scrivi
ColoreTesto(1)
''''sviluppa 5 sistemi in classe richiesta
ReDim elab(99999,4)
For x = 1 To 5
ReDim an(30),nu(30)
Call SplitByChar(SYS(x),"-",an)
For y = 0 To 29
nu(y + 1) = an(y)
Next
Scrivi "Sys." & x & ") " & StringaNumeri(nu,".")
'''sviluppa in classe per rintracciare le piu ritardatarie
coltot = InitSviluppoIntegrale(nu,classe)
If coltot > 0 Then
Do While GetCombSviluppo(acol) = True
'''
ct = ct + 1
Messaggio(x & " : 5 " & coltot*5 & " / " & ct)
Call StatisticaFormazioneDL(acol,nsorte,ritardo,ritardomax,,frequenza,EstrazioneIniDL,fine)
If ritardo >= ritardomax Then
ctr = ctr + 1
elab(ctr,1) = StringaNumeri(acol," ")
elab(ctr,2) = FormattaStringa(ritardo,"0000")
elab(ctr,3) = FormattaStringa(ritardomax,"0000")
elab(ctr,4) = x
End If
Loop
End If
Next
ColoreTesto(0)
Scrivi "--------------------------------------------------------"
Scrivi
Scrivi "Colonne Totale da Sviluppare " & coltot * 5,1
Scrivi
'''leggo combinazioni e calcola ritardi
Scrivi:ColoreTesto(2)
Scrivi "Rit. / Rmax. Sistema Combinazione",1
ColoreTesto(0)
Call OrdinaMatrice(elab,- 1,2)
For jj = 1 To ctr
If elab(jj,1) <> "" Then
Scrivi elab(jj,2) & " / " & elab(jj,3) & " sys.n " & elab(jj,4) & " Comb." & elab(jj,1)
End If
Next
Scrivi "Totale Combinazioni al top di ritardo >= ritardomax " & ctr,1
Scrivi "Tempo elab." & TempoTrascorso,1
End Sub
Option Explicit
Sub Main
Dim coltot,i,acol,ctr,Classe,nsorte,x,minr,frer,aretritardi,Inizio,fine,aretidestr,aretcol,h,rit,z,svi,n,LISTA,LISTA1,LISTA2,lista3
Dim gl,retestratti,retidestr,ritardo,ritardomax,frequenza,he,fissi,hv,cf,cfi,tre,due,uno
Dim anum(90),comb(500000,3),MINMIN(30,9)
svi = InputBox("Sviluppo I / R ",,"R")
Classe = InputBox("Classe",,5)
nsorte = InputBox("Sorte",,3)
MINMIN(3,2) = 7
MINMIN(3,3) = 500
MINMIN(4,2) = 5
MINMIN(4,3) = 220
MINMIN(4,4) = 4800
MINMIN(5,2) = 11
MINMIN(5,3) = 105
MINMIN(5,4) = 1138
MINMIN(6,3) = 56
MINMIN(6,4) = 392
MINMIN(6,5) = 5000
MINMIN(7,3) = 36
MINMIN(7,4) = 215
MINMIN(7,5) = 1800
MINMIN(8,5) = 900
''''carica 90 numeri
Call ScegliNumeri(anum)
n = UBound(anum)
LISTA = StringaNumeri(anum,".")
LISTA1 = Mid(LISTA,1,80)
LISTA2 = Mid(LISTA,82,89)
lista3 = Mid(LISTA,172,90)
Call ImpostaArchivio10ELotto(1)
Inizio = EstrazioneIniDL
fine = InputBox("Estraz.m.",,EstrazioneFinDL)
fissi = InputBox("Fissi ? ",,"0.0.0")
ReDim fnum(3)
Call SplitByChar(fissi,".",fnum)
ColoreTesto(2)
Scrivi "--Combinazioni in Ritardo al 10 E Lotto (BEPP-Rubino DL-1) ",1
Scrivi "Situazione 10 E LOTTO - Combinazioni in ritardo ",1
Scrivi "Periodo: " & EstrazioneIniDL & " / " & fine & " - " & DataEstrazioneDL(fine),1
ColoreTesto(1)
Scrivi "Sviluppo in Classe " & Classe,1
Scrivi "Sorte " & nsorte,1
Scrivi "Ritardo Minimo " & MINMIN(Classe,nsorte),1
Scrivi "Fissi da Controllare in esiti " & fissi,1
Scrivi
ColoreTesto(0)
Scrivi "Tot.Numeri Scelti.." & n,1
Scrivi "Numeri " & LISTA1,1
Scrivi "Numeri " & LISTA2,1
Scrivi "Numeri " & lista3,1
ColoreTesto(2)
If svi = "I" Then Scrivi "Sviluppo Richiesto I N T E G R A L E ",1
If svi = "R" Then Scrivi "Sviluppo Richiesto R I D O T T O ",1
ColoreTesto(0)
Scrivi "---------------------------------------------------------------------",1
'''rileva a campione Ritardo Minimo di classe scelta
minr = MINMIN(Classe,nsorte)
''''
coltot = InitSviluppoIntegrale(anum,Classe)
If svi = "I" Then
If coltot > 0 Then
'''' I N T E G R A L E
Do While GetCombSviluppo(acol) = True
i = i + 1
Call Messaggio("Col.Tot. " & coltot & " / Int." & i & " Trovate " & h & " Fissi " & fissi)
If ScriptInterrotto Then Exit Do
rit = RitardoCombinazioneDL(acol,nsorte,fine)
If rit >= minr Then
h = h + 1
comb(h,1) = StringaNumeri(acol,".")
comb(h,2) = FormattaStringa(rit,"0000")
End If
Loop
End If
End If
'''' R I D O T T O
If svi = "R" Then
If coltot > 0 Then
Do While GetCombSviluppoRid(acol,nsorte) = True
i = i + 1
Call Messaggio("Col.Tot. " & coltot & " / Rid." & i & " Trovate " & h & " Fissi " & fissi)
If ScriptInterrotto Then Exit Do
rit = RitardoCombinazioneDL(acol,nsorte,fine)
If rit >= minr Then
h = h + 1
comb(h,1) = StringaNumeri(acol,".")
comb(h,2) = FormattaStringa(rit,"0000")
End If
Loop
End If
End If
Scrivi "Combinazioni Elaborate..." & i,1
Scrivi
''''RIEPILOGO COMBINAZIONI FILTRATE
Call OrdinaMatrice(comb,- 1,2)
ReDim num(Classe)
Scrivi "Combinazioni RitAtt./R.Max Freq. ",1
For z = 1 To h
ReDim an(0)
Call SplitByChar(comb(z,1),".",an)
For gl = 0 To UBound(an)
num(gl + 1) = an(gl)
Next
'''''---------------------------------------------------------
If fissi = "0.0.0" Then '''nessun fisso
''''''condizioni imposta d'obbligo Ritardo >= ritardomax
Call StatisticaFormazioneDL(num,nsorte,ritardo,ritardomax,,frequenza,EstrazioneIniDL,fine)
If ritardo >= ritardomax Then
hv = 1
Scrivi StringaNumeri(num,".") & "...." & FormattaStringa(ritardo,"0000") & " / " & FormattaStringa(ritardomax,"0000") & " " & FormattaStringa(frequenza,"0000"),1
''verificaesito
Call VerificaEsitoDL(num,fine + 1,nsorte,,,,retestratti,retidestr)
If retestratti <> "" Then
ColoreTesto(2)
he = he + 1
Scrivi "----> Esito " & retidestr & " colpo n." & Format2(retidestr - fine) & " " & retestratti,1
ColoreTesto(0)
End If
End If
End If
''''''----------------------------------------------------------
If Int(fnum(2)) <> 0 Then '''3 fissi
'''''controlla se combinazione contiene i 3 fissi
cf = 0
For tre = 0 To 2
For cfi = 1 To Classe
If Int(num(cfi)) = Int(fnum(tre)) Then
cf = cf + 1
End If
Next
Next
If cf = 3 Then
''''''condizioni imposta d'obbligo Ritardo >= ritardomax
Call StatisticaFormazioneDL(num,nsorte,ritardo,ritardomax,,frequenza,EstrazioneIniDL,fine)
If ritardo >= ritardomax Then
hv = 1
Scrivi StringaNumeri(num,".") & "...." & FormattaStringa(ritardo,"0000") & " / " & FormattaStringa(ritardomax,"0000") & " " & FormattaStringa(frequenza,"0000"),1
''verificaesito
Call VerificaEsitoDL(num,fine + 1,nsorte,,,,retestratti,retidestr)
If retestratti <> "" Then
ColoreTesto(2)
he = he + 1
Scrivi "----> Esito " & retidestr & " colpo n." & Format2(retidestr - fine) & " " & retestratti,1
ColoreTesto(0)
End If
End If
End If
End If
''''''----------------------------------------------------------
If Int(fnum(1)) <> 0 And Int(fnum(2)) = 0 Then '''2 fissi
''''''condizioni imposta d'obbligo Ritardo >= ritardomax
cf = 0
For due = 0 To 1
For cfi = 1 To Classe
If Int(num(cfi)) = Int(fnum(due)) Then
cf = cf + 1
End If
Next
Next
If cf = 2 Then
Call StatisticaFormazioneDL(num,nsorte,ritardo,ritardomax,,frequenza,EstrazioneIniDL,fine)
If ritardo >= ritardomax Then
hv = 1
Scrivi StringaNumeri(num,".") & "...." & FormattaStringa(ritardo,"0000") & " / " & FormattaStringa(ritardomax,"0000") & " " & FormattaStringa(frequenza,"0000"),1
''verificaesito
Call VerificaEsitoDL(num,fine + 1,nsorte,,,,retestratti,retidestr)
If retestratti <> "" Then
ColoreTesto(2)
he = he + 1
Scrivi "----> Esito " & retidestr & " colpo n." & Format2(retidestr - fine) & " " & retestratti,1
ColoreTesto(0)
End If
End If
End If
End If
''''''----------------------------------------------------------
If Int(fnum(0)) <> 0 And Int(fnum(1)) = 0 And Int(fnum(2)) = 0 Then '''1 fissi
''''''condizioni imposta d'obbligo Ritardo >= ritardomax
cf = 0
For cfi = 1 To Classe
If Int(num(cfi)) = Int(fnum(0)) Then
cf = cf + 1
End If
Next
If cf = 1 Then
Call StatisticaFormazioneDL(num,nsorte,ritardo,ritardomax,,frequenza,EstrazioneIniDL,fine)
If ritardo >= ritardomax Then
hv = 1
Scrivi StringaNumeri(num,".") & "...." & FormattaStringa(ritardo,"0000") & " / " & FormattaStringa(ritardomax,"0000") & " " & FormattaStringa(frequenza,"0000"),1
''verificaesito
Call VerificaEsitoDL(num,fine + 1,nsorte,,,,retestratti,retidestr)
If retestratti <> "" Then
ColoreTesto(2)
he = he + 1
Scrivi "----> Esito " & retidestr & " colpo n." & Format2(retidestr - fine) & " " & retestratti,1
ColoreTesto(0)
End If
End If
End If
End If
''''''----------------------------------------------------------
Next
Scrivi:Scrivi
If hv = 0 Then
ColoreTesto(1)
Scrivi "Nessuna Combinazione con Ritardo >= RitardoMax",1
ColoreTesto(0)
End If
Scrivi
Scrivi "Combinazioni trovate..." & h,1
Scrivi "Combinazione Esito Fav." & he,1
Scrivi
Scrivi TempoTrascorso,1
End Sub
Ciaopeccato non poter testare lo script di Rubinocon win.10 spaziometria non mi funziona mi da problemi con gli aggiornamentiRenzo
Uno domanda se elaboro quartine per la sorte del 3 ridotto, lo script per ridotto intende un N-1 non ortogonale vero
Nikor;n2171509 ha scritto:Le 8 formazioni non fungono da previsione, era solo come indicato da Byron trovare formazioni con i numeri dei gruppi con i ritardi attuali che avevano superato i propri precedenti…..
A questa sera per gli esiti dei monitoraggi, Nikor.