From f1fd678167fe3a2774674db51ab08d0dde796a8f Mon Sep 17 00:00:00 2001 From: Franz Zotter Date: Wed, 26 Jul 2006 09:57:07 +0000 Subject: added help for mtx_: and abstractions for lin/logspace. mtx_colon.c: added simple octave functionality (see help). svn path=/trunk/externals/iem/iemmatrix/; revision=5413 --- abs/mtx_linspace.pd | 43 +++++++++++++++++++++++++++++++++++++++++++ abs/mtx_logspace.pd | 27 +++++++++++++++++++++++++++ 2 files changed, 70 insertions(+) create mode 100644 abs/mtx_linspace.pd create mode 100644 abs/mtx_logspace.pd (limited to 'abs') diff --git a/abs/mtx_linspace.pd b/abs/mtx_linspace.pd new file mode 100644 index 0000000..1ad6947 --- /dev/null +++ b/abs/mtx_linspace.pd @@ -0,0 +1,43 @@ +#N canvas 661 125 619 626 10; +#X obj 88 95 inlet; +#X obj 88 370 outlet; +#X text 85 50 linspace creates a linear scale between the start and +end point with N points; +#X text 239 128 arg1: startval; +#X text 236 144 arg2: stopval; +#X text 232 159 arg3: N; +#X obj 188 168 - 1; +#X obj 140 251 /; +#X obj 140 231 pack f f; +#X obj 88 292 mtx_* 0; +#X obj 88 230 f; +#X obj 126 188 f; +#X obj 126 208 -; +#X msg 88 249 0 \$1; +#X obj 88 270 mtx_:; +#X obj 88 167 t b b f; +#X obj 88 313 mtx_+ \$1; +#X obj 88 126 pack \$1 \$2 \$3; +#X obj 88 147 unpack f f f; +#X text 169 92 inlet is a 3 argument list; +#X text 201 112 optional creation arguments:; +#X connect 0 0 17 0; +#X connect 6 0 8 1; +#X connect 6 0 10 1; +#X connect 7 0 9 1; +#X connect 8 0 7 0; +#X connect 9 0 16 0; +#X connect 10 0 13 0; +#X connect 11 0 12 0; +#X connect 12 0 8 0; +#X connect 13 0 14 0; +#X connect 14 0 9 0; +#X connect 15 0 10 0; +#X connect 15 1 11 0; +#X connect 15 2 12 1; +#X connect 15 2 16 1; +#X connect 16 0 1 0; +#X connect 17 0 18 0; +#X connect 18 0 15 0; +#X connect 18 1 11 1; +#X connect 18 2 6 0; diff --git a/abs/mtx_logspace.pd b/abs/mtx_logspace.pd new file mode 100644 index 0000000..ea85532 --- /dev/null +++ b/abs/mtx_logspace.pd @@ -0,0 +1,27 @@ +#N canvas 0 0 657 300 10; +#X obj 147 50 inlet; +#X obj 146 219 outlet; +#X obj 147 104 unpack f f f; +#X obj 148 128 log; +#X obj 183 128 log; +#X obj 149 151 pack f f f; +#X obj 148 172 mtx_linspace; +#X obj 147 194 mtx_exp; +#X text 125 1 logspace creates a logarithmical scale between start +and end point with N points; +#X obj 147 80 pack \$1 \$2 \$3; +#X text 385 104 arg1: startval; +#X text 382 120 arg2: stopval; +#X text 378 135 arg3: N; +#X text 315 68 inlet is a 3 argument list; +#X text 347 88 optional creation arguments:; +#X connect 0 0 9 0; +#X connect 2 0 3 0; +#X connect 2 1 4 0; +#X connect 2 2 5 2; +#X connect 3 0 5 0; +#X connect 4 0 5 1; +#X connect 5 0 6 0; +#X connect 6 0 7 0; +#X connect 7 0 1 0; +#X connect 9 0 2 0; -- cgit v1.2.1