PER SALVO O ALTRO SCRIPTER

[trivellatomariotretre33]

SE POSSIBILE MI SERVIREBBE UNO SCRIPT CHE MI CALCOLI LE COMBINAZIONI SOLO DEI 4005 AMBI NON USCITI IN UN TOTALE DI ESTRAZIONI DA ME SCELTO CON INPUT A PIACERE?? VI RINGRAZIO CON ANTICIPO.

 

[joe]

Ciao Trivellato,

Non è quello che hai chiesto ma penso possa servire lo stesso.

Funziona solo con spaziometria.

A commento penso ti sarà facile intuire che gli "Ambi non usciti" ...

sono quelli che hanno ritardo maggiore di quello che tu avresti inserito.

Il periodo di ricerca si varia spostando l'estrazione finale dell'archivio.

Altrimenti (e normalmente) calcolerebbe all'ultima disponibile.

'Tabella dei Ritardi degli Ambi By Joe V.1.0del 15/05/2020
Option Explicit
Sub Main
 Dim A,B,I,F,R,Rit
 Dim T(3),V(3)
 T(1) = " A " : T(2) = " B " : T(3) = " RIT "
 InitTabella T
 I = 1 : F = EstrazioneFin
 R = CInt(InputBox("Quale ?","SCELTA DELLA RUOTA",11))
 For A = 1 To 89
  AvanzamentoElab 1,88,A
  For B = A + 1 To 90
   Rit = AmboRitardoTurbo(R,A,B,I,F)
   V(1) = A : V(2) = B : V(3) = Rit
   AddRigaTabella V
  Next
 Next
 CreaTabellaOrdinabile 3,- 1
End Sub

Buona Serata a tutte/i.

 

[trivellatomariotretre33]

joe SCUSAMI NON INTENDEVO COSI
ESEMPIO SCELGO DI TROVARMI I RESTANTI 4005 AMBI CHE NON SONO ANCORA USCITI IN 158 ESTRAZIONI
O ANCHE PER ESEMPIO SCELGO 300 ESTRAZIONI MI DOVRA; RESTITUIRE QUELLI ANCORA NON USCITI.

 

[Mike58]

Prova anche la mia versione

Sub Main
   Dim Nu(2),Mat(4005,6),Ru(1)
   Ini = EstrazioneFin - 250
   fin = EstrazioneFin
   r = 11
   Ru(1) = r
   ResetTimer
   For a = 1 To 89
      For b = a + 1 To 90
         sf = AmboFrequenzaTurbo(r,a,b,Ini,fin)
         If sf = 0 Then
            k = k + 1
            Nu(1) = a
            Nu(2) = b
            n = StringaNumeri(Nu)
            sr = AmboRitardoTurbo(r,Nu(1),Nu(2),1,fin)
            Call VerificaEsitoTurbo(Nu,Ru,fin - sr,2,,,,,es1,id)
            Mat(k,1) = k
            Mat(k,2) = sf
            Mat(k,3) = sr
            Mat(k,4) = n
            Mat(k,5) = es1
            Mat(k,6) = GetInfoEstrazione(id)
         End If
      Next
   Next
   OrdinaMatrice Mat,- 1,3
   Scrivi "Range Inizio........... " & GetInfoEstrazione(Ini)
   Scrivi "Range Fine............. " & GetInfoEstrazione(fin)
   Scrivi "Totali estrazioni analizzate........ " & fin - Ini + 1
   Scrivi "Ruota analizzata....... " & NomeRuota(r)
   Scrivi
   Scrivi "N" & Space(6) & "Frq" & Space(6) & "Rit" & Space(6) & "Ambo" & Space(7) & "Verifica" & Space(20) & "Id Verifica",1
   For x = 1 To k
      Scrivi x & vbTab & Mat(x,2) & vbTab & Mat(x,3) & vbTab & Mat(x,4) & vbTab & Mat(x,5) & vbTab & Mat(x,6)
   Next
   Scrivi
   Scrivi "Tempo di Elaborazione : " & TempoTrascorso
End Sub

 

[trivellatomariotretre33]

MIKE BEN ACCETTO IL TUO SCRIPT MA NON E QUELLO CHE CHIEDO ESEMPIO
IN UN RANGE DI 158 ESTRAZIONI DEI 4005 AMBI MI DEVE RESTITUIRE QUELLI ANCORA NON SORTITI------
SE SONO SORTITI 30 AMBI DEI 4005 MI DEVE RESTITUIRE I MANCANTI DEI
4005 NON ANCORA SORTITI .....
GRAZIE Mike se puoi realizzarmi quanto chiesto.

 

[Mike58]

Ciao Trivellato, non capisco dove non ti trovi.
Il range utilizzato è di 250 estrazioni che puoi modificare direttamente nello script.
Ini = EstrazioneFin - 157
La ruota è Tutte che puoi modificare nello script.
r = 11
Gli ambi raccolti sono esattamente quelli non Sortiti, infatti la frequenza è pari a zero nel range utilizzato.
poi c'erano a corredo dello script altri dati quale il ritardo e la verifica.

P.s. chi fa uso di script deve almeno saper leggere uno script, altrimenti non si va da nessuna parte.
non si può sempre mettere l'inputBox e imboccare sempre Tutto.
Ciao se cosi non è spiegati meglio.
Mike

 

[trivellatomariotretre33]

MIKE MA NON E COME FOTO RITARDO NON CORRISPONDE A Ini = EstrazioneFin - 157
NON MI RESTITUISCE GLI AMBI NON SORTITI O PRESO UN RANGE DI 90 ESTRAZIONI IN FOTO MI DEVE DARE AMBI NON SORTITI DI 4005

 

[Mike58]

Trivellato le frequenze sono calcolate nel range impostato
Ini = EstrazioneFin - 250
fin = EstrazioneFin
sf = AmboFrequenzaTurbo(r,a,b,Ini,fin)
mentre il ritardo è calcolato su un range diverso ossia tutte le 9763 estrazioni
sr = AmboRitardoTurbo(r,Nu(1),Nu(2),1,fin)
gli ambi restituiti sono quelli a frequenza zero nel range impostato, ed il ritardo è quello reale, a differenza di come lo vorresti Tu che avrebbe in quel caso il ritardo pari al range e pertanto inutile metterlo.
Non capisco la difficoltà a capire lo script.

P.s. se imposti un range di 158 estrazioni è chiaro che avrai l'ambo 13.22 con freq = 0 e ritardoReale = 327 > 158

Range Inizio........... [09606] [ 35] 21.03.2019
Range Fine............. [09763] [ 35] 21.03.2020
Totali estrazioni analizzate........ 158
Ruota analizzata....... Tutte

N Frq Rit Ambo Verifica Id Verifica
1 0 327 13.22 NA .. .. 22 13 .. [09436] [ 21] 17.02.2018

 

[trivellatomariotretre33]

ok Mike se scelgo il range di 158 estrazione mi deve dare il ritardo calcolato su un range di 158 estraz gli ambi non usciti nelle 158 estrazioni. (seconda OPZIONE)
( oppure mi restituisca dei 4005 ambi sfaldati nel range delle 158 estrazioni )

 

[trivellatomariotretre33]

MIKE PERCHE NON MI SEGNA LA FRQUENZA UNO COME IN FOTO CON I TUOI PARAMETRI ? GUARDA FOTO IN ALLEGATO GRAZIE.

 

[Mike58]

No Trivellato nel mio allegato la frequenza è zero ( 1 e il progressivo)
Dobbiamo capirci
Tu chiedi gli ambi non sortiti in un range estrazioni e su Ruote (TuTTe)
su un range di 158 estrazioni (1 anno) sono 66 ambi non sortiti con freq = zero.
invece se volessi vedere gli ambi usciti e non allora lo script di joe era anch'esso valido e comunque si potrebbe fare anche questo.

Dipende da quello che vuoi raccogliere.
Ambi non sortiti hanno freq zero.

 

[joe]

Trivellato,

Se confronti i risultati dello script che ti ho dato

con quelli restituiti dal programma di Mike

puoi osservare che sono uguali.

Sono anche la risposta a quello che cerchi.

Cioè se hai gli ambi in ordine di ritardo

e stabilisci un certo di ritardo sopra a quel valore

ce ne saranno presenti alcuni.

Sotto quella soglia di ritardo gli altri.

Che sono 4005 MENO quelli che hanno un ritardo maggiore della soglia che hai stabilito.

Nel mio script hai la terza colonna con i ritardi

Guardi dove cade quello che vuoi

Sopra questo "taglio" hai gli ambi che vuoi.

Sotto tutti i rimanenti ad arrivare a 4005.

Il mio script lavora sul ritardo quello di Mike sulla frequenza

e sono uguali nei risultati.

 

[Mike58]

Prova questo altro mio script e visualizza quanti ambi vuoi vedere ordinato per ritardo o frequenza decrescente.

Sub Main
   Dim Nu(2),Ru(1),Mat(400005,6)
   Dim T,V
   Ini = EstrazioneFin-157
   fin = EstrazioneFin
   kk = InputBox("Quanti ambi vuoi visualizzare",,100)
   Ord = CInt(InputBox("Ordina Per " & Chr(13) & "2 - Freq Max" & Chr(13) & "4 - Rit  Max","ORDINAMENTO MAX",2))
   T = Array(T,"K","Ambo","Ruota","Freq","Rit","R_Max","VerificaEsito")
   Call InitTabella(T)
   ResetTimer
   For r = 11 To 11
      For n1 = 1 To 89
         For n2 = n1 + 1 To 90
            'n2 = Vert(n1)
            If n2 <> n1 Then
               k = k + 1
               Nu(1) = n1
               Nu(2) = n2
               Ru(1) = r
               n = StringaNumeri(Nu)
               Freq = SerieFreqTurbo(Ini,fin,Nu,Ru,2)
               rit = SerieRitardoTurbo(Ini,fin,Nu,Ru,2)
               sto = SerieStoricoTurbo(Ini,fin,Nu,Ru,2)
               Call VerificaEsitoTurbo(Nu,Ru,fin - rit,2,,,esito,,es1,id)
               'If esito = "" Then rit = rit + 1
               Mat(k,1) = n
               Mat(k,2) = Freq
               Mat(k,3) = SiglaRuota(r)
               Mat(k,4) = rit
               Mat(k,5) = es1
               Mat(k,6) = sto
            End If
         Next
      Next
   Next
   Call OrdinaMatrice(Mat,-1,Ord)
   For x = 1 To kk
      'Scrivi FormatSpace(x,6) & Mat(x,1) & vbTab & Mat(x,2) & vbTab & Mat(x,3) & vbTab & Mat(x,4) & vbTab & Mat(x,5)
      V = Array(V,x,Mat(x,1),Mat(x,3),Mat(x,2),Mat(x,4),Mat(x,6),Mat(x,5))
      Call AddRigaTabella(V)
   Next
   CreaTabella
   Scrivi TempoTrascorso
End Sub

 

[Mike58]

Ciao Joe e grazie dell'intrvento.

 

[trivellatomariotretre33]

Grazie Mike per la tua disponibilita e grazie anche a Joe siete bravissimi ,
vanno bene entrambi gli script
vi invio una stetta di mano chilometrica ciao.