From 95a5b90c683bb257dbf3fb8e3bc43ef348e4c7fb Mon Sep 17 00:00:00 2001
From: Franz Zotter <fzotter@users.sourceforge.net>
Date: Tue, 5 Sep 2006 12:50:05 +0000
Subject: a lot of complex valued matrix computation abstractions: complex
 matrix inverse via real valued hermitian matrix, complex-valued division,
 complex absolute square, complex multiplication...

and linear and logarithmic sweep abstractions.

svn path=/trunk/externals/iem/iemmatrix/; revision=5871
---
 abs/mtx_linsweep.pd | 64 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 64 insertions(+)
 create mode 100644 abs/mtx_linsweep.pd

(limited to 'abs/mtx_linsweep.pd')

diff --git a/abs/mtx_linsweep.pd b/abs/mtx_linsweep.pd
new file mode 100644
index 0000000..027625b
--- /dev/null
+++ b/abs/mtx_linsweep.pd
@@ -0,0 +1,64 @@
+#N canvas 724 186 552 611 10;
+#X obj 94 57 inlet;
+#X obj 143 57 inlet;
+#X obj 190 57 inlet;
+#X obj 231 56 loadbang;
+#X obj 94 228 mtx_cumsum;
+#X text 187 209 instantaneous frequency;
+#X text 188 229 time dependent phase-angle argument;
+#X text 191 316 sweeped cos-oscillation;
+#N canvas 0 0 661 488 smooth_switches 0;
+#X obj 165 30 inlet;
+#X obj 165 368 outlet;
+#X obj 248 275 mtx_linspace;
+#X obj 248 254 pack f f f;
+#X obj 317 101 mtx_size;
+#X obj 283 123 t f f;
+#X obj 283 175 mtx;
+#X obj 235 174 mtx;
+#X obj 272 79 t b a a a;
+#X obj 165 50 t a a;
+#X obj 165 301 mtx_-;
+#X msg 283 150 element 1 \$1;
+#X msg 235 101 element 1 1;
+#X obj 283 213 expr -int($f1/3.14159265)*3.14159265+$f1;
+#X text 397 192 modulo pi;
+#X connect 0 0 9 0;
+#X connect 2 0 10 1;
+#X connect 3 0 2 0;
+#X connect 4 1 5 0;
+#X connect 5 0 11 0;
+#X connect 5 1 3 2;
+#X connect 6 0 13 0;
+#X connect 7 0 3 0;
+#X connect 8 0 12 0;
+#X connect 8 1 4 0;
+#X connect 8 2 7 1;
+#X connect 8 3 6 1;
+#X connect 9 0 10 0;
+#X connect 9 1 8 0;
+#X connect 10 0 1 0;
+#X connect 11 0 6 0;
+#X connect 12 0 7 0;
+#X connect 13 0 3 1;
+#X restore 94 284 pd smooth_switches (on and off zero-phase);
+#X text 189 261 force zero-crossing at start and end;
+#X obj 94 441 outlet;
+#X text 103 422 sweep vector;
+#X text 185 396 forming matrix with blocksize columns for playback
+;
+#X text 102 38 wstart;
+#X text 147 36 wstop;
+#X text 195 35 len;
+#X obj 94 117 pack \$1 \$2 \$3;
+#X obj 94 315 mtx_sin;
+#X obj 94 208 mtx_linspace;
+#X connect 0 0 16 0;
+#X connect 1 0 16 1;
+#X connect 2 0 16 2;
+#X connect 3 0 16 0;
+#X connect 4 0 8 0;
+#X connect 8 0 17 0;
+#X connect 16 0 18 0;
+#X connect 17 0 10 0;
+#X connect 18 0 4 0;
-- 
cgit v1.2.1