Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Général VBA
Général VBA Forum général VBA . Pour les logiciels spécifiques (Access, Excel, Word, ...), postez dans les bons sous forums.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 20/09/2006, 19h37   #1
Invité de passage
 
Inscription : septembre 2006
Messages : 1
Détails du profil
Informations forums :
Inscription : septembre 2006
Messages : 1
Points : 0
Points : 0
Par défaut Produit de matrices en vba

Bonjour,

J'ai le problème suivant. Je dois faire le produit d'une matrice et d'un vecteur en vba et je ne sais pas comment faire. J'ai déjà tenté de définir mes vecteurs avec le code qui suit:
Code :
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
 
Option Explicit
Dim matrice(1 To 3, 1 To 3) As Single
 
matrice(1, 1) = Cells(4, 2).Value
matrice(1, 2) = Cells(4, 3).Value
matrice(1, 3) = Cells(4, 4).Value
matrice(2, 1) = Cells(5, 2).Value
matrice(2, 2) = Cells(5, 3).Value
matrice(2, 3) = Cells(5, 4).Value
matrice(3, 1) = Cells(6, 2).Value
matrice(3, 2) = Cells(6, 3).Value
matrice(3, 3) = Cells(6, 4).Value
 
Dim vecteur(1 To 3) As Single
 
vecteur(1, 1) = Cells(2, 1).Value
vecteur(1, 2) = Cells(2, 2).Value
vecteur(1, 3) = Cells(2, 3).Value
Mon but final est de calculer par simulation les proportions à long terme entre 3 états d'une chaine de Markov.

Merci à l'avance de votre aide!
gcadieux est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 21/09/2006, 11h42   #2
Membre actif
 
Avatar de marsupilami34
 
Inscription : juin 2005
Messages : 463
Détails du profil
Informations forums :
Inscription : juin 2005
Messages : 463
Points : 188
Points : 188
Bonjour,

Pour mettre les valeur de ta feuille dans ta matrice, au lieu de les rentrer ligne par ligne dans le code, utilise 2 boucle For imbriquées
Code :
1
2
3
4
5
6
 
For i = 1 to 3
   For j = 1 to 3
      matrice(i,j)=cells(i+3,j+1).value
   Next
Next
Ensuite, pour calculer le produit de tes 2 matrices, définit un e matrice résultat
Code :
1
2
 
Dim Matrice_Resultat(1 to Ubound(Matrice,2), 1 to Ubound(Vecteur,1)) as Single
marsupilami34 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 25/09/2006, 20h07   #3
Invité de passage
 
Inscription : octobre 2004
Messages : 4
Détails du profil
Informations forums :
Inscription : octobre 2004
Messages : 4
Points : 3
Points : 3
Mais ca ne m'indique pas comment faire le produit de 2 matrices?

Merci quand même pour le truc pour simplifier ma déclaration de variables.

Si quelqu'un d'autre a une idée sur le sujet ca m'aiderait beaucoup!
zerpulks est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 26/09/2006, 02h18   #4
Membre régulier
 
Enseignant
Inscription : août 2006
Messages : 141
Détails du profil
Informations personnelles :
Localisation : France

Informations professionnelles :
Activité : Enseignant

Informations forums :
Inscription : août 2006
Messages : 141
Points : 70
Points : 70
Envoyer un message via MSN à Lexot2
Bonjour

Voici un exemple du produit de 2 matrices carrées d'ordre 2
Les 2 matrices sont situées en B3:C4 et E3:F4
Code :
1
2
3
4
5
6
7
Sub PMatrice()
 
  Range("C11:D12").FormulaArray = "=MMULT(B3:C4,E3:F4)"
  ' emplacement matrice résultat en C11:D12
  ' produit des 2 matrices situées en B3:C4 et E3:F4
 
End Sub
Cordialement
Lexot2 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 26/09/2006, 16h54   #5
Membre actif
 
Avatar de marsupilami34
 
Inscription : juin 2005
Messages : 463
Détails du profil
Informations forums :
Inscription : juin 2005
Messages : 463
Points : 188
Points : 188
Citation:
Envoyé par zerpulks
Mais ca ne m'indique pas comment faire le produit de 2 matrices?
Ben, le produit de 2 Matrices
Citation:
|a b c | | j |
|d e f | * | k |
|g h i | | l |
s'effecute en réalisant le produite de la 1ère ligne de ta matrice par la colonne de ta 2 matrice ainsi tu auras :
Citation:
|a*j + b*k + c*l |
|d*j + e*k + f*l |
|g*j + h*k + i*l |
marsupilami34 est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 08h48.


 
 
 
 
Partenaires

Hébergement Web