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的数值,创建一幅饼图.
