1
function [f1,f2,f3,f4,f5,f6,f7]=%lss_e(i,j,f)
6
if rhs<>2 then error(21),end
7
nams=['A','B','C','D','X0','dt']
9
kf=find(convstr(i(k),'u')==nams)
10
if kf==[] then error(21),end
11
execstr('f'+string(k)+'=j(kf+1)')
15
if type(i)==4 then i=find(i),end
16
if type(j)==4 then j=find(j),end
17
[a,b,c,d,x0,dom]=f(2:7)
18
f1=tlist(['lss','A','B','C','D','X0','dt'],a,b(:,j),c(i,:),d(i,j),x0,dom)
19
if f1('D')==[] then f1=[],end