Script biambo

[Enplein]

Ciao Cinzia, prova questa soluzione...ho inserito
tutte le ruote+Nz.

Enplein.

Anticipazione (Spoiler)

Sub main()

Dim ambi(4005,2)
Dim biambo(2,2)
Dim ruote(11)
Dim sorte
Dim i, j
ini=7440
h=0
For r=1 To 11
If r=11 Then r=12
h=h+1
ruote(h)=r
Next
sorte=2

For i= 1 To 89
For j= i+1 To 90
c=c+1
ambi(c,1)=i
ambi(c,2)=j
Next
Next

For i=1 To 4004
biambo(1,1)=ambi(i,1)
biambo(2,1)=ambi(i,2)
For j=i+1 To 4005'i
biambo(1,2)=ambi(j,1)
biambo(2,2)=ambi(j,2)
rt=SerieRitardo (ini , EstrazioneFin,biambo,ruote,sorte)
If rt<=50 Then 'imposta il ritardo attuale
st=SerieStorico (ini , EstrazioneFin,biambo,ruote,sorte)
If st<60 Then 'imposta il ritardo storico
sf=SerieFreq(ini,EstrazioneFin ,biambo,ruote,sorte)
Scrivi "Biambo: " & CStr(biambo(1,1)) & "." & CStr(biambo(2,1)) & ";" & _
CStr(biambo(1,2)) & "." & CStr(biambo(2,2)) & vbtab & " Sto:" & _
(FormatSpace(st,4,1))& Space (2)& " At:" &(FormatSpace(rt,4,1))& Space (2)&"Prs:"&_
FormatSpace (sf,4,1)& Space (2)& "TUTTE + "& SiglaRuota (ruote(11)),1

End If
End If
Next
Next

End Sub

 

[i legend]

...
Ciao a tutti
dal 7440 al 10224 Indici archivio spaziometria
ruote TT+Nz
adesso faccio qualche controllo.
ho trovato 17 coppie

ora faccio delle verifiche senza dare false speranze di velocita.
tra un oretta faccio ripartire il tutto . cambio output.

 

[Cinzia27]

Ilegend, non vedo l'ora di visionarlo.
Per Enplein, grazie però su Spaziometria mi dà errore, mentre su ...va
Riguardo ai tempi l'ho confrontato i tempi, più meno sono simili

00:01:00 Biambo: 1.2;32.75 Sto: 89 At: 26
00:00:59 Biambo: 1.2;23.37 Sto: 85 At: 26 Prs: 154 TUTTE + Nz

 

[Cinzia27]

...
Ciao a tutti
dal 7440 al 10224 Indici archivio spaziometria
ruote TT+Nz
adesso faccio qualche controllo.
ho trovato 17 coppie

ora faccio delle verifiche senza dare false speranze di velocita.
tra un oretta faccio ripartire il tutto . cambio output.

Se Gam modifica il suo script aggiungendo Nz, dovremo farcela.
8 milioni di formazioni non sono un record insuperabile.
Come mai non hai riscontro coi miei ? Con quali ambi ?
La ricerca è: tutte e Nz, inizio archivio 7440, biambi con massimo storico <50, naturalmente escludendo quegli ambi che pur avendo
massimo storico <50 hanno un ritardo in corso>=50.

 

[i legend]

Cinzia ho riscontro con le coppie di enplain ma non con le tue.
alle 20. 00 riprovo a lanciare lo script così dovrebbe finire prima xhe vada a letto.
Cmq su 8000000 credo sia impossibile solo così poche coppie.

 

[rubino2]

dal mio integrale, senza nazionale
a 3Milioni sono circa 7 biambi, ma continua......

 

[i legend]

Io ne ho rintracciati solo 17
Cmq se procede come prima verso le 10 e 30 dovrebbe aver finito.
In realtà credo di poter fare ancora più veloce.
Ma dovrei stoppare , lo modifico domani mattina.

 

[lotto_tom75]

Nonostante non possa partecipare a questa vostra ricerca, anche perchè non ho chiaro cosa siano i biambi triambi ecc... 🙃, vi faccio i complimenti per le elaborazioni e le realizzazioni di script in atto per farla. Un salutone a tutti e go go go! 💪👋😜

 

[i legend]

Questo giro ho impiegato un po piu di tempo , 2 ore e 53 minuti ma ho trovato molti più ambi anche quelli di Cinzia.
Rilancio il tutto domani mattina per fare una controprova.
Buona notte a tutti
La coppia
31.77;34.53
Ho trovato come max 44
Domani farò altre verifiche
In totale ho riscontrato 177 formazioni con ritardo<=50

 

[Cinzia27]

Ciao, Ilegend
Anch'io ci sto lavorando.
Stasera è uscito un biambo che non avevo ancora postato
6.84;54.65 Sto: 49
( e pure l'ambetto)

 

[i legend]

Un idea ma devo verificarla prima di postarla.

 

[Gam]

Ciao, Ilegend
Anch'io ci sto lavorando.
Stasera è uscito un biambo che non avevo ancora postato
6.84;54.65 Sto: 49
( e pure l'ambetto)

😅 Gran colpo di... Fortuna 🍀... Ti ho segnalato due biambi.. Quello uscito è proprio quello che ho postato! 😅

 

[Cinzia27]

Un algoritmo alternativo visto che si cercano gli ambi con ritmax<=50 quindi molto basso basterebbe ordinare gli ambi per frequenza massima e poi combinare i primi 100
A mio avviso , ma proverò domani, credo che si potranno rintracciare abbastanza ambi..
Sarebbe un algoritmo euristico , non certo al 100% , come l integrale ma si potrebbe velocizzare la ricerca di tantissimo , ma è da verificare.
Una domanda.
Se il gioco è su tutte perché includere la nazionale ?
La spesa sarebbe doppia.
Chiedo solo per capire la logica della ricerca.

Ci avevo pensato anch'io ma il risultato non sarebbe per così dire "puro", si sa che vi possono essere biambi con notevole frequenza
ma con storici poco significativi. Del resto se scegliamo tra i biambi più frequenti solo quelli con max st<50 tagliamo fuori quei biambi
che non rispettano il criterio della frequenza, che secondo me non andrebbero tralasciati, insomma abbiamo una sorta di aggiustamento che non soddisfa.
Credo che ciò che interessi di più è attendere meno una sortita. La ricerca è improntata su tale premessa.

Riguardo alla seconda domanda, l'idea mi era balenata seguendo Tom nella ricerca delle abs.
Puoi trovare spunto nel suo trhead "Solo un grafico e una domandina per adesso"( tra l'altro trovi la 38ina a st 0, l'unica che finora sono riuscita a ricavare su tutte e Nz, oltre alle 22ina per ambo a st0). E' quasi impensabile tale risultato senza la Nz.
Economicamente la Nz è separata, ma dal punto di vista dell'archivio è una ruota come tutte le altre e partendo dall'estrazione
7440, cioè da quando tale ruota è stata istituita abbiamo un archivio completo con 11 ruote anziché con 10.
Il numero di estrazioni avvenute dal 4 maggio 2005, 2785, forma un archivio sufficiente per fare delle analisi.
Inoltre, se non erro, proprio dal 2005 si è passati a 3 estrazioni alla settimana
Quello che abbiamo corrisponde all'archivio di 53 anni del passato, quando vi era solo un'estrazione alla settimana, inoltre si tratta di un archivio continuo senza interruzioni da parte di singole ruote ( l'interruzione avvenuta 2 anni fà infatti ha riguardato l'intera estrazione), cosicché le 11 ruote hanno pari estrazioni.

 

[Cinzia27]

Gam, mi sembrava di averlo visto anche qui. Bravo!
Io ti ho fatto una gentile richiesta che riassumo, il tuo script è il più veloce ma occorre aggiungere la Nz, cioè l'analisi va fatta come se tutte anziché 10 sia composta da 11 ruote, inoltre occorre escludere se già non l'hai fatto gli storici in corso >=50.
Grazie

 

[i legend]

Buona domenica.
per problemi tecnici di connessione (credo )abbandono la discussione.

 

[Cinzia27]

Mi dispiace, Ilegend.
Speriamo che si possano risolvere al più presto.

Questi sono i primi dati definitivi e controllati uno a uno.

1.5;51.81     Sto:  45 At:   3
1.9;6.89     Sto:  47 At:   3
1.22;31.52     Sto:  47 At:  37
1.22;45.74     Sto:  49 At:  28
1.22;47.55     Sto:  49 At:  37
1.22;64.74     Sto:  49 At:  20
2.8;8.42     Sto:  48 At:  43
3.69;31.67     Sto:  45 At:  38
4.46;6.89     Sto:  49 At:   3
4.51;6.89     Sto:  49 At:   3
4.51;22.30     Sto:  46 At:   1
4.51;22.47     Sto:  49 At:   6
4.61;6.89     Sto:  46 At:   3

Vi aggiornerò.

 

[i legend]

Ciao Cinzia, per curiosità potresti dire i tempi impiegati per trovare queste 13 coppie?
Mi sembra che tu sia riuscita a visualizzare tutti i miei messaggi.
Se non riesci a leggerlo grazie lo stesso.

 

[Cinzia27]

Ciao, Ilegend.
Non saprei dirti di preciso perché per il momento l'ho chiuso, l'ho lasciato lavorare da stanotte fino alle 11,00 circa.
Mi sono pure dimenticata di disconnettermi dal forum, al risveglio ho interrotto lo script e mi ha fatto questa bella sorpresa.
Credo che abbia contribuito ad "accelerarlo" la condizione ritardo attuale "secca"( inferiore a 50) prima della condizione dello storico,
che ha sfoltito i casi inutili.
Ho controllato uno per uno i biambi e i dati sono esatti.
Ora il mio probema è finire il biambo che inizia con 4.
Se qualcuno riesce glie ne sono grata.
Posto lo script che ho usato.

Option Explicit
Sub main()

Dim ambi(4005,2)
Dim biambo(2,2)
Dim ru(2)
Dim so
Dim i,j,c,rt,st

ru(1)=11
ru(2)=12
so=2

For i= 1 To 89
For j= i+1 To 90
c=c+1
ambi(c,1)=i
ambi(c,2)=j
Next
Next

For i=1 To 4004
biambo(1,1)=ambi(i,1)
biambo(2,1)=ambi(i,2)
For j=i+1 To 4005'i
biambo(1,2)=ambi(j,1)
biambo(2,2)=ambi(j,2)
rt=SerieRitardo (EstrazioneFin-51 , EstrazioneFin,biambo,ru,so)
If rt<50 Then 'imposta il ritardo attuale
st=SerieStorico (7440, EstrazioneFin,biambo,ru,so)
If st<50 Then 'imposta il ritardo storico

Scrivi CStr(biambo(1,1)) & "." & CStr(biambo(2,1)) & ";" & _
CStr(biambo(1,2)) & "." & CStr(biambo(2,2)) & vbtab & " Sto:" & _
FormatSpace(st,4,1)& " At:" &(FormatSpace(rt,4,1))
End If
End If



Next
Next

End Sub

 

[solare]

Ciao Cinzia, questo script non gira su spaziometria ?
a me da errore "rt=SerieRitardo(EstrazioneFin-51,EstrazioneFin,biambo,ru,so)"

 

[Cinzia27]

Non funziona con Spaziometria.
Sto cercando di farne uno adatto.