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