Comment stocker ou optimisez mon code ?

Version imprimable

Bonjour,

Systeme de combinaison

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
Public Function Komb1(ByVal tableau, ByVal Prefixe As String, ByVal min As Integer, ByVal max As Integer, ByVal n As Integer) As String
    Dim i As Integer
    Dim Resultat As String
 
    For i = min To max - n + 1
        If Prefixe = "-1" Then
            Resultat = tableau(i)
        Else
            Resultat = Prefixe & "*" & tableau(i)
        End If
 
        If n > 1 Then
            Komb1 tableau, Resultat, i + 1, max, n - 1
        Else
            If total1 = vbNullString Then
                total1 = Resultat
            Else
                total1 = total1 & "+" & Resultat
            End If
        End If
    Next
 
    Komb1 = total1
End Function

exple sous la forme :
Combinaison de 2 element sur 5 (2/5) -> 10 combinaison possible
A*B+A*C+A*D+A*E+A*F+B*C+B*D+B*E+B*F+C*D+C*E+C*F+D*E+D*F+E*F

Mon probleme c'est que quand je dois calculer de grande combinaison (4/13) ->715 combinaisons possible, le temps de calcul est trop eleve, tout ce qui est superieur a 5s est trop eleve pour moi

Qu'elle est la meilleure maniere de faire ? Puis-je optimiser mon code,stocker dans un tableau, ou dans un fichier ?

11/10/2007, 11h34
DarkVader

Ben une fonction récursive imbriquée dans une boucle cela mérite d'être optimisé.
Tu ferais bien de poser ta question sur le forum algo.

pour les combinaisons j'utilise ca qui doit tourner plus vite
(ce n'est nullement optimisé)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
 
Function cbase(ByVal nb As Currency, base As Integer, nbpos As Byte) As String
Dim repnomb As String
Dim modu As Variant
Dim divi As Currency
Do
divi = Int((nb / base))
modu = nb - (divi * base)
If modu > 9 Then modu = Chr(modu + 55)
repnomb = modu & repnomb
nb = divi
Loop Until nb < base
If nb > 9 Then
repnomb = Chr(nb + 55) & repnomb
Else
repnomb = nb & repnomb
End If
repnomb = String(nbpos - Len(repnomb), "0") & repnomb
cbase = repnomb
End Function
 
Function permute(ParamArray x() As Variant) As Variant
'renvoie les permutations de 9 objet au plus
 
Dim collresu As New Collection
Dim nbele As Byte
Dim combi As Long
Dim stopp As Long
Dim chbase As String
Dim inexch As Integer
Dim rep() As Variant
Dim rep2 As Variant
Dim monvar As Variant
nbele = UBound(x) - LBound(x) + 1
stopp = ((nbele + 1) ^ nbele) - 1
For stopp = 1 To stopp
chbase = cbase(stopp, nbele + 1, nbele)
If InStr(1, chbase, "0") > 0 Then GoTo nr
For inexch = 1 To Len(chbase) - 1
If InStr(inexch + 1, chbase, Mid(chbase, inexch, 1)) <> 0 Then
GoTo nr
End If
Next inexch
collresu.Add (chbase)
nr:
Next stopp
ReDim rep(1 To collresu.Count)
stopp = 1
For Each monvar In collresu
chbase = ""
For inexch = 1 To nbele
chbase = chbase & x(Val(Mid(monvar, inexch, 1) - 1))
 
Next inexch
rep(stopp) = chbase
stopp = stopp + 1
Next monvar
 
permute = rep
End Function