#N canvas 482 188 717 423 12;
#X obj 93 216 mtx_svd;
#X obj 93 108 mtx_rand;
#X obj 309 275 mtx_transpose;
#X obj 201 273 mtx_diag;
#X obj 93 131 t a a;
#X text 64 24 [mtx_svd] singular value decomposition using gsl;
#X text 442 338 Franz Zotter \, 2009;
#X text 353 153 A = U * S * V^T;
#X obj 93 298 mtx_print U;
#X obj 201 299 mtx_print S;
#X obj 309 298 mtx_print V^T;
#X obj 169 155 mtx_print A;
#X msg 93 85 4 3;
#X connect 0 0 8 0;
#X connect 0 1 3 0;
#X connect 0 2 2 0;
#X connect 1 0 4 0;
#X connect 2 0 10 0;
#X connect 3 0 9 0;
#X connect 4 0 0 0;
#X connect 4 1 11 0;
#X connect 12 0 1 0;