learnxinyminutes-docs/fr-fr/wolfram-fr.html.markdown

language	contributors	filename
wolfram	hyphz http://github.com/hyphz/ altaris http://github.com/altaris/	learnwolfram.nb

Le langage Wolfram est utilisé dans les programmes suivants :

• La ligne de commandes interactive noyau du Raspberry Pi, mais elle ne peut pas gérer des éléments graphiques.
• Mathematica, un éditeur de texte riche spécialisé pour les mathématiques : appuyer sur Shift + Entrée dans une cellule de code crée un nouvelle cellule contenant le résultat.
• Wolfram Wokbench, une variante d'Eclipse spécialisée pour le langage Wolfram.

Ce code d'exemple peut être utilisé et modifié dans ces logiciels. Cependant, le copier-coller directement dans Mathematica peut causer des problèmes de formatage, car il ne contient aucune information de mise en page.

(* Ceci est un commentaire *)

(* Dans Mathematica, au lieu d'utiliser ces commentaires, vous pouvez créer des
   cellules de texte et insérer de jolies images *)

(* Saisissez une opération et appuyez sur Shift + Entrée pour obtenir le
   résultat *)
2*2              (* 4 *)
5+8              (* 13 *)

(* Appels de fonction *)
(* Le langage Wolfram est sensible à la casse *)
Sin[Pi/2]        (* 1 *)

(* Syntaxe alternative pour les appels de fonction à 1 paramètre *)
Sin@(Pi/2)       (* 1 *)
(Pi/2) // Sin    (* 1 *)

(* Dans le langage Wolfram, toutes les expressions sont en réalité des appels de
   fonction *)
Times[2, 2]      (* 4 *)
Plus[5, 8]       (* 13 *)

(* Utiliser une variable pour la première fois la déclare globalement *)
x = 5            (* 5 *)
x == 5           (* True, l'assignation et le test d'égalité est écrit comme
                    dans le C *)
x                (* 5 *)
x = x + 5        (* 10 *)
x                (* 10 *)
Set[x, 20]       (* TOUT est un appel de fonction, TOUUUUUUUUT *)
x                (* 20 *)

(* Le langage Wolfram effectue des manipulations symboliques, donc utiliser des
   variables non déclarées n'est pas illégal *)
cow + 5          (* 5 + cow, comme cow n'est pas déclarée, l'évaluation
                    s'arrête là *)
cow + 5 + 10     (* 15 + cow, on évalue ce qu'on peut... *)
%                (* 15 + cow, % représente le dernier résultat *)
% - cow          (* 15, les variables non déclarées peuvent quand même
                    s'annuler *)
moo = cow + 5    (* Attention : moo est ici une expression et non un nombre *)

(* Déclaration d'une fonction *)
Double[x_] := x * 2    (* Le symbole := empêche l'évaluation immédiate du terme
                          à droite *)
Double[10]             (* 20 *)
Double[Sin[Pi/2]]      (* 2 *)
Double @ Sin @ (Pi/2)  (* 2, Utiliser @ évite les paquets de crochets
                            fermants si moches *)
(Pi/2) // Sin // Double(* 2, Utiliser // permet d'écrire les fonctions dans
                             l'ordre d'appel *)

(* Pour la programmation impérative, utiliser ; pour séparer les expressions *)
MyFirst[] := (Print@"Hello"; Print@"World")  (* Les parenthèses sont nécessaires
                                                car ; est prioritaire sur := *)
MyFirst[]                                    (* Hello World *)

(* Boucles For à la C *)
PrintTo[x_] := For[y=0, y<x, y++, (Print[y])]  (* L'évaluation des boucles For
                                                  se fait comme dans le C *)
PrintTo[5]                                     (* 0 1 2 3 4 *)

(* Boucles While *)
x = 0; While[x < 2, (Print@x; x++)]     (* De nouveau, comme dans le C *)

(* Expressions conditionnelles et If *)
x = 8; If[x==8, Print@"Yes", Print@"No"]   (* If [condition, si vrai,
                                              si faux] *)
Switch[x, 2, Print@"Two", 8, Print@"Yes"]  (* Switch par valeur *)
Which[x==2, Print@"No", x==8, Print@"Yes"] (* Switch du type if, else if,
                                              else if, ..., else *)

(* Les variables autres que les paramètres de fonctions sont par défaut
   globales, même à l'intérieur des fonctions *)
y = 10             (* 10, y est une variable globale *)
PrintTo[5]         (* 0 1 2 3 4 *)
y                  (* 5, y a été modifiée par PrintTo *)
x = 20             (* 20, x est une variable globale *)
PrintTo[5]         (* 0 1 2 3 4 *)
x                  (* 20, dans PrintTo, le paramètre x masque la variable
                      globale x *)

(* La fonction Module permet d'utiliser des variables locales *)
BetterPrintTo[x_] := Module[{y}, (For[y=0, y<x, y++, (Print@y)])]
y = 20             (* y est une variable globale *)
BetterPrintTo[5]   (* 0 1 2 3 4 *)
y                  (* 20, y n'a pas été modifiée car le y du Module masque le
                          y global. C'est bien mieux comme ca ! *)

(* Module permet de faire des déclarations globales aussi *)
Module[{count}, count=0;        (* count est une variable locale *)
  (IncCount[] := ++count);      (* Ce module déclare des fonctions, mais elles
                                   ne sont globales. Elles ont cependant accès
                                   aux variables locales au module. *)
  (DecCount[] := --count)]
count              (* count, car il n'y a pas de variable globale nommée
                      count *)
IncCount[]         (* 1, la fonction utilise la variable count du module *)
IncCount[]         (* 2, le précédent appel de IncCount a modifié count *)
DecCount[]         (* 1 *)
count              (* count, car il n'existe toujours pas de variable globale
                      nommé count *)

(* Listes *)
myList = {1, 2, 3, 4}     (* {1, 2, 3, 4} *)
myList[[1]]               (* 1, les indexes commencent à 1 et non 0 !!! *)
Map[Double, myList]       (* {2, 4, 6, 8}, appliquer une fonction à une liste de
                             manière fonctionnelle *)
Double /@ myList          (* {2, 4, 6, 8}, syntaxe abrégée de la ligne
                             précédente *)
Scan[Print, myList]       (* 1 2 3 4, boucle impérative sur une liste *)
Fold[Plus, 0, myList]     (* 10 (0+1+2+3+4) *)
FoldList[Plus, 0, myList] (* {0, 1, 3, 6, 10}, variante de la fonction
                             précédente qui donne aussi les résultats
                             intermédiaires *)
Append[myList, 5]         (* {1, 2, 3, 4, 5}, myList n'est pas modifiée... *)
Prepend[myList, 5]        (* {5, 1, 2, 3, 4}, ... mais elle peut l'être en 
                             écrivant "myList = " *)
Join[myList, {3, 4}]      (* {1, 2, 3, 4, 3, 4} *)
myList[[2]] = 5           (* {1, 5, 3, 4}, ceci modifie bien la liste *)

(* Tables associatives, ou dictionnaires *)
myHash = <|"Green" -> 2, "Red" -> 1|>   (* Crée une table associative *)
myHash[["Green"]]                       (* 2, l'utilise *)
myHash[["Green"]] := 5                  (* 5, la modifie *)
myHash[["Puce"]] := 3.5                 (* 3.5, l'étend *)
KeyDropFrom[myHash, "Green"]            (* Supprime la clé "Green" *)
Keys[myHash]                            (* {Red} *)
Values[myHash]                          (* {1} *)

(* Pour finir, toute bonne démonstration du langage Wolfram contient un
   Manipulate ! *)
Manipulate[y^2, {y, 0, 20}] (* Crée une interface graphique interactive qui
                               affiche y^2, permettant à l'utilisateur de
                               modifier la valeur de y grâce à un contrôle
                               allant de 0 à 20. Ne fonctionne que si le
                               logiciel utilisé gère les éléments graphique. *)

Envie d'aller plus loin ?

• [Documentation du langage Wolfram (en anglais)] (http://reference.wolfram.com/language/)