function G=oustafod_appro(H,N,wb,wh)
if nargin~=4,
disp('Need four Input Arguments.');
end
% if nargout~=1,
% disp('Only One Output Argument.');
% end
cl=class(H);
if strcmp(cl,'fotf'),
fz=H.b;
fzo=H.nb;
fm=H.a;
fmo=H.na;
fzoz=floor(fzo);
fzox=fzo-fzoz;
fmoz=floor(fmo);
fmox=fmo-fmoz;
s=tf('s');n=0;d=0;
for i=1:length(fzo),
if fzox(i)~=0,
n=n+fz(i)*s^fzoz(i)*oustafod(fzox(i),N,wb,wh);
else
if fzoz(i)~=0,
n=n+fz(i)*s^fzoz(i);
else
n=n+fz(i);
end
end
end
for j=1:length(fmo),
if fmox(j)~=0,
d=d+fm(j)*s^fmoz(j)*oustafod(fmox(j),N,wb,wh);
else
if fmoz(j)~=0,
d=d+fm(j)*s^fmoz(j);
else
d=d+fm(j);
end
end
end
G=n/d;
else
disp('Input Argument must be a fotf object.');
end