Novità

Ciclometria Lineare e Simmetria Diametrale

2lcuuc8.jpg
 
MINNIE35 ha scritto:
Ciao Zetrix si continua con l' ambo di Bari ?complim per il 62
buona giornata, Minnie
Clicca per espandere...
grazie minnie,, scusa ma nn sto seguendo da un po di tempo la ruota di bari, sto studiando il 74 sulla ruota di mi,, comunque hai visto si e sdoppiato il num 15 o 51 e uscito 62-1-5 su ba mah a questo gioco ce da aspettarsi di tutto ,, ciao
 
ciao edison il programma e spaziometria e viene usato un listato script per rilevare queste strutture ,, nn si basa su nessun metodo quella figura e solo un trapezio isoscele su ruote unite
 
Ultima modifica:
ma ad esempio il 37 non è in nessuna ruota come è uscito sulla figura?
e poi i 4 numeri colorati comme e perchè sono stati scelti?
 
Codice: 
               Sub Main()
Dim so(4)
Dim ruote(11)
Dim rt(2)
Dim n(4),fi(4),de(4),ca(4)
Dim poambata(5),poambo(5),poterno(5)
Dim nu(2),na(5),na1(5),na2(5),na3(5),na4(5)

poambata(1) = 1 : poambo(2) = 1:poterno(3) = 1

ColoreTesto 0

co = 0
ini = EstrazioneFin - 0
fin = EstrazioneFin

For es = ini To fin
Messaggio "elaborazione. estraz. " &(es)

For r = 1 To 9
rt(1) = r

For p = 1 To 4
pp = p + 1
n(1) = CInt(Estratto(es,r,p))
n(2) = CInt(Estratto(es,r,pp))
so1 =((n(1) + n(2)))


For rr = r + 1 To 10
rt(2) = rr
If rr = r + 1 Or rr = r + 5 Then
n(3) = CInt(Estratto(es,rr,p))
n(4) = CInt(Estratto(es,rr,pp))
so2 =((n(3) + n(4)))


am1 = Fuori90(n(1) + so1)
am2 = Fuori90(n(2) + so1)


co = co + 1


Scrivi
	 ' identifica ad esempio 4 caselle
			ReDim MatriceCaselleDaEvid(4,1)
			' Primo elemento
			MatriceCaselleDaEvid(1,0) = r ' ruota di bari
			MatriceCaselleDaEvid(1,1) = p ' Primo Estratto
			' secondo elemento
		MatriceCaselleDaEvid(2,0) = r ' ruota di bari
			MatriceCaselleDaEvid(2,1) = pp ' secondo Estratto
			' terzo elemento
			MatriceCaselleDaEvid(3,0) = rr ' ruota di venezia
			MatriceCaselleDaEvid(3,1) = p ' terzo Estratto
			' quarto elemento
			MatriceCaselleDaEvid(4,0) = rr ' ruota di venezia
			MatriceCaselleDaEvid(4,1) = pp ' quarto Estratto
	 Call DisegnaEstrazione(es,MatriceCaselleDaEvid)

' disegna il cerchio con il triangolo formato dai numeri 30-60-90
	
	 ReDim aNu(4)
	 aNu(1) = n(1)
	 aNu(2) = n(2)
	 aNu(3) = n(3)
	 aNu(4) = n(4)
Call DisegnaCerchioCiclometrico(aNu,True,,,,True)
Scrivi String(55,"-")

ReDim aNu(7)








End If

Next


Next
Next
Next




End Sub
ciao edison ti metto il listato che disegna le figure su ruote unite e diam,,,poi dovresti scegliere la figura che piu ti piace e fare le dovute chiusure ciclometriche e rendere la figura armonica con le distanze
 
Ultima modifica:
zetrix ha scritto:
Codice: 
               Sub Main()
Dim so(4)
Dim ruote(11)
Dim rt(2)
Dim n(4),fi(4),de(4),ca(4)
Dim poambata(5),poambo(5),poterno(5)
Dim nu(2),na(5),na1(5),na2(5),na3(5),na4(5)

poambata(1) = 1 : poambo(2) = 1:poterno(3) = 1

ColoreTesto 0

co = 0
ini = EstrazioneFin - 0
fin = EstrazioneFin

For es = ini To fin
Messaggio "elaborazione. estraz. " &(es)

For r = 1 To 9
rt(1) = r

For p = 1 To 4
pp = p + 1
n(1) = CInt(Estratto(es,r,p))
n(2) = CInt(Estratto(es,r,pp))
so1 =((n(1) + n(2)))


For rr = r + 1 To 10
rt(2) = rr
If rr = r + 1 Or rr = r + 5 Then
n(3) = CInt(Estratto(es,rr,p))
n(4) = CInt(Estratto(es,rr,pp))
so2 =((n(3) + n(4)))


am1 = Fuori90(n(1) + so1)
am2 = Fuori90(n(2) + so1)


co = co + 1


Scrivi
	 ' identifica ad esempio 4 caselle
			ReDim MatriceCaselleDaEvid(4,1)
			' Primo elemento
			MatriceCaselleDaEvid(1,0) = r ' ruota di bari
			MatriceCaselleDaEvid(1,1) = p ' Primo Estratto
			' secondo elemento
		MatriceCaselleDaEvid(2,0) = r ' ruota di bari
			MatriceCaselleDaEvid(2,1) = pp ' secondo Estratto
			' terzo elemento
			MatriceCaselleDaEvid(3,0) = rr ' ruota di venezia
			MatriceCaselleDaEvid(3,1) = p ' terzo Estratto
			' quarto elemento
			MatriceCaselleDaEvid(4,0) = rr ' ruota di venezia
			MatriceCaselleDaEvid(4,1) = pp ' quarto Estratto
	 Call DisegnaEstrazione(es,MatriceCaselleDaEvid)

' disegna il cerchio con il triangolo formato dai numeri 30-60-90
	
	 ReDim aNu(4)
	 aNu(1) = n(1)
	 aNu(2) = n(2)
	 aNu(3) = n(3)
	 aNu(4) = n(4)
Call DisegnaCerchioCiclometrico(aNu,True,,,,True)
Scrivi String(55,"-")

ReDim aNu(7)








End If

Next


Next
Next
Next




End Sub
ciao edison ti metto il listato che disegna le figure su ruote unite e diam,,,poi dovresti scegliere la figura che piu ti piace e fare le dovute chiusure ciclometriche e rendere la figura armonica con le distanze
Clicca per espandere...

scusa ma il listato in quale programma devo inserirlo'
e poi come si fanno le chiusure? io non ho mai usato questo metodo mi puoi spiegare con più calma per piacere?
 
ciao edison vedendo i messaggi devo presupporre che ti sei registrato da poco ,, il listato che vedi funziona sul programma spaziometria all interno ce una finestra script per cui il listato lo copi e lo incolli nella apposita finestra e dopo fai esegui ce un segno a forma di fulmine ,, ovvio che il programma lo devi installare prima e dopo segui le procedure,, per quanto riguarda le chiusure ciclometriche nn e tanto semplice specie se parti da zero comunque se fai delle ricerche su google e scrivi ciclometria vedrai alcuni esempi di studio sulle figure geometriche puo essere un triangolo un trapezio aquiloni ecc ecc ,, se inizi da adesso devi conoscere bene queste figure che poi li troverai nel cerchio ciclom ,, ciao
 
zetrix scusa io ho provato a salvare lo script ho fatto il copia incolla ma quando clicco sul fulmine mi dice ...

script.jpg

perchè ?
 
nn so il motivo perche ti da questo errore a me funziona bene ,, lo script nn lo devi salvare devi fare copia e incolla nella finestra script la finestra deve essere tutta bianca nn devono essere altre scritte se ci sono le devi cancellare poi esegui lo script tramite il segno a fulmine dopo se va tutto bene salva lo script con un nome a tuo piacere esempio puoi mettere figure ciclometriche ,,
 
zetrix; ha scritto:
si continua il gioco di ambo su tt .. 55.58 .... le ruote piu indiziate per un gioco ristretto ..... sono > pa e to < dove e presente il 40 ...(49)... p.s ho notato che l ambo 55.58 e gia uscito in estr preced ... staremo a vedere cosa succede ... da questa nuovissima tecnica per l abb di ambo secco..
Clicca per espandere...
 
Ultima modifica:
zetrix ha scritto:
nuova tecnica di gioco .. aggiorn 55-58 ..... tutte le ruote in gioco p.s dovrebbe uscire questo ambo su tt...
Clicca per espandere...
aggiorn .. sembra che il 55 nn vuole uscire nemmeno su tt .. ma uscira nn puo sfuggire .. seguite il 55 come ambata su ba... ho messo l ambo 55.42 in ristretto ma se volete fare un gioco completo gli altri due ambi sono 55.40/55.41 su ...ba
 
Ultima modifica:
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 03 novembre 2026
    Bari
    60
    81
    39
    27
    89
    Cagliari
    49
    40
    60
    34
    57
    Firenze
    33
    90
    53
    40
    10
    Genova
    18
    81
    28
    44
    52
    Milano
    12
    50
    54
    43
    81
    Napoli
    74
    79
    42
    24
    17
    Palermo
    51
    31
    10
    90
    62
    Roma
    23
    27
    40
    65
    28
    Torino
    89
    44
    69
    04
    21
    Venezia
    19
    33
    78
    37
    59
    Nazionale
    01
    56
    18
    50
    68
    Estrazione Simbolotto
    Torino
    45
    09
    18
    28
    03
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto