Novità

Esiste qualcosa di analogo a InitSviluppoIntegrale per sistemi ridotti di grado di presenza desiderato?

lotto_tom75

Advanced Premium Member
Esiste qualcosa di analogo a InitSviluppoIntegrale(aNum,Classematrice) per sistemi ridotti di grado di presenza desiderato? :unsure: Se si quale è il code che mi da il numero totale delle combinazioni ridotte della funzione sottostante prima di generarle?

Codice:
GetCombSviluppoRid(aCol,gradodipresenzavoluto)

In sostanza se possibile sarebbe interessante sapere prima della fine dell'elaborazione quante combinazioni ridotte si generano in base al numero di elementi del gruppo numerico di base utilizzato, il grado di presenza desiderato e la classe di sviluppo decisa...

Es. se lo script prima di elaborarle rispondesse in output ad una domanda del tipo: Data una classe 10 di grado di presenza 3 e una base numerica di 29 elementi quante formazioni ridotte si generano in tutto?

La cosa permetterebbe di decidere a priori se effettuare l'elaborazione o se al contrario dato il numero troppo elevato di formazioni ridotte generabili con i tre parametri di volta in volta immessi (numero di elementi, grado di presenza voluto e classe) sarebbe meglio comunque soprassedere... (y)(n)?

Questo output quasi istantaneo riguardo le combinazioni generabili avviene già appunto con la funzione riportata sopra che mostra in output il numero di combinazioni integrali generabili in base alla classe di sviluppo e i numeri base immessi, mentre, almeno per adesso per sistemi ridotti di grado di presenza desiderato non sono riuscito a trovare nulla di simile e sono costretto a finire l'elaborazione per contare le formazioni ridotte risultanti finali... ??

Grazie mille a chi nonostante questo caldo torrido trova 5 min per buttarmi il "salvagente" ☀? ??
 
Ultima modifica:

claudio8

Premium Member
Tom
Accendi l'aria condizionata, sto caldo influenza la temperatura di funzionamento del tuo "? produttore di pasticcini".
L'help non lo consulti mai o non leggi bene quanto scritto? :):):)

GetCombSviluppoRid
Legge la colonna corrente durante lo sviluppo di un sistema integrale ma gestisce la riduzione n-k
invece
La Funzione sottostante utilizza i file matrice dei ridotti, esistenti in spaziometria, quindi è sufficente lanciarla con i parametri da te richiesti e prelevare di ritorno - nRetColonne -con il quale Ritorna il numero di colonne di cui si compone la matrice

GetMatriceSistemaRidotto
Function GetMatriceSistemaRidotto(sFile, aRetColonne, nRetNumeri, nRetColonne, nRetClasse, nRetGaranzia) As Boolean

Descrizione
Legge una specifica matrice di sistema ridotto direttamente dal file che la contiene (gli stessi file usati nel programma Spaziometria per i sistemi ridotti)
Note
Valore di ritorno
Parametri


sFilePercorso del file
aRetColonnePrima di passare il parametro alla funzione dichiararlo con Dim aRetColonne Torna un vettore bidimensionale dove il primo range indica il numero di colonna, il secondo range contiene i numeri della colonna del sistema. Ad esempio un file che contiene 10 colonne di classe 5 torna una matrice dimensionata con aRetColonne(10,5) e con questo ciclo si puo leggere la prima colonna idColonna =1 for k = 1 to 5 n = aRetColonne(idColonna,k) call scrivi (n) next
nRetNumeriRitorna la quantita di numeri sviluppati nella matrice
nRetColonneRitorna il numero di colonne di cui si compone la matrice
nRetClasseRitorna la classe di sviluppo della matrice
nRetGaranziaRitorna un valore numerico che identifica la garanzia di vincita

Vedi che esiste anche i Test specifico nella cartella dei test.
Te lo ho modellato x la tua esigenza.


Codice:
Option Explicit
Sub Main
    Dim sFile
    Dim aRetColonne
    Dim nGaranzia,nClasse,nColonne,nQNumeri
    Dim k,e,sColonna
    sFile =   "D:\Documents And Settings\claudio8\Dati applicazioni\SpazioMetria\sistemi\29_10_3.dat" '''da costruire su esigenza
    If sFile <> "" Then
        If GetMatriceSistemaRidotto (sFile,aRetColonne,nQNumeri,nColonne,nClasse,nGaranzia) Then
            Call Scrivi("File          : " & sFile)
            Call Scrivi("Per numeri    : " & FormatSpace(nQNumeri,8,True))
            Call Scrivi("Colonne       : " & FormatSpace(nColonne,8,True))
            Call Scrivi("Classe        : " & FormatSpace(nClasse,8,True))
            Call Scrivi("Garanzia      : " & FormatSpace(nGaranzia,8,True))
            Call Scrivi
            Call Scrivi("Sviluppo :",True)
            Call Scrivi
            For k = 1 To nColonne
                sColonna = ""
                For e = 1 To nClasse
                    sColonna = sColonna & Format2(aRetColonne(k,e)) & "."
                Next
                sColonna = Left(sColonna,Len(sColonna) - 1)
                Call Scrivi(FormatSpace(k,5,True) & ") " & sColonna)
            Next
        End If
    End If
End Sub

Dalla prossima ti invio fattura.... :):):):)
 

lotto_tom75

Advanced Premium Member
Tom
Accendi l'aria condizionata, sto caldo influenza la temperatura di funzionamento del tuo "? produttore di pasticcini".
L'help non lo consulti mai o non leggi bene quanto scritto? :):):)

GetCombSviluppoRid
Legge la colonna corrente durante lo sviluppo di un sistema integrale ma gestisce la riduzione n-k
invece
La Funzione sottostante utilizza i file matrice dei ridotti, esistenti in spaziometria, quindi è sufficente lanciarla con i parametri da te richiesti e prelevare di ritorno - nRetColonne -con il quale Ritorna il numero di colonne di cui si compone la matrice

GetMatriceSistemaRidotto
Function GetMatriceSistemaRidotto(sFile, aRetColonne, nRetNumeri, nRetColonne, nRetClasse, nRetGaranzia) As Boolean

Descrizione
Legge una specifica matrice di sistema ridotto direttamente dal file che la contiene (gli stessi file usati nel programma Spaziometria per i sistemi ridotti)
Note
Valore di ritorno
Parametri


sFilePercorso del file
aRetColonnePrima di passare il parametro alla funzione dichiararlo con Dim aRetColonne Torna un vettore bidimensionale dove il primo range indica il numero di colonna, il secondo range contiene i numeri della colonna del sistema. Ad esempio un file che contiene 10 colonne di classe 5 torna una matrice dimensionata con aRetColonne(10,5) e con questo ciclo si puo leggere la prima colonna idColonna =1 for k = 1 to 5 n = aRetColonne(idColonna,k) call scrivi (n) next
nRetNumeriRitorna la quantita di numeri sviluppati nella matrice
nRetColonneRitorna il numero di colonne di cui si compone la matrice
nRetClasseRitorna la classe di sviluppo della matrice
nRetGaranziaRitorna un valore numerico che identifica la garanzia di vincita

Vedi che esiste anche i Test specifico nella cartella dei test.
Te lo ho modellato x la tua esigenza.


Codice:
Option Explicit
Sub Main
    Dim sFile
    Dim aRetColonne
    Dim nGaranzia,nClasse,nColonne,nQNumeri
    Dim k,e,sColonna
    sFile =   "D:\Documents And Settings\claudio8\Dati applicazioni\SpazioMetria\sistemi\29_10_3.dat" '''da costruire su esigenza
    If sFile <> "" Then
        If GetMatriceSistemaRidotto (sFile,aRetColonne,nQNumeri,nColonne,nClasse,nGaranzia) Then
            Call Scrivi("File          : " & sFile)
            Call Scrivi("Per numeri    : " & FormatSpace(nQNumeri,8,True))
            Call Scrivi("Colonne       : " & FormatSpace(nColonne,8,True))
            Call Scrivi("Classe        : " & FormatSpace(nClasse,8,True))
            Call Scrivi("Garanzia      : " & FormatSpace(nGaranzia,8,True))
            Call Scrivi
            Call Scrivi("Sviluppo :",True)
            Call Scrivi
            For k = 1 To nColonne
                sColonna = ""
                For e = 1 To nClasse
                    sColonna = sColonna & Format2(aRetColonne(k,e)) & "."
                Next
                sColonna = Left(sColonna,Len(sColonna) - 1)
                Call Scrivi(FormatSpace(k,5,True) & ") " & sColonna)
            Next
        End If
    End If
End Sub

Dalla prossima ti invio fattura.... :):):):)

Non l'ho ancora provato claudiotto ma da una prima rapida lettura sembra proprio quello che stavo cercando ??? e che non trovavo forse anche per i miei due neuroni in ebollizione dal caldo... o_O?? GRAZIE 1000 super ?‍♂️ claudio8!!! You are very very ? Ad ogni modo visto le nuove tue nuove condizioni di "aiutaggio" rietiniti esonerato dalle mie prossime eventuali nuove richieste di s.o.s. rivolte al world :ROFLMAO::LOL: ?? 'Notte big ;)
 

claudio8

Premium Member
Non l'ho ancora provato claudiotto ma da una prima rapida lettura sembra proprio quello che stavo cercando ??? e che non trovavo forse anche per i miei due neuroni in ebollizione dal caldo... o_O?? GRAZIE 1000 super ?‍♂️ claudio8!!! You are very very ? Ad ogni modo visto le nuove tue nuove condizioni di "aiutaggio" rietiniti esonerato dalle mie prossime eventuali nuove richieste di s.o.s. rivolte al world :ROFLMAO::LOL: ?? 'Notte big ;)

Svicolone.jpg
 

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 26 marzo 2024
    Bari
    30
    51
    17
    01
    53
    Cagliari
    13
    70
    25
    68
    47
    Firenze
    28
    30
    54
    70
    88
    Genova
    67
    87
    22
    03
    62
    Milano
    22
    34
    13
    47
    24
    Napoli
    20
    72
    59
    01
    52
    Palermo
    05
    72
    65
    52
    32
    Roma
    28
    43
    75
    54
    87
    Torino
    16
    08
    17
    24
    38
    Venezia
    67
    28
    55
    60
    29
    Nazionale
    15
    69
    22
    63
    39
    Estrazione Simbolotto
    Firenze
    44
    09
    31
    22
    16
Alto