> Allpass_1 := P-> (1-0.6436 * P)/(1+0.6436 * P);
> Allpass_3 := P -> ((1-1.1415 * P) * (1-1.5092 * P+1.0877 * P^2))/((1+1.1415 * P) * (1+1.5092 * P+1.087 7 * P^2));
> Allpass_10 := P->( (1-2.8406 * P+2.0490 * P^2) * (1-2.6120 * P+1.9714 * P^2) * (1-2.1733 * P+1.8184 * P^2) * (1-1.5583 * P+1.5923 * P^2) * (1-0.8018 * P+1.2877 * P^2) )/ ( (1+2.8406 * P+2.0490 * P^2) * (1+2.6120 * P+1.9714 * P^2) * (1+2.1733 * P+1.8184 * P^2) * (1+1.5583 * P+1.5923 * P^2) * (1+0.8018 * P+1.2877 * P^2) ) ;