Novità

Spaziometria Empirica

ho fatto una prima scrematura prendendo in considerazione le frequenze di questi 16 numeri ed eliminato quelli che hanno 1/ 2 presenze poi quelle che hanno 3 presenze e sono 6 li uso per fare lunghette , infine rimangono quelli che ( sto sempre riferendomi alle quaterne e alla cinquina uscita ) hanno 4 / 5 / 6 uscite
sestina base 24 32 34 45 63 82 / 5 56 58 59 69 78 abb. per fare 6 settine con la base ... proviamo a vedere cosa succede
NAZIONALE QUATERNA IL 01 MARZO 24 34 56 59 E DUE TERNI IN SETTINA
NAPOLI 02 marzo 24 34 82 TERNO NELLA SESTINA BASE
DICIAMO CHE 24 34 82 SONO ABBASTANZA COSTANTI .... SI PROSEGUE IL MONITORAGGIO .... proviamo a ridurre la sestina
24 34 63 82 quartina di base 32 45 per la sestina / con gli abbinamenti che vedremo di diminuire sempre più ... ma mi serve tempo che ora non ho 🙏🙏🙏🙏
 
Ultima modifica:
Nuovo spunto x appassionarvi a questa disciplina e sempre con la stessa regola.....
pochi numeri ma sistemati in armonia.Queste ricerche raramente cannano ma
la ruota è sempre un problema.Io dico BARI perchè ho convergenze con le mie menate.
Attendiamo un eventuale esito.


bari.png
 
Codice:
'Figura del rombo
'Script Cinzia27
Sub Main()
Dim n(2),ru(1),ps(2)
ps(1)=1
ps(2)=1

For es=8117 To EstrazioneFin
For r=1 To 11
If r=11 Then r=12
ru(1)=r
 

aa=Estratto(es-4,r,3)
aa1=Estratto(es-2,r,1)'--
aa2=Estratto(es,r,3)
aa3=Estratto(es-2,r,5)'--



If (aa=aa1 )  Then


'=========================================================================================
Scrivi DataEstrazione(es-4) &" "&FormatSpace(es-4,5,1)&" "&SiglaRuota(r)&" ",0,0
For p=1 To 2
ColoreTesto 0
Scrivi Format2(Estratto(es-4,r,p))&".",0,0
Next
ColoreTesto 2
Scrivi Format2(Estratto(es-4,r,3))&".",0,0
ColoreTesto 0
For p1=4 To 5
ColoreTesto 0
If p1<5 Then Scrivi Format2(Estratto(es-4,r,p1))&".",0,0 Else Scrivi Format2(Estratto(es-4,r,p1))
Next

Scrivi DataEstrazione(es-3) &" "&FormatSpace(es-3,5,1)&" "&SiglaRuota(r)&" "&StringaEstratti(es-3,r)

Scrivi DataEstrazione(es-2) &" "&FormatSpace(es-2,5,1)&" "&SiglaRuota(r)&" ",0,0
ColoreTesto 2
Scrivi Format2(Estratto(es-2,r,1))&".",0,0
For p2=2 To 4
ColoreTesto 0
Scrivi Format2(Estratto(es-2,r,p2))&".",0,0
Next
Scrivi Format2(Estratto(es-2,r,5))

Scrivi DataEstrazione(es-1) &" "&FormatSpace(es-1,5,1)&" "&SiglaRuota(r)&" "& StringaEstratti(es-1,r)

Scrivi DataEstrazione(es) &" "&FormatSpace(es,5,1)&" "&SiglaRuota(r)&" "& StringaEstratti(es,r)

Scrivi
n(1)=aa2
n(2)=aa3
ImpostaGiocata 1,n,ru,ps,5,2
Gioca es
Scrivi String (40,"*")
End If


Next

Next
ScriviResoconto
End Sub
 
Ultima modifica:

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 30 maggio 2026
    Bari
    87
    61
    14
    25
    38
    Cagliari
    72
    01
    87
    13
    26
    Firenze
    34
    60
    05
    42
    54
    Genova
    62
    05
    18
    69
    73
    Milano
    14
    54
    29
    81
    83
    Napoli
    71
    76
    89
    19
    25
    Palermo
    33
    15
    48
    26
    65
    Roma
    67
    47
    02
    86
    42
    Torino
    78
    87
    66
    10
    52
    Venezia
    84
    23
    40
    15
    24
    Nazionale
    77
    72
    73
    56
    83
    Estrazione Simbolotto
    Milano
    32
    25
    42
    31
    23

Ultimi Messaggi

Indietro
Alto