Pour extraire les nombres réels d'une liste de nombres réels ou complexes

Il peut arriver qu'on soit intéressé à extraire, d'une liste de nombres réels ou complexes, ceux qui ne sont pas complexes. La tournure-même de la phrase précédente nous donne une façon de résoudre le problème. Il suffit en effet de définir la commande suivante :
reeln[liste_List]:= Select[liste,Head[#] =!= Complex &]
et de la sauvegarder dans son répertoire personnel à l'intérieur d'un fichier qu'on appellera par exemple reeln.m

Par exemple, à partir de mon login, je crée une liste reproductible de 150 nombres réels pseudo-aléatoires, réels ou complexes, que j'appelle liste1, en exécutant dans Mathematica les deux commandes suivantes, d'abord :
SeedRandom["terrierj"] , puis :
liste1 = Table[Random[] + (Random[Integer,{0,1}] Random[] I),{150}]
La réponse est effectivement une liste de 150 nombres réels ou complexes.
Pour obtenir la liste des nombres réels seulement, disons liste2, je charge d'abord la commande décrite plus haut dans ma session de Mathematica avec
<< reeln.m , puis j'exécute :
liste2 = reeln[liste1]

Retour à ma page personnelle



©jmt : création le 010327 - dernière modification le 070112