Domanda x luigi

[i legend]

Ciao luigi questa richiesta mi è venuta in mente cercando di fare un pezzo di script per tom.
Combinare delle ruote a scelta in classe di 3.
Ill tutto è stato fatto con 3 cicli For
Ma non è dinamico
Se volessi combinare in 4 o 2 elementi?
Allora in spazio c'è
initsviluppointegrale seguito da getcombsviluppo
Ora se lo lancio all'interno di uno sviluppo numerico legge e combina solo l'ultimo array.
In pratica volevo lanciare un do while dentro un do while.
Ho fatto delle ricerche e per initsviluppointegrale
Penso tu abbia usato un do per il fattoriale
Per getcombsviluppo non ne ho idea.
Dato che queste funzioni credo siano presenti solo in spaziometria ti seccherebbe aiutarmi con qualche suggerimento a scriverle?
Con l'aiuto di tutti quelli vogliono partecipare o in mente.
Redim aRu ( 0)
ScegliRuote ( aru)
Call initsviluppointegrale (Aru, k)
Do while getcombsviluppo ( Aru )
Scrivi stringaruote ( aRu)
Loop
Questo alle interno di un o sviluppo numerico.
Scusa per gli errori. Scrivere dal cellulare è difficile
Ciao
P.s:
Non so da dove mi vengano certe idee.

 

[LuigiB]

ciao Legend , ci sono due modi per eseguire gli sviluppi integrali.
Nel tuo caso dovendo combinare pochi numeri va bene lo sviluppo in memoria
cosi facendo inoltre puoi sviluppare anche diversi integrali contemporneamente.
Non ho capito in che ambiente dovrebbe girare lo script però ..

 

[i legend]

Ciao luigi c'è solo un ambiente.
E si chiama Spaziometria.
Ho fatto sviluppo integrale di a num
Poi getcombsviluppo di a num
Dentro il do while
Faccio sviluppo integrale di aruote
E getcombsviluppo di aruote
Lancio statistica formazione e non va.
In pratica non sviluppa i numeri ma solo l ultimo array delle ruote.
Forse sbaglio lo script?
Vorrei poter sviluppare le combinazioni delle ruote come faccio con i numerosi.
Spero di essere stato chiaro.
Esiste una funzione analoga a getcombsviluppo?
Non sono riuscito a trovarla?
Ciao; )

 

[LuigiB]

ussa lo sviluppo in memoria questo è uno script di esempio

Option Explicit
Sub Main

    ' attenzione questo metodo dato che crea tutte le colonne in memoria non va bene per sviluppare
    ' sistemi che generano un elevato numero di combinazioni
    Dim k,e,s
    Dim nClasse
    ReDim aNumeri(90)
    Dim aColonne
    nClasse = 2 ' sviluppo in ambi
    ' inizializzo i numeri da sviluppare in questo caso 90
    ' ma potrebbero essere anche di meno
    For k = 1 To 90
        aNumeri(k) =   k
    Next
    ' sviluppo il sistema valorizzando le colonne sviluppate
    aColonne = SviluppoIntegrale(aNumeri,nClasse)
    ' scrivo le colonne in output
    For k = 1 To UBound(aColonne)
        s = FormatSpace(k,10,True) & "- "
        ' ciclo per leggere la colonna k
        For e = 1 To nClasse
            s = s & Format2(aColonne(k,e)) & "-"
        Next
        ' tolgo l'ultimo trattino
        s = Left(s,Len(s) - 1)
        ' scrive in output
        Call Scrivi(s)
    Next
End Sub

 

[i legend]

Ciao luigi grazie per lo script.
È bello imparare dai migliori
Grazie mille davvero

 

[i legend]

Ciao luigi
Un piccolo passo
Vorrei caricare ogni riga creata in un arRay.
Ma non ci sto riuscendo.
Credo che dovrei utilizzare il Redim preserv
Ma non so dove collocare il contatore.
Spero di non aver detto cavolate. Grazie luigi per quello che mi insegni

 

[LuigiB]

ogni riga creata è gia in un array (a due dimensioni)
se devi valorizzare una colonna alla volta si capisce perfettamente come fare dall'esempio che ti ho postato

in questa parte di codice con l'iteratore k viene letta la matrice delle colonne (matrice a due dimensioni) internamente col ciclo E viene costruita la stringa con i numeri della colonna corrente.
Detto questo è qui la parte da modificare ....al posto della strigna ci vuoel l'array ....

    For k = 1 To UBound(aColonne)
        s = FormatSpace(k,10,True) & "- "
        ' ciclo per leggere la colonna k
        For e = 1 To nClasse
            s = s & Format2(aColonne(k,e)) & "-"
        Next
        ' tolgo l'ultimo trattino
        s = Left(s,Len(s) - 1)
        ' scrive in output
        Call Scrivi(s)
    Next

 

[i legend]

Fatto
Grazieeeeeeeeeeeeeeeeeeeeee

 

[LuigiB]

eheh benissimo ...mi chiedo cosa abbia detto in piu che gia non sapevi ....

 

[i legend]

Vedi ottieni risultati anche senza dire
Questo è il massimo; )
Cmq hai detto moltissimo.
Più tardi posto lo script intero così vedi come lo utilizzo .
In realtà ne ho fatti 2
Uno furbetto e uno scopiazzando il tuo codice (spero bene)
A dopo

 

[i legend]

Option Explicit
Sub getcombRuote (aNewRu, classe )
    Dim k,e,s
    
    ReDim aRuote(0)
    Dim aColonne
    ScegliRuote ( aruote ) 
    ' sviluppo il sistema valorizzando le colonne sviluppate
    aColonne = SviluppoIntegrale(aruote,Classe)
Redim aNewRu  (ubound ( aColonne))
    ' scrivo le colonne in output
    For k =1 To ubound ( aColonne )
S=""
        ' ciclo per leggere la colonna k
        For e = 1 To Classe
            s = s &aColonne(k,e)) &"."
        Next
        ' tolgo l'ultimo trattino
        s = Left(s,Len(s) - 1)
        ' scrive in output
        ANewRu  (k)=s
    Next
End Sub

Ho utilizzato eun po modificato lo script di luigi per adattarlo alle mie esigenze. Da questo ho imparato molto uno Step in più.
In pratica lancio aNewRu in mezzo allo sviluppo dei numeri
Funziona, ovviamente con la funzione split
Quello furbetto e ancora più breve e credo più veloce devo ancora testarlo.
Che te ne pare di questo?
Potrei ottimizza lo ancora?
Così non sono vincolato con i cicli For
Luigi sei grande
Sotto il codice furboi

Option Explicit 
Sub getcombRuote ( aNewRu, classe ) 
Dim nCol ,idcol
Redim aRuote ( 0 ) 
ScegliRuote ( aruote ) 
Ncol =initsviluppointegrale  (aruote, Classe ) 
Redim aNewRu  (ncol)
Idcol=0
Do while getcombsviluppo ( aruote ) 
Idcol=Idcol +1
ANewRu  (idcol )=stringanumeri  (aRuote, ,true)
Loop 
End sub

Questa l ho scritta direttamente non ho fatto il debugging
Anche questa con split
Ciao a domani

Fatto debug

 

[i legend]

Ecco il code

 Option Explicit 
Sub  main
Dim k,aRu
Dim id,clsN, clsR ,sorte
Dim Rit,RitMax, Inc, Freq
Redim  aRuote ( 0 ), aNum ( 0 ) 
ClsN =3
ClsR =3
Sorte=2
Call GetRuote (aRuote, clsR )
Sceglinumeri ( aNum ) 
Call initsviluppointegrale ( aNum, clsN )
Do  while getcombsviluppo ( aNum ) 
For id=1 To ubound (aRuote ) 
ARu=split ("0."&aRuote  (id),".")
Call messaggio "Ruota  = "&stringaruote ( Aru ) 
Call  avanzamentoElab (1,ubound ( aRuote ), id)
Call  statisticaformazioneturbo ( aNum, aRu, sorte,Rit,RitMax, Incr, Freq)
Scrivi stringanumeri ( aNum ) &"     Ruote = "&stringaruote ( aRu ) &"     Rit ="&Rit ' ecc. ..
Next
Loop
End sub
Sub GetRuote  (aRuote, clsR ) 
Redim  aR(0)
Dim id
Call initsviluppointegrale ( aR,clsR )
Id=0
Do while getcombsviluppo ( aR )
Id=id+1
Redim preserv aRuote ( id)
Aruote  (id)=stringanumeri ( aR, ,true ) 
Loop
End sub 
' versione più breve
' si può scrivere anche in tabella

Scritta da cellulare
Bisogna formattare credo
Ciao
Che te ne pare luigi
E gli altri , potrebbe essere utile?
Ciao

 

[LuigiB]

Ciao Legend ..grande entusiasmo senza dubbio bravo...il codice non scriverlo da cellulare non puoi testarlo e gli errori sono sempre in agguato. Ho notato che nel primo script fai lo sviluppo in memoria e nel secondo lo sviluppo mano mano..se usi poche colonne ě sempre meglio quello in memoria..non ho capito bene che devi fare ma il consiglio e fallo finche non ci riesci....ciao

 

[i legend]

Ciao luigi era una richiesta di tom
Ma il primo codice che avevo scritto non era bellissimo.
Con questi ho imparato e sono sicuramente migliori
Grazie mille.
Purtroppo non ho collegamento con il PC.
Ho paura di fare tetering con il cellulare casomai se ho virus nel pc infetto anche il cell.
Ciao