| Autore |
 Discussione  |
|
|
vinci
Utente Sfegatato
Italy
1367 invii |
 Spedito - 21 febbraio 2025 : 18:05:14
|
Ciao DJ,
mi servirebbe uno script tabella che a una singola estrazione prenda in esame tutti e cinque numeri usciti nelle 11 ruote
riportando il relativo ritardo che aveva accumulato ogni numero prima di essere estratto.
Inoltre a fianco di ogni ruota riportare il ritardo minimo e quello massimo per analizzare la fascia di ritardo dei numeri usciti.
Non so se la mia richiesta è stata chiara se ci fossero dubbi chiedi, per adesso ti ringrazio in anticipo |
Roberto Vinci |
|
|
DjNomade
Utente Molto Appassionato
382 invii |
Spedito - 22 febbraio 2025 : 12:06:28
|
Con L8+ i ritardi li puoi vedere in questo modo
Per il listato non ho idea
[url=https://ibb.co/Kx11rZW8] [/url]
[url=https://ibb.co/YFd1qnBX] [/url] |
 |
|
|
vinci
Utente Sfegatato
Italy
1367 invii |
Spedito - 22 febbraio 2025 : 13:15:18
|
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
------------------------------------------------------------------
Ho ritrovato questo vecchio script e volevo vedere se riuscivo a capire se
ci poteva essere una fascia di ritardo dove poter ricavare in qualche modo
delle previsioni attendibili analizzando singolarmente le varie ruote.
Per adesso sono ai primi passi se ci fossero idee in merito sono ben accettate
Grazie |
Roberto Vinci |
|
|
|
DjNomade
Utente Molto Appassionato
382 invii |
Spedito - 22 febbraio 2025 : 21:06:47
|
|
Interessanteeeee |
|
|
|
vinci
Utente Sfegatato
Italy
1367 invii |
Spedito - 02 marzo 2025 : 18:37:04
|
Seguendo alcune dritte che questa metodologia propone,
per i prossimi 4 colpi si consiglia di tenere in evidenza
le seguenti combinazioni per estratto
NAZIONALE 69
CAGLIARI 47. 63
PALERMO 27. 32. 71. 85 per estratto e ambo |
Roberto Vinci |
|
|
| |
Discussione |
|
|
|
Per DJ Nomade Sript fascia di ritardo
