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
    venerdì 20 giugno 2025
    Bari
    33
    01
    29
    44
    22
    Cagliari
    44
    19
    09
    33
    01
    Firenze
    68
    14
    30
    61
    05
    Genova
    44
    53
    24
    79
    62
    Milano
    62
    72
    07
    21
    37
    Napoli
    48
    39
    29
    85
    11
    Palermo
    12
    50
    29
    76
    75
    Roma
    89
    02
    62
    78
    23
    Torino
    16
    45
    27
    23
    13
    Venezia
    36
    77
    81
    09
    73
    Nazionale
    17
    18
    01
    47
    88
    Estrazione Simbolotto
    Napoli
    15
    35
    27
    25
    14

Ultimi Messaggi

Indietro
Alto