使用Mathematica操作控制Excel - Mathematica Link for Excel操作详解

Mathematica是世界上最有名的数学软件,处理矩阵 列表数据的功能非常强大.如果能把Mathematica和微软的Excel交互使用,将有重要意义.

在安装了Mathematica的电脑,再安装一个叫做Mathematica Link For Excel 3.5的插件,就可以交互了.

启动Mathematica 8.0,新建一个nb文件,输入以下代码:

In[17]:= Needs["ExcelLink`"]

In[18]:= ExcelInstall[Visible -> True]

Out[18]= LinkObject["\"C:\\Documents and Settings\\All \

Users\\Application \

Data\\Mathematica\\Applications\\ExcelLink\\Binaries\\ExcelLink.exe\"\

", 97, 8]

In[19]:= m = {{3, 5, 7, 9}, {4, 6, 8, 12}};

In[20]:= Excel["A1:D2"] = m

(*以上,是往Excel中写入Mathematica内存变量的数值*)

In[46]:= r = Excel["A1:A4"]

Out[46]= {26., 91., 6., 23.}

In[51]:= p = r/Total[r];

PieChart3D[r, ChartStyle -> {Pink, Red, Green, Yellow}, 

 ChartLabels -> N[p*100, 3] "%", ChartLegends -> col]

上述代码中,第17行,作用是启动Link,第18行,是Mathematica获取到正在运行的Excel应用程序.

第19行,在nb文件中创建一个二维列表m,第20行,把m的数值发送到Excel单元格区域中.

第46行,变量r去获取Excel工作表中的成绩数据,第51行,Mathematica根据r的数值,创建一幅饼图.