R
Reeaz
Guest
Bonjour,
je suis toujours englué ds mon calcul matriciel, mais j'ai trouvé sur le net des fonctions, mais ayant un niveau en vb et en prog très faible, je n'arrive pas à les faire fonctionner.
Les voici:
Public entr1() As Double
Public ent1() As Double
Public entr2() As Double
Public sor() As Double
Public veci() As Double
Public veco() As Double
Public scal As Double
Public col1 As Integer
Public lin1 As Integer
Public col2 As Integer
Public lin2 As Integer
Public lsr As Integer
Public csr As Integer
Public tagg As Double
Public Sub transpos(N() As Double)
ReDim sor(col1, lin1) As Double
lsr = col1
csr = lin1
Call refresh
ReDim nTRanspo(col1, lin1)
For i = 0 To lin1 - 1
For j = 0 To col1 - 1
sor(j, i) = N(i, j)
Next j
Next i
End Sub
Public Sub refresh()
For i = 0 To lsr - 1
For j = 0 To csr - 1
sor(i, j) = 0
Next j
Next i
End Sub
Sub Main()
End Sub
la fonction transpos transforme juste une matrice initiale en sa transposée, je pense que cela doit etre tou bete de la faire fonctionner mais je n'y arrive pas!!
Si qqun pouvait la faire marcher sur un petit exemple ss excel en ajoutant des petits commentaires ds le code, ce serait cool et me ferait avancer très vite...
Je vous remercie.
Reeaz
je suis toujours englué ds mon calcul matriciel, mais j'ai trouvé sur le net des fonctions, mais ayant un niveau en vb et en prog très faible, je n'arrive pas à les faire fonctionner.
Les voici:
Public entr1() As Double
Public ent1() As Double
Public entr2() As Double
Public sor() As Double
Public veci() As Double
Public veco() As Double
Public scal As Double
Public col1 As Integer
Public lin1 As Integer
Public col2 As Integer
Public lin2 As Integer
Public lsr As Integer
Public csr As Integer
Public tagg As Double
Public Sub transpos(N() As Double)
ReDim sor(col1, lin1) As Double
lsr = col1
csr = lin1
Call refresh
ReDim nTRanspo(col1, lin1)
For i = 0 To lin1 - 1
For j = 0 To col1 - 1
sor(j, i) = N(i, j)
Next j
Next i
End Sub
Public Sub refresh()
For i = 0 To lsr - 1
For j = 0 To csr - 1
sor(i, j) = 0
Next j
Next i
End Sub
Sub Main()
End Sub
la fonction transpos transforme juste une matrice initiale en sa transposée, je pense que cela doit etre tou bete de la faire fonctionner mais je n'y arrive pas!!
Si qqun pouvait la faire marcher sur un petit exemple ss excel en ajoutant des petits commentaires ds le code, ce serait cool et me ferait avancer très vite...
Je vous remercie.
Reeaz