- refactored

2022-06-30 13:32:40 +02:00
parent 77cd5261b1
commit 776932e5d1
144 changed files with 0 additions and 38 deletions
@@ -0,0 +1,51 @@
+% ##################################################################################
+% ##  Loesung:  Remez-Entwurf (Tschebyscheff-Approximation)                       ##
+% ##################################################################################
+
+% #####  Teilaufgabe a:  Filter entwerfen  #####
+f = [0 0.3 0.5 1.0];
+g = [1 1 0 0];
+v_m=[9 10];              % Vektor mit den Filterordnungen
+
+for m=v_m
+  b = remez(m,f,g); [H W] = freqz(b,1,512);
+  string = sprintf('Gewuenschte/Aktuelle Antwort - Filterordnung: %d', m);
+  figure;plot(f,g,W/pi,abs(H));
+  line([0 0.3],[ 2-max(abs(H)) 2-max(abs(H))],'linestyle','--');
+  line([0 0.5],[max(abs(H)) max(abs(H))],'linestyle','--');
+  line([0.5 1],[max(abs(H(400:length(H)))) max(abs(H(400:length(H))))],...
+  'linestyle','--');
+  line([0.3 0.3],[ 2-max(abs(H)) 0],'linestyle','--'); 
+  line([0.5 0.5],[ max(abs(H)) max(abs(H(400:length(H))))],'linestyle','--');
+  grid; xlabel('Omega/pi'); ylabel('|H(exp(j*Omega))|'); title(string);
+end;
+
+% #####  Teilaufgabe b:  Frequenzgang wichten  #####
+f = [0 0.3 0.5 1.0];
+g = [1 1 0 0];
+w = [ 0.5 2 ];
+v_m=[9 10];              % Vektor mit den Filterordnungen
+
+for m=v_m
+  b = remez(m,f,g,w); [H W] = freqz(b,1,512);
+  string = sprintf('Gewuenschte/Aktuelle Antwort - Filterordnung: %d', m);
+  figure; plot(f,g,W/pi,abs(H));
+  line([0 0.3],[ 2-max(abs(H)) 2-max(abs(H))],'linestyle','--');
+  line([0 0.5],[max(abs(H)) max(abs(H))],'linestyle','--');
+  line([0.5 1],[max(abs(H(400:length(H)))) max(abs(H(400:length(H))))],...
+  'linestyle','--');
+  line([0.3 0.3],[ 2-max(abs(H)) 0],'linestyle','--'); 
+  line([0.5 0.5],[ max(abs(H)) max(abs(H(400:length(H))))],'linestyle','--');
+  grid; xlabel('Omega/pi'); ylabel('|H(exp(j*Omega))|'); title(string);
+end;
+
+% #####  Teilaufgabe c:  Tiefpass-Bandpass Kombination  #####
+f = [0 0.2 0.26 0.44 0.5 0.7 0.76 1]; % Vektor der Eckfrequenzen
+g = [1  1   0    0    1   1   0   0]; % Vektor der Frequenzgaenge
+w = [ 1       4         1       4];   % Vektor mit den Gewichten
+m = 128;                              % Filterordnung
+b = remez(m,f,g,w); [H W] = freqz(b,1,512);
+
+figure; plot(W/pi,20*log10(abs(H)) );grid; xlabel('Omega/pi');
+ylabel('|H(exp(j*Omega))| in dB'); title('TP-BP-Kombination');
+% #####  EOF  #####