nlp2hp.mws

syntfil[NLP2HP]  - frequency transformation of transfer function poles and zeros of NLP to a particular biquadratic transfer function parameters of highpass filter

Calling sequence:

      NLP2HP(f_p, Gc, poles);

      NLP2HP(f_p, Gc, poles, zeros);

Parameters:

      f_p      - normalization frequency - cutoff frequency [Hz]

      Gc       - leading coefficient of denominator polynomial of transfer function H [-]

      poles    - 1D arrays of transfer function poles

      zeros    - 1D arrays of transfer function zeros (only for Cauer and Inverse Chebyshev transformations)

Parameters   f_p   and   Gc   must be positive.

Description:

The function returns a table  with description of filter type, value of gain constant, cutoff frequency omega_0  of first order section for even order transfer function and parameters omega[0] , Q , ( omega[n] ) of particular highpass biquadratic transfer functions - sections . Pole-zero pairing and section arranging are made so that dynamic balancing and noise properties of final filter were optimal. Section number determines sequence of the section in cascade, whereas first order section is placed in the end. The filter type is cascade_HP . This specification is necessary for transfer function compilation and for following filter synthesis. Biquadratic transfer function with gain constant h[0] = 1  is denoted by:

Info level:

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

infolevel[syntfil] =

      2  - print of gain constant, cutoff frequency omega_0  of first order section for even order transfer function and parameters omega[0] , Q , ( omega[n] ) of particular biquadratic transfer functions in the order of Q-factor magnitudes

      3  - print of filter type + print of level 2

Examples:

>    with(syntfil):

`Syntfil version 1.53 loaded`

`You can set infolevel[syntfil] variable to 2..5 to get more detailed results!`

>    x:=HP2NLP(1000,1500,3,20):

>    N:=ButterworthNLPOrder(x);

>    Gc,poles:=ButterworthPoles(N);

N := 6, 1.500000000, 3

Gc, poles := .9976283451, vector([-.9663081629+.2589214919*I, -.9663081629-.2589214919*I, -.7073866710+.7073866710*I, -.7073866710-.7073866710*I, -.2589214919+.9663081629*I, -.2589214919-.9663081629*I]...
Gc, poles := .9976283451, vector([-.9663081629+.2589214919*I, -.9663081629-.2589214919*I, -.7073866710+.7073866710*I, -.7073866710-.7073866710*I, -.2589214919+.9663081629*I, -.2589214919-.9663081629*I]...

>    NLP2HP(1500,Gc,poles);

TABLE([1 = TABLE([Q = .7071067810, omega_0 = 9421.048885]), 2 = TABLE([Q = 1.931851652, omega_0 = 9421.048885]), 3 = TABLE([Q = .5176380900, omega_0 = 9421.048885]), H0 = .9999999973, type = cascade_HP...
TABLE([1 = TABLE([Q = .7071067810, omega_0 = 9421.048885]), 2 = TABLE([Q = 1.931851652, omega_0 = 9421.048885]), 3 = TABLE([Q = .5176380900, omega_0 = 9421.048885]), H0 = .9999999973, type = cascade_HP...
TABLE([1 = TABLE([Q = .7071067810, omega_0 = 9421.048885]), 2 = TABLE([Q = 1.931851652, omega_0 = 9421.048885]), 3 = TABLE([Q = .5176380900, omega_0 = 9421.048885]), H0 = .9999999973, type = cascade_HP...
TABLE([1 = TABLE([Q = .7071067810, omega_0 = 9421.048885]), 2 = TABLE([Q = 1.931851652, omega_0 = 9421.048885]), 3 = TABLE([Q = .5176380900, omega_0 = 9421.048885]), H0 = .9999999973, type = cascade_HP...

 

>    Gc2,poles2,zeros2:=CauerPolesZeros(7,1.5,3):

>    infolevel[syntfil]:=3:

>    NLP2HP(1500,Gc,poles2,zeros2);

type = cascade_HP

H0 = 2904.736731

omega0 = 64519.121380

omega_0 = 18596.21405, Q =  2.10260, omega_n = 3052.97254

omega_0 = 11298.72580, Q =  6.06901, omega_n = 5177.20688

omega_0 =  9542.88513, Q = 23.43931, omega_n = 6165.75360

TABLE([1 = TABLE([omega_n = 3052.972536, Q = 2.102602520, omega_0 = 18596.21405]), 2 = TABLE([omega_n = 5177.206875, Q = 6.069012925, omega_0 = 11298.72580]), 3 = TABLE([omega_n = 6165.753605, Q = 23.4...
TABLE([1 = TABLE([omega_n = 3052.972536, Q = 2.102602520, omega_0 = 18596.21405]), 2 = TABLE([omega_n = 5177.206875, Q = 6.069012925, omega_0 = 11298.72580]), 3 = TABLE([omega_n = 6165.753605, Q = 23.4...
TABLE([1 = TABLE([omega_n = 3052.972536, Q = 2.102602520, omega_0 = 18596.21405]), 2 = TABLE([omega_n = 5177.206875, Q = 6.069012925, omega_0 = 11298.72580]), 3 = TABLE([omega_n = 6165.753605, Q = 23.4...
TABLE([1 = TABLE([omega_n = 3052.972536, Q = 2.102602520, omega_0 = 18596.21405]), 2 = TABLE([omega_n = 5177.206875, Q = 6.069012925, omega_0 = 11298.72580]), 3 = TABLE([omega_n = 6165.753605, Q = 23.4...
TABLE([1 = TABLE([omega_n = 3052.972536, Q = 2.102602520, omega_0 = 18596.21405]), 2 = TABLE([omega_n = 5177.206875, Q = 6.069012925, omega_0 = 11298.72580]), 3 = TABLE([omega_n = 6165.753605, Q = 23.4...

>   

See also:

ButterworthPoles, ChebyshevPoles, InvChebyshevPolesZeros, InvChebyshevBPolesZeros, CauerPolesZeros, CauerBPolesZeros, CauerCPolesZeros

NLP2LP, NLP2BP, NLP2BP2, NLP2BS

MakeH, ARCSynt, ARCBlock, ARCBlock1