Novità

Spaziometria Empirica

Anche ieri ambetto ... ma a tt stavolta🫠 .. ancora una settimana ti do e poi ti affondo nella fossa delle Marianne 😜😜😜😜
Ambetto a Torino 🤐 ho giocato Roma e Torino ma al LottoPiù e non ho messo l'ambetto... avrei dovuto fare la schedina a parte e non l'ho fatto... pazienza .... sto noleggiando il batiscafo Picard per affossarti giù nella fossa delle Marianne .... hai "rimasto" solo due colpi 😬😬😬😬 ocio 🤣🤣🤣🤣🤣🤣🤣🤣
 
Ho inserito sopra uno script giusto per allenarmi.
Grazie Cinzia27 riusciresti a inserire la figura completa? Se riesci è un capolavoro per chi si avvicina a questi insegnamenti. Grazie di cuore a tutti in particolare a BaffoBlù e mi raccomando finchè riesci a combattere mai arrendersi. La Bandiera si abbassa ma giusto per rialzarla di nuovo per farla sventolare al vento con il fiato dell'inno di Mameli cantato con tutto il fiato e con tutto il cuore. W l'ITALIA 🇮🇹
 
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+1) &" "&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
Cinzia potresti trovare la figura rombo von 3 numeri uguali ?

Ciao Eugenio
 
Per Genios, sono eventi rari e come vedi l'ambata residua esce con comodo.
Codice:
'Figura del rombo 1 numero diverso su 4.
'Script Cinzia27
Sub Main()
Dim n(1),aa(4),ru(1),ps(1)
ps(1)=1


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

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

yy=0
For y=1 To 2
For y1=y+1 To 3
For y2=y1+1 To 4

If aa(y)=aa(y1) And aa(y)=aa(y2) Then yy=yy+1
Next
Next
Next
If yy>0 Then

xx=0
For x=1 To 2
For x1=x+1 To 3
For x2=x1+1 To 4
If aa(x)<>aa(x1) And aa(x)<>aa(x2) Then n(1)=aa(x)
If aa(x1)<>aa(x) And aa(x1)<>aa(x2) Then n(1)=aa(x1)
If aa(x2)<>aa(x) And aa(x2)<>aa(x1) Then n(1)=aa(x2)
Next
Next
Next


'=========================================================================================

Scrivi DataEstrazione(es-4) &" "&FormatSpace(es-4,5,1)&" "&SiglaRuota(r)&" "&StringaEstratti(es-4,r)
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)&" "& StringaEstratti(es-2,r)
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)

ImpostaGiocata 1,n,ru,ps,45,1
Gioca es
Scrivi String (40,"*")
End If


Next

Next
ScriviResoconto
End Sub
 
Per Bubù: per figura completa cosa intendi ? Tutti e 4 numeri è impossibile poiché
in una ruota un numero può uscire solo una volta e nell' estrazione di mezzo i numeri di vertice sono 2.

Per Genios, 3 numeri è possibile, ma sono eventi rari e come vedi l'ambata residua esce con comodo.
Codice:
'Figura del rombo 1 numero diverso su 4.
'Script Cinzia27
Sub Main()
Dim n(1),aa(4),ru(1),ps(1)
ps(1)=1


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

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

yy=0
For y=1 To 2
For y1=y+1 To 3
For y2=y1+1 To 4

If aa(y)=aa(y1) And aa(y)=aa(y2) Then yy=yy+1
Next
Next
Next
If yy>0 Then

xx=0
For x=1 To 2
For x1=x+1 To 3
For x2=x1+1 To 4
If aa(x)<>aa(x1) And aa(x)<>aa(x2) Then n(1)=aa(x)
If aa(x1)<>aa(x) And aa(x1)<>aa(x2) Then n(1)=aa(x1)
If aa(x2)<>aa(x) And aa(x2)<>aa(x1) Then n(1)=aa(x2)
Next
Next
Next


'=========================================================================================

Scrivi DataEstrazione(es-4) &" "&FormatSpace(es-4,5,1)&" "&SiglaRuota(r)&" "&StringaEstratti(es-4,r)
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)&" "& StringaEstratti(es-2,r)
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)

ImpostaGiocata 1,n,ru,ps,45,1
Gioca es
Scrivi String (40,"*")
End If


Next

Next
ScriviResoconto
End Sub
grazie cinzia
 
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.


Vedi l'allegato 2279726
Ecco al 2° colpo ambo su NA (TT) 5-34 che è la ruota assieme a RO sulla
periferia del fulcro,in genere scelgo proprio quelle ruote ma..... ho provato
la ruota Barese.
Spero sia chiara la potenza di questa Spaziomentria!
Forza!!!!! mettetevi al lavoro e vincete con il Kaos spaziometrico!
 
Grazie Cinzia27 riusciresti a inserire la figura completa? Se riesci è un capolavoro per chi si avvicina a questi insegnamenti. Grazie di cuore a tutti in particolare a BaffoBlù e mi raccomando finchè riesci a combattere mai arrendersi. La Bandiera si abbassa ma giusto per rialzarla di nuovo per farla sventolare al vento con il fiato dell'inno di Mameli cantato con tutto il fiato e con tutto il cuore. W l'ITALIA 🇮🇹
Grazie ancora a Cinzia27 e al Grande BaffoBlù
ESTRATTO 8 NAZ.jpg
 
Sempre per esercizio.
Codice:
'Figura del triangolo (2 n. uguali isotopi)
'Script Cinzia27
Sub Main()
Dim n(1),ru(1),ps(1)
ps(1)=1


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

a=Estratto(es-4,r,1)
If a>0 Then
a1=Estratto(es-4,r,5)

b=Estratto(es,r,5)

If a1=b Then




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

ColoreTesto 0
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)&" "&StringaEstratti(es-2,r)
Scrivi DataEstrazione(es-1) &" "&FormatSpace(es-1,5,1)&" "&SiglaRuota(r)&" "&StringaEstratti(es-1,r)

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


n(1)=a

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

Next

Next
ScriviResoconto
End Sub
 
2° script triangolo
Codice:
'Figura del triangolo (n. uguali non isotopi)
'Script Cinzia27
Sub Main()
Dim n(1),ru(1),ps(1)
ps(1)=1


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

a=Estratto(es-4,r,1)
If a>0 Then
a1=Estratto(es-4,r,5)

b=Estratto(es,r,5)

If a=b Then




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

ColoreTesto 0
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)&" "&StringaEstratti(es-2,r)
Scrivi DataEstrazione(es-1) &" "&FormatSpace(es-1,5,1)&" "&SiglaRuota(r)&" "&StringaEstratti(es-1,r)

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


n(1)=a1

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

Next

Next
ScriviResoconto
End Sub
 

Ultima estrazione Lotto

  • Estrazione del lotto
    sabato 06 settembre 2025
    Bari
    01
    26
    50
    16
    49
    Cagliari
    61
    18
    01
    62
    22
    Firenze
    84
    23
    32
    26
    88
    Genova
    24
    27
    47
    76
    44
    Milano
    59
    08
    06
    11
    39
    Napoli
    02
    65
    40
    28
    57
    Palermo
    09
    66
    51
    81
    49
    Roma
    76
    55
    73
    88
    65
    Torino
    38
    49
    40
    21
    90
    Venezia
    80
    60
    34
    69
    42
    Nazionale
    89
    76
    64
    80
    21
    Estrazione Simbolotto
    Palermo
    39
    34
    02
    08
    43
Indietro
Alto