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
    giovedì 28 marzo 2024
    Bari
    49
    73
    67
    86
    19
    Cagliari
    64
    36
    37
    02
    04
    Firenze
    66
    27
    44
    90
    17
    Genova
    09
    44
    78
    85
    19
    Milano
    70
    14
    47
    38
    27
    Napoli
    80
    29
    28
    45
    39
    Palermo
    54
    59
    78
    47
    62
    Roma
    17
    22
    49
    52
    88
    Torino
    71
    35
    75
    74
    60
    Venezia
    40
    84
    02
    63
    29
    Nazionale
    08
    13
    44
    69
    85
    Estrazione Simbolotto
    Firenze
    06
    35
    16
    18
    05

Ultimi Messaggi

Alto