L'exponentielle d'un nombre complexe en VBA.

Bonjour,

Dans mon programme, j'ai une variable X de type "complex" avec une partie réelle ("Real") et une partie imaginaire ("Imag").

Quand je compile mon programme, j'obtiens pour cette variable X : un tableau à deux dimensions c'est à dire 801 lignes et 2 colonnes -> X(801,2), avec à l'intérieur un nombre complexe : 1 partie réelle et 1 partie imaginaire, comme ci-dessous.

Pièce jointe 362231

Le but de mon programme est de réaliser la fonction exponentielle sur les 801 lignes et pour chaque colonnes. Malheureusement la fonction EXP(X) ne prend en compte que les variables de type Single.

Du coup, j'ai essayé de contourner le problème en effectuant les opérations étape par étape.

A présent, je cherche un moyen de stocker uniquement la partie réel sur une variable et de même pour la partie imaginaire : "reel" et "imag" afin d'appliquer la formule de l'exponentielle par la suite.

Voici ce que j'ai tenté de faire :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

ReDim X(1 To NBR_POINTS, 1 To M) As Complex ReDim reel(1 To NBR_POINTS, 1 To M) As Complex ReDim imag(1 To NBR_POINTS, 1 To M) As Complex   For i = 1 To NBR_POINTS For k = 1 To M reel(i, k) = X(i, k).Real 'j'essaye de récupèrer uniquement la partie réel du tableau à 2D -> X imag(i, k) = X(i, k).Imag 'j'essaye de récupèrer uniquement la partie imaginaire du tableau à 2D -> X Next k Next i

---

Cependant, j'ai toujours un problème "d'erreur de compatibilité de type" dans ma boucle for. Pourtant reel et X sont du même type.

Avez vous des idées à me proposer pour récupérer la partie réel et imag svp ?

Toujours la même question, toujours la même réponse : https://support.office.com/fr-FR/art...2-a60e7147a95f

Petite remarque en passant concernant ton code : si mes souvenirs (lointain) d'école sont justes, la multiplication d'un nombre complexe ne se limite pas à la multiplication entre elles des parties réelles et imaginaires. Je pense donc que ton code ne donnera pas un résultat juste.
https://fr.wikipedia.org/wiki/Nombre...Multiplication

Finalement, j'ai réussi à récupérer la partie réelle et imaginaire c'était assez trivial ... mais j'ai laissé tombé car la suite de mon programme sera beaucoup trop complexe à coder.

Du coup, j'ai essayé de crée une fonction qui me retourne l'exponentielle d'un nombre complexe à partir de la formule suivante :

https://support.office.com/fr-fr/art...rs=fr-FR&ad=FR

Voici ma fonction :

Code:

---

1 2 3 4 5 6 7 8

Public Function EXPtest(val() As Complex) As Single   ' Retourne l'exponentielle d'un complexe EXPtest.Real = Exp(val.Real) * Cos(val.Imag) EXPtest.Imag = Exp(val.Imag) * Sin(val.Imag)   End Function

---

Appel de la fonction :

Code:

---

1 2 3 4 5 6 7 8

ReDim forme_exp(1 To NBR_POINTS, 1 To M) As Complex   For i = 1 To NBR_POINTS For k = 1 To M forme_exp(i, k) = EXPtest(X(i, k)) Next k Next i

---

Quand j'appelle ma fonction, j'obtiens cette erreur de compilation : "Incompatibilité de type : tableau ou type défini par l'utilisateur attendu".

Avez vous des idées svp ?

Sincèrement, je ne parviens pas à comprendre pourquoi tu recherches une solution compliquée quand il existe une solution simple à portée de main. :weird:
Pourquoi recréer une fonction alors qu'il y en a une toute faite qui existe déjà ?

Quant à la raison pour laquelle ton code ne fonctionne pas, c'est toujours la même qui t'a été expliquée plusieurs fois.

Citation:

---

Envoyé par Menhir

Sincèrement, je ne parviens pas à comprendre pourquoi tu recherches une solution compliquée quand il existe une solution simple à portée de main. :weird:
Pourquoi recréer une fonction alors qu'il y en a une toute faite qui existe déjà ?

Quant à la raison pour laquelle ton code ne fonctionne pas, c'est toujours la même qui t'a été expliquée plusieurs fois.

---

La fonction IMEXP() ne fonctionne pas en VBA d’où l’intérêt de crée une fonction ...

C'est étonnant parce que chez moi ça fonctionne.

Code:

---

Debug.Print Application.WorksheetFunction.ImExp("2+i")

---