elemshp.html

elemshp.mws

syntfil[ElemsHP] - transformation of the element values from the normalized lowpass (NLP) to highpass (HP)

Calling sequence:

ElemsHP(blocks, R, f_p)

Parameters:

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

R - value of terminating resistor [Ohm]

fp - HP cutoff frequency [Hz]

Parameters R a fp must be positive numbers.

Description:

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

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

Transformation changes inductor to capacitor and capacitor to inductor.

The elements are transformed according to following rules:

Info level:

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

infolevel[syntfil] =

2 - print HP type, terminating resistors and HP 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,f_p:=100,1000;

> elems_hp:=ElemsHP(elems_nlp,R,f_p);

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

Compute transfer function from table with filter description

> h:=MakeH(elems_hp);

See also:

DroppNLP

ElemsLP, ElemsBP, ElemsBP2, ElemsBPm, ElemsBP2m, ElemsBS, ElemsBSm

MakeH, MakeRealL