Multiplication d'un vecteur et un complexe
Bonjour,
Je suis en train de développer un programme dans lequel je suis amené à faire des multiplications de vecteur avec des complexes.
Dans le code ci-dessous, j'aimerai que le vecteur esp(k) réalise le produit suivant :
eps_bis(k) = eps(k) * ( 1 - j*tg(k) )
Mais j'ai toujours un message d'erreur de type ou alors mes données ne sont pas en complexe, j'ai essayé plusieurs méthodes sur plusieurs forum mais je n'obtiens jamais une valeurs complexe en résultat.
Voici mon code :
Dim epaisseur_mm(1 To 12) As Single, k As Integer
Dim tg(1 To 12) As Single
Dim eps(1 To 12) As Single
Dim eps_bis(1 To 12) As Single
Dim n(1 To 12) As Single
For k = 1 To 12
epaisseur_mm(k) = CSng(Me.Controls("ep_c" & k).Value)
tg(k) = CSng(Me.Controls("tg_c" & k).Value)
eps(k) = CSng(Me.Controls("eps_c" & k).Value)
eps_bis(k) = eps(k) * (1, -tg(k) * i)
n(k) = Sqr(eps(k))
Next k
Le but de cette démarche est d'obtenir la variable tg(k) de type Single avec des données complexes à l'intérieur.
Avez vous des idées SVP ? Merci d'avance.