Spaziometria Empirica

[Cinzia27]

Ho inserito sopra uno script giusto per allenarmi.

 

[BaffoBlù]

Ho inserito sopra uno script giusto per allenarmi.

scusa sopra dove?

sto ancora in fase demente...

 

[Cinzia27]

Alla pagina precedente.

 

[BaffoBlù]

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

 

[Cinzia27]

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

 

[geronimo]

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ù]

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]

'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]

Per Genios, sono eventi rari e come vedi l'ambata residua esce con comodo.

'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]

Scusate, avevo ripetuto il post.

 

[genios]

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.

'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]

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ù]

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ù]

Grazie ancora a Cinzia27 e al Grande BaffoBlù

Vedi l'allegato 2279847​

no ho fatto niente io..

 

[Cinzia27]

E invece ci stai insegnando, Baffobllù

 

[Marco-elle]

 

[Cinzia27]

Sempre per esercizio.

'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]

2° script triangolo

'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ù]

siete tutti uno spettacolo

 

[bubù]

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

​