5
[num,den]=f(['num','den'])
10
if size(num,'*')==1&size(m,'*')>1 then
13
[num,den]=simp(-num+m.*den,den)
15
//at leat one matrix is eye*x
17
[num,den]=simp(-num+m.*den,den)
19
[num,den]=simp(-num+m.*den,den*ones(m))
21
[num,den]=simp(-num+m*eye(den).*den,den)
24
f=rlist(num,den,f('dt'))