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.
RICHIESTA...
- Creatore Discussione miki55
- Data di inizio
lotto_tom75
Advanced Premium Member
Te l'ho fatto al volo..
Guarda se è quello che ti serve.
Codice:
Option Explicit
Sub Main
'x miki55 rileva minimi rs per singola ruota per le formazioni e i range voluti by tom.
Dim es
Dim rit,ritmax,freq,Incmax
Dim rsmingen
ReDim numeri(0)
Dim Formazione
Dim ruota
Dim sortediricerca
Dim Classedisviluppo
Dim righesviluppate
Dim contarighe
Dim rigasviluppata
Dim aruota(1)
Dim Formazioneconrsmingen
rsmingen = EstrazioneFin
ScegliNumeri(numeri)
ruota = ScegliRuota
aruota(1) = ruota
sortediricerca = CInt(InputBox("scegli sorte di ricerca ",,2))
Classedisviluppo = CInt(InputBox("scegli classe di sviluppo ",,2))
Scrivi "Ricerca valori minimi di rs per la ruota voluta con archivio lotto aggiornato al " & GetInfoEstrazione(EstrazioneFin)
Scrivi "Analisi effettuata nel range temporale " & GetInfoEstrazione(EstrazioneIni) & " - " & GetInfoEstrazione(EstrazioneFin)
Scrivi
Scrivi "n. " & StringaNumeri(numeri)
Scrivi "r. " & NomeRuota(ruota)
Scrivi "s. " & NomeSorte(sortediricerca)
Scrivi "c. " & Classedisviluppo
Scrivi
Scrivi
righesviluppate = InitSviluppoIntegrale(numeri,Classedisviluppo)
If righesviluppate > 0 Then
Do While GetCombSviluppo(rigasviluppata) = True
contarighe = contarighe + 1
Call StatisticaFormazioneTurbo(rigasviluppata,aruota,sortediricerca,rit,ritmax,Incmax,freq,EstrazioneIni,EstrazioneFin)
Scrivi StringaNumeri(rigasviluppata,".") & " - " & NomeRuota(aruota(1)) & " - rit " & rit & " - ritmax " & ritmax & " - incmax " & Incmax & " - freq " & freq & " riga " & contarighe
If ritmax < rsmingen Then
rsmingen = ritmax
Formazioneconrsmingen = StringaNumeri(rigasviluppata)
End If
If ScriptInterrotto Then Exit Do
Messaggio "rs minimo per adesso... " & rsmingen & " x formazione " & Formazioneconrsmingen & " sulla ruota di " & NomeRuota(ruota)
Call AvanzamentoElab(1,righesviluppate,contarighe)
Loop
End If
Scrivi
Scrivi "formazione con rs min generale rilevato per la ruota di " & NomeRuota(ruota) & " : " & Formazioneconrsmingen & " con Valore di rs pari a " & rsmingen
Scrivi
Scrivi
Scrivi "Tempo trascorso per il rilevamento " & TempoTrascorso
End Sub
lotto_tom75
Advanced Premium Member
Ciao micro_ guarda se fa al caso tuo...
Te l'ho potenziato adesso al volo... e non ho controllato.. gli eventuali errori di rilevamento...
Codice:
Option Explicit
Sub Main
'x mike58 rileva minimi rs per singola ruota per le formazioni e i range voluti; in questa seconda versione lo script su richiesta di micro_ rileva anche l'rs min posizionale con relativa formazione di riferimento. by tom.
Dim es
Dim rit,ritmax,freq,Incmax
Dim rsmingen
ReDim numeri(0)
Dim Formazione
Dim ruota
Dim sortediricerca
Dim Classedisviluppo
Dim righesviluppate
Dim contarighe
Dim rigasviluppata
Dim aruota(1)
Dim ritp,ritmaxp,Incmaxp,freqp
Dim Formazioneconrsmingen
Dim aPosizione(1)
rsmingen = EstrazioneFin
ScegliNumeri(numeri)
ruota = ScegliRuota
aruota(1) = ruota
Dim np
Dim sortep
sortep = 1
Dim rspmingen
rspmingen = EstrazioneFin
Dim Formazioneconrspmingen
Dim Posizioneconrspmingen
sortediricerca = CInt(InputBox("scegli sorte di ricerca ",,2))
Classedisviluppo = CInt(InputBox("scegli classe di sviluppo ",,2))
Scrivi "Ricerca valori minimi di rs per la ruota voluta con archivio lotto aggiornato al " & GetInfoEstrazione(EstrazioneFin)
Scrivi "Analisi effettuata nel range temporale " & GetInfoEstrazione(EstrazioneIni) & " - " & GetInfoEstrazione(EstrazioneFin)
Scrivi
Scrivi "n. " & StringaNumeri(numeri)
Scrivi "r. " & NomeRuota(ruota)
Scrivi "s. " & NomeSorte(sortediricerca)
Scrivi "c. " & Classedisviluppo
Scrivi
Scrivi
righesviluppate = InitSviluppoIntegrale(numeri,Classedisviluppo)
If righesviluppate > 0 Then
Do While GetCombSviluppo(rigasviluppata) = True
contarighe = contarighe + 1
Call StatisticaFormazioneTurbo(rigasviluppata,aruota,sortediricerca,rit,ritmax,Incmax,freq,EstrazioneIni,EstrazioneFin)
Scrivi StringaNumeri(rigasviluppata,".") & " - " & NomeRuota(aruota(1)) & " - rit " & rit & " - ritmax " & ritmax & " - incmax " & Incmax & " - freq " & freq & " riga " & contarighe
For np = 1 To 5
aPosizione(1) = np
Call StatisticaFormazioneTurbo(rigasviluppata,aruota,sortep,ritp,ritmaxp,Incmaxp,freqp,EstrazioneIni,EstrazioneFin,,aPosizione)
Scrivi StringaNumeri(aPosizione,".") & " - " & NomeRuota(aruota(1)) & " - ritp " & ritp & " - ritmaxp " & ritmaxp & " - incmaxp " & Incmaxp & " - freqp " & freqp & " riga " & contarighe
If ritmaxp < rspmingen Then
rspmingen = ritmaxp
Formazioneconrspmingen = StringaNumeri(rigasviluppata)
Posizioneconrspmingen = aPosizione(1)
End If
Next
If ritmax < rsmingen Then
rsmingen = ritmax
Formazioneconrsmingen = StringaNumeri(rigasviluppata)
End If
If ScriptInterrotto Then Exit Do
Messaggio "rs minimo per adesso... " & rsmingen & " x formazione " & Formazioneconrsmingen & " sulla ruota di " & NomeRuota(ruota)
Call AvanzamentoElab(1,righesviluppate,contarighe)
Loop
End If
Scrivi
Scrivi "formazione con rs min generale rilevato per la ruota di " & NomeRuota(ruota) & " : " & Formazioneconrsmingen & " con Valore di rs pari a " & rsmingen
Scrivi "formazione con rsp min generale rilevato per la ruota di " & NomeRuota(ruota) & " : " & Formazioneconrspmingen & " con Valore rsp pari a " & rspmingen & " per la posizione " & Posizioneconrspmingen
Scrivi
Scrivi
Scrivi "Tempo trascorso per il rilevamento " & TempoTrascorso
End Subciccioriccio
Advanced Member >PLATINUM PLUS<
Grazie miki tom e grazie infinite anche a micro_ vorrei sapere su Genova se è possibile
Miky io avevo già in mente di provare l'89 (sia a BA che a CA) quindi meglio a BAri a questo punto...ho da alcuni metodi il 40 mentre millo ha messo nella BA/CA di Lia l'ambo 40/83. Inoltre la mia convergenza su CA è per il 59.BARI
Ciao micro_ guarda se fa al caso tuo...
Te l'ho potenziato adesso al volo... e non ho controllato.. gli eventuali errori di rilevamento...
Codice:Option Explicit Sub Main 'x mike58 rileva minimi rs per singola ruota per le formazioni e i range voluti; in questa seconda versione lo script su richiesta di micro_ rileva anche l'rs min posizionale con relativa formazione di riferimento. by tom. Dim es Dim rit,ritmax,freq,Incmax Dim rsmingen ReDim numeri(0) Dim Formazione Dim ruota Dim sortediricerca Dim Classedisviluppo Dim righesviluppate Dim contarighe Dim rigasviluppata Dim aruota(1) Dim ritp,ritmaxp,Incmaxp,freqp Dim Formazioneconrsmingen Dim aPosizione(1) rsmingen = EstrazioneFin ScegliNumeri(numeri) ruota = ScegliRuota aruota(1) = ruota Dim np Dim sortep sortep = 1 Dim rspmingen rspmingen = EstrazioneFin Dim Formazioneconrspmingen Dim Posizioneconrspmingen sortediricerca = CInt(InputBox("scegli sorte di ricerca ",,2)) Classedisviluppo = CInt(InputBox("scegli classe di sviluppo ",,2)) Scrivi "Ricerca valori minimi di rs per la ruota voluta con archivio lotto aggiornato al " & GetInfoEstrazione(EstrazioneFin) Scrivi "Analisi effettuata nel range temporale " & GetInfoEstrazione(EstrazioneIni) & " - " & GetInfoEstrazione(EstrazioneFin) Scrivi Scrivi "n. " & StringaNumeri(numeri) Scrivi "r. " & NomeRuota(ruota) Scrivi "s. " & NomeSorte(sortediricerca) Scrivi "c. " & Classedisviluppo Scrivi Scrivi righesviluppate = InitSviluppoIntegrale(numeri,Classedisviluppo) If righesviluppate > 0 Then Do While GetCombSviluppo(rigasviluppata) = True contarighe = contarighe + 1 Call StatisticaFormazioneTurbo(rigasviluppata,aruota,sortediricerca,rit,ritmax,Incmax,freq,EstrazioneIni,EstrazioneFin) Scrivi StringaNumeri(rigasviluppata,".") & " - " & NomeRuota(aruota(1)) & " - rit " & rit & " - ritmax " & ritmax & " - incmax " & Incmax & " - freq " & freq & " riga " & contarighe For np = 1 To 5 aPosizione(1) = np Call StatisticaFormazioneTurbo(rigasviluppata,aruota,sortep,ritp,ritmaxp,Incmaxp,freqp,EstrazioneIni,EstrazioneFin,,aPosizione) Scrivi StringaNumeri(aPosizione,".") & " - " & NomeRuota(aruota(1)) & " - ritp " & ritp & " - ritmaxp " & ritmaxp & " - incmaxp " & Incmaxp & " - freqp " & freqp & " riga " & contarighe If ritmaxp < rspmingen Then rspmingen = ritmaxp Formazioneconrspmingen = StringaNumeri(rigasviluppata) Posizioneconrspmingen = aPosizione(1) End If Next If ritmax < rsmingen Then rsmingen = ritmax Formazioneconrsmingen = StringaNumeri(rigasviluppata) End If If ScriptInterrotto Then Exit Do Messaggio "rs minimo per adesso... " & rsmingen & " x formazione " & Formazioneconrsmingen & " sulla ruota di " & NomeRuota(ruota) Call AvanzamentoElab(1,righesviluppate,contarighe) Loop End If Scrivi Scrivi "formazione con rs min generale rilevato per la ruota di " & NomeRuota(ruota) & " : " & Formazioneconrsmingen & " con Valore di rs pari a " & rsmingen Scrivi "formazione con rsp min generale rilevato per la ruota di " & NomeRuota(ruota) & " : " & Formazioneconrspmingen & " con Valore rsp pari a " & rspmingen & " per la posizione " & Posizioneconrspmingen Scrivi Scrivi Scrivi "Tempo trascorso per il rilevamento " & TempoTrascorso End Sub
grazie Tom, mi sono dimenticato di dirti meglio, sempre se possibile...lo spiego con un esempio:
Ruota di Napoli, 1° estratto determinato.
10194-64
10195-32
10196-16-
Come vedi sono tre numeri in sincro continuo anche nel determinato...mi interessava sapere quando si sarebbe potuto ripetere uno dei tre nella posizione del 1° determinato di Napoli, chiaramente andando a vedere il comportamento di formazioni uguali o simili ( es.: anche le simmetriche) in altre posizioni e anche in altre ruote.
In questo caso il 16 è uscito alla 10257 al 1° determinato a NApoli, circa 60 colpi.
Grazie se possibile...
saluti,
micro
lotto_tom75
Advanced Premium Member
Mi spiace micro_ ma questa volta non ho proprio capito come dovrei cercare di modificarti lo script...
Al momento lo script identifica tra tutte le formazioni generate in modo integrale e solo sulla ruota unica target la posizione con ritardo storico posizionale minimo (rsp min) x estratto nel range temporale desiderato scelto dai parametri estrazioneini ed estrazionefin selezionabili mediante apposita barra temporale del programma. Tu invece cosa vorresti di diverso? Fammi eventualmente degli esempi con i relativi rs minimi... per farmi cercare di capire...
in questa terza versione ti ho esteso l'elaborazione standard e posizionale a tutte le ruote volute che verranno analizzate in modo separato...
Codice:
Option Explicit
Sub Main
'x mike58 rileva minimi rs per singola ruota voluta per le formazioni e i range voluti; in questa terza versione lo script su richiesta di micro_ rileva anche l'rs min posizionale con relativa formazione di riferimento valutando la scelta su tutte le ruote selezionate e analizzate in modo separato. by tom.
Dim es
Dim rit,ritmax,freq,Incmax
Dim rsmingen
ReDim numeri(0)
Dim Formazione
Dim ruota
Dim sortediricerca
Dim Classedisviluppo
Dim righesviluppate
Dim contarighe
Dim rigasviluppata
Dim aruota(1)
Dim ritp,ritmaxp,Incmaxp,freqp
Dim Formazioneconrsmingen
Dim aPosizione(1)
rsmingen = EstrazioneFin
ScegliNumeri(numeri)
ReDim aruote(0)
ScegliRuote(aruote)
'aruota(1) = ruota
Dim np
Dim sortep
sortep = 1
Dim rspmingen
rspmingen = EstrazioneFin
Dim Formazioneconrspmingen
Dim Posizioneconrspmingen
Dim ruotaconrspmingen
sortediricerca = CInt(InputBox("scegli sorte di ricerca ",,2))
Classedisviluppo = CInt(InputBox("scegli classe di sviluppo ",,2))
Scrivi "Ricerca valori minimi di rs per la ruota voluta con archivio lotto aggiornato al " & GetInfoEstrazione(EstrazioneFin)
Scrivi "Analisi effettuata nel range temporale " & GetInfoEstrazione(EstrazioneIni) & " - " & GetInfoEstrazione(EstrazioneFin)
Scrivi
Scrivi "n. " & StringaNumeri(numeri)
Scrivi "r. " & StringaRuote(aruote)
Scrivi "s. " & NomeSorte(sortediricerca)
Scrivi "c. " & Classedisviluppo
Scrivi
Scrivi
For nr = 1 To UBound(aruote)
aruota(1) = aruote(nr)
Scrivi "RUOTA " & aruota(1)
righesviluppate = InitSviluppoIntegrale(numeri,Classedisviluppo)
If righesviluppate > 0 Then
Dim nr
Do While GetCombSviluppo(rigasviluppata) = True
contarighe = contarighe + 1
Call StatisticaFormazioneTurbo(rigasviluppata,aruota,sortediricerca,rit,ritmax,Incmax,freq,EstrazioneIni,EstrazioneFin)
Scrivi StringaNumeri(rigasviluppata,".") & " - " & NomeRuota(aruota(1)) & " - rit " & rit & " - ritmax " & ritmax & " - incmax " & Incmax & " - freq " & freq & " riga " & contarighe
For np = 1 To 5
aPosizione(1) = np
Call StatisticaFormazioneTurbo(rigasviluppata,aruota,sortep,ritp,ritmaxp,Incmaxp,freqp,EstrazioneIni,EstrazioneFin,,aPosizione)
Scrivi StringaNumeri(aPosizione,".") & " - " & NomeRuota(aruota(1)) & " - ritp " & ritp & " - ritmaxp " & ritmaxp & " - incmaxp " & Incmaxp & " - freqp " & freqp & " riga " & contarighe
If ritmaxp < rspmingen Then
rspmingen = ritmaxp
Formazioneconrspmingen = StringaNumeri(rigasviluppata)
Posizioneconrspmingen = aPosizione(1)
ruotaconrspmingen = aruota(1)
End If
Next
If ritmax < rsmingen Then
rsmingen = ritmax
Formazioneconrsmingen = StringaNumeri(rigasviluppata)
End If
If ScriptInterrotto Then Exit Do
Messaggio "rs minimo per adesso... " & rsmingen & " x formazione " & Formazioneconrsmingen & " sulla ruota di " & NomeRuota(aruota(1))
Call AvanzamentoElab(1,righesviluppate,contarighe)
Loop
End If
contarighe = 0
If ScriptInterrotto Then Exit For
Next ' x ruota
Scrivi
Scrivi "formazione con rs min generale rilevato per la ruota di " & NomeRuota(aruota(1)) & " : " & Formazioneconrsmingen & " con Valore di rs pari a " & rsmingen
Scrivi "formazione con rsp min generale rilevato per la ruota di " & NomeRuota(ruotaconrspmingen) & " : " & Formazioneconrspmingen & " con Valore rsp pari a " & rspmingen & " per la posizione " & Posizioneconrspmingen
Scrivi
Scrivi
Scrivi "Tempo trascorso per il rilevamento " & TempoTrascorso
End Sub
Ultima modifica:
ciccioriccio
Advanced Member >PLATINUM PLUS<
Sulla ruota di Genova cosa ci potrebbe essere di analogo ai parametri di calcolo di
di Cagliari?
di Cagliari?
ciccioriccio
Advanced Member >PLATINUM PLUS<
Buongiorno a tutti
ciccioriccio
Advanced Member >PLATINUM PLUS<
BARI
Buongiorno Tom, grazie prima di tutto.
Sono interessato a verificare i ritardi su colonna, non su righe, quindi su gruppi di 2/3 numeri usciti sulla stessa posizione estrazionale e su estrazioni immediatamente successive e aventi una situazione logica...l'esempio sopra di Napoli al 1° E.D.
10194-64
10195-32
10196-16-
In questo caso, ad interrompere la sequenza per E.D., il 16 è uscito alla 10257 al 1° ED a Napoli, circa 60 colpi.
Come puoi vedere i tre numeri sopra fanno parte del gruppo -1-2-4- //2-4-8//3-6-12//-4/8-16//etc etc...
cliccando sui 90 numeri che espone lo script potrei fare la stessa cosa con altri gruppi che possono interessare, altro esempio:
Palermo 3°E.D.
10125-40
10126-70
10127-10
in questo caso il 10 interrompe la sequenza della terzina simmetrica dopo circa 47 colpi (alla 10175) al 3° ED.
altri esempi, questo con 2 numeri..
MILANO 2°E.D.
10175-7
10176-17
10177-7
alla 10190 si rivede il 17 al 13° c. sempre al 2°E.D.
Genova 3° E.D.
10170-6
10171-4
10172-6
in questo caso trovo il 4 alla 10209 nello stessa posizione di E.D. dopo circa 36 colpi...
In gioco...GENOVA 4°E.D.
10222-79-
10223-80
10224-78
in questo caso, se vuoi possiamo chiamarlo a differenza 1, sono passati 54 colpi e nessuno dei tre è ancora uscito al 4° e.d. sulla ruota di Genova.
Il quesito è: tre numeri consecutivi o comunque con logica numerica come esposto anche con altri esempi sopra, nella stessa condizione (cioè tre estrazioni consecutive) che ritardo possono portare per rivederne uno dei tre sulla stessa colonna? cioè stessa posizione (in questo caso 4° E.D.)
La ricerca chiaramente deve porre la condizione, di valutare cosa è accaduto anche sulle altre ruote...
Ti ringrazio anticipatamente se è possibile fare qualcosa per questa ricerca...
saluti!!
Sono interessato a verificare i ritardi su colonna, non su righe, quindi su gruppi di 2/3 numeri usciti sulla stessa posizione estrazionale e su estrazioni immediatamente successive e aventi una situazione logica...l'esempio sopra di Napoli al 1° E.D.
10194-64
10195-32
10196-16-
In questo caso, ad interrompere la sequenza per E.D., il 16 è uscito alla 10257 al 1° ED a Napoli, circa 60 colpi.
Come puoi vedere i tre numeri sopra fanno parte del gruppo -1-2-4- //2-4-8//3-6-12//-4/8-16//etc etc...
cliccando sui 90 numeri che espone lo script potrei fare la stessa cosa con altri gruppi che possono interessare, altro esempio:
Palermo 3°E.D.
10125-40
10126-70
10127-10
in questo caso il 10 interrompe la sequenza della terzina simmetrica dopo circa 47 colpi (alla 10175) al 3° ED.
altri esempi, questo con 2 numeri..
MILANO 2°E.D.
10175-7
10176-17
10177-7
alla 10190 si rivede il 17 al 13° c. sempre al 2°E.D.
Genova 3° E.D.
10170-6
10171-4
10172-6
in questo caso trovo il 4 alla 10209 nello stessa posizione di E.D. dopo circa 36 colpi...
In gioco...GENOVA 4°E.D.
10222-79-
10223-80
10224-78
in questo caso, se vuoi possiamo chiamarlo a differenza 1, sono passati 54 colpi e nessuno dei tre è ancora uscito al 4° e.d. sulla ruota di Genova.
Il quesito è: tre numeri consecutivi o comunque con logica numerica come esposto anche con altri esempi sopra, nella stessa condizione (cioè tre estrazioni consecutive) che ritardo possono portare per rivederne uno dei tre sulla stessa colonna? cioè stessa posizione (in questo caso 4° E.D.)
La ricerca chiaramente deve porre la condizione, di valutare cosa è accaduto anche sulle altre ruote...
Ti ringrazio anticipatamente se è possibile fare qualcosa per questa ricerca...
saluti!!
lotto_tom75
Advanced Premium Member
Ciao micro_ temo allora che non possa aiutarti... Ad ogni modo ti ho fatto una 4° versione che consente di effettuare due diversi tipi di analisi posizionale (multipla e singola). Il secondo tipo forse si avvicina un pò al tuo obbiettivo e forse si potrebbe anche ottimizzare in quel senso ma per adesso non mi viene in mente nulla... Per adesso ti consente di identificare, per la ruota o le ruote volute confrontandole in modo separato, l'rs min posizionale per la singola posizione voluta.
Codice:
Option Explicit
Sub Main
'x mike58 rileva minimi rs per singola ruota voluta per le formazioni e i range voluti; in questa quarta versione lo script su richiesta di micro_ rileva anche l'rs min posizionale con relativa formazione di riferimento valutando la scelta su tutte le ruote selezionate e analizzate in modo separato e consente due tipi di analisi posizionale singola o multipla. by tom.
Dim es
Dim rit,ritmax,freq,Incmax
Dim rsmingen
ReDim numeri(0)
Dim Formazione
Dim ruota
Dim sortediricerca
Dim Classedisviluppo
Dim righesviluppate
Dim contarighe
Dim rigasviluppata
Dim aruota(1)
Dim ritp,ritmaxp,Incmaxp,freqp
Dim Formazioneconrsmingen
Dim aPosizione(1)
rsmingen = EstrazioneFin
ScegliNumeri(numeri)
ReDim aruote(0)
ScegliRuote(aruote)
'aruota(1) = ruota
Dim np
Dim sortep
sortep = 1
Dim rspmingen
rspmingen = EstrazioneFin
Dim Formazioneconrspmingen
Dim Posizioneconrspmingen
Dim ruotaconrspmingen
sortediricerca = CInt(InputBox("scegli sorte di ricerca ",,2))
Classedisviluppo = CInt(InputBox("scegli classe di sviluppo ",,2))
Dim sceglitipoanalisiposizionale
sceglitipoanalisiposizionale = InputBox("scegli tipo di analisi posizionale multipla(m), singola(s)",,"s")
Dim tipodianalisiposizionalescelto
If sceglitipoanalisiposizionale = "m" Then
tipodianalisiposizionalescelto = "m"
Else
tipodianalisiposizionalescelto = "s"
np = CInt(InputBox("Quale posizione singola vuoi esaminare? ",,1))
End If
Scrivi "Ricerca valori minimi di rs per la ruota voluta con archivio lotto aggiornato al " & GetInfoEstrazione(EstrazioneFin)
Scrivi "Analisi effettuata nel range temporale " & GetInfoEstrazione(EstrazioneIni) & " - " & GetInfoEstrazione(EstrazioneFin)
Scrivi
Scrivi "n. " & StringaNumeri(numeri)
Scrivi "r. " & StringaRuote(aruote)
Scrivi "s. " & NomeSorte(sortediricerca)
Scrivi "c. " & Classedisviluppo
Scrivi
Scrivi
For nr = 1 To UBound(aruote)
aruota(1) = aruote(nr)
Scrivi "RUOTA " & aruota(1)
righesviluppate = InitSviluppoIntegrale(numeri,Classedisviluppo)
If righesviluppate > 0 Then
Dim nr
Do While GetCombSviluppo(rigasviluppata) = True
contarighe = contarighe + 1
Call StatisticaFormazioneTurbo(rigasviluppata,aruota,sortediricerca,rit,ritmax,Incmax,freq,EstrazioneIni,EstrazioneFin)
Scrivi StringaNumeri(rigasviluppata,".") & " - " & NomeRuota(aruota(1)) & " - rit " & rit & " - ritmax " & ritmax & " - incmax " & Incmax & " - freq " & freq & " riga " & contarighe
If sceglitipoanalisiposizionale = "m" Then
For np = 1 To 5
aPosizione(1) = np
Call StatisticaFormazioneTurbo(rigasviluppata,aruota,sortep,ritp,ritmaxp,Incmaxp,freqp,EstrazioneIni,EstrazioneFin,,aPosizione)
Scrivi StringaNumeri(aPosizione,".") & " - " & NomeRuota(aruota(1)) & " - ritp " & ritp & " - ritmaxp " & ritmaxp & " - incmaxp " & Incmaxp & " - freqp " & freqp & " riga " & contarighe
If ritmaxp < rspmingen Then
rspmingen = ritmaxp
Formazioneconrspmingen = StringaNumeri(rigasviluppata)
Posizioneconrspmingen = aPosizione(1)
ruotaconrspmingen = aruota(1)
End If
Next
Else
' For np = 1 To 5
'np = CInt(InputBox("Quale posizione singola vuoi esaminare? ",,1))
aPosizione(1) = np
Call StatisticaFormazioneTurbo(rigasviluppata,aruota,sortep,ritp,ritmaxp,Incmaxp,freqp,EstrazioneIni,EstrazioneFin,,aPosizione)
Scrivi StringaNumeri(aPosizione,".") & " - " & NomeRuota(aruota(1)) & " - ritp " & ritp & " - ritmaxp " & ritmaxp & " - incmaxp " & Incmaxp & " - freqp " & freqp & " riga " & contarighe
If ritmaxp < rspmingen Then
rspmingen = ritmaxp
Formazioneconrspmingen = StringaNumeri(rigasviluppata)
Posizioneconrspmingen = aPosizione(1)
ruotaconrspmingen = aruota(1)
End If
' Next
End If
If ritmax < rsmingen Then
rsmingen = ritmax
Formazioneconrsmingen = StringaNumeri(rigasviluppata)
End If
If ScriptInterrotto Then Exit Do
Messaggio "rs minimo per adesso... " & rsmingen & " x formazione " & Formazioneconrsmingen & " sulla ruota di " & NomeRuota(aruota(1))
Call AvanzamentoElab(1,righesviluppate,contarighe)
Loop
End If
contarighe = 0
If ScriptInterrotto Then Exit For
Next ' x ruota
Scrivi
Scrivi "formazione con rs min generale rilevato per la ruota di " & NomeRuota(aruota(1)) & " : " & Formazioneconrsmingen & " con Valore di rs pari a " & rsmingen
Scrivi "formazione con rsp min generale rilevato per la ruota di " & NomeRuota(ruotaconrspmingen) & " : " & Formazioneconrspmingen & " con Valore rsp pari a " & rspmingen & " per la posizione " & Posizioneconrspmingen
Dim tipoapscelto
Select Case(tipodianalisiposizionalescelto)
Case "m"
tipoapscelto = "analisi posizionale di tipo multiplo"
Case "s"
tipoapscelto = "analisi posizionale di tipo singolo"
End Select
Scrivi "tipo di analisi posizionale scelto: " & tipoapscelto
Scrivi
Scrivi
Scrivi "Tempo trascorso per il rilevamento " & TempoTrascorso
End Sub
i legend
Premium Member
Ciao Tom , intanto complimenti.
Hai fatto uno script molto versatile.
Puoi scegliere classe e sorte. (BRAVOOOOO)
Sei migliorato tantissimo.
Non so se l intelligenza artificiale ti sia utile in qualche modo , ma ti ha fatto studiare
Un piccolo suggerimento.
Se ho letto bene lo script, tu trovi il valore massimo minimo e quel valore ti porti dietro .
Ma alla fine solo uno.?
Ovviamente io non andrei a sviluppare classi maggiori di tre per estratto,o ambo, o terno.
Sappiamo che la tabella ordinabile tiene al massimo un tot di righe.( Non ricordo quante )
Per le coppie studiandoli una ruota alla volta, potresti sviluppare tutti gli ambi(4005) incolonnarli e poi utilizzare la tabella per ordinarli.
[ avevo postato uno script simile se non ricordo male]
Invece se sviluppi in terzine ,più lento e più pesante( non se il celeron sia sufficente ), potresti mettere tutto in una matrice(117480, 4)
( io caricavo tranqillamente , ma avevo un i7 e 16 gb di ram)
Dove
1= stringa numeri
2= rc
3= rsto
4= presenze
Ordini secondo la colonna che preferisci , e poi porti in tabella i primi 10, 20 30, 1000 righe.
Addirittura una volta ordinata la matrice potresti applicare dei filtri come fai solitamente, e andare ad inserire nella tabella solo le righe che ti potrebbero interessare.
X micro
In Base a determinate formazione tu vuoi calcolare gli storici per posizione?
La funzione statisticaformazioneturbo fa la statistica per posizione.
Il problema e che bisogna avere un file dove leggere le formazioni che ti servono.
Non serve che posti il file
Serve solo a te.
Se tu hai un file , lo leggi , lo scorri e si scrive la statistica.
Ovviamente anche qui c'è un limite di righe se vuoi inserirli in tabella.
Il file è comodo perché non devi calcolarti le formazioni di volta in volta.
Se non lo hai , ti conviene scriverlo .
Ciao a tutti
P.s
Per favore non quotatemi .
Hai fatto uno script molto versatile.
Puoi scegliere classe e sorte. (BRAVOOOOO)
Sei migliorato tantissimo.
Non so se l intelligenza artificiale ti sia utile in qualche modo , ma ti ha fatto studiare
Un piccolo suggerimento.
Se ho letto bene lo script, tu trovi il valore massimo minimo e quel valore ti porti dietro .
Ma alla fine solo uno.?
Ovviamente io non andrei a sviluppare classi maggiori di tre per estratto,o ambo, o terno.
Sappiamo che la tabella ordinabile tiene al massimo un tot di righe.( Non ricordo quante )
Per le coppie studiandoli una ruota alla volta, potresti sviluppare tutti gli ambi(4005) incolonnarli e poi utilizzare la tabella per ordinarli.
[ avevo postato uno script simile se non ricordo male]
Invece se sviluppi in terzine ,più lento e più pesante( non se il celeron sia sufficente ), potresti mettere tutto in una matrice(117480, 4)
( io caricavo tranqillamente , ma avevo un i7 e 16 gb di ram)
Dove
1= stringa numeri
2= rc
3= rsto
4= presenze
Ordini secondo la colonna che preferisci , e poi porti in tabella i primi 10, 20 30, 1000 righe.
Addirittura una volta ordinata la matrice potresti applicare dei filtri come fai solitamente, e andare ad inserire nella tabella solo le righe che ti potrebbero interessare.
X micro
In Base a determinate formazione tu vuoi calcolare gli storici per posizione?
La funzione statisticaformazioneturbo fa la statistica per posizione.
Il problema e che bisogna avere un file dove leggere le formazioni che ti servono.
Non serve che posti il file
Serve solo a te.
Se tu hai un file , lo leggi , lo scorri e si scrive la statistica.
Ovviamente anche qui c'è un limite di righe se vuoi inserirli in tabella.
Il file è comodo perché non devi calcolarti le formazioni di volta in volta.
Se non lo hai , ti conviene scriverlo .
Ciao a tutti
P.s
Per favore non quotatemi .
Ultima modifica:
Ciao I legend, sempre un piacere sentirti!
si..in base a determinate formazioni mi interessa lo storico posizionale determinato e quindi rivedere quanti concorsi devo aspettare affinchè uno dei due o uno dei tre numeri si ripresenterà nella stessa posizione determinata della formazione iniziale.
Avendo visto che lo script ti dà la possibilità di cliccare sui numeri che ti interessano allora avevo pensato questo tipo di ricerca, non per righe per intenderci, ma per colonne, al fine di scoprire i ritardi della formazione in esame...non andrei oltre due (vedi esempi sopra con due numeri) o tre determinati e quindi da provare a mettere in gioco quando si conosce un max.
Gli esempi che ho scritto sono chiari, non serve che tre numeri consecutivi a passo uno ( es.: 42-43-44) o due ( es.: 42-44-46) o tre (es.:42-45-48) etc siano ordinati (oppure formazioni raddoppiate come è stato il caso del 64-32-16 di Napoli) su tre estrazioni consecutive, lo storico sarebbe stato lo stesso anche se le uscite fossero state 32-16-64 ?, sempre su tre estrazioni consecutive e nella stessa posizione determinata?
Mi viene da pensare che forse serve un archivio per colonna determinata piuttosto che per righe? Boh...
L'esempio era questo:
In gioco...GENOVA 4°E.D.
10222-79-
10223-80
10224-78
tre numeri consecutivi ( anche se non "puri" come potevano essere 78-79-80 o 80-79-78) sono ad un ritardo diciamo discreto...ma come faccio a sapere quando la formazione è attaccabile con il fine di prendere uno dei tre, sempre determinato allo stesso 4° posto, stessa ruota...capisco che la ricerca è forse pazzesca. Si tratta di cliccare, ad esempio su una tabella del tipo : tabella di numeri consecutivi, in numero di tre...oppure...tabelle delle terzine simmetriche ..oppure tabella a coesione matematica etc. etc. sono tantissime come ben sai. Ma l'ottica è quella della statistica per posizione determinata...
saluti, stai bene
micro
si..in base a determinate formazioni mi interessa lo storico posizionale determinato e quindi rivedere quanti concorsi devo aspettare affinchè uno dei due o uno dei tre numeri si ripresenterà nella stessa posizione determinata della formazione iniziale.
Avendo visto che lo script ti dà la possibilità di cliccare sui numeri che ti interessano allora avevo pensato questo tipo di ricerca, non per righe per intenderci, ma per colonne, al fine di scoprire i ritardi della formazione in esame...non andrei oltre due (vedi esempi sopra con due numeri) o tre determinati e quindi da provare a mettere in gioco quando si conosce un max.
Gli esempi che ho scritto sono chiari, non serve che tre numeri consecutivi a passo uno ( es.: 42-43-44) o due ( es.: 42-44-46) o tre (es.:42-45-48) etc siano ordinati (oppure formazioni raddoppiate come è stato il caso del 64-32-16 di Napoli) su tre estrazioni consecutive, lo storico sarebbe stato lo stesso anche se le uscite fossero state 32-16-64 ?, sempre su tre estrazioni consecutive e nella stessa posizione determinata?
Mi viene da pensare che forse serve un archivio per colonna determinata piuttosto che per righe? Boh...
L'esempio era questo:
In gioco...GENOVA 4°E.D.
10222-79-
10223-80
10224-78
tre numeri consecutivi ( anche se non "puri" come potevano essere 78-79-80 o 80-79-78) sono ad un ritardo diciamo discreto...ma come faccio a sapere quando la formazione è attaccabile con il fine di prendere uno dei tre, sempre determinato allo stesso 4° posto, stessa ruota...capisco che la ricerca è forse pazzesca. Si tratta di cliccare, ad esempio su una tabella del tipo : tabella di numeri consecutivi, in numero di tre...oppure...tabelle delle terzine simmetriche ..oppure tabella a coesione matematica etc. etc. sono tantissime come ben sai. Ma l'ottica è quella della statistica per posizione determinata...
saluti, stai bene
micro
Ultima estrazione Lotto
-
Estrazione del lotto
venerdì 31 ottobre 2025Bari4331778985Cagliari5030774353Firenze2353281172Genova1486372268Milano6214194826Napoli4656421377Palermo4471537374Roma2456905729Torino7202291221Venezia1064376522Nazionale6939080461Estrazione Simbolotto
0915203242
