X i legend o altri grandissimi scripters come disaronno, joe91, mike58 ecc...

[lotto_tom75]

Senza scomodare Il Gran Maestro Luigi

Per un'ultima ricerca in corso avrei bisogno di analizzare un gruppo di elementi (diverso ogni volta) secondo 3 RANGE TEMPORALI precisi.

Il frazionamento della verifica dovrebbe essere qualcosa di questo tipo:

Ad esempio 20 + 20 +20 estrazioni

ultime 20 estrazioni
dalla 20esima ultima alla 40esima
e dalla 40esima alla 60esima estrazione

E analizzare per ogni sottorange d 20 estrazioni la presenza di un determinato gruppo numerico in analisi... per estratti su TUTTE e NZ

Ovviamente sono disponibile per tutti gli eventuali chiarimenti necessari a realizzare eventualmente lo script

 

[claudio8]

Comincia con il mettere a disposizione se c'è uno script con questa tua richesta: "E analizzare per ogni sottorange d 20 estrazioni la presenza di un determinato gruppo numerico in analisi... per estratti su TUTTE e NZ" in modo da facilitare chi vorrebbe darti una mano. grazie

 

[Joe91]

Comincia con il mettere a disposizione se c'è uno script con questa tua richesta: "E analizzare per ogni sottorange d 20 estrazioni la presenza di un determinato gruppo numerico in analisi... per estratti su TUTTE e NZ" in modo da facilitare chi vorrebbe darti una mano. grazie

Ciao Claudio ...

al solito ... mi trovi, in totale disaccordo.

Ribadisco che ove è facile sbagliare ... si sbaglia.

Dunque Tom ... ha sovrapposto i limiti di tutti gli intervalli

sicchè il 20 ed il 40 appartengono sia al ciclo precedente che a quello successivo.

Ad esempio 20 + 20 +20 estrazioni

ultime 20 estrazioni
dalla 20esima ultima alla 40esima
e dalla 40esima alla 60esima estrazione

E analizzare per ogni sottorange d 20 estrazioni

Forse voleva dire 19 estrazioni ... ha scritto 20 ... ne ha conteggiate 21.

Per cui secondo me "il difficile" è contare correttamente le ampiezze ... ed i limiti dei cicli

... gestire gli intervalli ... ad esempio così:

[8920] - [8939]
1 [8920] 03.11.2014
2 [8921] 04.11.2014
3 [8922] 06.11.2014
4 [8923] 08.11.2014
5 [8924] 11.11.2014
6 [8925] 13.11.2014
7 [8926] 15.11.2014
8 [8927] 18.11.2014
9 [8928] 20.11.2014
10 [8929] 22.11.2014
11 [8930] 25.11.2014
12 [8931] 27.11.2014
13 [8932] 29.11.2014
14 [8933] 02.12.2014
15 [8934] 04.12.2014
16 [8935] 06.12.2014
17 [8936] 09.12.2014
18 [8937] 11.12.2014
19 [8938] 13.12.2014
20 [8939] 16.12.2014

[8940] - [8959]
1 [8940] 18.12.2014
2 [8941] 20.12.2014
3 [8942] 23.12.2014
4 [8943] 24.12.2014
5 [8944] 27.12.2014
6 [8945] 30.12.2014
7 [8946] 02.01.2015
8 [8947] 03.01.2015
9 [8948] 07.01.2015
10 [8949] 08.01.2015
11 [8950] 10.01.2015
12 [8951] 13.01.2015
13 [8952] 15.01.2015
14 [8953] 17.01.2015
15 [8954] 20.01.2015
16 [8955] 22.01.2015
17 [8956] 24.01.2015
18 [8957] 27.01.2015
19 [8958] 29.01.2015
20 [8959] 31.01.2015

[8960] - [8979]
1 [8960] 03.02.2015
2 [8961] 05.02.2015
3 [8962] 07.02.2015
4 [8963] 10.02.2015
5 [8964] 12.02.2015
6 [8965] 14.02.2015
7 [8966] 17.02.2015
8 [8967] 19.02.2015
9 [8968] 21.02.2015
10 [8969] 24.02.2015
11 [8970] 26.02.2015
12 [8971] 28.02.2015
13 [8972] 03.03.2015
14 [8973] 05.03.2015
15 [8974] 07.03.2015
16 [8975] 10.03.2015
17 [8976] 12.03.2015
18 [8977] 14.03.2015
19 [8978] 17.03.2015
20 [8979] 19.03.2015

[8980] - [8999]
1 [8980] 21.03.2015
2 [8981] 24.03.2015
3 [8982] 26.03.2015
4 [8983] 28.03.2015
5 [8984] 31.03.2015
6 [8985] 02.04.2015
7 [8986] 04.04.2015
8 [8987] 07.04.2015
9 [8988] 09.04.2015
10 [8989] 11.04.2015
11 [8990] 14.04.2015
12 [8991] 16.04.2015
13 [8992] 18.04.2015
14 [8993] 21.04.2015
15 [8994] 23.04.2015
16 [8995] 27.04.2015
17 [8996] 28.04.2015
18 [8997] 30.04.2015
19 [8998] 02.05.2015
20 [8999] 05.05.2015

[9000] - [9019]
1 [9000] 07.05.2015
2 [9001] 09.05.2015
3 [9002] 12.05.2015
4 [9003] 14.05.2015
5 [9004] 16.05.2015
6 [9005] 19.05.2015
7 [9006] 21.05.2015
8 [9007] 23.05.2015
9 [9008] 26.05.2015
10 [9009] 28.05.2015
11 [9010] 30.05.2015
12 [9011] 03.06.2015
13 [9012] 04.06.2015
14 [9013] 06.06.2015
15 [9014] 09.06.2015
16 [9015] 11.06.2015
17 [9016] 13.06.2015
18 [9017] 16.06.2015
19 [9018] 18.06.2015
20 [9019] 20.06.2015


Ove potrai notare che contando matematicamente da zero ...

... tutti i cicli sono "da 19" ...

9019 - 9000 = 19

8999 - 8980 = 19 ecc.

che vuol dire 20 ... contando da uno come ho fatto ...

affiancando "il conteggio" che incomincia "da uno"

... come fanno quasi tutti.

Quando, per esempio, riferiscono "Cicli di 20 Estrazioni"

... per dire che a quel 20 ... corrispondono ... 20 estrazioni e/o copli

e ... non di già quel ... 21 ... matematicamente-corretto-ineccepibile.

Dunque a parer mio ... se ... ad uno non riesce di contare da zero ...

e/o non esplicita ... che lo sta facendo ... dovrebbe evitare di farlo, per sè, ed anche per gli altri.

Evitare cioè, che sia gli altri, che i pc impegnati ad interpretare i suoi script e/o le sue richieste ...

non riescano poi, a fornire le risposte ed i risultati corretti.

Però ... potrei sbagliare io ... che sono assiduo reiteratore ... come tutti ... i PC.

 

[Joe91]

Riassumendo lo script che ho predisposto.e proposto nel suo output ...

... se utilie allo scopo calcola i limiti degli intervalli ed elenca N-cicli (possono esssere i 3 richiesti)

di "20 Estrazioni" cadauno (ma anche questo valore è definito da un parametro modificabile).

Si adatta automaticamente al limite massimo (o prefissato dell'archivio) ...

dunque sarebbe necessario sapere .... come poterlo sfruttare ed adattare alla richiesta iniziale.

 

[lotto_tom75]

Ciao ragazzi.. sperando di aver risposto con questo script alla richiesta di entrambi e che joe riesca ad implementarvi lo script che ha proposto nel suo output... ecco qua lo scriptino appunto da implementare...

Option Explicit
Sub Main


'SCRIPTuzzo by  lotto_tom75 x inviduare tutti i parametri voluti per qualsiasi lunghetta e/o ruota separata o TUTTE (unite)!

Dim k
Dim Classe
Dim aCol
ReDim aNum(90)
Dim i
Dim nSorte,Fine,RetRit1,QuantitaNumeriScelti,aRuoteSel,RuoteSelezionate,RetRitMax,RetIncrRitMax,RetFreq,Inizio
Dim ColTot


Dim contatore

contatore = 0


ReDim aNum(0)
QuantitaNumeriScelti = ScegliNumeri(aNum)


ReDim aRuoteSel(12)

    ReDim aRuoteSel(12)
    RuoteSelezionate = ScegliRuote(aRuoteSel)
    
    Call Scrivi(" ---------------------------------------------------------------- ")
    Call Scrivi(" Le ruote sottostanti nella ricerca vengono considerate SEPARATE! ")
    Call Scrivi(" ---------------------------------------------------------------- ")


    For k = 1 To RuoteSelezionate
        Call Scrivi("Scelta ruota " & NomeRuota(aRuoteSel(k)) & " - " & SiglaRuota(aRuoteSel(k)))
        
    Next



nSorte = 1

Classe = 1



ColTot = InitSviluppoIntegrale(aNum,Classe)



If ColTot > 0 Then


Do While GetCombSviluppo(aCol) = True


i = i + 1


ReDim aRuoteTmp(1)



For k = 1 To RuoteSelezionate
        
        
aRuoteTmp(1) = aRuoteSel(k)


Call StatisticaFormazioneTurbo(aCol,aRuoteTmp,nSorte,RetRit1,RetRitMax,RetIncrRitMax,RetFreq)

Dim Diff
Diff = RetRitMax - RetRit1

Dim rapportoRARS
rapportoRARS = RetRit1/RetRitMax

If(RetRit1 >= 0 And RetIncrRitMax > 0) Then'
contatore = contatore + 1

Call Scrivi(FormattaStringa(i,"00000") & " " & StringaNumeri(aCol) & " RA: " & RetRit1 & " RS: " & RetRitMax & " INCMAX: " & RetIncrRitMax & " FQ: " & RetFreq & " RUOTA: " & NomeRuota(aRuoteSel(k)) & " Diff " & Diff & " " & contatore)

End If

Call AvanzamentoElab(1,ColTot,i)
Call Messaggio("Colonna " & i)

If ScriptInterrotto Then Exit Do
Next
Loop
End If
End Sub

Io per adesso sono ovviamente costretto a farlo girare tre volte per i diversi range voluti mentre sarebbe ottimale se appunto in un'unica sua esecuzione contemplasse, come ha già proposto nel suo output joe, i vari sotto range... di 10... 18,19,20 ecc estrazioni... volute...

Grazie per il vostro intervento e a presto

 

[Joe91]

Ciao Tom.

Io ... purtropppo non riesco a capire cosa vuoi fare.

Mi spiace ... nono posso aiutarti.

 

[lotto_tom75]

Ciao Tom.

Io ... purtropppo non riesco a capire cosa vuoi fare.

Mi spiace ... nono posso aiutarti.

no problem joe

 

[lotto_tom75]

Buonasera,
Salutando tutti,
Sperando di aver compreso bene quello che vuole lotto_Tom75,
propongo questa bozza di listato, puo' essere uno spunto.
Salvo errori ed omissis.

Sub Main()
Dim num(10),ruota(01),sorte
sorte = ScegliSorte
IniStart = Timer
Call ScegliNumeri(num)
Ini = EstrazioneIni
fin = EstrazioneFin
Tot = fin - Ini + 01
Call Scrivi(" Statistica Veloce su Formazione dei Numeri scelti" & " ",1,0,6)
Call Scrivi(" " & StringaNumeri(num,,True) & " ",1,0,2)
Call Scrivi(" Per la sorte ..." & " " & NomeSorte(sorte) & " ",1,- 1,3)
Call Scrivi(String(100,"="))
Call Scrivi(" Dalla data ..." & DataEstrazione(Ini) & " alla data ..." & DataEstrazione(fin) & " - Estrazioni Totali " & Format2(Tot),1)
Call Scrivi(String(100,"="))
Call Scrivi
ReDim atitoli(18)
atitoli(01) = " Ruota "
atitoli(02) = " Combinazione "
atitoli(03) = " Ritardo 00-19"
atitoli(04) = " Rit. Max 00-19"
atitoli(05) = " Incr.Rit.Max 00-19"
atitoli(06) = " Frequenza 00-19"
atitoli(07) = " Ritardo 20-39"
atitoli(08) = " Rit. Max 20-39"
atitoli(09) = " Incr.Rit.Max 20-39"
atitoli(10) = " Frequenza 20-39"
atitoli(11) = " Ritardo 40-60"
atitoli(12) = " Rit. Max 40-60"
atitoli(13) = " Incr.Rit.Max 40-60"
atitoli(14) = " Frequenza 40-60"
atitoli(15) = " Ritardo "
atitoli(16) = " Rit. Max "
atitoli(17) = " Incr.Rit.Max "
atitoli(18) = " Frequenza "
Call InitTabella(atitoli,1,,,5)
For r = 11 To 12
ruota(01) = r
Call AvanzamentoElab(01,12,r)
If ScriptInterrotto Then Exit For
Call StatisticaFormazioneTurbo(num,ruota,sorte,RetRit1,RetRitMax1,RetIncrRitMax1,RetFreq1,fin - 19,fin - 00)
Call StatisticaFormazioneTurbo(num,ruota,sorte,RetRit2,RetRitMax2,RetIncrRitMax2,RetFreq2,fin - 39,fin - 20)
Call StatisticaFormazioneTurbo(num,ruota,sorte,RetRit3,RetRitMax3,RetIncrRitMax3,RetFreq3,fin - 60,fin - 40)
Call StatisticaFormazioneTurbo(num,ruota,sorte,RetRit4,RetRitMax4,RetIncrRitMax4,RetFreq4,ini - 00,fin - 00)
ReDim avalori(18)
avalori(01) = NomeRuota(r)
avalori(02) = StringaNumeri(num,,True)
avalori(03) = RetRit1
avalori(04) = RetRitMax1
avalori(05) = RetIncrRitMax1
avalori(06) = RetFreq1
avalori(07) = RetRit2
avalori(08) = RetRitMax2
avalori(09) = RetIncrRitMax2
avalori(10) = RetFreq2
avalori(11) = RetRit3
avalori(12) = RetRitMax3
avalori(13) = RetIncrRitMax3
avalori(14) = RetFreq3
avalori(15) = RetRit4
avalori(16) = RetRitMax4
avalori(17) = RetIncrRitMax4
avalori(18) = RetFreq4
Call AddRigaTabella(avalori)
Call SetColoreCella(02,,7)
Next
Call CreaTabella()
Call Scrivi(" Script By Disaronno ",1,- 1,3)
FinEnd = Timer
Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((FinEnd + 01) - IniStart))
End Sub
Function ScegliSorte
ReDim aVoci(04)
aVoci(00) = "Estratto"
aVoci(01) = "Ambo"
aVoci(02) = "Terno"
aVoci(03) = "Quaterna"
aVoci(04) = "Cinquina"
ScegliSorte = ScegliOpzioneMenu(aVoci,00,"Secegli Tipo Sorte") + 01
End Function
Function FormattaSecondi(s)
'Questa Function trasforma il numero di secondi passato come parametro in una stringa
' passando i secondi si ottengono ore minuti e secondi in formato hh:mm:ss
' s ---> Numero di secondi da formattare
' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
Dim hh
Dim Mm
Dim Ss
Dim TimeStr
hh = s \ 3600
Mm =(s Mod 3600) \ 60
Ss = s -((hh * 3600) +(Mm * 60))
TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
FormattaSecondi = TimeStr
End Function

Grazie disaronno. Sempre bravissimo e velocissimo. Penso che anche questo tua ennesima chicca sia molto utile, purtroppo però non è quello che intendevo che provo comunque a rispiegare...

In sostanza vorrei poter valutare per il gruppo, la sorte e le ruote volute con un'unica esecuzione dello script 3 diversi range distinti come ad esempio:

range 1 : le ultime 20 estrazioni
range 2 : dalla 40esima ultima estrazione alla 20esima ultima estrazione
range 3 : dalla 60esima ultima estrazione alla 40 esima ultima estrazione

Ciao e grazie ancora grandissimo

 

[Joe91]

Tom ...

Scusa se mi permetto ... ma se non specifichi cosa vuoi,

100 programmatori con le loro 100 idee tutte differenti ... possono fare 100 programmi .... tutti diversi.

Quindi ... alla noia ... dovete (ma come vedi ... non è per te) specificare :

Con questi numeri ... (o in questo gruppo)

in queste ruote, in queste date ... così ... sommati ... moltiplicati

... divisi .... in questi intervalli ... con queste precauzioni, limiti ....

Hanno dato... non hanno dato ... questi risultati.

Che vorrei così organizzati ...

e fornire possibilmente un esempio ... con date, numeri, risultati, tabelle, rendiconti.

Non ricordo ... di aver visto un esempio ... uno schizzo ... un qualcosa che eviti enormi sprechi di tempo e pazienza altrui.

Ma almeno ... Soggetto / Verbo / Complemento

sono gli elementi necessari ... per esprimere, un qualcosa di senso compiuto. Capibile.

Dunque si ... si potrebbe capire ... ma perchè e come farlo ?!?!?!

Perchè sprecare tempo ed energie ... nella soluzione che poi risulterà "sbagliata" e diversa da quella voluta ?

Pensa se fossi tu ... di buona volontà ... chiamato ad aiutare, questo "qualcuno", cosa potresti fare?

Cosa ci capiresti di una richiesta "così" ?

 

[i legend]

ciao Tom
ciao a tutti gli amici
scusate se rispondo in ritardo,
Joe ha ragione cio che chiedi cosi come è esposto sembra una contraddizione in termini, i ritardi e gli incrementi sono cumulativi, a differenza delle presenze che si possono calcolare nei range
Ti sto facendo uno script per presenze nei cicli delle tue formazioni appena mi è possibile lo finisco e lo posto.
Ma per i ritardi non ho ben chiaro mi spiace,,,
Ciao a tutti

 

[lotto_tom75]

Ciao amici purtroppo oltre che postare lo script da modificare in tal senso e oltre a dirvi come intenderei analizzare i 3 spazi temporali distinti per un medesimo gruppo numerico non saprei come spiegare in parole diverse quello che vado cercando... Ad ogni modo grazie mille per la vostra attenzione e se riuscirò ad esporre meglio quello che ho nella capa.. non mancherò di riprovare a richiedervi aiuto in tal senso. Per ora grazie mille ugualmente a tutti e buona domenica ps: I legend non vedo l'ora di provare questa tua nuova chicca che hai in cantiere Thanks e guarda anche la sezione 20 numeri x T su TUTTE che stavi seguendo... cosa ha sfaldato su ruota unica... quando hai 5 min

 

[i legend]

Ciao Tom , lo script non è nulla di eccezionale, se ci sono riuscito dovrebbe calcolare la frequenza di una formazione nei cicli ma è da rivedere , credo si possa ottimizzare e scrivere in un linguaggio "piu migliore assai"