Ciao a tutti
Per questo script mi sono ispirato a quanto scritto da Matteo (che saluto)
[QUOTE] Invece la cinquina più interessante per questo criterio è la ruota di FIRENZE, da me già segnalata per il ritardo 38.
Ho già detto al riguardo:
<<alcuni mesi fa partendo dal 1939 a tappeto per avere dei buoni confronti per tutti i ritardi da passo 1 a passo 41, ricavai tutti gli attuali ed i massimi storici corrispondenti per tutte le 10 ruote.
Trovai che il massimo si è registrato a CAGLIARI con il passo 37 e con 795 estraz.>>
Ora FI mi pare sia arrivata a 866 e quindi è sicuramente interessante.
Per individuarla, come già detto si prende il tabellone analitico degli ambi e se al rigo di ritardo 37 abbiamo una cinquina sincrona ancora integra la si mette in gioco, altrimenti si aspetta quando ne passa una.
Pertanto per questa sera abbiamo la cinquina
FIRENZE = 43.02.21.55.15
Ovviamente non sempre c'è la cinquina da giocare, infatti se questa sera non ci sarà sortita, al momento abbiamo cinquine a
ritardo 31, 32 e 35, perciò salteremo un concorso e poi altri.
Questo ci facilita nell'attesa con una spesa ridotta.
Ciao a tutti,
Matteo [QUOTE]
I ritardi però riguardano i colpi effettivi di gioco e non le estrazioni trascorse.
CODICE
'S.E.&O.
'Tabellone cinquine sincrone per AMBO
'Statistiche di rigo: colpi di gioco, storico colpi di gioco, esiti(terno=1ambi),estr. ultima sortita
Sub Main()
Dim num(5)
Dim ruota(1)
Dim rita(42)
Dim max(42)
Dim esiti(42)
Dim k(42)
Dim n(5)
rr = 3
eini = 3950'EstrazioneFin - 950
efin = EstrazioneFin
Scrivi NomeRuota(rr)
Scrivi "TABELLONE cinquine sincrone "
Scrivi "al " & DataEstrazione(efin)
x = 1
y = 41
Scrivi "da rigo " & x - 1 & " a rigo " & y - 1 & "...Tabellone......Colpi.Stor.esiti.. Ultima sort."
Scrivi
For ep = x To y
Messaggio ep
ruota(1) = rr
For i = eini To efin
For p = 1 To 5
num(p) = Estratto(i - ep,rr,p)
Next
If SerieFreq((i - ep) + 1,i - 1,num,ruota,2) = 0 And SerieFreq(i,i,num,ruota,2) > 0 Then
rita(ep) = 0
k(ep) = i
esiti(ep) = esiti(ep) + 1
Else
If SerieFreq((i - ep) + 1,i - 1,num,ruota,2) = 0 And SerieFreq(i,i,num,ruota,2) = 0 Then
rita(ep) = rita(ep) + 1
If max(ep) < rita(ep) Then max(ep) = rita(ep)
End If
End If
Next
Next
ini = EstrazioneFin - y
For es = ini To efin
Scrivi DataEstrazione(es) & " ",0,0
Scrivi SiglaRuota(rr) & " RC " & FormatSpace(efin - es,4),0,0
For p = 1 To 5
n(p) = Estratto(es,rr,p)
Next
sp = SerieFreq(es + 1,EFin,n,ruota,2)
If sp < 1 Then
ColoreTesto 0
Scrivi "|" & StringaEstratti(es,rr) & "| " & FormatSpace(rita((efin - es) + 1),6) & FormatSpace(max((efin - es) + 1),6) & _
FormatSpace(esiti((efin - es) + 1),6) & FormatSpace(k((efin - es) + 1),6)
Else If sp > 0 Then
Scrivi "|" & "..............| ",0,0
ColoreTesto 0
Scrivi FormatSpace(rita((efin - es) + 1),6) & FormatSpace(max((efin - es) + 1),6) & FormatSpace(esiti((efin - es) + 1),6) & _
FormatSpace(k((efin - es) + 1),6)
End If
End If
Next
End Sub
Saluti