il 7/1/2012 è uscito un terno in cadenza 4
il 12/1/2012 è uscito un ambo in cadenza 4
-----------------------------------------
il 19/1/2012 è uscito un ambo in cadenza 9
-----------------------------------------
lo script che ho abbozzato trova la prima condizione (1=numero uguale isotopo in 2 concorsi consecutivi)
e calcola i colpi alla sortita dell'ambo successiva.
dal riepilogo in fondo emerge questo dato:
che i colpi da preventivare possono arrivare a 30 colpi
con una certa copertura della giocata, ma che una certa quantità di casi negativi in questo range (0-30)
può liberamente sconfinare anche a 77 per bari ma per altre ruota anche intorno a 100 colpi.
è difficile quindi dare indicazioni, senza stabilire ulteriori condizioni.
perchè gli ultimi ambi sono appena usciti, da neanche un mesetto.
per quello che posso dire dal mio punto di vista, è che la cadenza 9 mi sembra promettente
in particolare potrebbe esserci un capogioco 39.
il 9 è uscito ma non è stato seguito da altro suo compagno di cadenza.
ma qualcosa ronza in giro.
aproposito questa è la bozza dello script
ti ricordo che valuta solo l'isotopia nella condizione 1
e va bene anche per tutte le altre ruote, basta impostarla all'inizio.
appena avrò tempo cercherò di fare la modifica per la 2 condizione.
ci aggiorneremo.
comunque prova lo script con le ruote di FI-MI-RO-VE
ci sono le condizioni di gioco.
Codice:
Sub Main()
Dim colpi(200)
r = InputBox("Inserisci la ruota su cui effettuare la ricerca(1 - 10)",,1)
ColoreTesto(1)
Scrivi " -----------------------------------------------------------------",1
Scrivi " Verifica Esito dell'ambo dopo l'uscita isotopa di 1 numeri uguale",1
Scrivi " In 2 concorsi consecutivi (ARMAUS)",1
Scrivi " Verifica effettuata su Ruota " & NomeRuota(r)
Scrivi " -----------------------------------------------------------------",1
ColoreTesto(0)
'''preimposta inizio estrazioni per ruote nate recentemente
dal = 1 ' inizio tutte le altre ruote
If r = 12 Then dal = 7440 'inizio nazionale
If r = 1 Then dal = 174 'inizio bari
If r = 2 Then dal = 3649 'inizio cagliari
If r = 4 Then dal = 3577 'inizio genova
max = 0
For n = dal To EstrazioneFin
If n < EstrazioneFin Then
ReDim nr(9)
For i = 1 To 5
If Estratto(n,r,i) = Estratto(n + 1,r,i) Then
If Cadenza(Estratto(n,r,i)) = 0 Then
cv = Cadenza(Estratto(n,r,i)) + 10
For x = 1 To 9
nr(x) = cv
cv = cv + 10
Next
Else
cv = Cadenza(Estratto(n,r,i))
For x = 1 To 9
nr(x) = cv
cv = cv + 10
Next
End If
parte = n + 2
ReDim ruote(1)
ruote(1) = r
If VerificaEsito(nr,ruote,parte,2,,,RetColpi,RetEstratti,RetIdEstr,aRetRuote) Then
Scrivi n & "/" & DataEstrazione(n) & " " & Estratto(n,r,i) & "...cad.x ambo.." & Cadenza(Estratto(n,r,i)) & "...successiva..." & n + 1 & "/" & DataEstrazione(n + 1) & " " & Estratto(n + 1,r,i)
ColoreTesto(1)
Scrivi nr(1) & " " & nr(2) & " " & nr(3) & " " & nr(4) & " " & nr(5) & " " & nr(6) & " " & nr(7) & " " & nr(8) & " " & nr(9) & "......Esito...." & RetIdEstr & "- n.colpo." & RetEstratti
Scrivi "-------------"
ColoreTesto(0)
Else
Scrivi n & "/" & DataEstrazione(n) & " " & Estratto(n,r,i) & "...cad.x ambo.." & Cadenza(Estratto(n,r,i)) & "...successiva..." & n + 1 & "/" & DataEstrazione(n + 1) & " " & Estratto(n + 1,r,i) & "..........in corso.........."
End If
If Int(RetEstratti) > max Then Max = RetEstratti
colpi(Int(RetEstratti)) = colpi(Int(RetEstratti)) + 1
End If
Next
End If
Next
ColoreTesto(2)
Scrivi " Il Ritardo Massimo per l'uscita di 1 ambo è stato di n.colpi. " & max,1
Scrivi " Riepilogo colpi..."
For f = 1 To 200
If colpi(f) > 0 Then Scrivi " colpo n." & f & "...." & colpi(f)
Next
ColoreTesto(0)
End Sub
