Spaziometria Empirica

Cinzia27 · 7 Marzo 2024

Ho inserito sopra uno script giusto per allenarmi.

BaffoBlù · 7 Marzo 2024

Cinzia27 ha scritto:
Ho inserito sopra uno script giusto per allenarmi.

scusa sopra dove?

sto ancora in fase demente...

Cinzia27 · 7 Marzo 2024

Alla pagina precedente.

BaffoBlù · 7 Marzo 2024

capito grazie,....gli occhi.....

Cinzia27 · 7 Marzo 2024

Grazie a te mi sto piano piano avvicinando a queste figure.
Non ti affaticare, però.

geronimo · 8 Marzo 2024

geronimo ha scritto:
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

bubù · 8 Marzo 2024

Cinzia27 ha scritto:
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

genios · 8 Marzo 2024

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

Cinzia potresti trovare la figura rombo von 3 numeri uguali ?

Ciao Eugenio

Cinzia27 · 8 Marzo 2024

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

Cinzia27 · 8 Marzo 2024

Scusate, avevo ripetuto il post.

genios · 8 Marzo 2024

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

grazie cinzia

Marco-elle · 8 Marzo 2024

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

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ù · 8 Marzo 2024

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

Grazie ancora a Cinzia27 e al Grande BaffoBlù

BaffoBlù · 8 Marzo 2024

bubù ha scritto:
Grazie ancora a Cinzia27 e al Grande BaffoBlù

Vedi l'allegato 2279847

no ho fatto niente io..

Cinzia27 · 8 Marzo 2024

E invece ci stai insegnando, Baffobllù

Marco-elle · 8 Marzo 2024

Cinzia27 · 9 Marzo 2024

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

Cinzia27 · 9 Marzo 2024

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

BaffoBlù · 9 Marzo 2024

siete tutti uno spettacolo

bubù · 9 Marzo 2024

Scusa Cinzia27 ho sbagliato dovevo ringraziarti qui, peccato non aver pensato di giocare un euro sull'Ambetto, e visto che BaffoBlù non vuole essere ringraziato, pazienza spero accetti un saluto

Spaziometria Empirica

Advanced Premium Member

Advanced Member >PLATINUM<

Advanced Premium Member

Advanced Member >PLATINUM<

Advanced Premium Member

Premium Member

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM PLUS<

Advanced Premium Member

Advanced Premium Member

Advanced Member >PLATINUM PLUS<

Banned

Advanced Member >PLATINUM PLUS<

Advanced Member >PLATINUM<

Advanced Premium Member

Banned

Advanced Premium Member

Advanced Premium Member

Advanced Member >PLATINUM<

Advanced Member >PLATINUM PLUS<