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.
ambi non ripetuti degli 82 biambi max st 49 tutte e Nz 7440
08.42
02.08
31.67
03.69
63.80
20.51
31.52
01.22
47.55
29.56
82.86
64.78
10.44
17.22
29.34
47.62
26.71
24.72
65.79
45.74
12.49
16.51
10.13
29.50
43.51
13.47
16.68
51.81
64.74
25.89
42.79
42.60
06.30
39.55
37.41
31.90
79.86
15.82
59.63
29.31
32.58
31.77
34.53
37.39
10.34
75.82
33.36
10.70
14.29
09.56
08.62
30.85
20.54
08.18
48.67
37.49
08.61
06.17
60.88
73.89
08.63
73.87
85.88
37.73
22.47
04.51
12.62
20.55
58.90
29.86
42.87
42.77
04.61
06.89
15.34
01.09
40.82
27.66
36.74
47.54
04.46
38.61
07.48
38.65
59.61
39.74
30.59
44.63
65.69
20.81
43.73
18.52
22.30
15.21
11.29
65.83
32.57
08.85
57.80
32.79
14.63
74.90
14.85
70.80
33.38
43.50
68.81
54.84
80.82
23.54
06.84
54.65
61.69
32.76
11.16
37.47
43.87
09.45
30.87
33.48
20.39
26.30
06.57
01.05
06.77
09,12
09,15
09,28
09,42
11,12
11,19
11,23
11,26
11,42
11,90
12,15
12,19
12,23
12,26
12,42
12,51
12,68
12,73
12,74
12,90
15,16
15,26
15,29
15,38
15,64
15,74
15,79
16,23
16,38
16,65
16,73
19,28
19,29
19,38
19,74
23,28
23,38
23,68
23,79
26,68
26,74
26,83
28,29
28,42
28,51
28,64
28,68
28,73
28,74
28,83
29,51
29,58
29,65
29,68
29,74
29,79
38,51
38,73
38,74
38,79
42,51
42,74
42,90
51,64
51,79
51,90
58,73
58,83
58,90
64,65
64,73
64,74
64,79
64,83
64,90
65,83
68,74
68,79
68,83
68,90
73,74
73,90
74,83
79,83
79,90
83,90
58,79
51,65
73,79
09,65
26,64
09,74
11,58
58,68
16,58
11,68
15,23
12,16
12,29
23,58
09,16
09,68
15,65
42,83
65,68
11,65
15,42
16,79
19,68
19,79
38,42
09,38
12,79
16,28
16,51
16,74
11,74
23,26
23,29
26,28
74,79
09,64
12,64
15,58
15,90
16,64
29,73
42,65
51,58
09,11
09,58
09,73
09,90
11,15
11,79
12,58
15,68
16,19
16,42
19,23
19,58
19,83
23,51
23,64
23,65
26,38
26,73
38,65
38,68
Parole Sante, ma questo lo avevi già fatto notare che per i minimi bisogna processarli tutti; poi forse ti eri fatto trarre in inganno da chiacchiere Wikipendiane che non sto a riportare……….riguardo la ricerca dei minimi ho fatto dei tentativi combinando gl iambi con ritardo max piu basso , sulrange indicato da Nikor non trovo 28 ma trovo valori di 30 , quindi non funzona.
Il problema è che un triambo potrebbe essere costituito da 2 ambi con ritardo max basso e uno che magari è uscito pochissime volte , ritardo max altissimo ma è uscito proprio in quelle estrazioni che si incastrano bene con le estrazioni cperte dagli altri due .. in definitiva un triambo puo essere costitito da 3 qulsiasi degliambi possibili e si ritona al discrso che bisognerebbe esplorarli tutti
Cinzia non è che ci siano tutti sti parametri . .devi impostare 7440 come estrazione inizio in spaziometria , come fine l'ultima estr possibile.Quali parametri hai usato, Happy?
Ambo | Storico Senza |
16.90 | 0 |
19.23 | 0 |
16.83 | 0 |
16.74 | 0 |
16.79 | 0 |
19.26 | 0 |
19.64 | 0 |
19.65 | 0 |
19.58 | 0 |
19.42 | 0 |
19.51 | 0 |
16.68 | 0 |
16.19 | 0 |
16.26 | 0 |
15.90 | 0 |
15.73 | 0 |
15.83 | 0 |
16.28 | 0 |
16.58 | 0 |
16.64 | 0 |
16.51 | 0 |
16.29 | 0 |
16.42 | 0 |
19.68 | 0 |
26.28 | 0 |
26.29 | 0 |
23.90 | 0 |
23.74 | 0 |
23.83 | 0 |
26.38 | 0 |
26.64 | 0 |
26.65 | 0 |
26.58 | 0 |
26.42 | 0 |
26.51 | 0 |
23.73 | 0 |
19.90 | 0 |
23.26 | 0 |
19.83 | 0 |
19.73 | 0 |
19.79 | 0 |
23.29 | 0 |
23.64 | 0 |
23.65 | 0 |
23.58 | 0 |
23.42 | 0 |
23.51 | 0 |
15.68 | 0 |
9.83 | 0 |
9.90 | 0 |
9.79 | 0 |
9.73 | 0 |
9.74 | 0 |
11.15 | 0 |
11.38 | 0 |
11.51 | 0 |
11.29 | 0 |
11.16 | 0 |
11.28 | 0 |
9.68 | 0 |
9.23 | 0 |
9.26 | 0 |
9.19 | 0 |
9.11 | 0 |
9.16 | 0 |
9.29 | 0 |
9.64 | 0 |
9.65 | 0 |
9.58 | 0 |
9.38 | 0 |
9.51 | 0 |
11.58 | 0 |
12.83 | 0 |
15.19 | 0 |
12.79 | 0 |
12.64 | 0 |
12.65 | 0 |
15.23 | 0 |
15.58 | 0 |
15.65 | 0 |
15.51 | 0 |
15.28 | 0 |
15.42 | 0 |
12.58 | 0 |
11.73 | 0 |
11.74 | 0 |
11.68 | 0 |
11.64 | 0 |
11.65 | 0 |
11.79 | 0 |
12.29 | 0 |
12.38 | 0 |
12.28 | 0 |
11.83 | 0 |
12.16 | 0 |
26.73 | 0 |
42.73 | 0 |
42.79 | 0 |
42.65 | 0 |
42.68 | 0 |
42.83 | 0 |
51.68 | 0 |
51.73 | 0 |
51.58 | 0 |
51.65 | 0 |
38.64 | 0 |
38.65 | 0 |
38.42 | 0 |
38.58 | 0 |
38.68 | 0 |
42.58 | 0 |
42.64 | 0 |
38.83 | 0 |
38.90 | 0 |
65.79 | 0 |
65.90 | 0 |
65.73 | 0 |
65.74 | 0 |
68.73 | 0 |
74.79 | 0 |
74.90 | 0 |
73.79 | 0 |
73.83 | 0 |
58.64 | 0 |
58.65 | 0 |
51.74 | 0 |
51.83 | 0 |
58.68 | 0 |
64.68 | 0 |
65.68 | 0 |
58.74 | 0 |
58.79 | 0 |
29.64 | 0 |
28.90 | 0 |
28.79 | 0 |
29.73 | 0 |
26.79 | 0 |
28.38 | 0 |
29.38 | 0 |
29.42 | 0 |
26.90 | 0 |
28.58 | 0 |
28.65 | 0 |
29.90 | 0 |
29.83 | 0 |
64.90 | 1 |
11.23 | 1 |
12.23 | 1 |
12.15 | 1 |
12.19 | 1 |
11.26 | 1 |
28.51 | 1 |
11.90 | 1 |
58.90 | 1 |
58.83 | 1 |
64.73 | 1 |
64.65 | 1 |
28.64 | 1 |
64.83 | 1 |
11.42 | 1 |
64.79 | 1 |
64.74 | 1 |
23.79 | 1 |
9.28 | 1 |
74.83 | 1 |
26.74 | 1 |
9.42 | 1 |
73.90 | 1 |
26.68 | 1 |
9.12 | 1 |
83.90 | 1 |
9.15 | 1 |
79.83 | 1 |
79.90 | 1 |
65.83 | 1 |
28.29 | 1 |
11.12 | 1 |
11.19 | 1 |
28.42 | 1 |
68.74 | 1 |
73.74 | 1 |
26.83 | 1 |
68.90 | 1 |
68.79 | 1 |
68.83 | 1 |
12.26 | 1 |
29.65 | 1 |
19.74 | 1 |
42.51 | 1 |
29.68 | 1 |
16.38 | 1 |
16.23 | 1 |
15.74 | 1 |
42.74 | 1 |
15.79 | 1 |
29.58 | 1 |
29.51 | 1 |
38.51 | 1 |
29.79 | 1 |
19.38 | 1 |
19.29 | 1 |
19.28 | 1 |
29.74 | 1 |
38.74 | 1 |
38.79 | 1 |
16.65 | 1 |
16.73 | 1 |
38.73 | 1 |
23.28 | 1 |
28.74 | 1 |
51.90 | 1 |
12.68 | 1 |
12.74 | 1 |
12.73 | 1 |
28.73 | 1 |
28.68 | 1 |
58.73 | 1 |
23.68 | 1 |
12.51 | 1 |
12.42 | 1 |
15.38 | 1 |
15.29 | 1 |
51.64 | 1 |
15.64 | 1 |
42.90 | 1 |
23.38 | 1 |
12.90 | 1 |
51.79 | 1 |
15.16 | 1 |
15.26 | 1 |
28.83 | 1 |
( Se è vero che le vie del Signore sono infinite ) si avverano alcuni dati di fatto che dal lato di cognizione logica potrebbero sembrare impossibili!La logica dello script è abbastanza semplice fammi sapere se ti torna ..
Per quanto concerne l’estensione dell’archivio già sul range di oltre 2.500 estrazioni a ritroso mi si impalla il tutto, ma ho già in mente sempre se ( funzionerà ) la soluzione per poter elaborare fino a spingermi oltre le 5.000 e più estrazioni su Tutte le 10 ruote e credo sarebbe un bel dato di confronto sui Tri-Ambi processandoli tutti senza esclusione alcuna! Domani al massimo dopo domani rilancio l’esecuzione…Ciao, Nikor. Personalmente preferisco i parametri estrazione iniziale 7440, tutte e Nz.
Ma se intendi fare una ricerca su tutte dalla 3950 ed è l'estensione dell'archivio ad allungare i tempi, potresti fissare ad es. ritardo storico<40 per le ultime 1000 estrazioni.
I triambi ottenuti potrebbero essere filtrati poi dalla 3950 all'estrazione finale sempre es. ritardo storico<40.
ahimè, ho scaricato da web alcuni archivi con la Nazionale e mi stanno dando un sacco di problemi ai quali non riesco a venirne a capo, mi sto annegando in un bicchie d'acquaPersonalmente preferisco i parametri estrazione iniziale 7440, tutte e Nz.
Option Explicit
'83,73,74,38,19,16,64,28,15,51,26,29,68,11,58,90,65,79,12,9,23,42
Dim aBEstrCopertePerComb
Dim CollComb
Class clsComb
Public Id
Public sComb
End Class
Sub Main
Dim aN
Dim nClasse,nSorte
Dim Inizio,Fine
Dim aColonne,aCombUtili,aCombInutili,aRuote
Dim k,j
Dim nStoricoGruppo
Dim nIdCombUtile,nIdCombInutile
Dim sComb
Dim aBEstrCoperte,nEstrCoperteOrig
Dim aRetComb
nClasse = Int(InputBox("Sviluppo classe " ,"Classe sviluppo" ,2))
nSorte = Int(InputBox("Sorte analizzata " ,"Sorte" ,nClasse ))
Inizio = EstrazioneIni
Fine = EstrazioneFin
If ScegliRuote(aRuote) > 0 And nSorte >0 And nSorte <= nClasse Then
If ScegliNumeri(aN) >= nClasse Then
aColonne = SviluppoIntegrale(aN,nClasse)
ReDim aCombUtili(UBound(aColonne),nClasse)
ReDim aCombInutili(UBound(aColonne),nClasse)
Call AlimentaEstrCopertePerComb( aColonne ,Inizio,Fine,nClasse,aRuote, nSorte )
' nStoricoGruppo = GetStorico(aColonne,Inizio,Fine,nClasse,aRuote,0,nSorte)
nStoricoGruppo = GetStorico(aColonne,Inizio,Fine, 0)
Call GetArrayIdEstrazioni(aBEstrCoperte,Inizio,Fine,aColonne,nClasse,nSorte,aRuote)
nEstrCoperteOrig = GetEstrazioniCoperte(aBEstrCoperte,Inizio,Fine)
Scrivi "Storico del gruppo : " & nStoricoGruppo
ReDim aTb(2)
aTb(1) = "Ambo"
aTb(2) = "Storico Senza"
Call InitTabella(aTb)
For k = 1 To UBound(aColonne)
aTb(1) = aColonne(k,1) & "." & aColonne(k,2)
' aTb(2) = GetStorico(aColonne,Inizio,Fine,nClasse,aRuote,k,nSorte)
aTb(2) = GetStorico(aColonne,Inizio,Fine,k)
If aTb(2) > nStoricoGruppo Then
nIdCombUtile = nIdCombUtile + 1
For j = 1 To nClasse
aCombUtili(nIdCombUtile,j) = aColonne(k,j)
Next
Call AddRigaTabella(aTb,vbGreen)
Else
nIdCombInutile = nIdCombInutile + 1
For j = 1 To nClasse
aCombInutili(nIdCombInutile,j) = aColonne(k,j)
Next
Call AddRigaTabella(aTb,vbRed)
End If
Call AvanzamentoElab(0,UBound(aColonne),k)
Messaggio "Ricerca combinazioni utili " & k & "/" & UBound(aColonne)
DoEventsEx
If ScriptInterrotto Then Exit For
Next
Call CreaTabella(2,1)
If nIdCombInutile =0 Then
Scrivi "Nessuna combinazione può essere scartata"
Exit Sub
End If
Scrivi
Scrivi "Storico del gruppo senza le combinazioni escluse (quelle rosse): " & GetStorico_(aCombUtili,Inizio,Fine,nClasse,aRuote,0,nSorte)
Scrivi "Combinazioni totali : " & UBound(aColonne)
Scrivi "Combinazioni utili : " & nIdCombUtile
Scrivi "Combinazioni scartate : " & UBound(aColonne) - nIdCombUtile & " (" & Round(ProporzioneX((UBound(aColonne) - nIdCombUtile),UBound(aColonne),100),2) & ")"
Scrivi "Lista combinazioni utili"
For k = 1 To nIdCombUtile
sComb = ""
For j = 1 To nClasse
sComb = sComb & Format2(aCombUtili(k,j)) & "."
Next
Call Scrivi(RimuoviLastChr(sComb,"."))
Call Messaggio ("Output lista combinazioni utili " & k )
If ScriptInterrotto Then Exit For
Next
Scrivi
Scrivi "Lista estrazioni scoperte"
Call GetArrayIdEstrazioni(aBEstrCoperte,Inizio,Fine,aCombUtili,nClasse,nSorte,aRuote)
j = 0
For k = Inizio To Fine
If Not aBEstrCoperte(k) Then
j = j + 1
Scrivi FormatSpace(j,5,True) & ") " & k
End If
Call Messaggio ("Output lista combinazioni scoperte " & k )
Next
Messaggio "Ricerca combinazioni indispensabili"
k = 0
Do While GetEstrazioniCoperte(aBEstrCoperte,Inizio,Fine) < nEstrCoperteOrig
Call GetCombMigliore(aCombInutili,aBEstrCoperte,Inizio,Fine,aRuote,nClasse,nSorte,aRetComb)
nIdCombUtile = nIdCombUtile + 1
For j = 1 To nClasse
aCombUtili(nIdCombUtile,j) = aRetComb(j)
Next
Call GetArrayIdEstrazioni(aBEstrCoperte,Inizio,Fine,aCombUtili,nClasse,nSorte,aRuote)
k = k + 1
Call AvanzamentoElab(1,nIdCombInutile,k)
DoEventsEx
If ScriptInterrotto Then Exit Do
Call Messaggio ("Ricerca combinazioni indispensabili " & k )
If k > nIdCombInutile Then Exit Do
Loop
Scrivi
Scrivi "Elenco combinazioni indispensabili : " & nIdCombUtile
Scrivi "Ritardo storico :" & GetStorico_(aCombUtili,Inizio,Fine,nClasse,aRuote,0,nSorte)
Scrivi
Scrivi "Combinazioni totali : " & UBound(aColonne)
Scrivi "Combinazioni utili : " & nIdCombUtile
Scrivi "Combinazioni scartate : " & UBound(aColonne) - nIdCombUtile & " (" & Round(ProporzioneX((UBound(aColonne) - nIdCombUtile),UBound(aColonne),100),2) & ")"
Scrivi
For k = 1 To nIdCombUtile
sComb = ""
For j = 1 To nClasse
sComb = sComb & Format2(aCombUtili(k,j)) & "."
Next
Call Scrivi(RimuoviLastChr(sComb,"."))
Call Messaggio ("Output lista combinazioni utili " & k )
If ScriptInterrotto Then Exit For
Next
End If
Else
MsgBox "Parametri errati" , vbExclamation
End If
End Sub
Function GetStorico( aColonne, Inizio,Fine, nIdDaEscludere)
Dim Rit ,RitMax
Dim k , j
Dim b
Rit =0
RitMax =0
For k = Inizio To Fine
b = False
For j = 1 To UBound(aColonne)
If j <> nIdDaEscludere Then
If aBEstrCopertePerComb (j ,k) Then
b = True
Exit For
End If
End If
Next
If b Then
If Rit > RitMax Then RitMax = Rit
Rit =0
Else
Rit = Rit +1
End If
Next
GetStorico = RitMax
End Function
Function GetStorico_(aColonne,Inizio,Fine,nClasse,aRuote,nIdDaEscludere,nSorte)
Dim k,j
Dim nRitMax
ReDim an(nClasse)
For k = 1 To UBound(aColonne)
If k <> nIdDaEscludere Then
If aColonne(k,1) > 0 Then
For j = 1 To nClasse
an(j) = aColonne(k,j)
Next
Call AddNumeriToGruppoStatistico(an,aRuote)
End If
End If
If ScriptInterrotto Then Exit For
Next
Call StatisticaGruppoFormazioniTurbo(nSorte,0,nRitMax,0,"",Inizio,Fine)
GetStorico_ = nRitMax
End Function
Sub GetArrayIdEstrazioni(aRetIdEstr,Inizio,Fine,aComb,nClasse,nSorte,aRuote)
Dim k,j
Dim itmCmb
ReDim aRetIdEstr(Fine)
Dim aRit,aIdEstr
ReDim aN(nClasse)
For k = 1 To UBound(aComb)
If aComb(k,1) > 0 Then
For j = 1 To nClasse
aN(j) = aComb(k,j)
Next
' Call ElencoRitardiTurbo(aN,aRuote,nSorte,Inizio,Fine,aRit,aIdEstr)
' For j = 1 To UBound(aIdEstr) - 1
' aRetIdEstr(aIdEstr(j)) = True
' Next
If GetItemCollection (CollComb ,"k" & StringaNumeri (aN ,,True),itmCmb ) Then
For j = Inizio To Fine
If aBEstrCopertePerComb(itmcmb.id ,j ) Then aRetIdEstr(j) = True
Next
End If
End If
Call AvanzamentoElab(1,UBound(aComb),k)
If ScriptInterrotto Then Exit For
Next
End Sub
Function GetEstrazioniCoperte(aBEstr,Inizio,fine)
Dim k
Dim ret
For k = Inizio To fine
If aBEstr(k) Then
ret = ret + 1
End If
Next
GetEstrazioniCoperte = ret
End Function
Sub GetCombMigliore(aCombInutili,aBEstrCoperte,Inizio,Fine,aRuote,nClasse,nSorte,aRet)
Dim k,j
Dim nFrq
Dim nCoperte,nCoperteMax,nIdCombMigliore
ReDim aRet(nClasse)
ReDim aN(nClasse)
nCoperteMax = 0
For k = 1 To UBound(aCombInutili)
If aCombInutili(k,1) > 0 Then
nCoperte = 0
For j = 1 To nClasse
aN(j) = aCombInutili(k,j)
Next
For j = Inizio To Fine
If Not aBEstrCoperte(j) Then
Call StatFrzTurbo(aN,aRuote,nSorte,0,0,0,nFrq,,j,j)
If nFrq > 0 Then
nCoperte = nCoperte + 1
End If
End If
Next
If nCoperte > nCoperteMax Then
nCoperteMax = nCoperte
nIdCombMigliore = k
End If
End If
Next
For k = 1 To nClasse
aRet(k) = aCombInutili(nIdCombMigliore,k)
aCombInutili(nIdCombMigliore,k) = 0
Next
End Sub
Sub AlimentaEstrCopertePerComb( aComb,Inizio,Fine,nClasse,aRuote, nSorte )
ReDim aBEstrCopertePerComb(UBound(aComb), Fine)
Dim k,j
ReDim aRetIdEstr(Fine)
Dim aRit,aIdEstr
Dim itmCmb
ReDim aN(nClasse)
Set CollComb = GetNewCollection
For k = 1 To UBound(aComb)
If aComb(k,1) > 0 Then
For j = 1 To nClasse
aN(j) = aComb(k,j)
Next
Call ElencoRitardiTurbo(aN,aRuote,nSorte,Inizio,Fine,aRit,aIdEstr)
For j = 1 To UBound(aIdEstr) - 1
aBEstrCopertePerComb(k , aIdEstr(j)) = True
Next
Set itmCmb = New clsComb
itmCmb.id = k
itmCmb.sComb= StringaNumeri (aN ,,True)
Call AddItemColl ( CollComb , itmCmb , "k" & itmCmb.sComb)
End If
Call AvanzamentoElab(1,UBound(aComb),k)
DoEventsEx
If ScriptInterrotto Then Exit For
Next
End Sub
Non so se ho capito, vuoi dire il massimo storico( noi cerchiamo naturalmente le formazioni che che ce l'hanno più basso) nonIl minimo dei max. deve rispettare il ritardo attuale inferiore ( al precedente Minimo storico ) in questo modo si tagliano drasticamente milionate di iterazioni ed i tempi di attesa sono nella norma...
L'ho provato con la 22ina, è molto veloce. Ottimo.questa versione dello script è più veloce , tuttavia per i terni con 38 numeri ci vule l'eseguibile e comunque un po' d itempo ci vuole lo stesso , ho allegato sorgenti e programma da usare per i terni
Ora però che ho scaricato l'ultima versione di Xbiambi ci riprovo ( grazie a te che mi hai ispirato sono riuscita a scaricarla subito, in questiCiao, Nikor
per quanto riguarda la formazione
25.41;13.44;33.78
confermo il dato: max st 32, at 17
il 15 cos'è?
Non so se ho capito, vuoi dire il massimo storico( noi cerchiamo naturalmente le formazioni che che ce l'hanno più basso) non
deve oltrepassare il ritardo attuale ( ovviamente sennò ci troviamo con uno storico in corso). E' così?
Purtroppo mentre i biambi li abbiamo trovati, per i triambi si presenta difficile.
Mi fa piacere queto tuo intervento su quanto avevo postato perchè significa che stai sul pezzo! altrimenti è come scrivere nel deserto...Ciao, Nikor
per quanto riguarda la formazione
25.41;13.44;33.78
confermo il dato: max st 32, at 17
il 15 cos'è?
Non so se ho capito, vuoi dire il massimo storico( noi cerchiamo naturalmente le formazioni che che ce l'hanno più basso) non
deve oltrepassare il ritardo attuale ( ovviamente sennò ci troviamo con uno storico in corso). E' così?
Purtroppo mentre i biambi li abbiamo trovati, per i triambi si presenta difficile.
[ Il 15 cos'è ? ]25-41 ; 13-44 ; 33-78 # --- Min/Max = 32 ( Attuale = 17 -15 )