Script biambo

[rubino2]

ho dal 2012 update 2021 - script triambo cap+consec

c'è un triambo interessante di attualità

 

[Gam]

Ciao @Cinzia27 , piacere leggerti e un saluto anche a @joe.
Prova a dare un occhio allo script qui sotto se può fare al caso tuo.
Come al solito, stilisticamente non impeccabile ma potrebbe tornare utile.

Anticipazione (Spoiler): Script per Spaziometria - Biambi a TUTTE

Option Explicit
Sub Main
'-------------------------------------
'Scritto da GAM il 14.04.2023 x Cinzia
'BIAMBI a TUTTE - v. 1.0
'-------------------------------------

Dim R,Ambo1(2),Ambo2(2)
Dim MatriceAmbi(4005,2)
Dim rAtt,rSto,Pre,Frm
Dim LivArch, Riga
Dim x,y,q,i,j,eIni,eFin,n,RitMin

eIni = EstrazioneIni
eFin = EstrazioneFin

RitMin = 100 ' Ritardo Minimo
R = TT_

For x = 1 To 89
If ScriptInterrotto Then Exit Sub
For y = x + 1 To 90
q = q + 1
MatriceAmbi(q,1) = x
MatriceAmbi(q,2) = y
Next
Next
' ScriviMatrice (MatriceAmbi)
For i = 1 To 4004
If ScriptInterrotto Then Exit Sub
Ambo1(1) = MatriceAmbi(i,1)
Ambo1(2) = MatriceAmbi(i,2)
For j = i + 1 To 4005
If ScriptInterrotto Then Exit Sub
Ambo2(1) = MatriceAmbi(j,1)
Ambo2(2) = MatriceAmbi(j,2)
n = n + 1

Riga = FormattaStringa(n,"0000000") & " Ambo " & StringaNumeri(Ambo1,,1) & " " & StringaNumeri(Ambo2,,1)',,0
Messaggio(i & " " & n)
Call AddNumeriToGruppoStatistico(Ambo1,R)
Call AddNumeriToGruppoStatistico(Ambo2,R)
Call StatisticaGruppoFormazioni(2,rAtt,rSto,Pre,Frm,eIni,eFin,LivArch)

If rSto < RitMin Then
Scrivi Riga & " RitATT " & FormattaStringa(rAtt,"000") & " RitSTO " & FormattaStringa(rSto,"000") & " Pre " & Pre
End If
Next
Next
Scrivi
Scrivi TempoTrascorso
End Sub

Fammi sapere
Saluti

 

[i legend]

Ciao a tutti.
Rubino Tu sei riuscito a fare l elaborazione di gruppo con lo smess?
Se si potresti postare un esempio?
Vorrei fare delle prove per il tempo di elaborazione.

 

[i legend]

Perché 4000x4000 tutti assieme sarebbero circa 16 milioni di risultati.

Joe le combinazioni Integrali come formaIone gruppo sono poco più di 8 milioni, ma sempre tantissime

 

[rubino2]

io l'ho provato in questo contesto

'''aggiungi terzina al gruppo x ricerca elencoritardidel gruppo
Call AddNumeriFormazione(av(v))


Dim aRet() As STRUCT_ELENCO_RITARDI
Call ElencoRitardiMulti(iniz, finez, sorte, aRet, aru)


in spaziometria addnumeriformazioni richiedeva oltre ai numeri anche la ruota
nello Smess obbligatorio solo i numeri o combinazione (arrays)

io ho avuto necessità di usare elencoritardiMulti, ma c'è anche statisticaMulti
qui va specificata la ruota/e dove si vuole avere dei valori.

ho usato queste 2 funzioni per gruppi da 979 terzine,
credo che i risultati del ritardo ottenuti mi sembrano esatti, anche se non li ho verificati tutti.

 

[l8più]

A me risulta che dal 1945

un biambo eterogeneo ha ritardato sulle dieci ruote
per almeno un ambo anche 422 estrazioni e precisamente
TT 20.37; 11.34 (422) 7/8/1965

un triambo eterogeneo ha ritardato sulle dieci ruote
per almeno un ambo anche 397 estrazioni e precisamente
TT 45.50; 36.45; 43.57 (397) 7/6/1997
conteggiando sempre anche l'estrazione in cui è avvenuto lo sfaldamento.
e così via per quadrambi, pentambi,....

Salvatore

 

[rubino2]

a correggere i miei dati postati precedentemente, in merito a triamboCap+Consecutivi
i dati sono calcolati fino all'estrazione di martedi scorso, manca l'estrazione di Giovedi sera.


Totale TriAmbi Cap+Consecutivi elaborati 7483
Situazione Ritardi Massimi a Tutte le ruote
dal Estraz. 3950 / 14.09.1946 : al 10223 / 11.04.2023
Rx. 212 - 35.19 : 35.20 : 35.21
Rx. 200 - 64.74 : 64.75 : 64.76
Rx. 198 - 65.47 : 65.48 : 65.49
Rx. 189 - 4.31 : 4.32 : 4.33
Rx. 189 - 24.73 : 24.74 : 24.75

Situazione Ritardi Correnti a Tutte le ruote
dal Estraz. 3950 / 14.09.1946 : al 10223 / 11.04.2023
Rc. 160 - 75.16 : 75.17 : 75.18
Rc. 131 - 32.72 : 32.73 : 32.74
Rc. 110 - 79.88 : 79.89 : 79.90
Rc. 102 - 48.36 : 48.37 : 48.38
Rc. 101 - 32.71 : 32.72 : 32.73
Tempo Elab: 00:00:40

 

[l8più]

infatti proprio alla n.44 a Venezia è sortito 32.74 che ha azzerato
il secondo triambo ovvero quello di capogioco 32 e precisamente
VE 32.72 : 32.73 : 32.74

 

[Cinzia27]

A me risulta che dal 1945

un biambo eterogeneo ha ritardato sulle dieci ruote
per almeno un ambo anche 422 estrazioni e precisamente
TT 20.37; 11.34 (422) 7/8/1965

un triambo eterogeneo ha ritardato sulle dieci ruote
per almeno un ambo anche 397 estrazioni e precisamente
TT 45.50; 36.45; 43.57 (397) 7/6/1997
conteggiando sempre anche l'estrazione in cui è avvenuto lo sfaldamento.
e così via per quadrambi, pentambi,....

Salvatore

Ciao, Salvatore.Grazie per i dati.
I parametri sono diversi, qui tutte e Nz dalla 7440.
Puoi avere i massimi con questi parametri?

Qui alcuni minimi st<50 ( ma ve ne saranno ancora)

st att
1.5;51.81 47 2
1.22;31.52 47 36
1.22;45.74 49 27
1.22;47.55 49 36
4.51;22.47 49 5
7.48;38.61 48 1

 

[Cinzia27]

Ciao @Cinzia27 , piacere leggerti e un saluto anche a @joe.
Prova a dare un occhio allo script qui sotto se può fare al caso tuo.
Come al solito, stilisticamente non impeccabile ma potrebbe tornare utile.

Anticipazione (Spoiler): Script per Spaziometria - Biambi a TUTTE

Option Explicit
Sub Main
'-------------------------------------
'Scritto da GAM il 14.04.2023 x Cinzia
'BIAMBI a TUTTE - v. 1.0
'-------------------------------------

Dim R,Ambo1(2),Ambo2(2)
Dim MatriceAmbi(4005,2)
Dim rAtt,rSto,Pre,Frm
Dim LivArch, Riga
Dim x,y,q,i,j,eIni,eFin,n,RitMin

eIni = EstrazioneIni
eFin = EstrazioneFin

RitMin = 100 ' Ritardo Minimo
R = TT_

For x = 1 To 89
If ScriptInterrotto Then Exit Sub
For y = x + 1 To 90
q = q + 1
MatriceAmbi(q,1) = x
MatriceAmbi(q,2) = y
Next
Next
' ScriviMatrice (MatriceAmbi)
For i = 1 To 4004
If ScriptInterrotto Then Exit Sub
Ambo1(1) = MatriceAmbi(i,1)
Ambo1(2) = MatriceAmbi(i,2)
For j = i + 1 To 4005
If ScriptInterrotto Then Exit Sub
Ambo2(1) = MatriceAmbi(j,1)
Ambo2(2) = MatriceAmbi(j,2)
n = n + 1

Riga = FormattaStringa(n,"0000000") & " Ambo " & StringaNumeri(Ambo1,,1) & " " & StringaNumeri(Ambo2,,1)',,0
Messaggio(i & " " & n)
Call AddNumeriToGruppoStatistico(Ambo1,R)
Call AddNumeriToGruppoStatistico(Ambo2,R)
Call StatisticaGruppoFormazioni(2,rAtt,rSto,Pre,Frm,eIni,eFin,LivArch)

If rSto < RitMin Then
Scrivi Riga & " RitATT " & FormattaStringa(rAtt,"000") & " RitSTO " & FormattaStringa(rSto,"000") & " Pre " & Pre
End If
Next
Next
Scrivi
Scrivi TempoTrascorso
End Sub

Fammi sapere
Saluti

Grazie, Gam!
Il tuo funziona su Spaziometria!!!
Ottimo

 

[rubino2]

proprio non riesco a tenerlo a mente come fare ordinamatrice

Call OrdinaMatrice(ritx, 1, -1)


ho bisogno di ordinare la colonna 1 della matrice ritx in ordine DISCENDENTE

RITX come deve essere definita ???? long string variant??????

io l'ho ordinata variant

 

[i legend]

Variant

Dim aV as variant
Av= ordinamatrice(arit,-1,1,1)
Poi cicli av
Prova che vado a memoria

 

[rubino2]

niente non funziona

ritx l'ho definita variant, così come av as variant

nverso = -1 vuol dire discendente???
quindi è il secondo valore,

1 dovrebbe essere la colonna,
e l'altra 1 cos'è???


ordina tutto in forma ascendente






ordina il

 

[i legend]

buon weekend a tutti

 

[Gam]

Grazie, Gam!
Il tuo funziona su Spaziometria!!!
Ottimo

Ciao Cinzia,
dopo quasi 2milioni di biambi analizzati (su 8milioni), con archivio dalla 7440 a ieri ho trovato le seguenti due formazioni in ritardo di TUTTE:

1194718​	Ambo​	04.51​	22.47​	RitATT​	4​	RitSTO​	49​	Pre​	175​
1922069​	Ambo​	06.84​	54.65​	RitATT​	6​	RitSTO​	49​	Pre​	179​

 

[i legend]

Ciao un idea potrebbe essere scrivere un file delle 8 milioni di coppie .
Ci vuole pochissimo tempo.
Poi in una decina
Il primo studia dalla linea zero alla linea 1 milione
Un altro dalla linea successiva la linea 2 milioni
E così via .
Si otterrebbe il risultato voluto in poco tempo.
Ci sono software che tengono milioni di righe senza difficoltà.
È una soluzione banale , ma non impoegherebbe troppe risorse.

 

[joe]

Joe le combinazioni Integrali come formazione gruppo sono poco più di 8 milioni, ma sempre tantissime

Ciao, si hai ragione, come per gli Ambi si usano le combinazioni dei 2 numeri,

ritenendo che le permutazioni siano formazioni giocabili solo come coppia di ambi ("ordinati") .

Dunque sono circa metà.

Spaziometria sul mio vecchio Pc non calcola questa quantità ritenendola troppo grande.

Excel restituisce: 8'018'010.

Giustamente poco più di 8 milioni e la metà di 16.

 

[Cinzia27]

Ciao a tutti, stiamo svolgendo un ottimo lavoro.
Credo che tutti insieme riusciremo ad estrarre quegli ambi con storici massimi <50.
Ricordo i parametri: tutte e Nz dalla 7440.

Ho scovato ancora questi

1.5;51.81 st 45
1.22;31.52 47

 

[Cinzia27]

L'idea di Ilegend è fantastica.
Propongo di attuarla.

 

[i legend]

È un peccato che twb mi vada in crash continuamente, le sue funzioni sono più veloci di spazio.