1楼献给°娘，这是国际惯例~~

首先，我们来看看Mathematica的主体部分——核心语言部分。这核心语言，就像是C语言，java语言中的语法一样，不知道这些核心、最基础的东西，想要熟练运用Mathematica是很难的。好了废话不多说，上课。。。。
1.使用前面的结果
比如前面有一系列计算，balabala。。。运行到第9个表达式了，如下
……
In[9]:=3^2
Out[9]=9
如果在接下去的输入In[10]中想要用Out[9]的结果,那么可以:
In[10]:=%^2
Out[10]=81
如果在接下去的输入In[10]中想要用Out[9]的结果,那么可以:
In[11]:=%%^2
Out[11]=6561
以此类推,当然这样%%...%的使用会用得眼睛迷糊的,当想用的结果里现在的输入比较远时,可以采用下面两种方式:
In[12]:=Out[9]+Out[10]
Out[12]:=90
或者:
In[13]:=%9+%10
Out[13]=90

看来加入mathematica吧的人越来越多，水平也高。顶一个！

呵呵~希望会有更多人来！吧里很冷清的啊！

今日继续上课，来第二课：
2. 定义变量
定义变量其实就是为了计算的方便，就是将一个复杂的表达式或者数字用一个变量名表示，这跟C++语言中的宏定义或者给变量赋值是类似的。
在Mathematica中定义变量用“=”，如下：
In[1]:= x = 5
Out[1]= 5
则在下面不论x何时出现，Mathematica都给其赋值为5，比如：
In[2]:= x^2
Out[2]= 25
在定义变量时还可以连续赋值，比如：x=y=value
当然定义了变量之后，有个问题，比如上面你定义了x，然后在某个时候你又定义了一个函数，如下：
In[10]:=f[x_,y_]=x+y
Out[10]=3+y
事实上，这个时候你是不希望x是被赋值的。这样就牵涉到一个清楚赋值的函数
Clear[x]或者x=.
**************************************************
*所以，用完所设置的变量后，要立即清除该变量的赋值*
**************************************************
这是使用Mathematica的一个原则
另外在定义Mathematica变量时，还有一个原则，那就是
*自定义的变量名最好以小写字母开头，因为Mathematica的内置对象总是以大写字母开头的，这样可以避免与Mathematica内置对象重复。*
PS：顺带在说明一点吧，其实我这些都是根据Mathematica虚拟书一字一词敲键盘的。没说得很全面，但讲重点，然后欢迎捧场。另外，一般，每天更新一点内容，碰上忙的时候也许会没时间更新，而空的时候，也会多更新两三点内容。

太感谢有高手给我们上课 感谢

如果在接下去的输入In[10]中想要用Out[9]的结果,那么可以:
In[11]:=%%^2
Out[11]=6561
求解释%%代表什么

略简单了，这要讲到什么时候啊……

呵呵~欢迎捧场。高手称不上了。。

里面有个地方打错了，应该是输入In[11]中……
%表示上一次结果
%%表示上上一次结果
%%%表示上上上次结果
依次类推
所以如果要用到太前面的结果的话，用%%%...%表示就很繁杂，
所以就用比如%9或者Out[9]来表示，更简洁。
其实，在Mathematica中，%是Out的简写。
Mathematica中有一些简写，这部分内容我也会再开个专题。

我也觉得是的，我想，要改改方式，不能就这么按照虚拟书上一节一节来。
我想，就改成一个专题一个专题形式。
自己现在平时要做实验，看文献什么的。比较忙，没不怎么有空整理Mathematica。以后每发布一次，内容稍微会多些。有时忙起来实在不能保证天天更新，就见谅见谅了。。。呵呵~

In[12]:= {1, 2, 3}*3
Out[12]= {3, 6, 9}
这表示列表元素分别*3 从上面可以看出，列表可以作为整体参与运算，这在很多情况下是会给用户带来方便的，但是，有时也需要取出或设置列表中的某个元素。取出列表中的元素用Part函数，或者简写符号[[ ]],见下面的例子：首先产生一个列表，赋值给n：
In[13]:= n = {4, 5, 6, 7}
Out[13]= {4, 5, 6, 7}
然后取出里面的第2个元素：
In[14]:= n[[2]]
Out[14]= 5
或者：
In[15]:= Part[n, 2]
Out[15]= 5
欲取出列表中的多个元素，可以使用一下的表示方法：
In[27]:= n[[2 ;; 4]]
Out[27]= {5, 6, 7}
上述表示取出列表n中的第2到第4个元素。
而对于列表的列表，取出里面的元素则要相对复杂些：
In[16]:= d = Table[i*a + j*b, {i, 3}, {j, 3}]
Out[16]= {{a + b, a + 2 b, a + 3 b}, {2 a + b, 2 a + 2 b, 2 a + 3 b}, {3 a + b,
3 a + 2 b, 3 a + 3 b}}
这其实是一个3*3的矩阵，取出d23这个元素，那么可以：
In[17]:= d[[2, 3]]
Out[17]= 2 a + 3 b
而
In[18]:= d[[2]]
Out[18]= {2 a + b, 2 a + 2 b, 2 a + 3 b}
d[[2]] 表示取出外列表的第二元素，所以取出的是一个列表，实际上这也是矩阵d的第2行。另外，有一点要注意的是，取出矩阵元素是用d[[2,3]]的形式，里面2,3两侧是没有大括号｛ ｝的，如果有大括号｛ ｝，则表示的意义不一样，见下面的例子：
In[20]:= n[[{2, 3}]]
Out[20]= {5, 6}
可以看到，n[[{2,3}]]表示分别取出列表n中的第2、第3个元素。所以，大家在使用Mathematica中，就是要多看看、多练习练习。
而取出了元素之后，就可以进行赋值操作，从设置列表元素，见如下的例子【仍然使用上面的n列表】：
In[22]:= n[[3]]
Out[22]= 6
取出了n列表中的第三个元素，然后可以通过赋值操作，重新设置n列表中第3个元素的值，如下：
In[28]:= n[[3]] = x + y
Out[28]= x + y
In[29]:= n
Out[29]= {4, 5, x + y, 7}
我们可以看到，n列表中第3个元素被设置成了x+y
【2. 列表元素的检测与搜索】
有时我们会需要根据元素的值来搜索和检测列表中的元素，确定其在列表中的位置或者判断其出现的次数等等。有以下几个函数是用于列表元素的检测与搜索的。
Position[list, form]给出某个元素在列表中的位置：
In[30]:= Position[{a, b, c, a, b}, a]
Out[30]= {{1}, {4}}
这里给出了元素a在列表中的位置，给出的结果表示a在列表中第1个元素和第4个元素
Count[list,form]给出某个元素在列表中出现的次数：
In[31]:= Count[{a, b, c, a, b}, a]
Out[31]= 2
MemberQ[list,form]判断某个元素是否为列表的元素：
In[32]:= MemberQ[{a, b, c}, a]
Out[32]= True
表明a是列表{a,b,c}中的元素
In[33]:= MemberQ[{a, b, c}, d]
Out[33]= False
表明d不是｛a，b，c｝中的元素。
而FreeQ[list,form]则判断某个元素是否不在列表中，其判断刚好跟MemberQ相反，如下：
In[34]:= FreeQ[{a, b, c}, d]
Out[34]= True
PS：今日就先更新到此，关于列表的还有一些内容，后面有空在更新。本来想这一个专题整理好了再一起发上来，想想，还是整理了多少就发多少吧。顺便在吐槽下啊，在Mathematica notebook里打打好字排好版，然后复制到记事本，排版仍然没有乱，该换行的都换行，然后再从记事本复制到这贴吧里，吖的，换行符全没有了，是一大坨没有换行符的东西，我勒个去，还得在贴吧里再对着原版一处一处敲回车键。贴吧真不够人性的，要是打的文字多了，再这么重新一处一处敲回车，真心伤不起！贴吧，说实在的，够挫的。。。在想要不要换阵地呢？唉。。。纠结！

正版是要钱的，不过电驴上有盗版的。你自己可以搜索下载。

顶一个

看完了哦~不错！觉得贴吧不好可以去豆瓣试试……要不就建个人人主页吧……

恩，改天去那边看看~

学习了

In[24]:= Complement[{a, b, c, d, e, f, g}, {a, b}, {e, f,
g}] (*这个函数相当于是求**{a,b}和{e,f,g}在全集{a,b,c,d,e,f,g}中的补集*)
Out[24]= {c, d}
另外还有一个函数用于删除列表中所有重复的元素，DeleteDuplicates[list]，如下：
In[25]:= DeleteDuplicates[{a, b, c, a}]
Out[25]= {a, b, c}
【6. 列表的排序】
通常我们还需要对列表进行排序操作，具体见下面的一些例子，包括升序、降序、反序、轮序。
In[26]:= Sort[{b, a, c, a, b}] (*把列表元素整理成标准顺序，即升序,也即按照字母或者数字的先后或大小顺序排列*)
Out[26]= {a, a, b, b, c}
In[29]:= Sort[{4, 5, 2, 1, 8,
4},
#1 > #
2 &] (*把列表元素整理成降序排列,
#1>#
2&涉及到Mathematica中的纯函数，暂时就将之理解成一个排序的判断条件*)
Out[29]= {8, 5, 4, 4, 2, 1}
Mathematica中Sort函数的功能远不止我现在所罗列的，建议参考帮助文档。就想上一个列子所示，Sort[list,p]就表示按照排序函数p（即一个排序规则）对元素排列，充分利用好排序函数p，可以实现任意排序，比如按绝对值大小排序，对于字符串列表按字符串的长度排序等等。下面讲讲列表的反序排列。所谓反序，就是将原先列表的元素倒过来重新排列。这个看一个例子就知道了，函数也很简单，就是Reverse[list]： In[33]:= Reverse[{a, 5, c, x + y, e}] (*将列表{a,b,c,d,e}倒过来排列*)
Out[33]= {e, x + y, c, 5, a}
而所谓轮序，就是指将列表list元素向左或向右轮换n个位置，其函数是：RotateLeft[list,n]（左轮序）和RotateRight[list,n]（右轮序），见下面例子会很明晰：
In[34]:= RotateLeft[{a, 5, c, x + y, e}, 2] (*把列表中的元素向左轮换（"移动"）2个位置*)
Out[34]= {c, x + y, e, a, 5}
可以看到列表头部向左移出的元素依次添加到列表末尾，这就是向左轮序。向右轮序RotateRight[list,n]则是将列表尾部向右移出的元素依次添加到列表的头部，如下所示：
In[35]:= RotateRight[{a, 4, c, x + y, e}, 2]
Out[35]= {x + y, e, a, 4, c}
或者在RotateLeft[list,n]给出负移位（-n），也可以实现右轮序变换：
In[36]:= RotateLeft[{a, 4, c, x + y, e}, -2]
Out[36]= {x + y, e, a, 4, c}
另外再提两个函数，Ordering[list,n]和Permutaions[list]。
Ordering[list,n]表示给出列表前n个元素从小到大的位置，若是n缺省，则表示给出列表list中元素从小到大的位置，如下所示：
In[37]:= Ordering[{5, 3, 4, 2, 7}]
Out[37]= {4, 2, 3, 1, 5}
In[38]:= {5, 3, 4, 2, 7}[[%37]] (*这与Sort[{5,3,4,2,7}]产生相同的结果*)
Out[38]= {2, 3, 4, 5, 7}
Permutations[list]则表示给出list的所有可能排序，例子就不再给出了。
【7. 列表元素的分组和合并】
列表元素的分组和合并主要有以下三个函数：
Partition[list,n]表示将list分成n个元素一组，形成一个列表的列表
Partition[list,n,d]表示使用偏移d进行主次分组，但仍然是n个元素一组，形成一个列表的列表
Split[list]表示把list按邻接的相同元素进行分组
具体的使用见下面一个例子：
In[39]:= t = {a, b, c, d, e, f, g} (*建立一个列表，赋值给t*)
Out[39]= {a, b, c, d, e, f, g}
In[40]:= Partition[t, 2] (*把列表元素按对分组，此时去掉末尾余下的单个元素*)
Out[40]= {{a, b}, {c, d}, {e, f}}
In[41]:= Partition[t, 3, 1](*把列表分成3个三个元素一组，相邻的三个元素组之间仅差一个元素*)
Out[41]= {{a, b, c}, {b, c, d}, {c, d, e}, {d, e, f}, {e, f, g}}
In[42]:= Split[{a, a, b, b, b, a, a, a, b}](*把列表邻接的相同元素进行分组*)
Out[42]= {{a, a}, {b, b, b}, {a, a, a}, {b}}
【8. 嵌套列表的重排】
如果使用矩阵或者生成多维数组的表，将会碰到嵌套列表，有时就需要对这些嵌套列表进行操作，具体有以下几个函数：
Flatten[list] 表示将嵌套列表的元素重排成一维列表
Partition[list,{n1,n2,...}] 表示将嵌套列表分成大小n1*n2*...的块，不足构成n1*n2*...的元素被丢弃
具体见下面的例子：
In[43]:= Flatten[{{a}, {b, {c}}, {d}}]
Out[43]= {a, b, c, d}
In[50]:= Partition[{{a, b, c}, {d, e, f}, {1, 2, 3}, {4, 5, 6}}, {3, 2}]
Out[50]= {{{{a, b}, {d, e}, {1, 2}}}}
注意上述这个形式可能很难看出这究竟是怎么一回事。如果将其变换成矩阵的标准形式，那就很容易看出来Partition[list,{n1,n2,..}]是一个什么样的功能，
建议大家自己试试看，只要写成Partition[{{a,b,c},{d,e,f},{1,2,3},{4,5,6}},{3,2}]//MatrixForm形式就可以知道。
OK，这个列表专题暂时告一段落了。当然这也不可能包括列表所有的内容，只是给大家一个参考，一个大致的轮廓。下个专题我将讲讲Mathematica中的“规则与模式”，这也是Mathematica中其中一个核心内容。

贴吧里怎么“**”两个字都屏蔽？第五点中**时屏蔽的这两字，果然是很和谐的社会。。。。。。。。。。。。。。。。。。。。。。。。。无语中。。。

集