diopha_eq.m

来自「包含大量遗传算法程序」· M 代码 · 共 8 行

function [X,Y]=diopha_eq(A,B,C)
AAA=[]; A1=A(:); B1=B(:);
n=length(B)-1; m=length(A)-1; k=1;
for i=1:n, AAA(i:i+length(A1)-1,k)=A1; k=k+1; end
for i=1:m, AAA(i:i+length(B1)-1,k)=B1; k=k+1; end
C1=zeros(n+m,1); C1(1:length(C))=C(:); x=AAA\C1;
X=x(1:n)'; Y=x(n+1:end)';