Disclaimer...<\/a>
23 \u00a0 desc:EQ, High-Pass Nth-Order, v1.0.1
24 \u00a0 \/\/ slope = (M * -12 dB) \/ Octave
25 \u00a0
26 \u00a0 slider1:4000<20,16000,1>Cutoff [Hz]
27 \u00a0 slider2:2<2,12,2>Order [N]
28 \u00a0
29 \u00a0 @init
30 \u00a0 M = 1;
31 \u00a0
32 \u00a0 @slider
33 \u00a0
34 \u00a0 function find_D(index stages)
35 \u00a0 (
36 \u00a0 _k = index;
37 \u00a0 _M = stages;
38 \u00a0 2.0 * sin($pi*(2*_k-1)\/(4*_M));
39 \u00a0 );
40 \u00a0
41 \u00a0 slider1 > 19 ? (
42 \u00a0 slider2 > 1 ? (
43 \u00a0 N = slider2; \/\/ order N, 2 < N < 12
44 \u00a0 M = N \/ 2; \/\/ # of cascaded elements M, 1 < M < 6
45 \u00a0 w = 2.0 * $pi * slider1 \/ srate;
46 \u00a0
47 \u00a0 d = find_D(1, M);
48 \u00a0 beta1 = 0.5 * (( 1.0 - d \/ 2.0 * sin(w) ) \/ ( 1.0 + d \/ 2.0 * sin(w) ));
49 \u00a0 gamma1 = ( 0.5 + beta1 ) * cos(w);
50 \u00a0 alpha1 = ( 0.5 + beta1 + gamma1 ) \/ 4.0;
51 \u00a0
52 \u00a0 M > 1 ? (
53 \u00a0 \t\td = find_D(2, M);
54 \u00a0 \t\tbeta2 = 0.5 * (( 1.0 - d \/ 2.0 * sin(w) ) \/ ( 1.0 + d \/ 2.0 * sin(w) ));
55 \u00a0 \t\tgamma2 = ( 0.5 + beta2 ) * cos(w);
56 \u00a0 \t\talpha2 = ( 0.5 + beta2 + gamma2 ) \/ 4.0;
57 \u00a0 );
58 \u00a0
59 \u00a0 M > 2 ? (
60 \u00a0 \t\td = find_D(3, M);
61 \u00a0 \t\tbeta3 = 0.5 * (( 1.0 - d \/ 2.0 * sin(w) ) \/ ( 1.0 + d \/ 2.0 * sin(w) ));
62 \u00a0 \t\tgamma3 = ( 0.5 + beta3 ) * cos(w);
63 \u00a0 \t\talpha3 = ( 0.5 + beta3 + gamma3 ) \/ 4.0;
64 \u00a0 );
65 \u00a0
66 \u00a0 M > 3 ? (
67 \u00a0 \t\td = find_D(4, M);
68 \u00a0 \t\tbeta4 = 0.5 * (( 1.0 - d \/ 2.0 * sin(w) ) \/ ( 1.0 + d \/ 2.0 * sin(w) ));
69 \u00a0 \t\tgamma4 = ( 0.5 + beta4 ) * cos(w);
70 \u00a0 \t\talpha4 = ( 0.5 + beta4 + gamma4 ) \/ 4.0;
71 \u00a0 );
72 \u00a0
73 \u00a0 M > 4 ? (
74 \u00a0 \t\td = find_D(5, M);
75 \u00a0 \t\tbeta5 = 0.5 * (( 1.0 - d \/ 2.0 * sin(w) ) \/ ( 1.0 + d \/ 2.0 * sin(w) ));
76 \u00a0 \t\tgamma5 = ( 0.5 + beta5 ) * cos(w);
77 \u00a0 \t\talpha5 = ( 0.5 + beta5 + gamma5 ) \/ 4.0;
78 \u00a0 );
79 \u00a0
80 \u00a0 M > 5 ? (
81 \u00a0 \t\td = find_D(6, M);
82 \u00a0 \t\tbeta6 = 0.5 * (( 1.0 - d \/ 2.0 * sin(w) ) \/ ( 1.0 + d \/ 2.0 * sin(w) ));
83 \u00a0 \t\tgamma6 = ( 0.5 + beta6 ) * cos(w);
84 \u00a0 \t\talpha6 = ( 0.5 + beta6 + gamma6 ) \/ 4.0;
85 \u00a0 );
86 \u00a0
87 \u00a0 )
88 \u00a0 );
89 \u00a0
90 \u00a0 @sample
91 \u00a0 x_1 = spl0;
92 \u00a0 y_1 = 2.0 * ( alpha1 * ( x_1 - 2.0 * x1_1 + x2_1 ) + gamma1 * y1_1 - beta1 * y2_1 );
93 \u00a0 x2_1 = x1_1;
94 \u00a0 x1_1 = x_1;
95 \u00a0 y2_1 = y1_1;
96 \u00a0 y1_1 = y_1;
97 \u00a0 spl0 = y_1;
98 \u00a0
99 \u00a0 M > 1 ? (
100 \u00a0 x_2 = spl0;
101 \u00a0 y_2 = 2.0 * ( alpha2 * ( x_2 - 2.0 * x1_2 + x2_2 ) + gamma2 * y1_2 - beta2 * y2_2 );
102 \u00a0 x2_2 = x1_2;
103 \u00a0 x1_2 = x_2;
104 \u00a0 y2_2 = y1_2;
105 \u00a0 y1_2 = y_2;
106 \u00a0 spl0 = y_2;
107 \u00a0 );
108 \u00a0
109 \u00a0 M > 2 ? (
110 \u00a0 x_3 = spl0;
111 \u00a0 y_3 = 2.0 * ( alpha3 * ( x_3 - 2.0 * x1_3 + x2_3 ) + gamma3 * y1_3 - beta3 * y2_3 );
112 \u00a0 x2_3 = x1_3;
113 \u00a0 x1_3 = x_3;
114 \u00a0 y2_3 = y1_3;
115 \u00a0 y1_3 = y_3;
116 \u00a0 spl0 = y_3;
117 \u00a0 );
118 \u00a0
119 \u00a0 M > 3 ? (
120 \u00a0 x_4 = spl0;
121 \u00a0 y_4 = 2.0 * ( alpha4 * ( x_4 - 2.0 * x1_4 + x2_4 ) + gamma4 * y1_4 - beta4 * y2_4 );
122 \u00a0 x2_4 = x1_4;
123 \u00a0 x1_4 = x_4;
124 \u00a0 y2_4 = y1_4;
125 \u00a0 y1_4 = y_4;
126 \u00a0 spl0 = y_4;
127 \u00a0 );
128 \u00a0
129 \u00a0 M > 4 ? (
130 \u00a0 x_5 = spl0;
131 \u00a0 y_5 = 2.0 * ( alpha5 * ( x_5 - 2.0 * x1_5 + x2_5 ) + gamma5 * y1_5 - beta5 * y2_5 );
132 \u00a0 x2_5 = x1_5;
133 \u00a0 x1_5 = x_5;
134 \u00a0 y2_5 = y1_5;
135 \u00a0 y1_5 = y_5;
136 \u00a0 spl0 = y_5;
137 \u00a0 );
138 \u00a0
139 \u00a0 M > 5 ? (
140 \u00a0 x_6 = spl0;
141 \u00a0 y_6 = 2.0 * ( alpha6 * ( x_6 - 2.0 * x1_6 + x2_6 ) + gamma6 * y1_6 - beta6 * y2_6 );
142 \u00a0 x2_6 = x1_6;
143 \u00a0 x1_6 = x_6;
144 \u00a0 y2_6 = y1_6;
145 \u00a0 y1_6 = y_6;
146 \u00a0 spl0 = y_6;
147 \u00a0 );
148 \u00a0
<\/p><\/p>Download<\/a>\n","protected":false},"excerpt":{"rendered":"","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[12],"tags":[],"_links":{"self":[{"href":"http:\/\/www.auriculaonline.com\/wp\/index.php?rest_route=\/wp\/v2\/posts\/255"}],"collection":[{"href":"http:\/\/www.auriculaonline.com\/wp\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.auriculaonline.com\/wp\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.auriculaonline.com\/wp\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/www.auriculaonline.com\/wp\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=255"}],"version-history":[{"count":3,"href":"http:\/\/www.auriculaonline.com\/wp\/index.php?rest_route=\/wp\/v2\/posts\/255\/revisions"}],"predecessor-version":[{"id":622,"href":"http:\/\/www.auriculaonline.com\/wp\/index.php?rest_route=\/wp\/v2\/posts\/255\/revisions\/622"}],"wp:attachment":[{"href":"http:\/\/www.auriculaonline.com\/wp\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=255"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.auriculaonline.com\/wp\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=255"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.auriculaonline.com\/wp\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=255"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}