Multiplication de complexe avec un vecteur

**SpaceX** · 13/03/2018, 12h12

Bonjour,

Je suis entrain de réaliser un programme qui permet de récupérer des valeurs dans différents textbox et de les stocker dans 3 vecteurs : epaisseur_mm, tg et eps.

A présent je souhaite effectuer une multiplication dans ma boucle pour le vecteurepaisseur_mm avec un complexe : (1 - 1i*tg(k)).

J'ai essayer de plusieurs manière notamment avec COMPLEXE(1;-tg(k);""k"") mais j'ai toujours une erreur.

Voici mon code que j'ai actuellement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim epaisseur_mm(1 To 12), k As Long
Dim tg(1 To 12)
Dim eps(1 To 12)
 
For k = 1 To M
    epaisseur_mm(k) = CSng(Me.Controls("ep_c" & k).Text)
    tg(k) = CSng(Me.Controls("tg_c" & k).Text)
    eps(k) = CSng(Me.Controls("eps_c" & k).Text)
Next k

Merci.

**joe.levrai** · 13/03/2018, 12h26

Bonjour,

en VBA, la fonction COMPLEXE() est Application.WorksheetFunction.Complex(Partie Réelle, Partie Imaginaire)
il y a un troisième paramètre facultatif pour travailler sur du i ou j ... par défaut c'est i

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub toto()
Dim i As Long
i = 5
                                     '1 - 20i
    MsgBox WorksheetFunction.Complex(1, -4 * i)
End Sub

**SpaceX** · 13/03/2018, 13h40

Envoyé par joe.levrai

Bonjour,

en VBA, la fonction COMPLEXE() est Application.WorksheetFunction.Complex(Partie Réelle, Partie Imaginaire)
il y a un troisième paramètre facultatif pour travailler sur du i ou j ... par défaut c'est i

Salut,

J'ai testé cette fonction mais quand je debug je n'obtiens pas une valeurs complexe sur esp(k).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
eps(k) = CSng(Me.Controls("eps_c" & k).Text) * WorksheetFunction.Complex(1, -tg(k) * i)

Merci.

**joe.levrai** · 13/03/2018, 14h00

Complex ne renvoie pas réellement un nombre complexe, il renvoie un string affichant un nombre complexe.

Tu peux utiliser au sein de la fonction Complex des opérations sur la partie imaginaire ou réelle, mais tu ne peux pas réutiliser le résultat de la fonction dans une nouvelle opération

**Menhir** · 13/03/2018, 14h07

Comment est déclaré eps() ?
A ma connaissance, VBA ne sait pas gérer les nombres complexes, contrairement à Excel.
https://msdn.microsoft.com/en-us/VBA...les/data-types

Dans VBE, quand je tape Dim MaVariable As, je ne vois rien dans les proposition qui semble se rapprocher d'un nombre complexe.

Plutôt que de passer par des variable, peut-être devrais-tu passer par des cellules.

**SpaceX** · 13/03/2018, 15h33

Envoyé par Menhir

Comment est déclaré eps() ?
A ma connaissance, VBA ne sait pas gérer les nombres complexes, contrairement à Excel.
https://msdn.microsoft.com/en-us/VBA...les/data-types

Dans VBE, quand je tape Dim MaVariable As, je ne vois rien dans les proposition qui semble se rapprocher d'un nombre complexe.

Plutôt que de passer par des variable, peut-être devrais-tu passer par des cellules.

Salut,

Voila comment j'ai déclarer mes vecteurs :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
 
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 n(1 To 12) As Single
 
For k = 1 To M
    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)
    n(k) = Sqr(eps(k))
Next k

J'obtiens bien mes vecteurs qui vont bien de 1 à 12, cependant pour faire un produit de complexe, je trouve la solution nulle part.

Sur Matlab c'est très simple, il suffit de multiplier un vecteur par une expression de cette forme et hop terminé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
'x * (1 - 2i)
X * (1-1j*2)

Il doit surement y avoir une solution en langage VBA

**SpaceX** · 13/03/2018, 15h38

Envoyé par joe.levrai

Complex ne renvoie pas réellement un nombre complexe, il renvoie un string affichant un nombre complexe.

Tu peux utiliser au sein de la fonction Complex des opérations sur la partie imaginaire ou réelle, mais tu ne peux pas réutiliser le résultat de la fonction dans une nouvelle opération

Est-il possible de stocker une valeurs complexe dans une variable et ensuite de la réutiliser afin d'effectuer un produit ?

Je trouve pas de solution pour mon cas.

**joe.levrai** · 13/03/2018, 16h01

Tu ne peux pas stocker des nombres complexes et les calculer depuis VBA

En revanche, tu peux évaluer le produit de deux nombres complexes (et autres opérations) en utilisant la classe des fonctions Excel
On ne part plus de deux nombres complexes déjà constitués, on part des 2 parties réelles et 2 parties imaginaires dissociées

exemple

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub toto()
Dim Reel1 As Long, Reel2 As Long, Imaginaire1 As Long, Imaginaire2 As Long
Reel1 = 1
Imaginaire1 = 1
Reel2 = 1
Imaginaire2 = 1
                ' SOMME de 1 + i et 1 + i  ===> donne 2 + 2i
MsgBox Evaluate("IMSUM(COMPLEX(" & Reel1 & "," & Imaginaire1 & "),COMPLEX(" & Reel2 & "," & Imaginaire2 & "))")
 
                ' PRODUIT de 1 + i et 1 + i  ===> donne 2i
MsgBox Evaluate("IMPRODUCT(COMPLEX(" & Reel1 & "," & Imaginaire1 & "),COMPLEX(" & Reel2 & "," & Imaginaire2 & "))")
End Sub

**Menhir** · 13/03/2018, 16h02

Envoyé par SpaceX

Voila comment j'ai déclarer mes vecteurs :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim eps(1 To 12) As Single

Un Single est un entier. Par définition, il ne peut pas contenir un complexe.

J'obtiens bien mes vecteurs qui vont bien de 1 à 12, cependant pour faire un produit de complexe, je trouve la solution nulle part.

Dans mon message précédent, je t'ai donné une solution possible (à tester) : passer par des cellules Excel au lieu de passer par des variables.

Sinon, puisque COMPLEXE renvoie un String, essaye de passer par des variables de type String.

Sur Matlab c'est très simple, il suffit de multiplier un vecteur par une expression de cette forme et hop terminé :

Et dans AutoCAD il est superfacile de connaitre l'intersection de deux droite alors que c'est compliqué dans Excel.
Et dans Word on peut paramétré la distance entre paragraphes alors qu'on ne peut pas le faire dans Excel.
A force de vouloir faire faire tout et n'importe quoi à Excel, on en oublie que chaque logiciel a son domaine propre et qu'Excel n'est pas un logiciel universel.

**SpaceX** · 13/03/2018, 16h52

Envoyé par Menhir

Dans mon message précédent, je t'ai donné une solution possible (à tester) : passer par des cellules Excel au lieu de passer par des variables.

Faire mes produits de complexes sur une feuille Excel et ensuite les récupérer dans une variable ?

Envoyé par Menhir

Sinon, puisque COMPLEXE renvoie un String, essaye de passer par des variables de type String.

Quel type pourrait contenir une valeurs Complex ?

**Menhir** · 13/03/2018, 17h25

Envoyé par SpaceX

Dans mon message précédent, je t'ai donné une solution possible (à tester) : passer par des cellules Excel au lieu de passer par des variables.

Faire mes produits de complexes sur une feuille Excel et ensuite les récupérer dans une variable ?

Je n'ai jamais conseillé de le récupérer dans une variable.
Une variable est toujours un intermédiaire pour obtenir un résultat final qui n'a plus besoin de la variable.
Ici, au lieu de prendre comme intermédiaire, tu utilises des cellules.

Sinon, puisque COMPLEXE renvoie un String, essaye de passer par des variables de type String.

Quel type pourrait contenir une valeurs Complex ?

Euh... c'est une blague ?

**joe.levrai** · 13/03/2018, 18h48

Ma dernière proposition ne répond pas à ta problématique ?

Certes, simple exemple, il est à adapter mais vu ta présentation initiale, il n'y a rien de bien compliqué

Là où je me suis arrêté, c'est justement vis à vis de l'absence d'explication de la finalité de ces calculs, à quoi vont servir tes nombres complexes une fois en avoir fait le produit ??

**SpaceX** · 13/03/2018, 19h26

Bonsoir,

Merci à vous deux pour votre aide, mais honnêtement je suis un peu perdu car j'ai du mal a cerner ce que je souhaite faire et ce qui est possible de faire avec VBA ... peut être parce que je réfléchis trop façon Matlab. Pour résumer très brièvement, j'ai réalisé un code Matlab fonctionnel et j'ai souhaité le transposer sur une autre machine qui est Excel. Or, sur mon code Matlab j'utilise beaucoup de formules avec des complexes et dans ma démarche je suis parti du principe qu'il était possible d'effectuer le produit d'un vecteur et d'un nombre complexe mais apparement non et en plus de cela, il y'à aucun type de variable qui caractérise un complexe.

Je pense que je vais devoir réaliser mes calculs complexe et vecteur sur une feuille excel et de les stocker par la suite dans une variable quelconque pour qu'elle soit réutilisable dans mon code programme.

Envoyé par joe.levrai

Ma dernière proposition ne répond pas à ta problématique ?

Certes, simple exemple, il est à adapter mais vu ta présentation initiale, il n'y a rien de bien compliqué

Là où je me suis arrêté, c'est justement vis à vis de l'absence d'explication de la finalité de ces calculs, à quoi vont servir tes nombres complexes une fois en avoir fait le produit ??

Ces nombres complexes vont me servir à afficher une courbe en passant par une formule mathématique.

**joe.levrai** · 13/03/2018, 19h39

Donne simplement un exemple, ça sera plus parlant

Deux nombres complexes : ce que tu en fais
Un vecteur : il contient quoi
Et ensuite, tu fais quoi

juste de la description écrite

1+2i
4-i
{Nombre1;Nombre2....}
Je prend X et je le multiplie par Y, pour obtenir ensuite Z

**SpaceX** · 13/03/2018, 20h15

Envoyé par joe.levrai

Donne simplement un exemple, ça sera plus parlant

Deux nombres complexes : ce que tu en fais
Un vecteur : il contient quoi
Et ensuite, tu fais quoi

juste de la description écrite

1+2i
4-i
{Nombre1;Nombre2....}
Je prend X et je le multiplie par Y, pour obtenir ensuite Z

Je vais essayer d'être direct sans rentrer dans les détails sinon je vais me perdre.

Voici un exemple de code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim tg(1 To 12) As Single
 
For k = 1 To M
    tg(k) = CSng(Me.Controls("tg_c" & k).Value)
Next k

J'aimerai dans un premier temps transformer tg_cplx(k) en complexe, est-ce que c'est possible sachant que de base la variable tg(k) est de type Single ?

tg_cplx(k) = (1 - i * tg(k) )

**joe.levrai** · 13/03/2018, 20h33

Ce "premier temps" est simple s'il est pris isolément, mais va aboutir à un "nombre" complexe sous forme de String, sur lequel tu ne pourras plus effectuer de calcul sans passer par une feuille tremplin sur Excel

D'où la nécessité de donner la suite de ce raisonnement, afin de connaître l'ensemble des opérations intermédiaires à traiter

**SpaceX** · 13/03/2018, 22h32

Envoyé par joe.levrai

Ce "premier temps" est simple s'il est pris isolément, mais va aboutir à un "nombre" complexe sous forme de String, sur lequel tu ne pourras plus effectuer de calcul sans passer par une feuille tremplin sur Excel

D'où la nécessité de donner la suite de ce raisonnement, afin de connaître l'ensemble des opérations intermédiaires à traiter

Une fois la variable complexe sous forme de String terminé, je réalise la racine carré de cette dernière pour obtenir le module.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
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 n(1 To 12) As Single
 
For k = 1 To M
    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) 
    n(k) = Sqr(eps(k)) 'On effectue la racine carré de esp
Next k

**joe.levrai** · 14/03/2018, 09h13

Bonjour,

avec des coefficients entiers, c'est réalisable sans trop de soucis, ton module aurait été calculé par la fonction COMPLEXE.MODULE(LeNombreComplexe) et l'aurait renvoyé sous forme de String

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub toto()
Dim Reel1 As Single, Imaginaire1 As Single
Reel1 = 1
Imaginaire1 = 1
 
                ' MODULE de 1+i
MsgBox Evaluate("IMABS(COMPLEX(" & Reel1 & "," & Imaginaire1 & "))")
 
End Sub

Mais les fonctions sur nombres complexes n'acceptent pas les nombres décimaux pour coefficients.

Il faudrait donc décomposer le traitement et le faire manuellement, c'est à dire stocker la partie réelle et la partie imaginaire (sans tenir compte de i), additionner leurs carrés et en faire la Racine

Si tu pars du postulat tg_cplx(k) = (1 - i * tg(k) ), alors tu peux construire une fonction personnalisée avec en premier paramètre la partie réelle, et en second la partie imaginaire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Sub toto()
Dim Reel As Single, Imaginaire As Single
Reel = 1.4
Imaginaire = 1.2
    MsgBox ModuleComplexe(Reel, Imaginaire)
End Sub
 
Function ModuleComplexe(Reel As Single, Imaginaire As Single) As String
    ModuleComplexe = Sqr(Reel ^ 2 + Imaginaire ^ 2)
End Function

Il te suffit donc de toujours partir de Reel = 1, et d'utiliser ta partie imaginaire, qui est Esp(k) ou Tg(k) (je m'y perd à force)

**SpaceX** · 14/03/2018, 09h24

Salut

Ok, je vais essayer ta méthode en dissociant la partie réel et imaginaire.

Tout d'abord je crée la fonction qui réalise a + ib avec une a = Reel et b = Imag

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Function CMPLX(Reel As Single, Imag As Single) As Single
    CMPLX = (Reel + Imag)
End Function

Ensuite dans mon programme :

Dim eps_cplx(1 To 12) As Single

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
For k = 1 To M
    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)
    n(k) = Sqr(eps(k))
    Reel = 1
    Imag = tg(k)
    eps_cplx(k) = CMPLX(Reel,Imag)
Next k

Le seul hic c'est que ma partie imaginaire est un tableau (1 To 12) et ma partie réel toujours une constante, je ne peux pas faire l'addition.

**joe.levrai** · 14/03/2018, 09h27

Il faut faire une boucle dans ton tableau, de 1 à 12

dans cette boucle, tu récupères le module de chaque couple Reel (constante) et Imaginaire (tg(k)) que tu peux restocker dans un nouveau tableau de String

Multiplication de complexe avec un vecteur

Macros et VBA Excel

Discussions similaires

Partager

Partager