Novità

Spaziometria Empirica

geronimo

geronimo

Premium Member
geronimo ha scritto:
Anche ieri ambetto ... ma a tt stavolta🫠 .. ancora una settimana ti do e poi ti affondo nella fossa delle Marianne 😜😜😜😜
Clicca per espandere...
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 🤣🤣🤣🤣🤣🤣🤣🤣
 
bubù

bubù

Advanced Member >PLATINUM PLUS<
Cinzia27 ha scritto:
Ho inserito sopra uno script giusto per allenarmi.
Clicca per espandere...
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 🇮🇹
 
G

genios

Advanced Member >PLATINUM<
Cinzia27 ha scritto:
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
Clicca per espandere...
Cinzia potresti trovare la figura rombo von 3 numeri uguali ?

Ciao Eugenio
 
C

Cinzia27

Premium Member
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
 
G

genios

Advanced Member >PLATINUM<
Cinzia27 ha scritto:
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
Clicca per espandere...
grazie cinzia
 
M

Marco-elle

Advanced Member >PLATINUM PLUS<
Marco-elle ha scritto:
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
Clicca per espandere...
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!
 
bubù

bubù

Advanced Member >PLATINUM PLUS<
bubù ha scritto:
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 🇮🇹
Clicca per espandere...
Grazie ancora a Cinzia27 e al Grande BaffoBlù
ESTRATTO 8 NAZ.jpg​
 
C

Cinzia27

Premium Member
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
 
C

Cinzia27

Premium Member
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
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 10 maggio 2024
    Bari
    69
    66
    18
    20
    88
    Cagliari
    68
    52
    49
    22
    48
    Firenze
    12
    33
    80
    62
    75
    Genova
    75
    10
    53
    65
    71
    Milano
    80
    74
    52
    08
    12
    Napoli
    67
    10
    23
    88
    40
    Palermo
    30
    89
    68
    90
    02
    Roma
    06
    41
    80
    50
    78
    Torino
    71
    24
    89
    18
    06
    Venezia
    41
    45
    90
    48
    28
    Nazionale
    89
    15
    64
    20
    31
    Estrazione Simbolotto
    Milano
    19
    07
    09
    10
    39
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto