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

[lotto_tom75]

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

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... ?

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" ☀? ??

 

[claudio8]

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

sFile	Percorso del file
aRetColonne	Prima 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 next
nRetNumeri	Ritorna la quantita di numeri sviluppati nella matrice
nRetColonne	Ritorna il numero di colonne di cui si compone la matrice
nRetClasse	Ritorna la classe di sviluppo della matrice
nRetGaranzia	Ritorna 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.

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]

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

sFile	Percorso del file
aRetColonne	Prima 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 next
nRetNumeri	Ritorna la quantita di numeri sviluppati nella matrice
nRetColonne	Ritorna il numero di colonne di cui si compone la matrice
nRetClasse	Ritorna la classe di sviluppo della matrice
nRetGaranzia	Ritorna 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.

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... ?? 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 ?? 'Notte big

 

[claudio8]

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... ?? 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 ?? 'Notte big