Novità

x Joe91 script distanza ciclometrica

Zetrix

Advanced Premium Member
Codice:
        Sub Main()
Dim so(90,3)
ini = EstrazioneFin - 1
fin = EstrazioneFin
For n = ini To fin
	For a = 1 To 90
		so(a,1) = 0	
		so(a,2) = 0	
	Next
For r = 1 To 10
		For e1 = 1 To 4
			For e2 = e1 + 1 To 5
				m = Fuori90(Estratto(n,r,e1) + Estratto(n,r,e2))
				so(m,1) = m
				so(m,2) = so(m,2) + 1				
	Next
	Next
	Next
	Scrivi "  Somma  Estratti dell'Estrazione- " & DataEstrazione(n)
	OrdinaMatrice so,- 1,2
	For i = 1 To 90	
		If so(i,2) = 0 Then Exit For	
		Scrivi Format2(i) & " " & "   somma = " & Format2(so(i,1)) & "       presente  " & FormatSpace(so(i,2),3) & " volte"		
	Next
	Scrivi String(55,"-")
	Scrivi
Next
End Sub
Ciao Joe e possibile da questo script sostituire i dati e ricercare la distanza ciclom che risulta piu presente in una estraz in poche parole invece di cercare la somma estratti piu presente dovrebbe cercare la distanza ciclom piu presente in una data estraz grazie
 
Ciao zetrix in attesa di Joe prova a fare questa modifica e vedi se va bene pero' attento aspetta che lo vedano Joe,mike,luigi , perche' non ancora sono padrone degli script , so solo modificare alcune cose , ciao.

Modifica questa riga : m = Fuori90(Estratto(n,r,e1) + Estratto(n,r,e2))
Con questa : m = Differenza(e1,e2)

Ricorda che non sono sicuro , prova , spero vada bene , ciao.
 
grazie rabberto ho provato ma nn funziona ho scritto anche Abs (e1,e2) ma nn va forse ci sono altre cose da modificare nello script
 
Ciao Domenico, Zetrix, il suggerimento di domenico è giusto solo in parte in quanto per fare la distanza o differenza bisogna trovare anche l'estratto.

leggete lo script.

Codice:
        Sub Main()
Dim so(90,3)
ini = EstrazioneFin - 1
fin = EstrazioneFin
For n = ini To fin
	For a = 1 To 90
		so(a,1) = 0	
		so(a,2) = 0	
	Next
For r = 1 To 10
		For e1 = 1 To 4
			For e2 = e1 + 1 To 5
			a = Estratto(n,r,e1)
			b = Estratto(n,r,e2)
				'm = Fuori90(Estratto(n,r,e1) + Estratto(n,r,e2))'somma estratti
				m = Distanza(a,b)' distanza ciclometrica
				'm = Differenza(a,b)' differenza estratti
				so(m,1) = m
				so(m,2) = so(m,2) + 1				
	Next
	Next
	Next
	Scrivi "  Somma  Estratti dell'Estrazione- " & DataEstrazione(n)
	OrdinaMatrice so,- 1,2
	For i = 1 To 90	
		If so(i,2) = 0 Then Exit For	
		Scrivi Format2(i) & " " & "   distanza Ciclometrica = " & Format2(so(i,1)) & "       presente  " & FormatSpace(so(i,2),3) & " volte"		
	Next
	Scrivi String(55,"-")
	Scrivi
Next
End Sub
 
attentzione le funzioni Differenza e Distanza non sono la stessa cosa ...ora non ho visto nessuno script quindi non è per correggere nessuno solo per precisare che la Distanza ottiene la distanza ciclometrica , la differenza invece sottrae dal maggiore il minore e da il risultato.
ciao
 
grazie mike58 ho provato ora lo script va benissimo rileva tutte le distanze ciclom grazie a tutti
 
Ciao Domenico, Zetrix, il suggerimento di domenico è giusto solo in parte in quanto per fare la distanza o differenza bisogna trovare anche l'estratto.
Ciao Mike58 grazie per la spiegazione me la stampero' pure questa , io pensavo che era sufficiente For e1 = 1 To 4 , For e2 = e1 + 1 To 5 , e quindi mettere la formula che avevo dato , invece tu hai messo a = Estratto(n,r,e1) , b = Estratto(n,r,e2) , e poi hai fatto la differenza , quindi mi sbaglio , allora ti chiedo :
ogni volta che si deve fare una distanza o differenza si deve adoperare il metodo che hai usato tu ? .
Per favore fammi sapere se ho capito il ragionamento , ciao.
 
Ciao Mike58 grazie per la spiegazione me la stampero' pure questa , io pensavo che era sufficiente For e1 = 1 To 4 , For e2 = e1 + 1 To 5 , e quindi mettere la formula che avevo dato , invece tu hai messo a = Estratto(n,r,e1) , b = Estratto(n,r,e2) , e poi hai fatto la differenza , quindi mi sbaglio , allora ti chiedo :
ogni volta che si deve fare una distanza o differenza si deve adoperare il metodo che hai usato tu ? .
Per favore fammi sapere se ho capito il ragionamento , ciao.



Ciao Domenico, Buon Giorno a tutte/i.

In quella "o" c'è un discriminante che "duplica" la risposta alla tua richiesta.

Come ha scritto giustamente Luigi ... DIFFERENZA è il risultato di una operazione Matematica (sottrazione).

DISTANZA è il risultato di una altra OPERAZIONE con i numeri.

In questo caso, essi, sono disposti sul piano Cartesiano, in forma Geometrica, bidimensionale, non Lineare.

Distanza è il segmento più corto possibile. Alcune volte è inferiore a quello della differenza tra i numeri.

Ovvero alla differenza che si avrebbe con i numeri disposti lungo una linea-retta o vettore.

Quindi nella rappresentazione maggiormente incline alla spazialità e nel caso del CERCHIO,

in alternativa alla differenza, si ha la distanza.

Distanza intesa come la misura più breve ovvero quella della una corda

che è per analogia minore a quella dell' arco di circonferenza delimitato dagli stessi 2 punti.

Entrambi ... sono Numeri (a volte coincidenti) ma... SONO REALTA' DIFFERENTI.

Quando userai lo script per calcolare la DISTANZA utilizzerai "la parola" dedicata che è Distanza.

Quando invece vorrai calcolare la DIFFERENZA ... userai Differenza.

Ottenendo due risultati, in parte simili, ma concettualmente diversi.

.

Relativamente alla richiesta ho rivisto e modificato lo script.

Come avevo accennato esso considerava 2 estrazioni (EstrazioneFin & EstrazioneFin -1) ...

"raddoppiando" tutti i risultati, raccolti nelle 2 estrazioni.

L'ho modificato, un pochino, portandolo a considerareUNA sola Estrazione, come, più volte scritto, nella richiesta di Zetrix.

Ho aggiunto anche il conteggio delle distanze per renderlo compatibile con il breve riepilogo finale di un controllo statistico.

Codice:
Sub Main()
	Dim so(90,3)
	ini = EstrazioneFin
	fin = EstrazioneFin
	
	For a = 1 To 90 : so(a,1) = 0 : so(a,2) = 0  : Next 

	For n = ini To fin
		For r = 1 To 10
			For e1 = 1 To 4
				For e2 = e1 + 1 To 5
					a = Estratto(n,r,e1)
					b = Estratto(n,r,e2)
					'm = Fuori90(Estratto(n,r,e1) + Estratto(n,r,e2))'somma estratti
					m = Distanza(a,b)' distanza ciclometrica
					'm = Differenza(a,b)' differenza estratti
					so(m,1) = m
					so(m,2) = so(m,2) + 1
				Next
			Next
		Next
		Scrivi "Pr.   " & DataEstrazione(n)
		OrdinaMatrice so,- 1,2
		For i = 1 To 90
			'If so(i,2) = 0 Then Exit For
			Scrivi Format2(i) & "   Distanza Ciclometrica = " & Format2(so(i,1)) & "     presente  " & FormatSpace(so(i,2),3) & " volte"
			K = K +(so(i,2))
		Next
		Scrivi String(55,"-")
		Scrivi
	Next		
	E = Fin -Ini +1 : Scrivi E  & "   Estrazioni."
	CMB = Combinazioni (5,2) : Scrivi CMB * E & "  Distanze per ogni ruota" 
	TOT  = 10 * E * CMB 
	Scrivi   TOT & " Distanze totali  (" & (TOT = K) & ")." 
End Sub


:)
 
Ultima modifica:
Ciao Joe ti ringrazio adesso mi e piu' chiaro il concetto spero che un po alla volta grazie a voi tutti riusciro' ad assimilare i concetti base per creare un listato , ciao.
 

Ultima estrazione Lotto

  • Estrazione del lotto
    venerdì 01 agosto 2025
    Bari
    38
    02
    68
    33
    79
    Cagliari
    21
    78
    83
    22
    55
    Firenze
    63
    14
    72
    28
    16
    Genova
    21
    46
    17
    40
    39
    Milano
    49
    60
    17
    77
    63
    Napoli
    90
    05
    77
    74
    53
    Palermo
    16
    61
    43
    37
    90
    Roma
    40
    45
    27
    57
    32
    Torino
    62
    57
    26
    82
    61
    Venezia
    06
    46
    68
    32
    29
    Nazionale
    71
    36
    06
    32
    15
    Estrazione Simbolotto
    Nazionale
    30
    37
    17
    41
    08
Indietro
Alto