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 27 settembre 2025
    Bari
    38
    55
    18
    54
    58
    Cagliari
    15
    58
    62
    51
    78
    Firenze
    01
    10
    50
    21
    20
    Genova
    66
    33
    51
    03
    04
    Milano
    01
    74
    66
    42
    26
    Napoli
    80
    60
    31
    17
    22
    Palermo
    42
    26
    72
    68
    48
    Roma
    57
    62
    79
    89
    56
    Torino
    01
    28
    27
    32
    85
    Venezia
    18
    23
    28
    70
    81
    Nazionale
    36
    78
    02
    52
    65
    Estrazione Simbolotto
    Palermo
    03
    04
    24
    45
    29
Indietro
Alto