makeh.html

syntfil[MakeH] - výpočet přenosových funkcí pasivních a aktivních struktur filtrů

Calling sequence:

MakeH(blocks, var);

Parameters:

blocks - struktura LC filtru, kaskádních parametrů filtru nebo struktura ARC filtru

(výstup z funkcí DroppNLP , ElemsXX , MakeRealL , NLP2XX a funkcí ARCSynt , ARCSyntXX , ARCRoundR ,

kde XX označuje typ filtru, tj. LP , HP , BP ( BP2 , případně BPm a BPm2 pro LC filtry) nebo BS ( BSm )

var - (nepovinný pro struktury LC filtrů) symbol napěťového ( V ) nebo výkonového ( P ) přenosu pro pro struktury LC filtrů

- symbol proměnné výsledného přenosu (symbol Laplaceova operátoru)

Description:

Funkce vrací přenosovou funkci filtru pro struktury pasivních LC filtrů, kaskádních parametrů a struktury aktivních RC filtrů.
Pokud byl LC filtr oboustraně zakončen (volba common , tj. a ), je výpočet přenosu proveden jako (relativní) výkonový, pokud není napěťový výslovně požadován (volbou V příkazu MakeH ). Napěťový přenos je vždy počítán v případě zakončení typu open ( ) nebo short ( ) a to i bez ohledu na pozdější změnu hodnot odporů. Pokud bychom změnili jejich velokosti tak, aby platilo a , lze vypočítat i výkonový přenos, ale opět je to nutné požadovat (volbou P ). Je samozřejmé, že změnou hodnot zakončovacích odporů (oproti volbě před rozštípáním) se změní i přenos, která již neude odpovídat zadanému tolerančnímu schématu!!!
Pro strukturu ARC filtrů lze počítat přenos celkového zapojení nebo jednotlivých bloků.
Při výpočtu přenosu jsou respetovány i reálné vlastnosti prvků (činitele jakosti induktorů, konečné zesílení a mezní kmitočet operačních zesilovačů), pokud jsou zadány.

Info level:

Změnou proměnné infolevel[syntfil] dostanete podrobnější výsledek.

infolevel[syntfil] =

3 - vypsání tytpu přenosu (výkonovvý nebo napěťový) pro struktury LC filtrů.

Example:

> with(syntfil):

> G,Phi,zeros:=Cauer(3,1.2,3,p):

> elems_NLP:=DroppNLP('common',1,front,T,G,Phi,zeros);

$elems_NLP := TABLE([1 = TABLE([Z = p*L1, elements = {L1 = 2.478109811}, orientation = direct]), 2 = TABLE([Z = p*L1+1/(p*C1), elements = {L1 = 1.468327634, C1 = .4007060810}, orientation = shunt]), 3 =...$
$elems_NLP := TABLE([1 = TABLE([Z = p*L1, elements = {L1 = 2.478109811}, orientation = direct]), 2 = TABLE([Z = p*L1+1/(p*C1), elements = {L1 = 1.468327634, C1 = .4007060810}, orientation = shunt]), 3 =...$
$elems_NLP := TABLE([1 = TABLE([Z = p*L1, elements = {L1 = 2.478109811}, orientation = direct]), 2 = TABLE([Z = p*L1+1/(p*C1), elements = {L1 = 1.468327634, C1 = .4007060810}, orientation = shunt]), 3 =...$
$elems_NLP := TABLE([1 = TABLE([Z = p*L1, elements = {L1 = 2.478109811}, orientation = direct]), 2 = TABLE([Z = p*L1+1/(p*C1), elements = {L1 = 1.468327634, C1 = .4007060810}, orientation = shunt]), 3 =...$
$elems_NLP := TABLE([1 = TABLE([Z = p*L1, elements = {L1 = 2.478109811}, orientation = direct]), 2 = TABLE([Z = p*L1+1/(p*C1), elements = {L1 = 1.468327634, C1 = .4007060810}, orientation = shunt]), 3 =...$

> infolevel[syntfil]:=3:

> MakeH(elems_NLP);

syntfil/MakeH_LC:

Voltage transfer:false

> MakeH(elems_NLP,V);

syntfil/MakeH_LC:

Voltage transfer:true

> infolevel[syntfil]:=1:

> elems_NLP:=DroppNLP('short',1,rear,T,G,Phi,zeros):

> MakeH(elems_NLP,P);

Warning, Type of transfer function was changed from Power to Voltage

> elems_LP:=MakeRealL(ElemsLP(elems_NLP,100,1000),50,1000);

$elems_LP := TABLE([1 = TABLE([Z = Rs1+p*L1, elements = {L1 = .2479825728e-1, Rs1 = 3.116240916}, orientation = direct]), 2 = TABLE([Z = Rs1+p*L1+1/(p*C1), elements = {C1 = .1014297511e-5, L1 = .1469345...$
$elems_LP := TABLE([1 = TABLE([Z = Rs1+p*L1, elements = {L1 = .2479825728e-1, Rs1 = 3.116240916}, orientation = direct]), 2 = TABLE([Z = Rs1+p*L1+1/(p*C1), elements = {C1 = .1014297511e-5, L1 = .1469345...$
$elems_LP := TABLE([1 = TABLE([Z = Rs1+p*L1, elements = {L1 = .2479825728e-1, Rs1 = 3.116240916}, orientation = direct]), 2 = TABLE([Z = Rs1+p*L1+1/(p*C1), elements = {C1 = .1014297511e-5, L1 = .1469345...$
$elems_LP := TABLE([1 = TABLE([Z = Rs1+p*L1, elements = {L1 = .2479825728e-1, Rs1 = 3.116240916}, orientation = direct]), 2 = TABLE([Z = Rs1+p*L1+1/(p*C1), elements = {C1 = .1014297511e-5, L1 = .1469345...$
$elems_LP := TABLE([1 = TABLE([Z = Rs1+p*L1, elements = {L1 = .2479825728e-1, Rs1 = 3.116240916}, orientation = direct]), 2 = TABLE([Z = Rs1+p*L1+1/(p*C1), elements = {C1 = .1014297511e-5, L1 = .1469345...$

> MakeH(elems_LP);

> Gc,poles:=ButterworthPoles(3,1.2,3):

> lp:=NLP2LP(1000,Gc,poles);

> MakeH(lp,p);

> ARC_lp:=ARCSynt(lp,table(['C1'=33e-9, 'h0'=1]));

> MakeH(ARC_lp,p);

> ARC_lp_real:=ARCRoundR(ARCSynt(lp,table(['C1'=33e-9, 'h0'=1, 'A0'=1e5, 'ft'=1e6])),48);

> MakeH(ARC_lp_real,p);

Lze počítat i přenos jednotlivých bloků.

> MakeH(ARC_lp_real[1],p);

> MakeH(ARC_lp_real[2],p);

> ARC_lp_g:=ARCBlock(lp,1):

> ARC_lp_1:=ARCSyntLP(ARC_lp_g[1],table(['C1'=33e-9, 'h0'=1]));

> MakeH(ARC_lp_1,p);

Přenos samostatně navržrného bloku musí (při stejných vstupních paramtrech) souhlasit s přenosem odpovídajícího bloku, navrženého výše při syntéze zapojení celého filtru.

> MakeH(ARC_lp[1],p);

MagnitudeH, MagnitudeHdB, PhaseH, GroupDelayH