X JOE

[solare]

Ciao, chiedo cortesemente potresti aggiungere a questo tuo listato anche le frequenze delle decine ?


Option Explicit

Sub Main

'Ritardo = Colpi di Gioco - 1

Dim Ini,Fin,Es,k,kk

Dim D,N,Nu(10),Ru(1),Rc(12),Sf,So,R,Q

Ini = 7440 : Fin = EstrazioneFin : Q = 30 : So = AMBO_

Scrivi "Ultimi " & Q & " Ritardi di " & NomeSorte(So) & " in Decina Naturale.",True

Scrivi

Riga

Scrivi "DEC|",True,False : Ruote

Scrivi "NAT|",True,False : Colonne

Riga

For D = 0 To 8

k = 0

For N = 1 To 90

If DecinaNaturale(N) = D Then k = k + 1 : Nu(k) = N

Next

Scrivi Space(1) & D & " |",True,False

For R = 1 To 12 : If R = 11 Then R = 12

Ru(1) = R

k = 0 : kk = 0

For Es = Fin To Ini Step - 1

k = k + 1

Sf = SerieFreq(Es,Es,Nu,Ru,1)

If Sf >= So Then

kk = kk + 1 : If kk = 1 Then Rc(R) = k - 1

'Scrivi FormatSpace(kk,3) & DataEstrazione(Es) & " Rc. " & k

ReDim Preserve Rit(kk) : Rit(kk) = k - 1

k = 0

End If

If kk = Q Then Exit For

Next

OrdinaMatrice Rit,False

Scrivi FormatSpace(Rit(1),4,True),True,False

ColoreTesto 2 :Scrivi FormatSpace(Rc(R),4,True),True,False : ColoreTesto 7

Scrivi FormatSpace(Rit(kk),4,True),True,False

ColoreTesto 1 :Scrivi FormatSpace(SerieStoricoTurbo(1,Fin,Nu,Ru,So),4,True),True,False : ColoreTesto 0

Scrivi Space(1) & "|" & Space(0),True,False

Next

Scrivi

Riga

Next

Scrivi "DEC|",True,False : Colonne

Scrivi "NAT|",True,False : Ruote

Riga

Scrivi

Scrivi "Aggiornato al " & DataEstrazione(Fin),True

Scrivi

ColoreTesto 1 : Scrivi "Storico dal 1871" : Scrivi

ColoreTesto 2 : Scrivi "Script By Joe.",True : ColoreTesto 0

End Sub

Sub Ruote

Dim R

For R = 1 To 12 : If R = 11 Then R = 12

Scrivi Space(5) & FormatSpace(NomeRuota(R),12) & "|",True,False

Next

Scrivi

End Sub

Sub Colonne

Dim R

For R = 1 To 12 : If R = 11 Then R = 12

Scrivi FormatSpace(" Min",4,True),True,False

ColoreTesto 2 : Scrivi FormatSpace(" Att",4,True),True,False : ColoreTesto 7

Scrivi FormatSpace(" Max",4,True),True,False

ColoreTesto 1 :Scrivi FormatSpace("Sto",4,True),True,False : ColoreTesto 0

Scrivi Space(1) & "|" & Space(0),True,False

Next

Scrivi

End Sub

Sub Riga

Dim R

Scrivi String(3,"-") & "+",True,False

For R = 1 To 12 : If R = 11 Then R = 12

Scrivi String(17,"-") & "+",True,False

Next

Scrivi

End Sub

 

[joe]

Ciao Solare.

Non sono sicuro di aver capito bene.

Quello che chiedi sembra essere un dei dati e non uno dei risultati.

Specie se intende per frequenza quello che spesso per essa intende chi si occupa di Lotto.

Cioè se si calcola tutto in funzione di 30 Presenze è chiaro

che il risultato-presenze sarà (o perlomeno dovrebbe essere) 30.

In sintesi: Q = 30, nello script è un dato.

Fammi sapere.

 

[solare]

Ciao Joe, intanto grazie per il tuo interessamento.
Ok per quanto riguarda la presenza 30 tutto chiaro.
Chiedevo se si poteva aggiungere una colonna per ogni ruota in merito alla frequenza per ambo relativa al numero di estrazioni che io imposto. questo è ovviamente indipendente dal fattore 30 che va bene così com'è.
sempre che sia possibile.

 

[joe]

Ciao Solare,

Si tutto è possibile tuttavia io ho per mente un'idea di frequenza

piuttosto differente da quella di molti lottologi.

Dunque quello che ho fatto, potrebbe non andare bene, a molti.

Quanto chiedi in pratica è la stessa identica e parallela richiesta di lla.

Differisce solo dal tipo di formazioni che qui sono predefinite,

mentre nell'altro caso sarebbero definibili dall'utente.

Ho inserito un inputbox, con il quale si inserisce la lunghezza del periodo,

in colpi di gioco, per il quale si calcolano le presenze degli AMBI.

Ho tolto quindi quella che era la colonna minimo

perchè è sempre uguale a zero e raramente 1.

Inserendo appunto queste Presenze nella colonna "Pres"

[IMG2=JSON]{"data-align":"none","data-size":"full","src":"https:\/\/forum.lottoced.com\/image\/gif;base64,R0lGODlhAQABAPABAP\/\/\/wAAACH5BAEKAAAALAAAAAABAAEAAAICRAEAOw=="}[/IMG2]​

Esguendo con questa immagine anche una piccola sommaria verifica.

Buona serata a tutte/i.

Option Explicit
Sub Main
  'Ritardo = Colpi di Gioco - 1
  Dim Ini,Fin,Es,k,kk,P
  Dim D,N,Nu(10),Ru(1),Rc(12),Sf,So,R,Q
  Ini = 7440 : Fin = EstrazioneFin : Q = 30 : So = AMBO_ : P = 18 'Estrazioni
  P = CInt(InputBox("Quante ?","ESTRAZIONI",P))
  Scrivi "Ultimi " & Q & " Ritardi di " & NomeSorte(So) & " in Decina Naturale.",True
  Scrivi   
  Scrivi "Presenze di Ambi nelle ultime  " &P & " Estrazioni.",True 
  Scrivi 
  Riga
  Scrivi "DEC|",True,False : Ruote
  Scrivi "NAT|",True,False : Colonne
  Riga
  For D = 0 To 8
    k = 0
    For N = 1 To 90
      If DecinaNaturale(N) = D Then k = k + 1 : Nu(k) = N
    Next
    Scrivi Space(1) & D & " |",True,False
    For R = 1 To 12 : If R = 11 Then R = 12
      Ru(1) = R
      k = 0 : kk = 0
      For Es = Fin To Ini Step - 1
        k = k + 1
        Sf = SerieFreq(Es,Es,Nu,Ru,1)
        If Sf >= So Then
          kk = kk + 1 : If kk = 1 Then Rc(R) = k - 1
          'Scrivi FormatSpace(kk,3) & DataEstrazione(Es) & " Rc. " & k
          ReDim Preserve Rit(kk) : Rit(kk) = k - 1
          k = 0
        End If
        If kk = Q Then Exit For
      Next
      OrdinaMatrice Rit,False
      Scrivi FormatSpace(SerieFreq(EstrazioneFin - P + 1,EstrazioneFin,Nu,Ru,2),4,True),True,False
      ColoreTesto 2 :Scrivi FormatSpace(Rc(R),4,True),True,False : ColoreTesto 7
      Scrivi FormatSpace(Rit(kk),4,True),True,False
      ColoreTesto 1 :Scrivi FormatSpace(SerieStoricoTurbo(1,Fin,Nu,Ru,So),4,True),True,False : ColoreTesto 0
      Scrivi Space(1) & "|" & Space(0),True,False
    Next
    Scrivi
    Riga
  Next
  Scrivi "DEC|",True,False : Colonne
  Scrivi "NAT|",True,False : Ruote
  Riga
  Scrivi
  Scrivi "Aggiornato al " & DataEstrazione(Fin),True
  Scrivi
  ColoreTesto 1 : Scrivi "Storico dal 1871" : Scrivi
  ColoreTesto 2 : Scrivi "Script By Joe.",True : ColoreTesto 0
End Sub
Sub Ruote
  Dim R
  For R = 1 To 12 : If R = 11 Then R = 12
    Scrivi Space(5) & FormatSpace(NomeRuota(R),12) & "|",True,False
  Next
  Scrivi
End Sub
Sub Colonne
  Dim R
  For R = 1 To 12 : If R = 11 Then R = 12
    Scrivi FormatSpace("Pres",4,True),True,False
    ColoreTesto 2 : Scrivi FormatSpace(" Att",4,True),True,False : ColoreTesto 7
    Scrivi FormatSpace(" Max",4,True),True,False
    ColoreTesto 1 :Scrivi FormatSpace("Sto",4,True),True,False : ColoreTesto 0
    Scrivi Space(1) & "|" & Space(0),True,False
  Next
  Scrivi
End Sub
Sub Riga
  Dim R
  Scrivi String(3,"-") & "+",True,False
  For R = 1 To 12 : If R = 11 Then R = 12
    Scrivi String(17,"-") & "+",True,False
  Next
  Scrivi
End Sub

 

[solare]

Ciao Joe, come sempre intuisci alla grande…….perfetto....
Grazie ancora