1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
|
---
language: wolfram
contributors:
- ["hyphz", "http://github.com/hyphz/"]
- ["altaris", "http://github.com/altaris/"]
filename: 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/)
|
