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 19 luglio 2025
    Bari
    70
    37
    36
    68
    01
    Cagliari
    57
    02
    64
    33
    41
    Firenze
    18
    62
    09
    05
    06
    Genova
    36
    10
    74
    37
    42
    Milano
    39
    07
    58
    23
    22
    Napoli
    18
    69
    28
    36
    40
    Palermo
    71
    66
    72
    64
    23
    Roma
    19
    64
    39
    77
    10
    Torino
    83
    63
    71
    08
    72
    Venezia
    51
    83
    26
    50
    74
    Nazionale
    89
    81
    63
    32
    03
    Estrazione Simbolotto
    Nazionale
    16
    32
    21
    19
    03

Ultimi Messaggi

Indietro
Alto