rt2smat.m

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

function P=rt2smat(A,B1,B2,C1,C2,D11,D12,D21,D22)
if nargin==1, [A,B1,B2,C1,C2,D11,D12,D21,D22]=branch(A); end
n=length(A); P=[A,B1,B2; C1,D11,D12; C2,D21,D22];
P(size(P,1)+1,size(P,2)+1)=-inf; m=size(P,2); P(1,m)=n;