Contents
b = [1 0 1];
r = .5:.01:.98;
w = .02:.01:.98;
Direct form II
Ri2 = zeros(length(r),length(w));
for n1=1:length(r)
for n2=1:length(w)
a = [1 -2*r(n1)*cos(pi*w(n2)) r(n1)^2];
ssr2 = ssr_ABCDKW(b,a,'DF2');
Ri2(n1,n2) = ssr2.W(2,2) + 1;
end
end
Ri_graph(r,w,Ri2,'DF2')
Suboptimum normal form
RiN = zeros(length(r),length(w));
for n1=1:length(r)
for n2=1:length(w)
a = [1 -2*r(n1)*cos(pi*w(n2)) r(n1)^2];
ssrN = ssr_ABCDKW(b,a,'NF2');
RiN(n1,n2) = ssrN.W(1,1) + ssrN.W(2,2) + 1;
end
end
Ri_graph(r,w,RiN,'NF2')
Minimum round-off noise form
RiM = zeros(length(r),length(w));
for n1=1:length(r)
for n2=1:length(w)
a = [1 -2*r(n1)*cos(pi*w(n2)) r(n1)^2];
ssrM = ssr_mron(b,a);
RiM(n1,n2) = 2*ssrM.W(1,1) + 1;
end
end
Ri_graph(r,w,RiM,'MNF')