jens
b31f3e7435
git-svn-id: http://moon:8086/svn/matlab/trunk@153 801c6759-fa7c-4059-a304-17956f83a07c
25 lines
1.1 KiB
Matlab
Executable File
25 lines
1.1 KiB
Matlab
Executable File
% ##################################################################################
|
|
% ## Loesung: Filterstrukturen ##
|
|
% ## -------------------------------------------------------------------------- ##
|
|
% ## Benoetigte(s) m-File(s): lcascade.m ##
|
|
% ##################################################################################
|
|
|
|
% ##### Teilaufgabe b: Filterkoeffizienten berechnen #####
|
|
[b a] = ellip(7,0.1,40,0.4); % Filter entwerfen
|
|
[B A] = lcascade(b,a); % 3-te kanonische Form
|
|
[Hg W] = freqz(b,a,512); % Uebertragungsfunktion des Gesamtsystems
|
|
[m n] = size(B); % Produkt der Uebertragungsfunktionen der Teilsysteme
|
|
Hi = zeros(512,m);
|
|
|
|
for k=1:m;
|
|
Hi(:,k) = freqz(B(k,:),A(k,:),512);
|
|
end;
|
|
H3k = Hi(:,1) .* Hi(:,2) .* Hi(:,3) .* Hi(:,4);
|
|
|
|
figure;
|
|
plot(W/pi,20*log10(abs(H3k)),'--b'); hold on;
|
|
plot(W/pi,20*log10(abs(Hg)),'-.b'); hold off;
|
|
grid; xlabel('Omega/pi (Nyquist = 1)'); ylabel('|H(exp(j*Omega))| in dB');
|
|
title('-- Gesamtsystem, -. Produkt der Teilsysteme');
|
|
% ##### EOF #####
|