1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
|
function [num,den]=mrfit(w,mod,r)
//Calling sequence:
//[num,den]=mrfit(w,mod,r)
//sys = mrfit(w,mod,r)
//
//w: vector of frequencies
//mod: vector of frequency response magnitude at these frequencies.
//weight: vector of weights given to each point
//
//Fits frequency response magnitude data points by a bi-stable transfer
//function
//G(s) = num(s)/den(s) of order r.
//
// abs(freq(num,den,%i*w)) should be close to mod
//
// Copyright INRIA
w=w(:);mod=mod(:);
[LHS,RHS]=argn(0);
if w(1)==0 then w(1)=%eps;end
if r==0 then num=sum(mod)/size(mod,'*');den=1;return;end
sl0=round(log10(mod(2)/mod(1))/log10(w(2)/w(1)));w(1)=w(2)/10;
if sl0~=0 then mod(1)=mod(2)/10^sl0;end
n=length(w);
slinf=round(log10(mod($)/mod($-1))/log10(w($)/w($-1)));
w($)=w($-1)*10;
if slinf~=0 then mod($)=mod($-1)*10^slinf;end
logw=log10(w);logmod=log10(mod);delw=diff(logw);delmod=diff(logmod);
weight=ones(length(w),1);
junk=find(abs(diff(delmod./delw)) > .6);
ind=1+junk;
if junk==[] then ind=[];end;
weight(ind)=10*ones(length(ind),1);
lwnew=[]; modnew=[];
for i=1:length(w)-1,
nadd=floor(delw(i)/.3)-1;
if nadd>0 then
slope=delmod(i)/delw(i);
lwnew=[lwnew logw(i)+.3*(1:nadd)];
modnew=[modnew logmod(i)+.3*slope*(1:nadd)];
weight=[weight ; ones(nadd,1)];
end
end
log10is=log(10);
w=[w ; exp(lwnew'*log10is)];
mod=[mod ; exp(modnew'*log10is)];
[w,ind]=sort(-w);w=-w; mod=mod(ind); weight=weight(ind);
ind=find(diff(w)>0); ind=[ind(:);length(w)];
w=w(ind); mod=mod(ind); weight=weight(ind);
fresp=cepstrum(w,mod);
[num,den]=frfit(w,fresp,r,weight);
if LHS==1 then
num=syslin('c',num/den);
end
function ww=diff(ww)
//Utility fct
p=size(ww(:),'*');
ww=ww(2:p)-ww(1:p-1);
|
