maldini2310
Messages postés19Date d'inscriptionsamedi 6 octobre 2007StatutMembreDernière intervention 7 janvier 2008
-
7 janv. 2008 à 14:19
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 2018
-
7 janv. 2008 à 18:06
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
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 7 janv. 2008 à 14:55
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