Merge pull request #4002 from wuyudi/master

1 files changed, 140 insertions, 0 deletions

diff --git a/zh-cn/wolfram-cn.html.markdown b/zh-cn/wolfram-cn.html.markdown
new file mode 100644
index 00000000..9d6ef54f
--- /dev/null
+++ b/zh-cn/wolfram-cn.html.markdown
@@ -0,0 +1,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 中可能会很不方便，因为该文件不包含单元格格式化信息（这将使该文件作为文本阅读时变得一团糟）--它可以被查看/编辑，但可能需要一些设置。
+
+```mma
+(* 这是一个注释 *)
+
+(* 在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/)