Discussion :

[SpaceX]

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.



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 :

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

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 ?

[Menhir]

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

[SpaceX]

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 :

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

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 :

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

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 ?

[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.
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.

[SpaceX]

Sincèrement, je ne parviens pas à comprendre pourquoi tu recherches une solution compliquée quand il existe une solution simple à portée de main.
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 ...

[Menhir]

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

Code :

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

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