rt2smat.m

控制系统计算机辅助设计——MATLAB语言与应用(源代码）

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;