#N canvas 224 247 1011 346 10;
#X declare -lib iemmatrix;
#X obj 900 128 matrix;
#X text 770 127 see also help for;
#X obj 123 167 mtx_diag 1 2 3 4 5;
#X obj 46 167 mtx_ones 5;
#X obj 46 144 t b b;
#X msg 46 123 bang;
#X floatatom 433 122 4 0 0 0 - - - 0;
#X obj 900 149 ==;
#X text 38 247 compare 2 matrices;
#X text 296 251 compare a matrix with a scalar;
#N canvas 460 154 494 171 META 0;
#X text 12 105 AUTHOR IOhannes m zmoelnig;
#X text 12 125 HELP_PATCH_AUTHORS IOhannes m zmölnig;
#X text 12 25 LICENSE GPL-2+;
#X text 12 65 INLET_0 matrix;
#X text 12 5 KEYWORDS control matrix comparison;
#X obj 16 147 declare -lib iemmatrix;
#X text 12 44 DESCRIPTION compare a matrix for equality with another (scalar result), f 72;
#X text 12 85 OUTLET_0 float;
#X restore 864 25 pd META;
#X obj 46 196 mtx_isequal;
#X floatatom 46 219 5 0 0 0 - - - 0;
#X obj 496 167 mtx_ones 4;
#X floatatom 433 215 5 0 0 0 - - - 0;
#X obj 900 170 mtx_==;
#X msg 596 155 bang;
#X obj 596 178 mtx_ones 4;
#X obj 596 201 mtx_.* 1e-05;
#X obj 596 224 mtx_isequal 0, f 14;
#X floatatom 596 247 5 0 0 0 - - - 0;
#X floatatom 650 112 5 0 0 0 - - - 0;
#X obj 650 134 t b f;
#X msg 677 201 eps \$1;
#X msg 650 43 2e-05;
#X msg 670 83 0;
#X msg 660 63 1e-05;
#X msg 640 23 0.001;
#X text 583 265 less strict comparison (the difference between values must be <eps), f 26;
#X msg 313 142 bang;
#X floatatom 361 122 4 0 0 0 - - - 0;
#X obj 313 167 mtx_ones 4;
#X floatatom 313 215 5 0 0 0 - - - 0;
#X obj 433 192 mtx_isequal;
#X obj 433 142 t f b;
#X obj 361 142 t b f;
#X obj 17 23 mtx_isequal;
#X text 8 42 matrix logic: check whether all elements are equal;
#X obj 313 192 mtx_isequal 1;
#X connect 2 0 11 1;
#X connect 3 0 11 0;
#X connect 4 0 3 0;
#X connect 4 1 2 0;
#X connect 5 0 4 0;
#X connect 6 0 34 0;
#X connect 11 0 12 0;
#X connect 13 0 33 1;
#X connect 16 0 17 0;
#X connect 17 0 18 0;
#X connect 18 0 19 0;
#X connect 19 0 20 0;
#X connect 21 0 22 0;
#X connect 22 0 16 0;
#X connect 22 1 23 0;
#X connect 23 0 19 0;
#X connect 24 0 21 0;
#X connect 25 0 21 0;
#X connect 26 0 21 0;
#X connect 27 0 21 0;
#X connect 29 0 31 0;
#X connect 30 0 35 0;
#X connect 31 0 38 0;
#X connect 33 0 14 0;
#X connect 34 0 33 0;
#X connect 34 1 13 0;
#X connect 35 0 31 0;
#X connect 35 1 38 1;
#X connect 38 0 32 0;
