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
    sabato 26 aprile 2025
    Bari
    23
    30
    43
    69
    25
    Cagliari
    63
    73
    02
    18
    12
    Firenze
    38
    11
    13
    32
    15
    Genova
    09
    27
    84
    16
    11
    Milano
    73
    30
    70
    60
    02
    Napoli
    60
    81
    05
    79
    89
    Palermo
    26
    28
    69
    07
    31
    Roma
    82
    38
    76
    44
    31
    Torino
    05
    62
    73
    46
    84
    Venezia
    42
    14
    45
    35
    52
    Nazionale
    48
    80
    78
    16
    23
    Estrazione Simbolotto
    Genova
    10
    22
    15
    09
    34
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Indietro
Alto