Výpočet a vykreslení kmitočtových charakteristik pro "jiné volby".

Výpočet přenosové funkce výsledného filtru,  výpočet modulu přenosu a jeho vykreslení.

>    H2_hp_ARC:=MakeH(ARC2_hp,p):

>    mg2_hp_ARC:=MagnitudeHdB(H2_hp_ARC)(2*Pi*f):

Výsledek musí, samozřejmě až na uvedené zesílení, souhlasit s ideální charakteristikou navrženého filtru. Přenos pro   f_p2 musí být samozřejmě také posunut vůči hodnotě ap2  o zadané zesílení (v našem případě +20dB).

>    plot(mg2_hp_ARC,f=0..10e3);

>    evalf(subs(f=f_p2,mg2_hp_ARC));

[Maple Plot]

17.000000000000000024

Výpočet přenosové funkce a vykreslení modulové charakteristiky jednoho bloku, který byl realizován obvodem ESHP . Jak je patrné z přenosové funkce, ta neodpovídá tvarem předpokládabému typu. Je to způsobeno vlastním obvodem, který v podstatě realizuje kompletní obecnou přenosovou funkci vyššího řádu. Nicméně vliv něktrých koeficientů je zanedbatelný a proto po vykreslení dostaneme požadovanou charakteristiku.

>    H2b_hp_ARC:=MakeH(eval(ARC2b_hp),p);

>    mg2b_hp_ARC:=MagnitudeHdB(H2b_hp_ARC)(2*Pi*f):

>    plot(mg2b_hp_ARC,f=0..10e3);

Zde je ověřena hodnota přenosu v nekonečnu, která musí (pro ideální OZ) vyjít jako hodnota koeficientu K návrhu.  

>    limit(H2b_hp_ARC,p=infinity);

H2b_hp_ARC := (.44614744490364426673e-11*p^3+.15342054366932377452e-6*p^2+.29080032845226504772e-4*p+1.)/(.44614744490364426672e-11*p^3+.24569040479616087287e-6*p^2+.63459122506100092669e-2*p+109.11093...

[Maple Plot]

1.0000000000000000000