Cercasi abbinamenti a copertura per esito di ambo .. o superiori

[claudio8]

Vorrei chiedere agli esperti delle riduzioni, filtrazioni combinazioni elucubrazioni e quant'altro, come impostare un algoritmo per trovare se possibile una quartina di numeri di abbinamento tra i restanti 89 (ambata esclusa definita a parte ) che riesca a quantificare la % di COPERTURE di detti abbinamenti, chiaramente il tutto si svolge considerando i coestratti di una spia (l'ambata).

Vorrei escludere a priore di ciclare l'intergrale (o gran parte) in quartina poichè intendo arrivare ad una copertura al limite del 100% e chiaramente questo implicherebbe sviluppi di combinazioni maggiori non gestibili.

Se non sono stato chiaro, chiedete pure

Grazie

 

[Cinzia27]

Ciao, Claudio.
Non so se ho capito.
Vorresti trovare le quartine con Max St più basso o più frequenti per ambo con l'ambata capogioco?
Mettiamo che questo sia il n. 1, occorre trovare tra gli 89 restanti la/le quartine da abbinare al capogioco.
Il criterio è la massima frequenza o il MaxSt biù basso?
La quantificazione si potrebbe fare rapportando il numero di uscite della quartina abbinata all numero di uscite del capogioco.

 

[Cinzia27]

Con capogioco 1, se non sbaglio il massimo è il seguente
su 126 di presenza del n. 1 su MI dalla 8117, 96 volte si è abbinata per ambo la seguente quartina
1)1.13.18.62.67 st 99 fr 96 at 36 fr cg 126 rp 0.76

 

[claudio8]

Ciao, Claudio.
Non so se ho capito.
Vorresti trovare le quartine con Max St più basso o più frequenti per ambo con l'ambata capogioco?
Mettiamo che questo sia il n. 1, occorre trovare tra gli 89 restanti la/le quartine da abbinare al capogioco.
Il criterio è la massima frequenza o il MaxSt biù basso?
La quantificazione si potrebbe fare rapportando il numero di uscite della quartina abbinata all numero di uscite del capogioco.

Cinzia, grazie per la risposta.
non deve esserci nessun filtro, nessun parametro specifico, solo copertura ( che in questo specifico coincide con la frequenza)
Esempio:
Mettiamo che questo sia il n. 1 ( la spia o capogioco), occorre trovare tra gli 89 restanti la singola quartina da abbinare al capogioco e nel caso non copra a sufficienza i "casi Spia" condierati, deve incrementarsi (la quartina deve diventare cinquina o superiore) sino aud un valore di % di copertura sui casi che tenda al 100% .
Spero di essere stato chiaro.
Ciao

 

[claudio8]

Con capogioco 1, se non sbaglio il massimo è il seguente
su 126 di presenza del n. 1 su MI dalla 8117, 96 volte si è abbinata per ambo la seguente quartina
1)1.13.18.62.67 st 99 fr 96 at 36 fr cg 126 rp 0.76

Questa quartina ha dato esito ad ambo con l'1 per 96 volte su 126 uscite, abbiamo una incidenza di 96/126 = 0.76 = 76% di copertura a questo punto la elaborazione deve spostarsi su una cinquina per incrementare la % di copertura .
ciao
Ps: sai dirmi quale lunghetta minima servirebbe per coprire una 50 ina di casi ?

 

[Cinzia27]

Non c'è nessun filtro, infatti.
Mantengo fisso l'uno e faccio girare gli altri. Il n. 1 è il capogioco. Non capisco perché la chiami spia.
C'è una ragione particolare o è una semplificazione?

Ps: sai dirmi quale lunghetta minima servirebbe per coprire una 50 ina di casi ?

Bisogna far girare i 90 capogiochi coi rispettivi 89 numeri e su tutte le 11 ruote.
La tua intuizione, che mi sembrava all'inizio un pò astratta, è ottima ed è fattibile.
Grazie per la condivisione.
Aumentando di un numero, quindi passando dalla cinquina alla sestina, sempre con capogioco ( in questo caso il n.1), siamo vicinissimi al 100% e l'elaborazione è stata breve.
Non vi è bisogno di andare tanto in là per realizzare il 100%.
Sto facendo girare lo script è ci sono molte sestine al 99%.
A breve le posto.

 

[Cinzia27]

E abbiamo superato il 100%.
Posto solo i massimi risultati.

L'elaborazione è a metà.
Comunque la ricerca è praticabile.

906)1.8.13.18.62.67 st 84 fr 138 at 36 fr cg 126 rp 1.10
1535)1.12.13.18.62.67 st 84 fr 137 at 36 fr cg 126 rp 1.09
868)1.8.13.17.62.67 st 84 fr 136 at 36 fr cg 126 rp 1.08
150)1.3.13.18.62.67 st 99 fr 135 at 19 fr cg 126 rp 1.07
1354)1.10.13.18.62.67 st 99 fr 135 at 36 fr cg 126 rp 1.07

 

[claudio8]

Non c'è nessun filtro, infatti.
Mantengo fisso l'uno e faccio girare gli altri. Il n. 1 è il capogioco. Non capisco perché la chiami spia.
C'è una ragione particolare o è una semplificazione?

Nessuna, è una semplificazione

Bisogna far girare i 90 capogiochi coi rispettivi 89 numeri e su tutte le 11 ruote.

a me serve un capogioco alla volta su una singola ruota

La tua intuizione, che mi sembrava all'inizio un pò astratta, è ottima ed è fattibile.
Grazie per la condivisione.
Aumentando di un numero, quindi passando dalla cinquina alla sestina, sempre con capogioco (in questo caso il n.1), siamo vicinissimi al 100% e l'elaborazione è stata breve.

Spiegami come imposti la elaborazione

Non vi è bisogno di andare tanto in là per realizzare il 100%.
Sto facendo girare lo script è ci sono molte sestine al 99%.
A breve le posto.

ok
sappi comunque che questo risultato arriva dallo storico e non garantisce il futuro.

 

[claudio8]

E abbiamo superato il 100%.
Posto solo i massimi risultati.

L'elaborazione è a metà.
Comunque la ricerca è praticabile.

906)1.8.13.18.62.67 st 84 fr 138 at 36 fr cg 126 rp 1.10
1535)1.12.13.18.62.67 st 84 fr 137 at 36 fr cg 126 rp 1.09
868)1.8.13.17.62.67 st 84 fr 136 at 36 fr cg 126 rp 1.08
150)1.3.13.18.62.67 st 99 fr 135 at 19 fr cg 126 rp 1.07
1354)1.10.13.18.62.67 st 99 fr 135 at 36 fr cg 126 rp 1.07

stai elaborando gli intergrali di ogni formazione?

 

[Cinzia27]

a me serve un capogioco alla volta su una singola ruota

Stiamo dicendo la stessa cosa. Intendo non tutte e Nz, ma le 11 ruote singolarmente.
Ossia la prima ricerca ripetuta per i 90 capogiochi su ciascuna ruota.
Ma volendo si potrebbe cercare di fare il tutto con lo stesso script.
Solo che sarà pesante.

Spiegami come imposti la elaborazione

Sotto hai lo script che ho usato per un capogioco e per una ruota.
Sicuramente leggendolo lo comprendi e potrai migliorarlo.
Ma se qualcosa non ti è chiaro non hai che da dirmelo.

stai elaborando gli intergrali di ogni formazione?

Integrali, certo, niente sistema né condizionamenti vari.
Ora ho smesso riprendo domani.
Devo adattare lo script ai 90 numeri e alle 11 ruote, sarà più pesante e ci vorrà più tempo nell'elaborazione.

sappi comunque che questo risultato arriva dallo storico e non garantisce il futuro.

Giusto, manteniamo sempre la prudenza.

Sub Main()

Dim nn(6),ru(1),nn1(1)

r = 5
ru(1) = r
ww = 2


aa = Array(0,01,02,03,04,05,06,07,08,09,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90)

yy = UBound(aa)
nn1(1) = 1
nn(1) = 1
fr1 = SerieFreqTurbo(8117,EstrazioneFin,nn1,ru,1)
For a = 2 To yy
If ScriptInterrotto Then Exit For
For b = a + 1 To yy
If ScriptInterrotto Then Exit For
For c = b + 1 To yy
If ScriptInterrotto Then Exit For
For d = c + 1 To yy
If ScriptInterrotto Then Exit For
For e = d + 1 To yy
If ScriptInterrotto Then Exit For

nn(2) = aa(a)
nn(3) = aa(b)
nn(4) = aa(c)
nn(5) = aa(d)
nn(6) = aa(e)


fr = SerieFreqTurbo(8117,EstrazioneFin,nn,ru,ww)
If fr > 120 Then
rp = fr/fr1
at = SerieRitardoTurbo(EstrazioneFin - 200,EstrazioneFin,nn,ru,ww)
st = SerieStoricoTurbo(8117,EstrazioneFin,nn,ru,ww)

cc = cc + 1
Messaggio FormatSpace(cc,6,1) & ")" & StringaNumeri(nn) & " st " & FormatSpace(st,2,1) & " fr " & FormatSpace(fr,2,1) & " at  " & FormatSpace(at,2,1) _
  & "  fr cg " & fr1 & " rp " & Formatnumber(rp,2)
Scrivi FormatSpace(cc,6,1) & ")" & StringaNumeri(nn) & " st " & FormatSpace(st,2,1) & " fr " & FormatSpace(fr,2,1) & " at  " & FormatSpace(at,2,1) _
  & " fr cg  " & fr1 & " rp " & Formatnumber(rp,2)
End If

Next
Next
Next
Next
Next
End Sub

 

[claudio8]

Ho letto lo script, e visto che qui

fr1 = SerieFreqTurbo(8117,EstrazioneFin,nn1,ru,1)

calcoli la frequenza dell' 1 (nn1=1) nel range di interesse per sorte 1 e fin qui tutto ok
mentre qui

fr = SerieFreqTurbo(8117,EstrazioneFin,nn,ru,ww)

calcoli la frequenza della lunghetta intera (nn da 1 a 6 ) nel range di interesse per sorte w.
In sostanza utilizzi sempre il capogioco aggiungendo la cinquinqa che ottieni dalla ciclazione dei For...next. però la freq che estrapoli è relativa a tutta la sestina, cosa che non va bene perchè io voglio ottenere questo punteggio:
capogioco = punti 1
cinquina = punti minimi 1
totale minimo = punti Capogioco + punti elementi cinquina = ambo o superiori

Fermo restante che tu consideri la freq in un range ampio 8117,EstrazioneFin, mentre io voglio
che in ogni singola estrazione in cui vi è il Capogioco, venga quantificata la (presenza o freq ) degli altri 4 numeri presenti e quindi costruita la lunghetta minima che dia un rapporto freq-lunghetta/ freq-capogioco tendente al 100% .
Spero di essermi chiarito
Ciao

 

[Cinzia27]

Ciao, Claudio.
Hai illustrato esattamente ciò che fa lo script.
Ora ho capito.Ci dev'essere sempre il n. capogioco.
A breve spero di postarti alcuni risultati.

 

[claudio8]

Ciao, Claudio.
Hai illustrato esattamente ciò che fa lo script.
Ora ho capito.Ci dev'essere sempre il n. capogioco.

Esatto

A breve spero di postarti alcuni risultati.

Ciao

 

[Cinzia27]

Ciao, Claudio. Ho controllato il primo dall'estr. 1 ed è giusto.
1 ) MI cg 1 fr cg 126 2.3.4.5.6 fr di almeno 1 di essi con cg 109 ---> rp 109/ 126 0.87
2 ) MI cg 1 fr cg 126 2.3.4.5.7 fr di almeno 1 di essi con cg 112 ---> rp 112/ 126 0.89
3 ) MI cg 1 fr cg 126 2.3.4.5.8 fr di almeno 1 di essi con cg 115 ---> rp 115/ 126 0.91

 

[Cinzia27]

Una precisazione, conta le occasioni in cui si sono incontrati il capogioco e gli altri 5 ma non la frequenza di quelle occasioni.
Quindi se esce il capogioco con più di un numeri degli altri 5 viene contato una volta
Lo lasciamo così o contiamo effettivamente tutta la frequenza? Sempre che riesca.

 

[claudio8]

posta lo script se vuoi che ci capiamo meglio

 

[Cinzia27]

Eccolo

Sub Main()

Dim nn(5),ru(1),nn1(1)

r = 5
ru(1) = r
ww = 1


aa = Array(0,01,02,03,04,05,06,07,08,09,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90)

yy = UBound(aa)
nn1(1) = 1
fr1 = SerieFreqTurbo(8117,EstrazioneFin,nn1,ru,ww)

For a = 2 To yy
If ScriptInterrotto Then Exit For
For b = a + 1 To yy
If ScriptInterrotto Then Exit For
For c = b + 1 To yy
If ScriptInterrotto Then Exit For
For d = c + 1 To yy
If ScriptInterrotto Then Exit For
For e = d + 1 To yy
If ScriptInterrotto Then Exit For

cc = 0
mx = 0

nn(1) = aa(a)
nn(2) = aa(b)
nn(3) = aa(c)
nn(4) = aa(d)
nn(5) = aa(e)

For es = 1 To EstrazioneFin
If SerieFreqTurbo(es,es,nn,ru,ww) > 0 And SerieFreqTurbo(es,es,nn1,ru,ww) > 0 Then _
cc = cc + 1: ri = SiglaRuota(r) & " cg " & nn1(1) & " fr cg " & FormatSpace(fr1,5,1) & " " & StringaNumeri(nn) _
   & "  fr di almeno 1 di essi con cg " & cc & " ---> rp " & FormatSpace(cc,4,1) & "/" & FormatSpace(fr1,4,1)

Next
If cc > 87 Then
 Messaggio ri
co = co + 1
Scrivi FormatSpace(co,5,1) & " ) " & ri & " " & Formatnumber(cc/fr1,2)
End If

Next
Next
Next
Next
Next
End Sub

 

[claudio8]

fr1 = SerieFreqTurbo(8117,EstrazioneFin,nn1,ru,ww)
definisce quante volte è presente il capogiono nel range
poi cicli le estrazioni da 1 a Estrazionefin, perchè....
il rapporto che otterrai tra
FormatSpace(cc,4,1) & "/" & FormatSpace(fr1,4,1) e cioè
cc/ fr1 non serve perche dalla 1 estrazione alla 8117 avrai sicuramente trovate la condizione
If SerieFreqTurbo(es,es,nn,ru,ww) >0 (=1) And SerieFreqTurbo(es,es,nn1,ru,ww) > 0 Then
molte volte inutilmente e comunque questo falsa quanto ricerchiamo.
Infine questa riga If cc > 87 Then
deve diventare
If cc / fr1 > 87 Then .

Prova a fare le correzioni, a dopo

 

[Cinzia27]

Per una svista ho lasciato 8117 mentre in realtà doveva essere 1.
Ecco perché a fronte di un limitato numero di presenze del capogioco vi era un enorme presenza
di abbinamento che alterava il rapporto cc/fr1


=1 l'ho messo nel seriefreq del capogioco, è corretto?
SerieFreqTurbo(es,es,nn1,ru,ww) =1

ho fatto le modifiche.
Se c'è altro da correggere...

Sub Main()

Dim nn(5),ru(1),nn1(1)

r = 5
ru(1) = r
ww = 1


aa = Array(0,01,02,03,04,05,06,07,08,09,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90)

yy = UBound(aa)
nn1(1) = 1
fr1 = SerieFreqTurbo(1,EstrazioneFin,nn1,ru,ww)

For a = 2 To yy
If ScriptInterrotto Then Exit For
For b = a + 1 To yy
If ScriptInterrotto Then Exit For
For c = b + 1 To yy
If ScriptInterrotto Then Exit For
For d = c + 1 To yy
If ScriptInterrotto Then Exit For
For e = d + 1 To yy
If ScriptInterrotto Then Exit For

cc = 0
mx = 0

nn(1) = aa(a)
nn(2) = aa(b)
nn(3) = aa(c)
nn(4) = aa(d)
nn(5) = aa(e)

For es = 1 To EstrazioneFin
If SerieFreqTurbo(es,es,nn,ru,ww) > 0 And SerieFreqTurbo(es,es,nn1,ru,ww) =1  Then _
cc = cc + 1: ri = SiglaRuota(r) & " cg " & nn1(1) & " fr cg " & FormatSpace(fr1,5,1) & " " & StringaNumeri(nn) _
   & "  fr di almeno 1 di essi con cg " & cc

Next
If cc/fr1>0.20 Then

 Messaggio ri
co = co + 1
Scrivi FormatSpace(co,5,1) & " ) " & ri & " " & Formatnumber(cc/fr1,2)

End If

Next
Next
Next
Next
Next
End Sub

 

[claudio8]

Cinzia, fermati e ragioniamo.

Sono partito con lo scrivere al 1° post questo:
" Vorrei escludere a priore di ciclare l'intergrale (o gran parte) in quartina poichè intendo arrivare ad una copertura al limite del 100% e chiaramente questo implicherebbe sviluppi di combinazioni maggiori non gestibili."
Ci ritroviamo adesso a rispondre alla mia richiesta con uno sviluppo di combinazioni integrali (dico integrali o quasi ) che devono ciclare un intero archivio.
Lo trovo molto molto dispendioso in termini di tempo di elaborazione.
L'ambata ha una media di uscita teorica di 1 volta su 18 .
Teoricamente ci vorrebbero 18 x 100 = 1800 estrazioni per avere 100 casi
A noi possono bastare 50/60/70 casi forse anche meno per avere una casistica tendenzialmente (sempre da valutare) valida.
Non serve quindi a mio sapere la freq del capogioco dalla es = 1 alla es = estrazionefin, inoltre dopo oltre il range di ricerca serevono un minimo di 2 o 3 casi ( 18*3= 54 estr.) a posteriori per verificare la veridicità della ipotesi.
Dobbiamo pensare a soluzioni differenti. A qualche processo che sia molto più veloce.
Una curiosità :
quanto impega il tuo pc per scrollare un integrale di quartine ?
che processore e memoria hai ?
Ciao