fillotto
Advanced Member >PLATINUM<
Nel lontano 67 il mio primo lavoro fu quello di scrivere i numeri in un banco lotto , li c'era una vecchia smorfia con alcuni metodi di un certo "Rutilio Benincasa"
fra questi il migliore era di una sempicità incredibile : in una delle 10 ruote ,quando il 2° estratto era un vertibile puro (quindi di due cifre con esclusione dei numeretti, dei gemelli, della cadenza 9 e della cadenza 0 per un totale di 56 numeri) dall'estrazione successiva x 4/5 colpi giocare l'estratto e anche l'ambo della quartina radicale relativa all'unità del 2° estratto solo se vertibile puro
Es: se il numero risultava essere 21 allora si giocava 1.10.11.19
se il numero risultava essere 32 allora si giocava 2.20.22.29
se il numero risultava essere 73 allora si giocava 3.30.33.39
ecc 58 ...................... 8.80.88.89
La regola conprendeva anche la necessità che nell'estrazione dove era stato rinvenuto il vert puro al 2° posto e nelle 4 precedenti estrazioni non vi fosse presente uno dei 4 numeri della relativa quartina radicale nel chiaro intento di avere maggiori scance di sortita perchè un po ritardari (mica era fesso il Rutilio !
).
Ora ho provato a fare uno script per misurare questo vecchio metodo con SPAZIO ma ho difficoltà a stabilire il ritardo relativo della quartina radicale connessa all'uscita di un vert puro mentre per la quartina radicale la riesco a determinarla con una serie richiesta di cadenza l'uso di Mod 10 ecc
Per la definizione di vert puro come procedere? ho tentato di modificare uno script del bravo Mike58 innestando l'uso dello split (di Joe91)per la determinazione dei VERT PURI ma ..... ecco lo script di Mike58 ... Me lo puoi vedere??
fra questi il migliore era di una sempicità incredibile : in una delle 10 ruote ,quando il 2° estratto era un vertibile puro (quindi di due cifre con esclusione dei numeretti, dei gemelli, della cadenza 9 e della cadenza 0 per un totale di 56 numeri) dall'estrazione successiva x 4/5 colpi giocare l'estratto e anche l'ambo della quartina radicale relativa all'unità del 2° estratto solo se vertibile puro
Es: se il numero risultava essere 21 allora si giocava 1.10.11.19
se il numero risultava essere 32 allora si giocava 2.20.22.29
se il numero risultava essere 73 allora si giocava 3.30.33.39
ecc 58 ...................... 8.80.88.89
La regola conprendeva anche la necessità che nell'estrazione dove era stato rinvenuto il vert puro al 2° posto e nelle 4 precedenti estrazioni non vi fosse presente uno dei 4 numeri della relativa quartina radicale nel chiaro intento di avere maggiori scance di sortita perchè un po ritardari (mica era fesso il Rutilio !
).Ora ho provato a fare uno script per misurare questo vecchio metodo con SPAZIO ma ho difficoltà a stabilire il ritardo relativo della quartina radicale connessa all'uscita di un vert puro mentre per la quartina radicale la riesco a determinarla con una serie richiesta di cadenza l'uso di Mod 10 ecc
Per la definizione di vert puro come procedere? ho tentato di modificare uno script del bravo Mike58 innestando l'uso dello split (di Joe91)per la determinazione dei VERT PURI ma ..... ecco lo script di Mike58 ... Me lo puoi vedere??
Codice:
Sub Main()
Dim num(1),numad(5),ruota(1),sorte,k
V = "00.12.13.14.15.16.17.18.21.23.24.25.26.27.28.31.32.34.35.36.37.38.41.42.43.45.46.47.48.51.52.53.54.56.57.58.61.62.63.64.65.67.68.71.72.73.74.75.76.78.81.82.83.84.85.86.87" 'il vettore " V "
''contiene una stringa formata come si vede da "00.12.13 ecc .....87" Split() divide una stringa in un Array di stringa
''ho una serie di numeri quali 00.04.49.05.48.06.07. ma in una forma irregolare e teoricamente illeggibile . Il carattere punto (.)
''presente nella stringa mi consente di avere un utile riferimento per dividere la stringa come meglio conviene.
'
Nv = Split(V,".") : Ub = UBound(Nv)'Split() divide una stringa in un Array di stringa gli argmenti sono la stringa"V" e il "."
'' Ub = UBound La funzione UBound restituisce il numero di item di un array, ovvero, in gergo, la sua "lunghezza".
r = CInt(InputBox("Quale ruota ",,1))
nstart = Timer
Ini = EstrazioneIni
fin = EstrazioneFin
diff = fin - Ini
Scrivi" Statistica Veloce Analitica su Numeri VERTIBLI PURI (56) RITARDATARI E LA RELATIVA QUARTINA RADICALE " & " ",1,- 1,6
Scrivi String(100,"=")
Scrivi " Dalla data..." & DataEstrazione(Ini) & " - alla data..." & DataEstrazione(fin) & " - Estrazioni Totali esaminate..." & DIFF,1
Scrivi String(100,"=")
Scrivi
'--------- crea tabella---------------
ReDim atitoli(20)
atitoli(1) = " Ruota "
atitoli(2) = " Numero "
atitoli(3) = " Num + Lat "
atitoli(4) = " RD1 "
atitoli(5) = " RD2 "
atitoli(6) = " RD3 "
atitoli(7) = " RD4 "
atitoli(8) = " RD5 "
atitoli(9) = " Ritardo attuale "
atitoli(10) = " Ritardo Storico "
atitoli(11) = " incr. storico "
atitoli(12) = " Frequenza "
atitoli(12) = " - esito - "
atitoli(13) = " - stringa Esito- "
'atitoli(14) = " Estratti ultimi "
atitoli(16) = " RP1 "
atitoli(17) = " RP2 "
atitoli(18) = " RP3 "
atitoli(19) = " RP4 "
atitoli(20) = " RP5 "
' inizializzo la tabella
Call InitTabella(atitoli,1,,,5)
'For r = 1 To 12
'If r = 11 Then r = 12
For k = 1 To UB 'K vale da 1 a 56
'°°°°°°°°°°°°°°°°°°°°°°
'
ruota(1) = r
num(1) = k
numad(1) = num(1) 'QUESTO DEVE RIMANERE COSI' COM'E' PURCHE' SIA UN NUM APPARTENENTE AI 56 DELLO ARRAY
numad(2) = Fuori90(num(1) + 1)
numad(3) = Fuori90(num(1) - 1)
numad(4) = Fuori90(num(1) + 2)
numad(5) = Fuori90(num(1) - 2)
'If k = PiuRitardatario(fin,r) Then
Call AvanzamentoElab(Ini,fin,n)
If ScriptInterrotto Then Exit For
Call StatisticaFormazione(numad,ruota,1,rit,ritmax,incrRitMax,freq,Ini,fine)
Call VerificaEsito(numad,ruota,fin,1,1,,retesito,retcolpi,retestratti)
'----- calcolo valori in tabella --------------
ReDim avalori(20)
avalori(1) = NomeRuota(r)
avalori(2) = k
avalori(3) = numad(1) & "." & numad(2) & "." & numad(3) & "." & numad(4) & "." & numad(5)
avalori(4) = RitDiPos(numad,1,ruota)
avalori(5) = RitDiPos(numad,2,ruota)
avalori(6) = RitDiPos(numad,3,ruota)
avalori(7) = RitDiPos(numad,4,ruota)
avalori(8) = RitDiPos(numad,5,ruota)
avalori(9) = rit
avalori(10) = ritmax
avalori(11) = incrRitMax
avalori(12) = freq
avalori(12) = retesito
avalori(13) = retestratti
'avalori(14) = StringaEstratti(fin,r)
ReDim aretritardi(0)
ReDim aretidestr(0)
Call ElencoRitardi(numad,ruota,1,Ini,fin,aretritardi,aretidestr)
last1 = UBound(aretritardi) - 1
For x = last1 To UBound(aretritardi) - 1
avalori(16) = aretritardi(x)' & " - alla data " & DataEstrazione(aretidestr(x))
Next
last2 = UBound(aretritardi) - 2
For xx = last2 To UBound(aretritardi) - 2
avalori(17) = aretritardi(xx) '& " - alla data " & DataEstrazione(aretidestr(xx))
Next
last3 = UBound(aretritardi) - 3
For xxx = last3 To UBound(aretritardi) - 3
avalori(18) = aretritardi(xxx)' & " - alla data " & DataEstrazione(aretidestr(xxx))
Next
last4 = UBound(aretritardi) - 4
For xxxx = last4 To UBound(aretritardi) - 4
avalori(19) = aretritardi(xxxx) '& " - alla data " & DataEstrazione(aretidestr(xxxx))
Next
last5 = UBound(aretritardi) - 5
For xxxxx = last5 To UBound(aretritardi) - 5
avalori(20) = aretritardi(xxxxx) '& " - alla data " & DataEstrazione(aretidestr(xxxxx))
Next
Call AddRigaTabella(avalori,,,2)
Call SetColoreCella(9,,1)
Call SetColoreCella(2,,2)
Call SetColoreCella(3,,7)
If rit > 100 Then Call SetColoreCella(9,vbGreen)
'End If
Next
'Next
Call CreaTabella()
nend = Timer
Call Scrivi("Tempo di elaborazione : " & FormattaSecondi((nend + 1) - nstart))
Scrivi
Scrivi " Tabella listed By Mike58 ",1,- 1,6
Scrivi
Scrivi "Statistica riferita ai numeri generati dal più ritardatario e laterali..." & ad,1,- 1,4
Scrivi" Richiesta by Giulio_LG ",1,- 1,3
End Sub
Function RitDiPos(numad,pos,ruota)
ReDim apos(5)
ReDim aruota(1)
ReDim anum(1)
anum(1) = num
apos(pos) = True
aruota(1) = ruota
RitDiPos = RitardoCombinazione(ruota,numad,1,0,apos)
End Function
Function FormattaSecondi(s)
'Questa Function trasforma il numero di secondi passato come parametro in una stringa
' passando i secondi si ottengono ore minuti e secondi in formato hh:mm:ss
' s ---> Numero di secondi da formattare
' ritorna una stringa il cui formato è hh:mm:ss (la function non funziona se in totale abbiamo piu di 99 ore )
Dim hh
Dim Mm
Dim Ss
Dim TimeStr
hh = s \ 3600
Mm =(s Mod 3600) \ 60
Ss = s -((hh * 3600) +(Mm * 60))
TimeStr = Format2(hh) & ":" & Format2(Mm) & ":" & Format2(Ss)
FormattaSecondi = TimeStr
End Function
