Write(Fb,b[imk]);    

if j<1 then Write(Fb,',')          

else

if(i<t-2)and(i=1)then write(Fb,';')                                    

else write(fb,')');

end;

CloseFile(Fb)

*********创建保存矩阵y的M文件*********

assign(fy,'c:\matlabfile\delphiouty.m');

Rewrite(Fy);write(fy,'y=['];

for i:=1 to t-1 do if i<t-1 then write(Fy,y[i],',')          

else write(fy,y[i],')');

CloseFile(Fy);

三、Matlab如何接受应用程序传递来的数据并进行计算  

前面介绍过，由于M文件只有在Matlab集成环境中才能被识别和自动执行，而根据后台运作的要求不能显示地进人Matlab集成环境。但我们可以通过对matlabrc.m文件的修改，将Matlab要完成的操作编写成M文件，加人matlabrc.m中。下面笔者仍依前面例题的计算要求，来说明如何编写Matlab接收数据、进行计算、数据输出的M文件(取名为c:\matlabfile\Mymatlabfile.m).

1、用记事本输入以下代码，保存在自己的目录（如c:\matlabfile）下，取名为Mymatlabfile.m。delphioutb //保存矩阵b的M文件delphiouty //保存矩阵y的M文件m=((b')*b')*(y')save c:\matlabfile\matlaboutfile.dat m -ascii –doublequit

2、打开matlabrc.m将其保存为一个备份文件matlabrcbak.m，然后对原文件进行编辑，将下列语句加在文件最后：if exist('c:\matlabfile\Mymatlabfile.m')Mymatlabfileend

3、完成上述内容后，只要在应用程序中启动MATLAB，就会完成相应操作。