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
|
---
language: wolfram
contributors:
- ["hyphz", "http://github.com/hyphz/"]
translators:
- ["wuyudi", "http://github.com/wuyudi/"]
filename: learnwolfram-cn.nb
lang: zh-cn
---
Wolfram 语言是最初在 Mathematica 中使用的底层语言，但现在可用于多种场合。
Wolfram 语言有几个界面。
- Raspberry Pi 上的命令行内核界面（就叫 _The Wolfram Language_），它是交互式运行的，不能产生图形输入。
- _Mathematica_ 是一个丰富的文本/数学编辑器，内置交互式的 Wolfram: 在 "代码单元 "上按 shift+Return 键可以创建一个输出单元，输出结果，这不是动态的。
- _Wolfram Workbench_，这是 Eclipse 与 Wolfram 语言后端的界面。
本例中的代码可以在任何界面中输入，并使用 Wolfram Workbench 进行编辑。直接加载到 Mathematica 中可能会很不方便，因为该文件不包含单元格格式化信息（这将使该文件作为文本阅读时变得一团糟）--它可以被查看/编辑，但可能需要一些设置。
```mathematica
(* 这是一个注释 *)
(* 在Mathematica中，您可以创建一个文本单元格，用排版好的文本和图像来注释您的代码，而不是使用这些注释 *)
(* 输入一个表达式返回结果 *)
2*2 (* 4 *)
5+8 (* 13 *)
(* 调用函数 *)
(* 注意，函数名（和其他所有东西）是区分大小写的 *)
Sin[Pi/2] (* 1 *)
(* 带有一个参数的函数调用的替代语法 *)
Sin@(Pi/2) (* 1 *)
(Pi/2) // Sin (* 1 *)
(* WL 中的每一种语法都有一些等价的函数调用，即万物皆函数 *)
Times[2, 2] (* 4 *)
Plus[5, 8] (* 13 *)
(* 第一次使用一个变量定义它，并使其成为全局变量 *)
x = 5 (* 5 *)
x == 5 (* 返回真，C-style 的赋值和相等测试 *)
x (* 5 *)
x = x + 5 (* 10 *)
x (* 10 *)
Set[x, 20] (* 当我说万物皆函数时 我是认真的 *)
x (* 20 *)
(* 因为WL是基于计算机代数系统的, *)
(* 可以使用未定义的变量，它们只是阻碍了计算 *)
cow + 5 (* 5 + cow, cow 是未定义的，所以无法进一步计算 *)
cow + 5 + 10 (* 15 + cow, 它将尽力计算 *)
% (* 15 + cow, % 获取最后一次返回的内容 *)
% - cow (* 15, 未定义的变量cow被消去 *)
moo = cow + 5 (* 小心，moo 现在是一个表达式，不是一个数字! *)
(* 定义一个函数 *)
Double[x_] := x * 2 (* 注意 := 防止对RHS进行即时计算。
而 x 后面的 _ 表示没有模式匹配的约束条件*)
Double[10] (* 20 *)
Double[Sin[Pi/2]] (* 2 *)
Double @ Sin @ (Pi/2) (* 2, @-syntax 避免了闭括号的队列 *)
(Pi/2) // Sin // Double(* 2, //-syntax 按执行顺序列举了函数 *)
(* 对于命令式编程，使用 ; 来分隔语句。 *)
(* 丢弃 LHS 的任何输出并运行 RHS *)
MyFirst[] := (Print@"Hello"; Print@"World") (* 请注意，外侧的小括号是关键
;的优先级低于:= *)
MyFirst[] (* 你好，世界 *)
(* C-Style 的 For 循环，注：在 Mathematica 中使用 For 循环是低效的 *)
PrintTo[x_] := For[y=0, y<x, y++, (Print[y])] (* 开始，测试，自增，循环体 *)
PrintTo[5] (* 0 1 2 3 4 *)
(* While 循环 *)
x = 0; While[x < 2, (Print@x; x++)] (* 带测试和程序体的 while 循环 *)
(* If 和 条件 *)
x = 8; If[x==8, Print@"Yes", Print@"No"] (* Condition, true case, else case *)
Switch[x, 2, Print@"Two", 8, Print@"Yes"] (* 值匹配风格切换 *)
Which[x==2, Print@"No", x==8, Print@"Yes"] (* Elif风格切换 *)
(* 除参数外的变量默认为全局变量，即使在函数内部也是如此 *)
y = 10 (* 10, 全局变量 y *)
PrintTo[5] (* 0 1 2 3 4 *)
y (* 5, 全局的 y 被 PrintTo 内的循环计数器所占用 *)
x = 20 (* 20, 全局变量 x *)
PrintTo[5] (* 0 1 2 3 4 *)
x (* 20, PrintTo 中的 x 是一个参数，并自动局部化 *)
(* 局部变量使用 Module 元函数声明 *)
(* 带本地变量的版本 *)
BetterPrintTo[x_] := Module[{y}, (For[y=0, y<x, y++, (Print@y)])]
y = 20 (* 全局变量 y *)
BetterPrintTo[5] (* 0 1 2 3 4 *)
y (* 20, 那更好 *)
(* 实际上，模块允许我们声明任何我们喜欢的作用域 *)
Module[{count}, count=0; (* 声明这个变量count的作用域 *)
(IncCount[] := ++count); (* 这些函数都在该作用域内 *)
(DecCount[] := --count)]
count (* count - 全局变量 count 未定义 *)
IncCount[] (* 1, 使用作用域内的counter变量 *)
IncCount[] (* 2, incCount 升级了它 *)
DecCount[] (* 1, decCount 也是 *)
count (* count - 这个名字依旧不是全局变量 *)
(* Lists *)
myList = {1, 2, 3, 4} (* {1, 2, 3, 4} *)
myList[[1]] (* 1 - 注意列表索引从 1 开始，而不是从 0 开始。 *)
Map[Double, myList] (* {2, 4, 6, 8} - 函数式列表的 map 函数 *)
Double /@ myList (* {2, 4, 6, 8} - 以上的缩略语法 *)
Scan[Print, myList] (* 1 2 3 4 - 命令式循环 *)
Fold[Plus, 0, myList] (* 10 (0+1+2+3+4) *)
FoldList[Plus, 0, myList] (* {0, 1, 3, 6, 10} - 存值的 Fold *)
Append[myList, 5] (* {1, 2, 3, 4, 5} - 注意 myList 没有更新 *)
Prepend[myList, 5] (* {5, 1, 2, 3, 4} - 如果想让 myList 更新，就加上 "myList = " *)
Join[myList, {3, 4}] (* {1, 2, 3, 4, 3, 4} *)
myList[[2]] = 5 (* {1, 5, 3, 4} - 这确实更新了myList *)
(* 关联，又称字典/哈希值 *)
myHash = <|"Green" -> 2, "Red" -> 1|> (* 创建一个关联 *)
myHash[["Green"]] (* 2, 使用 *)
myHash[["Green"]] := 5 (* 5, 更新 *)
myHash[["Puce"]] := 3.5 (* 3.5, 扩展 *)
KeyDropFrom[myHash, "Green"] (* 抹去绿色的键 *)
Keys[myHash] (* {Red, Puce} *)
Values[myHash] (* {1, 3.5} *)
(* 做 Wolfram 的演示时 你不能不展示这个 *)
Manipulate[y^2, {y, 0, 20}] (* 返回一个反应式的用户界面，显示y^2
并允许通过滑块在 0-20 之间调整y。
只适用于图形前端 *)
```
## 想多来点?
- [Wolfram Language Documentation Center](http://reference.wolfram.com/language/)
|
