2016-01-17 21:38:14 +03:00
|
|
|
---
|
|
|
|
language: wolfram
|
|
|
|
contributors:
|
|
|
|
- ["hyphz", "http://github.com/hyphz/"]
|
2016-01-18 14:17:50 +03:00
|
|
|
translators:
|
2016-01-17 21:38:14 +03:00
|
|
|
- ["altaris", "http://github.com/altaris/"]
|
2016-01-18 14:17:50 +03:00
|
|
|
filename: learnwolfram-fr.nb
|
|
|
|
lang: fr-fr
|
2016-01-17 21:38:14 +03:00
|
|
|
---
|
|
|
|
|
|
|
|
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
|
2016-01-19 13:53:13 +03:00
|
|
|
y global. C'est bien mieux comme ça ! *)
|
2016-01-17 21:38:14 +03:00
|
|
|
|
|
|
|
(* 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
|
2016-01-19 13:53:13 +03:00
|
|
|
logiciel utilisé gère les éléments graphiques. *)
|
2016-01-17 21:38:14 +03:00
|
|
|
```
|
|
|
|
|
|
|
|
## Envie d'aller plus loin ?
|
|
|
|
|
|
|
|
* [Documentation du langage Wolfram (en anglais)]
|
2016-01-18 14:17:50 +03:00
|
|
|
(http://reference.wolfram.com/language/)
|