Vykreslení modulových charakteristik jednotlivých bloků a v kaskádní struktuře za jednotlivými bloky

>	k:=nops(op(eval(ARC_bp,1)))-1;

>	leg:=[seq(convert(i,string),i=1..k)]:

Výpočet modulů jednotlibých bloků a modulů přenosů za jednotlivými bloky v kaskádní struktuře filtru.

>	H_bp_ARC_B:=seq(MakeH(ARC_bp[i],p),i=1..k):

>	mg_bp_ARC_B:=seq(MagnitudeHdB(H_bp_ARC_B[i])(2*Pi*f),i=1..k):

>	mg_bp_ARC_Bp:=seq(sum(mg_bp_ARC_B[i],i=1..j),j=1..k):

Vykreslení modulových charakteristik jednotlivých bloků.

>	plot([mg_bp_ARC_B],f=f_s3..fs3,legend=leg);

Vykreslení modulových charakteristik v kaskádní struktuře za jednotlivými bloky, čehož je patrná vyrovnaná dynamika.

>	plot([mg_bp_ARC_Bp],f=0.5*f_p3..fp3*2,legend=leg);