矩阵AB=C如何求A？最好有C#、DELPHI或其它语言的算法
最新回答
卿绡
2024-11-06 17:17:17
http://www.delphibbs.com/delphibbs/dispq.asp?lid=3368718
希望对你有帮助。 例：进行矩阵运算(b'*b)*(b'*y'), 其中b是3*2矩阵,y是1*3矩阵。 在Delphi应用程序中，可以采用以下的程序段将参与运算的矩阵b、y保存成M文件，这样Matlab就可以通过执行相应的M文件，获得参与运算的矩阵b、y。应用程序段如下：(程序段中fb、fy是事先定义好的textfile类型的文件变量，l是初值为1的整数，b、y是事先定义好的数组变量,存储用于构造矩阵的数值；'D:\matlab\yourfolder\delphioutb.m'是保存矩阵b的M文件路径及文件名,'D:\matlab\yourfolder\delphiouty.m'是保存矩阵y的M文件路径及文件名)
*********创建保存矩阵b的M文件*********
//注：在Matlab中整个输人矩阵必须以"[]"为其首尾,矩阵的行与行之间必须用分号";"或回车位隔离,矩阵元素必须由逗号","或空格分离。
assignfile(fb,'d:\matlab\yourfolder\delphioutb.m');
Rewrite(Fb);
write(fb,'b=[');
l:=1;
for j:=1 to 3 do
for i:=1 to 2 do
if i=1 then
begin
Write(Fb,b[l],',');
l:=l+1;
end
else
begin
if j<3 then
begin
Write(Fb,b[l],';');
l:=l+1;
end
else
begin
Write(Fb,b[l],']');
l:=l+1;
end;
end;
CloseFile(Fb);
*********创建保存矩阵y的M文件*********
assignfile(fy,'D:\matlab\yourfolder\delphiouty.m');
Rewrite(Fy);
write(fy,'y=[');
for k:=1 to 3 do
if k<3 then write(Fy,y[k],',')
else write(fy,y[k],']');
CloseFile(Fy);
三、Matlab如何接受应用程序传递来的数据并进行计算
前面介绍过，由于M文件只有在Matlab集成环境中才能被识别和自动执行，而根据后台运作的要求不能显示地进人Matlab集成环境。但我们可以通过对matlabrc.m文件的修改，将Matlab要完成的操作编写成M文件，加人matlabrc.m中。下面笔者仍依前面例题的计算要求，来说明如何编写Matlab接收数据、进行计算、数据输出的M文件(取名为D:\matlab\yourfolder\Mymatlabfile.m).
1、用记事本输入以下代码，保存在自己的目录（如D:\matlab\yourfolder）下，取名为Mymatlabfile.m
delphioutb //保存矩阵b的M文件
delphiouty //保存矩阵y的M文件
m=(b'*b)*(b'*y')
save D:\matlab\yourfolder\matlaboutfile.dat m -ascii -double
quit
2、将D:\matlab\toolbox\local\matlabrc.m首先保存为一个备份文件matlabrcbak.m，然后对原文件进行编辑，将下列语句加在文件最后：
if exist('D:\matlab\yourfolder\Mymatlabfile.m')
Mymatlabfile
end
3、完成上述内容后，只要在应用程序中启动MATLAB，就会看到Matlab在启动后自动执行了Mymatlabfile文件，并且生成相应结果。
四、在Delphi中如何启动Matlab
将前面步骤处理完后，我们可以用以下程序隐式启动Matlab:
在上一步中我们在原文件修改后加它另存D:\matlab\toolbox\local\Mymatlabrc.m文件，然后在delphi中输入以下语句：
copyfile('D:\matlab\toolbox\Mymatlabrc.m','c:\matlab\toolbox\local\matlabrc.m',false);
winexec('D:\matlab\bin\win32\matlab.exe',SW_MINIMIZE);
实际过程就是先执行拷贝，将原来的matlabrc文件修改成我们期待的内容，然后执行matlab.
五、Delphi如何接受Matlab输出结果
Matlab将计算结果通过save D:\matlab\yourfolder\matlaboutfile.dat m -ascii -double进行输出，所以我们可以通过下面程序获取
计算结果，并将结果通过mid放进delphi中添加的memo组件中：(Fa为textfle类型变量)
if FileExists('D:\matlab\yourfolder\matlaboutfile.dat') then
AssignFile(Fa,'D:\matlab\yourfolder\matlaboutfile.dat');
Reset(Fa);
memo1.Clear;
While not Eof(Fa) do
begin
readln(Fa,mid);
memo1.Lines.Add(mid);
end;
closefile(Fa);
另外，在应用上述步骤完成接口后，还需要在应用程序中添加以下代码，以还原Matlab原始环境参数设定：
copyfile('D:\matlab\toolbox\local\matlabrcbak.m','D:\matlab\toolbox\local\matlabrc.m',false);
实际就是将备份的文件拷贝回来，以恢复matlabrc原来面目。
仲夏柠叶香
2024-11-06 10:39:01
热门标签
