Novità

Script biambo

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

Enplein.
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
 
...
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.
 
Ultima modifica:
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
 
i legend ha scritto:
...
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.
Clicca per espandere...
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.
 
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.
 
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.
 
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! 💪👋😜
 
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
 
Ultima modifica:
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 ha scritto:
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.
Clicca per espandere...
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.
 
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:)
 
Buona domenica.
per problemi tecnici di connessione (credo )abbandono la discussione.
 
Ultima modifica:
Mi dispiace, Ilegend.
Speriamo che si possano risolvere al più presto.

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

Codice: 
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ò.
 
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.
 
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.

Codice: 
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
 
Ciao Cinzia, questo script non gira su spaziometria ?
a me da errore "rt=SerieRitardo(EstrazioneFin-51,EstrazioneFin,biambo,ru,so)"
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 10 gennaio 2025
    Bari
    40
    61
    11
    86
    37
    Cagliari
    31
    02
    51
    68
    87
    Firenze
    73
    55
    34
    52
    18
    Genova
    11
    40
    27
    82
    20
    Milano
    80
    71
    65
    19
    10
    Napoli
    50
    30
    03
    01
    36
    Palermo
    66
    42
    43
    76
    89
    Roma
    05
    22
    62
    35
    39
    Torino
    17
    58
    62
    86
    69
    Venezia
    43
    89
    14
    04
    40
    Nazionale
    64
    76
    35
    40
    19
    Estrazione Simbolotto
    Bari
    08
    07
    37
    33
    38
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto