Det matrice et inversion [Fermé]

Signaler
Messages postés
19
Date d'inscription
samedi 6 octobre 2007
Statut
Membre
Dernière intervention
7 janvier 2008
-
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
-
bjr voila ci dessous la routine pr le produit matriciel ,mais j arrive pas pr faire un bouton qui calcule le détérminant des matrices et l inversion de la matrice

Public matriceA(), matriceB(), matriceC() As Double
Public nca, nla, nlb, ncb, ncc, nlc As Byte
Public Const largeurcellule = 800
Public Const hauteurcellule = 300


Public Sub produitmatriciel(A, B, c, ligneA, colonneA, colonneB) 'code pr le produit matriciel a*b=c
Dim i, j, k As Byte




For i = 1 To ligneA
    For j = 1 To colonneB
    c(i, j) = 0
        For k = 1 To colonneA
        c(i, j) = c(i, j) + A(i, k) * B(k, j)
        Next k
    Next j
Next i
       


End Sub


 

2 réponses

Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
39
salut,
il faudrait commencer par typer tes variables

Public nca, nla, nlb, ncb, ncc, nlc As Byte est interprété comme
Public nca as variant, nla as variant, nlb as variant, ncb as variant, ncc as variant, nlc As Byte

idem donc pour tes tableaux
il faut aussi les dimensionner

et tes arguments doivent être typés
++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
39
topic en triple... de mieux en mieux!

la suite ici
http://www.vbfrance.com/infomsg_MATRICE_1057390.aspx#3

clos