使用mlopen()函数启动Matlab,
使用mlevalstring(\载入matlab自带的数据文件census,其中包含矩阵cdate和pop。 使用mlgetmatrix(\,\,将Matlab空间的矩阵cdata写入到工作表中以E1开始的位置; mlgetmatrix(\,\;将Matlab空间的矩阵pop写入到工作表中以F1开始的位置; 运行结果如下图所示:
mlputmatrix(\,E1:E21) mlputmatrix(\,F1:F21)
将E1到E21中的数据以及F1到F21中的数据分别写入到Matlab空间的矩阵变量x和y中。 mlevalstring(\mlevalstring(\,s2]=polyfit(z,y,2)\mlevalstring(\,de12]=polyval(p2,z,s2)\根据所给的数据拟合多项式并进行偏差计算。 mlevalstring(\,y,'+',x,pop2,'g-',… x,pop2+2*del2,'r:',x,pop2-2*del2,'r:')\
绘出离散点、拟合曲线图及偏差曲线图,结果如下图示:
mlclose(); 关闭Matlab。
例2:在宏中使用Excel Link
新建一个Excel工作表,打开Visual Basic编辑器,操作如下图示:
然后在工程管理器中插入模块,如下图:
在模块代码区域写下如下代码,如下图:
Function excellinktest() MLOpen
mlevalstring \mlgetmatrix \, \mlgetmatrix \, \
mlputmatrix \, Range(\mlputmatrix \, Range(\Matlabrequest
mlevalstring \mlevalstring \,s2]=polyfit(z,y,2)\mlevalstring \,del2]=polyval(p2,z,s2)\
mlevalstring \,y,'+',x,pop2,'g-',x,pop2+2*del2,'r:',x,pop2-2*del2,'r:')\End Function
选中模块1,在“工具”菜单,“引用”选项,如下图示。
弹出引用对话框,选择Excel Link,如下图:
确定后,即可运行该程序,结果与例1相同。