#N canvas 727 38 452 449 10;
#X declare -lib iemmatrix;
#X obj 93 166 mtx_qr;
#X obj 93 108 mtx_rand;
#X obj 199 131 mtx_print A;
#X msg 93 55 4 3;
#X obj 163 211 mtx_print R;
#X obj 120 235 mtx_print Q;
#X text 353 153 A = Q * R;
#X text 64 24 [mtx_qr] qr decomposition using gsl;
#N canvas 460 154 494 171 META 0;
#X text 12 85 OUTLET_0 matrix;
#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 math;
#X text 12 44 DESCRIPTION calculate QR decomposition of a matrix;
#X text 12 105 AUTHOR Franz Zotter;
#X obj 16 147 declare -lib iemmatrix;
#X restore 371 16 pd META;
#X obj 93 264 mtx_*;
#X obj 93 285 mtx_-, f 8;
#X obj 93 368 mtx_print residual;
#X obj 93 327 mtx_int;
#X obj 93 306 mtx_* 1e+06;
#X obj 93 348 mtx_./ 1e+06;
#X text 266 358 Franz Zotter \, 2009 \, 2023;
#X msg 116 77 3 4;
#X text 146 78 <-slower gsl algorithm for rows<cols;
#X obj 93 131 t a a a, f 15;
#X obj 93 189 t a a;
#X obj 136 189 t a a;
#X connect 0 0 19 0;
#X connect 0 1 20 0;
#X connect 1 0 18 0;
#X connect 3 0 1 0;
#X connect 9 0 10 0;
#X connect 10 0 13 0;
#X connect 12 0 14 0;
#X connect 13 0 12 0;
#X connect 14 0 11 0;
#X connect 16 0 1 0;
#X connect 18 0 0 0;
#X connect 18 1 10 1;
#X connect 18 2 2 0;
#X connect 19 0 9 0;
#X connect 19 1 5 0;
#X connect 20 0 9 1;
#X connect 20 1 4 0;
