Novità

Per Luigi un aiuto

  • Creatore Discussione Creatore Discussione Roby
  • Data di inizio Data di inizio
Stato
Chiusa ad ulteriori risposte.
R

Roby

Guest
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
 
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

Codice:
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
 
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
 
per sapere quante combinazioni genera prima ancora di sviluppare
le combinazioni puoi usare

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

che ti torna quante combinazioni sono per lo sviuluppo di
10 numeri in quartine
 
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
 
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
 
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...."
 
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

Codice:
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

Codice:
01 02 03 
01 03 02 
02 01 03 
02 03 01 
03 01 02 
03 02 01
 
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
 
Stato
Chiusa ad ulteriori risposte.

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 10 luglio 2025
    Bari
    85
    25
    24
    62
    28
    Cagliari
    51
    07
    79
    73
    36
    Firenze
    80
    63
    59
    47
    05
    Genova
    26
    50
    73
    18
    76
    Milano
    86
    12
    75
    13
    68
    Napoli
    21
    46
    89
    28
    87
    Palermo
    84
    49
    44
    17
    10
    Roma
    50
    40
    68
    65
    82
    Torino
    29
    52
    02
    60
    65
    Venezia
    81
    21
    64
    01
    09
    Nazionale
    30
    56
    86
    68
    34
    Estrazione Simbolotto
    Nazionale
    29
    13
    42
    17
    07

Ultimi Messaggi

Indietro
Alto