Novità

BARI:Statistiche di rigo per ambo, sincrononi di livello 3

FABIO60

Super member
Script:

Sub Main()
Dim ruota(1)
Dim a1(1),a2(1),a3(1),a4(1),a5(1)
Dim max(90),rita(90),pres(90),esiti(90)
Dim num(5)
For rr = 1 To 1
Messaggio NomeRuota(rr)
ruota(1) = rr
eini =3950' EstrazioneFin - 1500
efin = EstrazioneFin
Scrivi
Scrivi
Scrivi NomeRuota(rr)
Scrivi "Statistiche di rigo per ambo dei sincrononi di livello 3(quando sono presenti TRE numeri "
Scrivi "dal" & DataEstrazione(eini) & " al " & DataEstrazione(efin)
x = 1
y = 55
Scrivi "da rigo " & x & " a rigo " & y
Scrivi
For ep = x To y
AvanzamentoElab x,y,ep
For i = eini To efin
For p = 1 To 5
num(p) = Estratto(i -(ep + 1),rr,p)
Next
a1(1) = Estratto(i -(ep + 1),rr,1)
a2(1) = Estratto(i -(ep + 1),rr,2)
a3(1) = Estratto(i -(ep + 1),rr,3)
a4(1) = Estratto(i -(ep + 1),rr,4)
a5(1) = Estratto(i -(ep + 1),rr,5)
If SerieFreq(i - ep,i - 1,a1,ruota,1) > 0 Then num(1) = - 1
If SerieFreq(i - ep,i - 1,a2,ruota,1) > 0 Then num(2) = - 1
If SerieFreq(i - ep,i - 1,a3,ruota,1) > 0 Then num(3) = - 1
If SerieFreq(i - ep,i - 1,a4,ruota,1) > 0 Then num(4) = - 1
If SerieFreq(i - ep,i - 1,a5,ruota,1) > 0 Then num(5) = - 1
OrdinaMatrice num,- 1
If num(3) > 0 And num(4) < 1 Then
pres(ep) = pres(ep) + 1
End If
If num(3) > 0 And num(4) < 1 And SerieFreq(i,i,num,ruota,2) > 0 Then
rita(ep) = 0
esiti(ep) = esiti(ep) + 1
Else
If num(3) > 0 And num(4) < 1 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
Scrivi "rigo" & Space(3),0,0
Scrivi " rit__sto__pres__sortite" & Space(5),0,0
Scrivi
For es = eFin - y To eFin
Scrivi "RC " & FormatSpace(efin - es,5) & " " & FormatSpace(rita(efin - es),4) & " "_
& FormatSpace(max(efin - es),4) & " " & FormatSpace(pres(efin - es),4) & " " & FormatSpace(esiti(efin - es),4)
Next
Erase rita
Erase max
Erase pres
Erase esiti
Next
End Sub


output:
Bari Statistiche di rigo per ambo dei sincrononi di livello 3(quando sono presenti TRE numeri dal14.09.1946 al 05.09.2017 da rigo 1 a rigo 55 ''''''''
RC 7 697 697 1800 16 '''''''
Saluti
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 25 luglio 2025
    Bari
    53
    75
    06
    08
    43
    Cagliari
    62
    52
    59
    55
    72
    Firenze
    54
    13
    56
    14
    62
    Genova
    07
    84
    21
    58
    20
    Milano
    27
    28
    62
    61
    04
    Napoli
    16
    43
    31
    68
    50
    Palermo
    72
    34
    60
    40
    66
    Roma
    46
    72
    66
    36
    11
    Torino
    77
    29
    23
    11
    48
    Venezia
    24
    77
    41
    48
    21
    Nazionale
    70
    83
    17
    40
    71
    Estrazione Simbolotto
    Nazionale
    09
    13
    05
    38
    03
Indietro
Alto