Novità

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

lotto_tom75

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

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

lotto_tom75

Advanced Premium Member
claudio8 ha scritto:
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.... :):):):)
Clicca per espandere...

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 ;)
 
C

claudio8

Premium Member
lotto_tom75 ha scritto:
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 ;)
Clicca per espandere...

Svicolone.jpg
 
Devi accedere o registrarti per poter rispondere.

Ultima estrazione Lotto

  • Estrazione del lotto
    martedì 23 aprile 2024
    Bari
    47
    22
    34
    20
    50
    Cagliari
    33
    14
    86
    02
    62
    Firenze
    61
    22
    44
    19
    26
    Genova
    21
    12
    57
    82
    55
    Milano
    66
    05
    11
    70
    30
    Napoli
    05
    23
    25
    52
    73
    Palermo
    23
    44
    49
    71
    65
    Roma
    82
    37
    59
    34
    71
    Torino
    26
    42
    66
    15
    58
    Venezia
    57
    06
    68
    54
    84
    Nazionale
    21
    79
    49
    03
    01
    Estrazione Simbolotto
    Genova
    24
    02
    19
    03
    27
    Archivio estrazioni lotto Ritardi top 15 Frequenze top 15

Ultimi Messaggi

Alto