elemsbs.html

elemsbs.mws

syntfil[ElemsBS] - transformation of the element values from the normalized lowpass (NLP) to the band-rejection (BS)

Calling sequence:

ElemsBS(blocks, R, fp, f_p)

Parameters:

blocks - table with NLP LC ladder description (see output from function DroppNLP)

R - value of terminating resistor [Ohm]

fp - BS lower cutoff frequency [Hz]

f_p - BS upper cutoff frequency [Hz]

Parameters fp , f_p a R must be positive numbers, where fp < f_p .

Description:

This function returns table with BP filter description. The table has the same structure as input parameter blocks .

Index type is changed from LC_NLP_... to LC_BS_... .

Transformation changes inductor to parallel connection of inductor and capacitor, and capacitor to serial connection of inductor and capacitor.

The elements are transformed according to following rules:

, kde

Info level:

Setting of variable infolevel[syntfil] can be used to get more detailed results.

infolevel[syntfil] =

2 - print BS type, terminating resistors and BS LC ladder branches on separate lines with description.

Example:

> with(syntfil):

Table with NLP filter description

> elems_nlp:=table([
1 = table([Z = 1/(s*C1), elements = {C1 = 1.}, orientation = shunt]),
2 = table([Z = s*L1, elements = {L1 = 2.}, orientation = direct]),
3 = table([Z = 1/(s*C1), elements = {C1 = 1.}, orientation = shunt]),
R2 = 1.00, R1 = 1.00, type = LC_NLP_common]):

Parameters for transformation

> R,fp,f_p:=100,1000,2000;

> elems_bs:=ElemsBS(elems_nlp,R,fp,f_p);

$elems_bs := TABLE([1 = TABLE([elements = {L1 = .1591549430e-1, C1 = .7957747152e-6}, Z = s*L1+1/(s*C1), orientation = shunt]), 2 = TABLE([elements = {L1 = .1591549430e-1, C1 = .7957747152e-6}, Z = 1/(s...$
$elems_bs := TABLE([1 = TABLE([elements = {L1 = .1591549430e-1, C1 = .7957747152e-6}, Z = s*L1+1/(s*C1), orientation = shunt]), 2 = TABLE([elements = {L1 = .1591549430e-1, C1 = .7957747152e-6}, Z = 1/(s...$
$elems_bs := TABLE([1 = TABLE([elements = {L1 = .1591549430e-1, C1 = .7957747152e-6}, Z = s*L1+1/(s*C1), orientation = shunt]), 2 = TABLE([elements = {L1 = .1591549430e-1, C1 = .7957747152e-6}, Z = 1/(s...$
$elems_bs := TABLE([1 = TABLE([elements = {L1 = .1591549430e-1, C1 = .7957747152e-6}, Z = s*L1+1/(s*C1), orientation = shunt]), 2 = TABLE([elements = {L1 = .1591549430e-1, C1 = .7957747152e-6}, Z = 1/(s...$
$elems_bs := TABLE([1 = TABLE([elements = {L1 = .1591549430e-1, C1 = .7957747152e-6}, Z = s*L1+1/(s*C1), orientation = shunt]), 2 = TABLE([elements = {L1 = .1591549430e-1, C1 = .7957747152e-6}, Z = 1/(s...$
$elems_bs := TABLE([1 = TABLE([elements = {L1 = .1591549430e-1, C1 = .7957747152e-6}, Z = s*L1+1/(s*C1), orientation = shunt]), 2 = TABLE([elements = {L1 = .1591549430e-1, C1 = .7957747152e-6}, Z = 1/(s...$

Compute transfer function from table with NLP filter description

> MakeH(elems_nlp);

Compute transfer function from table with BS filter description

> MakeH(elems_bs);

See also:

DroppNLP

ElemsLP, ElemsHP, ElemsBP, ElemsBPm, ElemsBSm

MakeH, MakeRealL