E' possibile....

[giorgio1960]

...realizzare uno script che dia la possibilità di scegliere la data di inizio ricerca e analizzi le formazioni più in ritardo per ambo sulle 10 ruote esclusa la nazionale? Il ritardo per ambo da considerare riguarda le terzine simmetriche, decine, cadenze, cinquine pentagonali, figure e sestine esagonali. I numeri poi delle singole formazioni trovate andranno a creare una classifica totale delle presenze o frequenze, considerando anche eventuali doppioni.Anticipatamente ringrazio

 

[keeper]

scusa lo potresti fare con spaziometria tranquillamente

 

[giorgio1960]

verissimo Keeper, ma una volta trovate le formazioni sulle 10 ruote, prese singolarmente, come faccio a creare le frequenze dei numeri? Calcola che per ogni ruota, considerando anche i ripetuti, parliamo di 43 numeri che moltiplicati per le 10 ruote.......430 numeri. Dovrei armarmi di carta e penna.

 

[keeper]

ma ci sono pure le frequenze o mi sbaglio?

 

[giorgio1960]

probabilmente non ho reso l'idea, posterò un esempio. Grazie comunque keeper

 

[keeper]

ok attendo

 

[giorgio1960]

keeper spero di rendere l'idea


Bari formazioni in ritardo per ambo a ruota
terzine simmetriche 12-42-72
cinquine pentagonali 16-34-52-70-88
sestine esagonali 02-17-32-47-62-77
cadenze 02-12-22-32-42-52-62-72-82
figure 03-12-21-30-39-48-57-66-75-84
decine 11-12-13-14-15-16-17-18-19-20
e così via per tutte e 10 le ruote, ripeto Nazionale esclusa. Ogni ruota,considerando anche i ripetuti,comporta 43 numeri che diventano 430 considerando appunto le 10 ruote.
Ora di questi 430 numeri mi occorre conoscere la frequenza. In attesa, anticipatamente ringrazio, anche per l'attenzione prestata.

 

[Roby]

keeper spero di rendere l'idea


Bari formazioni in ritardo per ambo a ruota
terzine simmetriche 12-42-72
cinquine pentagonali 16-34-52-70-88
sestine esagonali 02-17-32-47-62-77
cadenze 02-12-22-32-42-52-62-72-82
figure 03-12-21-30-39-48-57-66-75-84
decine 11-12-13-14-15-16-17-18-19-20
e così via per tutte e 10 le ruote, ripeto Nazionale esclusa. Ogni ruota,considerando anche i ripetuti,comporta 43 numeri che diventano 430 considerando appunto le 10 ruote.
Ora di questi 430 numeri mi occorre conoscere la frequenza. In attesa, anticipatamente ringrazio, anche per l'attenzione prestata.[/QUOTE

Salve chi studia lotto spesso deve anche cimentarsi di tanta santa pazienza provo a spiegarmi

più che uno script imposterei il discorso su situazioni di tavole create a 1 a 1 a mezzo dell'opzione editor tabelle che ogni buon programma degno del nome che porta dovrebbe avere, per far si disporne appunto per tali situazioni, avvenuta la creazione del tutto si ottiene un valore diretto e per giunta immagazzinato nel cuore del programma, io non uso il vostro spaziometria ma fogli exe personalizzati però se non vado errato a me sembri che l'opzione dovrebbe esserci anche perché il più che famoso L .... ne dispone, cmq fin quando non disponi della dovuta soluzione al tuo quesito prova a lasciare messaggio in area statistica di certo qualcuno me compreso e nell'ambito del possibile ti darà risposta anche perché amo questa imposta di gioco e con tutta onestà ammetto spesso ne faccio uso.
Sperando esserti stato nel mio piccolo di aiuto ti auguro Santo Natale

IB63

 

[giorgio1960]

Ciao IB e grazie per l'attenzione, il problema non è tanto l'analisi delle formazioni, ma la frequenza dei relativi 430 numeri, in base alla quale ricavo poi le previsioni e aggiungerei molto rare. Non sono molto ferrato con formule, excel, script e via discorrendo continuerò ad usare carta penna.......auguri per un felice e sereno Santo Natale a te ed i tuoi cari un abbraccio

 

[lotto_tom75]

Guarda un pò giorgio se, in attesa di soluzioni migliori da parte di espertissimi di vb script come lo stesso luigib oppure disaronno o joe91, ti basta...

Option Explicit
Sub Main
Dim sFile
Dim k,y
Dim nSorte,RetRit,RetRitMax,RetIncrRitMax,Inizio,Fine,RetFreq
sFile = ScegliFile("c:\lunghette",".txt","lunghette.txt")

'Script by lotto_tom75 per rintracciare qualsiasi tipo di ritardo e incremento massimo per 
'qualsiasi sorte in lunghette desiderate (siano esse 'terzine consecutive,
' quartine radicali ecc...)
'il gruppo di formazioni desiderate da analizzare dovranno essere messe necessariamente 
'nella directory lunghette
'in c: (se non presente andrà necessariamente prima creata
'dopo questo le formazioni volute da anlizzare andranno messe in un file .txt dentro
'la sopradetta directory 
'e ogni elemento delle lunghette dovrà distanziarsi dagli altri con un il carattere .

'Inizio = 1     'qui dovrai mettere il numero dell'estrazione iniziale
'Fine = 8647 'qui dovrai mettere il numero dell'estrazione finale su cui vuoi effettuare la ricerca

'Qui "attivi" il numero di ruote che vuoi... considerare (unite)
'Nell'esempio è "attivata" solo BA
'Se vuoi attivare ad es. BA , CA e FI dovrai scrivere:

'ReDim aRuote(3)
'aRuote(1)=BA_
'aRuote(2)=CA_
'aRuote(3)=FI_
'e lasciare "commentate" con il carattere ' tutte le altre...

ReDim aRuote(1)
aRuote(1) = BA_
'aRuote(2) = CA_
'aRuote(3) = FI_
'aRuote(4) = GE_
'aRuote(5) = MI_
'aRuote(6) = NA_
'aRuote(7) = PA_
'aRuote(8) = RO_
'aRuote(9) = TO_
'aRuote(4) = VE_
'aRuote(11) = NZ_

'aRuote(12) = TU_    'Volendo utilizzare questa opzione per calcolare 
'i parametri su tutte bisognerà 
'necessariamente far corrispondere il valore di Redim aRuote(1) con 
'quello di aRuote(12) = TU_ ovvero
'cambiare semplicemente ReDim aRuote(1) in Redim aRuote(12) 


nSorte = 2
Call Messaggio("Lettura file di testo")
ReDim aRighe(0)
Call LeggiRigheFileDiTesto(sFile,aRighe)
For k = 0 To UBound(aRighe)
If aRighe(k) <> "" Then
ReDim aNum(0)
Call SplitByChar("." & aRighe(k),".",aNum)
Call StatisticaFormazioneTurbo(aNum,aRuote,nSorte,RetRit,RetRitMax,RetIncrRitMax,RetFreq,Inizio,Fine)
'Call StatisticaFormazioneTurbo(aNum,aRuote,nSorte,RetRit,RetRitMax,RetIncrRitMax,Inizio,Fine)

RetRit = RitardoCombinazioneTurbo(aRuote,aNum,nSorte,Fine)

Dim Diff
Diff = RetRitMax - RetRit

'If(RetRit >= 0) Then

'If(RetIncrRitMax > 0) Then

If(RetRit > 0) Then

Call Scrivi(aRighe(k) & " ra : " & RetRit & " rs: " & RetRitMax & " incmax: " & RetIncrRitMax & " diff: " & Diff)
End If
End If
If k Mod 100 = 0 Then
Call Messaggio("Colonna : " & k)
If ScriptInterrotto Then Exit For
Call AvanzamentoElab(0,UBound(aRighe),k)
End If
Next
End Sub

Ciao e Good Luck giorgio

 

[giorgio1960]

Ciao Tom, davvero non ho parole per ringraziarti, ho provato il tuo lavoro e mi dispiace che nonostante la tua disponibilità e tempestività non mi abbia risolto il problema e a questo punto credo che sia una cosa troppo complessa da realizzare. In effetti dovrei analizzare, per ogni singola ruota,terzine simmetriche, cinquine pentagonali, sestine esagonali, cadenze, figure e decine. Per ogni serie di lunghette poi individuare quella con il maggior ritardo per ambo, cosa che faccio comunque con il programma spaziometria.Il vero problema è che mi occorre creare una sorte di classifica con le frequenze di tutti i numeri, considerando anche quelli ripetuti, facenti parte delle varie serie analizzate. Per esempio:
Bari formazioni in ritardo per ambo a ruota
terzine simmetriche 12-42-72
cinquine pentagonali 16-34-52-70-88
sestine esagonali 02-17-32-47-62-77
cadenze 02-12-22-32-42-52-62-72-82
figure 03-12-21-30-39-48-57-66-75-84
decine 11-12-13-14-15-16-17-18-19-20

CAGLIARI formazioni in ritardo per ambo a ruota
terzine simmetriche 27-57-87
cinquine pentagonali 06-24-42-60-78
sestine esagonali 05-20-35-50-65-80
cadenze 06-16-26-36-46-56-66-76-86
figure 06-15-24-33-42-51-60-69-78-87
decine 61-62-63-64-65-66-67-68-69-70

e così via per tutte e 10 le ruote. A questo punto mi è utile sapere la frequenza di tutti i numeri messi insieme, e non ruota per ruota, considerando come ti dicevo, anche gli eventuali numeri ripetuti. Ti ringrazio ancora per il tempo dedicatomi e ne approfitto per farti gli auguri per un sereno e felice Natale. Un abbraccio

 

[lotto_tom75]

Ciao Tom, davvero non ho parole per ringraziarti, ho provato il tuo lavoro e mi dispiace che nonostante la tua disponibilità e tempestività non mi abbia risolto il problema e a questo punto credo che sia una cosa troppo complessa da realizzare. In effetti dovrei analizzare, per ogni singola ruota,terzine simmetriche, cinquine pentagonali, sestine esagonali, cadenze, figure e decine. Per ogni serie di lunghette poi individuare quella con il maggior ritardo per ambo, cosa che faccio comunque con il programma spaziometria.Il vero problema è che mi occorre creare una sorte di classifica con le frequenze di tutti i numeri, considerando anche quelli ripetuti, facenti parte delle varie serie analizzate. Per esempio:
Bari formazioni in ritardo per ambo a ruota
terzine simmetriche 12-42-72
cinquine pentagonali 16-34-52-70-88
sestine esagonali 02-17-32-47-62-77
cadenze 02-12-22-32-42-52-62-72-82
figure 03-12-21-30-39-48-57-66-75-84
decine 11-12-13-14-15-16-17-18-19-20

CAGLIARI formazioni in ritardo per ambo a ruota
terzine simmetriche 27-57-87
cinquine pentagonali 06-24-42-60-78
sestine esagonali 05-20-35-50-65-80
cadenze 06-16-26-36-46-56-66-76-86
figure 06-15-24-33-42-51-60-69-78-87
decine 61-62-63-64-65-66-67-68-69-70

e così via per tutte e 10 le ruote. A questo punto mi è utile sapere la frequenza di tutti i numeri messi insieme, e non ruota per ruota, considerando come ti dicevo, anche gli eventuali numeri ripetuti. Ti ringrazio ancora per il tempo dedicatomi e ne approfitto per farti gli auguri per un sereno e felice Natale. Un abbraccio

Mi dispiace che lo script non risponda alle tue esigenze. Buon natale e buone feste anche a te carissimo. Speriamo che luigib, disaronno o joe91 o molti altri bravi esperti ti realizzino in breve tempo quanto da te anelato. Ciao!