Ricerca statistica per giorno e mese

[korokoro]

Ricerca statistica per giorno e mese


Salve , cerco un script che possa far trovare tutti gli ambi usciti in una precisa data del anno , esempio : tutti gli ambi usciti soltanto il 5 di gennaio su tutte le ruote dal
1946 ad oggi .

Sempre che sia possibile farlo........

Grazie Leo

 

[claudio8]

Se cerchi tra i vecchi post , troverai credo uno script che fa per te.


http://forum.lottoced.com/f12/script-estrazioni-datate-archivi-completi-3733/



Script Estrazioni Datate Archivi Completi

 

[korokoro]

grazie claudio ........ ma non girano per quello che vorrei .
grazie ancora Leo

 

[Joe91]

Ricerca statistica per giorno e meseSalve , cerco un script che possa far trovare tutti gli ambi usciti in una precisa data del anno , esempio : tutti gli ambi usciti soltanto il 5 di gennaio su tutte le ruote dal1946 ad oggi .Sempre che sia possibile farlo........Grazie Leo

Ciao Leo.

Mi sarà possibile provare una soluzione per la tua richiesta solo la prossima settimana.

Se non provvedono altri ...Cercherò di farlo io.

buona serata

 

[korokoro]

Grazie

 

[Joe91]

Buon Giorno a tutti,


Allo script segnalato da Claudio ... (che ringrazio)

ho aggiunto un rudimentale conteggio degli Ambi ... ordinandoli per quantità di presenze.

Fornisce questo output.

Ho potuto, per ora, controllare ... riscontrando i risultati con archivio di altro programma,

solamente il primo Ambo ... che ho evidenziato ritrovando le 3 presenze in tabella dell'Ambo 8.37

come visibile nell'immagine che ho proposto.

Cordiali saluti

 

[korokoro]

Grazie Joe , lo posti ?
ciao leo

 

[Joe91]

Ciao Leo.

Ricorda che, non ho controllato che il primo Ambo ... trovandoci accanto anche il 61.

'Data SemiDeterminata V.3.0. Scritto da Joe91 per Tiziano, Alba, 11/11/11
'Ambi Ripetuti nella Data SemiDeterminata  V.1.0. del 10/01/12 per Leo (korokoro / Lottoced)  

Sub Main()
 Dim Bi(89,90)
 Ini = 3950
 Fin = EstrazioneFin
 I = InputBox("... separati da un punto.","Inserisci GIORNO e MESE ...","10.11")
 Rif = Split(I,".")
 Scrivi "Data Estr.    ",1,0
 For R = 1 To 10
  Scrivi FormatSpace(NomeRuota(R),14) & "  ",1,0
 Next
 Scrivi
 For Es = Ini To Fin
  Dt = DataEstrazione(Es)
  Nu = Split(Dt,".")
  If(Nu(0) = Rif(0)) And(Nu(1) = Rif(1)) Then
   Scrivi StringaNumeri(nu) & " ",1,0
   For R = 1 To 10
     SE = SommaEstratti(Es,R)
    If SE >= 15 Then
     E = StringaEstratti(Es,R) :  Nu = Split("0." & E,".")
     For P = 1 To 5 : Scrivi Nu(P) & " ",0,0 : Next : Scrivi " ",0,0
     OrdinaMatrice Nu,1
      For P1 = 1 To 4
       For P2 = P1 + 1 To 5
         
         Bi (Nu(P1),Nu(P2)) = Bi(Nu(P1),Nu(P2)) + 1
        
       Next
      Next
     
     Else
     Scrivi "  .  .  .  .  " & " ",0,0
    End If
   Next
   Scrivi
  End If
 Next                      
 Scrivi
 For F = 10 To 2 Step - 1
  For A = 1 To 89
   For B = A + 1 To 90
     If Bi(A,B) = F Then Scrivi Format2(A) & "." & Format2(B) & " Pr. = " & F
   Next
  Next
 Next
End Sub

 

[korokoro]

Bravo grazie

pace e un colpo di c.....