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ì 31 gennaio 2025
    Bari
    49
    28
    64
    42
    46
    Cagliari
    53
    76
    89
    26
    13
    Firenze
    38
    51
    15
    50
    56
    Genova
    87
    09
    35
    30
    04
    Milano
    53
    25
    23
    09
    37
    Napoli
    01
    65
    38
    06
    15
    Palermo
    05
    07
    10
    26
    58
    Roma
    32
    31
    09
    46
    80
    Torino
    68
    20
    44
    51
    11
    Venezia
    90
    24
    62
    54
    61
    Nazionale
    20
    79
    07
    45
    60
    Estrazione Simbolotto
    Bari
    45
    37
    01
    41
    17

Ultimi Messaggi

Indietro
Alto