arcblock.mws

syntfil[ARCBlock]  - distribution of gain to particular biquads of cascade active filter

Calling sequence:

      ARCBlock(params);

      ARCBlock(params, h0);

Parameters:

      params   - table  of biquadratic transfer functions parameters and with filter type (output of NLP2LP , NLP2HP , NLP2BP , NLP2BP2  or NLP2BS  functions)

      h0       - (optional parameter) gain of ARC filter -  number that determine general gain or list of numbers that determine gain of particular sections (biquads). General gain is set to 1 if parameter h0  is not specified.

Description:

 

Definition of cascade filter transfers

[Maple Bitmap]

transfer function after block Pf[k](s) = U[k]/U[`in`] ,  tj.   Pf[k](s) = product(P[n](s),n = 1 .. k) ,  

where P[n](s) = U[n]/U[`n-1`]   is transfer function of block (biquad) n ,

whereas U[`in`] = U[0]   and s  is Laplace transform parameter.  

 

Info level

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

infolevel[syntfil] =

      2  - print of particular block gains

      3  - print of maxima modulus frequencies of  block transfer functions P[n]  (only for blocks with modulus camber), print of maxima modulus frequencies of  the transfer functions Pf[k]  (shift of maxima modulus frequencies of  the transfer functions P[n] ) + 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!`

>    Gc,poles:=ButterworthPoles(8,3,20):

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

lp := TABLE([1 = TABLE([Q = .6013448870, omega_0 = 4714.684860]), 2 = TABLE([Q = .8999762235, omega_0 = 4714.684860]), 3 = TABLE([Q = 2.562915448, omega_0 = 4714.684860]), 4 = TABLE([Q = .5097955790, o...
lp := TABLE([1 = TABLE([Q = .6013448870, omega_0 = 4714.684860]), 2 = TABLE([Q = .8999762235, omega_0 = 4714.684860]), 3 = TABLE([Q = 2.562915448, omega_0 = 4714.684860]), 4 = TABLE([Q = .5097955790, o...
lp := TABLE([1 = TABLE([Q = .6013448870, omega_0 = 4714.684860]), 2 = TABLE([Q = .8999762235, omega_0 = 4714.684860]), 3 = TABLE([Q = 2.562915448, omega_0 = 4714.684860]), 4 = TABLE([Q = .5097955790, o...
lp := TABLE([1 = TABLE([Q = .6013448870, omega_0 = 4714.684860]), 2 = TABLE([Q = .8999762235, omega_0 = 4714.684860]), 3 = TABLE([Q = 2.562915448, omega_0 = 4714.684860]), 4 = TABLE([Q = .5097955790, o...

>    ARCBlock(lp,4);

TABLE([1 = TABLE([Q = .6013448870, h0 = 3.999999987, omega_0 = 4714.684860]), 2 = TABLE([Q = .8999762235, h0 = 1.000000001, omega_0 = 4714.684860]), 3 = TABLE([Q = 2.562915448, h0 = .6103856981, omega_...
TABLE([1 = TABLE([Q = .6013448870, h0 = 3.999999987, omega_0 = 4714.684860]), 2 = TABLE([Q = .8999762235, h0 = 1.000000001, omega_0 = 4714.684860]), 3 = TABLE([Q = 2.562915448, h0 = .6103856981, omega_...
TABLE([1 = TABLE([Q = .6013448870, h0 = 3.999999987, omega_0 = 4714.684860]), 2 = TABLE([Q = .8999762235, h0 = 1.000000001, omega_0 = 4714.684860]), 3 = TABLE([Q = 2.562915448, h0 = .6103856981, omega_...
TABLE([1 = TABLE([Q = .6013448870, h0 = 3.999999987, omega_0 = 4714.684860]), 2 = TABLE([Q = .8999762235, h0 = 1.000000001, omega_0 = 4714.684860]), 3 = TABLE([Q = 2.562915448, h0 = .6103856981, omega_...
TABLE([1 = TABLE([Q = .6013448870, h0 = 3.999999987, omega_0 = 4714.684860]), 2 = TABLE([Q = .8999762235, h0 = 1.000000001, omega_0 = 4714.684860]), 3 = TABLE([Q = 2.562915448, h0 = .6103856981, omega_...
TABLE([1 = TABLE([Q = .6013448870, h0 = 3.999999987, omega_0 = 4714.684860]), 2 = TABLE([Q = .8999762235, h0 = 1.000000001, omega_0 = 4714.684860]), 3 = TABLE([Q = 2.562915448, h0 = .6103856981, omega_...

>    infolevel[syntfil]:=3:

>    h0:=[3,2,1,1]:

>    ARCBlock(lp,h0);

ARCBlock:

Frequencies of modulus peaks of particular blocks: [[2, 464.18662], [3, 721.24110]].

Frequencies of modulus peaks after particular blocks: [[2, [0.]], [3, [0., 657.58607]], [4, [0., 0.]]].

ARCBlock:

Amplification of particular blocks h0 = [3.000000, 2.000000, 0.610386, 1.638308].

TABLE([1 = TABLE([Q = .6013448870, h0 = 2.999999991, omega_0 = 4714.684860]), 2 = TABLE([Q = .8999762235, h0 = 2.000000001, omega_0 = 4714.684860]), 3 = TABLE([Q = 2.562915448, h0 = .6103856981, omega_...
TABLE([1 = TABLE([Q = .6013448870, h0 = 2.999999991, omega_0 = 4714.684860]), 2 = TABLE([Q = .8999762235, h0 = 2.000000001, omega_0 = 4714.684860]), 3 = TABLE([Q = 2.562915448, h0 = .6103856981, omega_...
TABLE([1 = TABLE([Q = .6013448870, h0 = 2.999999991, omega_0 = 4714.684860]), 2 = TABLE([Q = .8999762235, h0 = 2.000000001, omega_0 = 4714.684860]), 3 = TABLE([Q = 2.562915448, h0 = .6103856981, omega_...
TABLE([1 = TABLE([Q = .6013448870, h0 = 2.999999991, omega_0 = 4714.684860]), 2 = TABLE([Q = .8999762235, h0 = 2.000000001, omega_0 = 4714.684860]), 3 = TABLE([Q = 2.562915448, h0 = .6103856981, omega_...
TABLE([1 = TABLE([Q = .6013448870, h0 = 2.999999991, omega_0 = 4714.684860]), 2 = TABLE([Q = .8999762235, h0 = 2.000000001, omega_0 = 4714.684860]), 3 = TABLE([Q = 2.562915448, h0 = .6103856981, omega_...
TABLE([1 = TABLE([Q = .6013448870, h0 = 2.999999991, omega_0 = 4714.684860]), 2 = TABLE([Q = .8999762235, h0 = 2.000000001, omega_0 = 4714.684860]), 3 = TABLE([Q = 2.562915448, h0 = .6103856981, omega_...

See also:

NLP2LP, NLP2HP, NLP2BP, NLP2BP2, NLP2BS

ARCBlock1, ARCSynt 

ARCSyntLP, ARCSyntHP, ARCSyntBP, ARCSyntBS