Per Luigi un aiuto

[Roby]

Ciao Luigi, mi sono incasinato per trovare una via di uscita riguardo ad un mescolamento di numeri nell’estrazione.
Mi spiego meglio, ho due estrazioni consecutive, l’ultima ok rimane tale e quale, la precedente lo script mi dovrebbe mescolare in tutte le possibili variazioni le combinazioni risultanti mescolando le varie posizioni.
Adesso fino a che si tratta di ordinarle nessun problema, ma per mescolarle la via non sono riuscito a trovarla.
Ovviamente come risultato mi dovrebbe dare tutte e 120 le combinazioni (mi sembra che siano 120)
Ciao e grazie per l’eventuale aiuto.

Sub main()
Dim a(5)
tmp=InputBox("Quante estrazioni controllo?",,0)
fin=EstrazioneFin
ini=fin-tmp
For es=ini To fin
a1=Estratto(es,1,1)
a2=Estratto(es,1,2)
a3=Estratto(es,1,3)
a4=Estratto(es,1,4)
a5=Estratto(es,1,5)
a(1)=Estratto(es-1,1,1)
a(2)=Estratto(es-1,1,2)
a(3)=Estratto(es-1,1,3)
a(4)=Estratto(es-1,1,4)
a(5)=Estratto(es-1,1,5)
Scrivi DataEstrazione(es)&" "&Left(NomeRuota(1),3)&" "& StringaEstratti(es,1)
Scrivi DataEstrazione(es-1)&" "&Left(NomeRuota(1),3)&" "& StringaEstratti(es-1,1)
OrdinaMatrice(a),1
Scrivi a(1)&”-“& a(2) &”-“& a(3) &”-“& a(4) &”-“& a(5)
Scrivi"***************************"
Next
End Sub


metus

Non stare davanti a me, potrei non seguirti; non stare dietro di me, potrei non esserti di guida; ma, sta al mio fianco e sii semplicemente mio amico.
Albert Camus

 

[LuigiB]

ciao Metus la via è piu semplice di quella che credi, nel linguaggio
spazioscript è implementata una funzione che si chiama Sviluppo integrale ,gli si passa un array con i numeri del pronostico , gli si dice che classe deve avere la combinazione (estratto ,ambo , terno ecc)
ecco un esempio (lo stesso che si trova nella dir dei test) che
elabora 10 numeri in quartine.
Per ulteriori informazioni leggi l'help dello spazioscript

Sub Main
	Dim Colonne
	Dim numeri(10)
	Dim classe
	Dim sColonna
	
	classe = 4

	For k = 1 To 10
		numeri(k) = k
	Next

	Colonne = SviluppoIntegrale(numeri,classe)
	
	For k = 1 To UBound(Colonne)
		sColonna = ""
		For j = 1 To classe
			sColonna = sColonna & Format2(Colonne(k,j)) & " "
		Next
		Call Scrivi(sColonna)
	Next
End Sub

 

[LuigiB]

prima di alimentare l'array dei numeri del pronostico stai attento di non mettere numeri ripetuti visto che prendi i numeri di base da 2 estrazioni diverse ..ciao

 

[LuigiB]

per sapere quante combinazioni genera prima ancora di sviluppare
le combinazioni puoi usare

Call Scrivi ("Combinazioni :" & Combinazioni (10,4) )

che ti torna quante combinazioni sono per lo sviuluppo di
10 numeri in quartine

 

[Roby]

Ciao Luigi, si questo sono in grado di farlo, ma non è quello che volevo fare.
Non mi serve le combinazioni per quaterna cinquina ecc su un numero x di estratti.
Lo script dovrebbe mescolare le posizioni e non i numeri,
Un esempio
supponiamo su 3 numeri
Le varie possibilità sono queste
1-2-3
1-3-2
2-3-1
2-1-3
3-1-2
3-2-1
In pratica il n°1 deve coprire tutte e tre le posizioni con gli altri due che girano anche loro nelle posizioni.
Non so se sono riuscito a spiegarmi.
Ciao

metus

Non stare davanti a me, potrei non seguirti; non stare dietro di me, potrei non esserti di guida; ma, sta al mio fianco e sii semplicemente mio amico.
Albert Camus

 

[LuigiB]

se dicevi la parola permutazioni capivo meglio potrei farti uno script ma preferisco implementare una funzione nel linguaggio che si
chiami SviluppaPermutazioni e che ti torni una array di colonne con tutte le permutazioni possibili.
Tra poco ti facccio sapere , ciao

 

[imported_n/a]

si meglio fai una funzione .. grazie sicuramente tornera' utile[8D]

 

[JackMan]

quote:Originally posted by LuigiB

se dicevi la parola permutazioni capivo meglio potrei farti uno script ma preferisco implementare una funzione nel linguaggio che si
chiami SviluppaPermutazioni e che ti torni una array di colonne con tutte le permutazioni possibili.
Tra poco ti facccio sapere , ciao

Ciaoooo Luigi sarei interessato ancke io a un esempio di script, ottima l'idea di una funzione
Grazie mille


"...Studia il passato per conservare il futuro...."

 

[LuigiB]

con la nuova versione 1.1.88 è stata inserita la funzione
SvuiluppaPermutazioni , essa riceve in input un vettore
con i numeri da sviluppare , un parametro che specifica la classe di sviluppo , e un ultimo parametro opzionale che specifica se sviluppare
anche le colonne con ripetizioni.
Questa funzione torna un array contenente tutte le possibili permutazioni sviluppate

si usa cosi

Sub Main
	Dim Colonne
	Dim numeri(3)
	Dim classe
	Dim sColonna
	
	classe = 3

	For k = 1 To 3
		numeri(k) = k
	Next

	Colonne = SviluppoPermutazioni(numeri,classe)
	
	For k = 1 To UBound(Colonne)
		sColonna = ""
		For j = 1 To classe
			sColonna = sColonna & Format2(Colonne(k,j)) & " "
		Next
		Call Scrivi(sColonna)
	Next
End Sub

e da il seguente output

01 02 03 
01 03 02 
02 01 03 
02 03 01 
03 01 02 
03 02 01

 

[Roby]

Grazie Luigi, aspettiamo il nuovo aggiornamento.
Ciao

metus

Non stare davanti a me, potrei non seguirti; non stare dietro di me, potrei non esserti di guida; ma, sta al mio fianco e sii semplicemente mio amico.
Albert Camus

 

[LuigiB]

è gia disponibile