Algèbe linéaire

Télécharger le projet
Commenter

Description

Contrôle ActiveX qui apporte au programme des possibilités de calcul d'algèbre linéaire (matriciel). Le code fournit un exemple d'utilisation du contrôle sur une feuille.

Source / Exemple : 


Dim A(1, 1) As Double
Dim B(1, 1) As Double
Dim C(1, 1) As Double

Private Sub Command1_Click()
LinAlg1.AddMatrix A, B, C
End Sub

Private Sub Command2_Click()
Me.Caption = LinAlg1.Trace(C)
End Sub

Private Sub Command3_Click()
LinAlg1.Transpose A, C
End Sub

Private Sub Command4_Click()
txtA(0).Text = A(0, 0)
txtA(1).Text = A(1, 0)
txtA(2).Text = A(0, 1)
txtA(3).Text = A(1, 1)

txtB(0).Text = B(0, 0)
txtB(1).Text = B(1, 0)
txtB(2).Text = B(0, 1)
txtB(3).Text = B(1, 1)

txtC(0).Text = C(0, 0)
txtC(1).Text = C(1, 0)
txtC(2).Text = C(0, 1)
txtC(3).Text = C(1, 1)

End Sub

Private Sub Command5_Click()
LinAlg1.MatrixMultiply A, B, C
End Sub

Private Sub Form_Load()
LinAlg1.About
End Sub

Private Sub GetA_Click()
A(0, 0) = txtA(0).Text
A(1, 0) = txtA(1).Text
A(0, 1) = txtA(2).Text
A(1, 1) = txtA(3).Text
End Sub

Private Sub GetB_Click()
B(0, 0) = txtB(0).Text
B(1, 0) = txtB(1).Text
B(0, 1) = txtB(2).Text
B(1, 1) = txtB(3).Text
End Sub

Private Sub GetC_Click()
C(0, 0) = txtC(0).Text
C(1, 0) = txtC(1).Text
C(0, 1) = txtC(2).Text
C(1, 1) = txtC(3).Text
End Sub

Conclusion :


ATTENTION : les arguments des fonctions, lorsque ce sont des Tableaux (=des matrices), sont passés PAR REFERENCE. Vous ne devez donc pas stocker le résultat dans l'une des matrices servant au calcul sous peine d'erreur de calcul !
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (ceyquem)