From cd623379e1527476011d48698ee5b73d3b48c845 Mon Sep 17 00:00:00 2001 From: Katja Date: Sun, 13 Nov 2011 15:18:49 +0000 Subject: add unittest dir plus content to creb svn path=/trunk/externals/creb/; revision=15736 --- unittests/bdiag~-unittest.pd | 33 +++++++++++++++++++++++++++++++++ 1 file changed, 33 insertions(+) create mode 100644 unittests/bdiag~-unittest.pd (limited to 'unittests/bdiag~-unittest.pd') diff --git a/unittests/bdiag~-unittest.pd b/unittests/bdiag~-unittest.pd new file mode 100644 index 0000000..a3162d5 --- /dev/null +++ b/unittests/bdiag~-unittest.pd @@ -0,0 +1,33 @@ +#N canvas 0 22 856 657 10; +#X obj 119 374 unit-test-frame~; +#X msg 440 144 timefreq 1 23 10 \, timefreq 2 15 0 \, timefreq 3 1 +5 \, timefreq 5 1 8 \, timefreq 7 13 4 \, timefreq 11 11 12 \, timefreq +17 2 32 \, timefreq 30 6 2; +#X msg 119 347 bdiag~ 0; +#X obj 440 111 loadbang; +#X obj 440 321 creb/bdiag~; +#X text 43 175 the [eig ] message sets the eigenvalue +for the corresponding block. there are n/2 blocks \, with n the dsp +blocksize.; +#X text 44 230 you can use [timefreq <60dB time> ] +for a more appropriate initialization of the eigenvalues using decay +time in milliseconds and oscillation frequency in Hz.; +#X text 41 25 bdiag~: parallel block diagonal state space model (parallel +2d rotations) see bdiag.c for more info. the state equations for one +block are:; +#X text 85 77 state1 = real * state1 - imag * state2 + input1; +#X text 85 92 state2 = real * state2 + imag * state1 + input2; +#X text 43 128 this module is intended to "filter" spectral data produced +by bfft or other short time spectral transforms like dwt.; +#X text 41 286 [bang] or [random] set the state vector to a random +value. [reset] sets it to 0; +#X msg 466 272 0.2; +#X text 438 45 For this object \, the test result is different between +the first bang and later bangs.; +#X connect 0 2 12 0; +#X connect 1 0 4 0; +#X connect 2 0 0 0; +#X connect 3 0 1 0; +#X connect 3 0 2 0; +#X connect 4 0 0 1; +#X connect 12 0 4 0; -- cgit v1.2.1