Script di Mike 58 per fasce di ritardo

[vinci]

Sub Main
Dim Ru(1),T,V
ritroso = CInt(InputBox("quante Estrazioni indietro",,1))
Ini = EstrazioneFin - 300
fin = EstrazioneFin - ritroso
Fine = EstrazioneFin
fs = CInt(InputBox("Quale fascia di ritardo Minima",,54))
fsx = CInt(InputBox("Quale fascia di ritardo Massima",,210))
Scrivi
SetColorSezione(6)
Scrivi "Inizio Range : " & GetInfoEstrazione(Ini)
Scrivi "Fine Range : " & GetInfoEstrazione(fin)
Scrivi "Fascie di Ritardo > a " & fs,1
Scrivi "Fascie di Ritardo > a " & fsx,1

Scrivi
EndColorSezione
T = Array(T,"Ruota","Presenze Reali","Numeri","Ritardi Relativi Num","Min","Max","Presenza teorica","Scarto","Colpo","VerificaEsito","Ritardo Rp_Gruppo")
Call InitTabella(T,,,3,1,"Cambria")
For r = 1 To 12
If r = 11 Then r = 12
Ru(1) = r
For n = 1 To 90
Nrit = EstrattoRitardo(r,n,Ini,fin)
If Nrit > fs And Nrit < fsx Then
k = k + 1
ReDim Preserve aNum(k)
aNum(k) = n
ReDim Preserve pos(k)
pos(k) = RitPosCrono(n,Ru,fine)
minGr = MinimoV(pos,1,- 1) ' visualizza il minimo Rp_Gruppo
'slr = RitSincDiLiv(n,Ru,fine,k)
End If
If Nrit > fs And Nrit < fsx Then
ReDim Preserve NritNum(k)
NritNum(k) = Nrit
min = MinimoV(NritNum,1,- 1)
max = MassimoV(NritNum)
End If
Next

If k > 0 Then
kk = Round(QuantitaTeoricaCombCompreseTraRit(min,max,1,1,1),2)
kkk = k - kk
Call VerificaEsitoTurbo(aNum,Ru,fine,1,1,,,clp,es1)
'aa = SerieRitardoTurbo(Ini,fin,aNum,Ru,1) ' visualizza anche il ritardo minimo
V = Array(V,SiglaRuota(r),k,StringaNumeri(aNum),StringaNumeri(NritNum),min,max,kk,kkk,clp,es1,minGr)
Call AddRigaTabella(V,,,3,,"Cambria")
Else
vv = Array(vv,SiglaRuota(r),"-","..","..","..","..","..","..","..","..","..","..")
Call AddRigaTabella(vv,,,3,,"Cambria")
End If
If kkk > 1.20 Then Call SetColoreCella(8,,2)
k = 0
kk = 0
If ScriptInterrotto Then Exit For
Next
Call SetTableWidth("100%")
CreaTabella
Scrivi
Scrivi "Script by Mike58",1,,,2,3,,1
End Sub


-----------------------------

Nel mio archivio ho ritrovato questo script di Mike 58 che analizza i numeri di tutte 11 le ruote usciti entro un range di fascia di ritardo
che possiamo stabilire a nostra volontà. Facendo varie prove e simulazioni, ho notato che analizzando più combinazioni
di numeri sulle singole ruote, spesso nell'estrazioni successive si possono verificare uno o più estratti contemporaneamente.
Dilemma principale rimane quale range di fascia di ritardo esaminare e con quale criterio scegliere la ruota su cui giocare i numeri ricavati.
Io ho lanciato l'idea vediamo se può essere interessante oppure no.

 

[max63]

Ciao Vinci..questo script di Mike é molto interessante ma dovrebbe essere implementato con la legge del terzo su ogni rispettiva fascia di ritado.

Esempio:

Fascia da 0 a 17 in teoria i numeri estratti dovrebbero essere 60.....invece ne troviamo XX...scarto di XX
Fascia da 18 a 35 Numeri teorici 23...numeri effettivi XX...scarto di XX
Fascia da 36 a 53 Numeri teorici 6..numeri effettivi XX...scarto di XX
Fascia da 54 a 71Numeri teorici 2...numeri effettivi XX...scarto di XX
Fascia da 72 a 89 Numeri teorici 1...numeri effettivi X..scarto di XX
Fascia da 90 a oltre Numeri teorici 1..numeri effettivi X..scarto di XX

Questo permetterebbe di valutare la situazione delle varie fasce di ritardo e rendersi conto se azzardare un gioco d estratto o sfruttare vari abbinamenti per le sorti superiori.

Semmai qualcuno volesse prodigarsi.

Un saluto a tutti