#N canvas 612 222 562 551 10;
#X obj 101 377 mtx_concat;
#X obj 205 141 mtx_slice 1 1 1 end;
#X obj 44 398 mtx_concat;
#X text 229 451 Franz Zotter \, 2009;
#X text 231 428 [iemmatrix];
#X obj 44 17 inlet \; [x \; y \; z];
#X obj 44 467 outlet \; [r \; phi \; theta];
#X obj 44 280 mtx_+;
#X obj 44 261 mtx_.^ 2;
#X obj 178 261 mtx_+;
#X obj 178 212 mtx_.^ 2;
#X obj 205 239 mtx_.^ 2;
#X text 188 306 rxy;
#X obj 178 350 mtx_atan2;
#X obj 151 173 mtx_slice 2 1 2 end;
#X obj 333 140 mtx_slice 3 1 3 end;
#X obj 44 239 mtx;
#X obj 44 93 t b a a a;
#X obj 44 299 mtx_.^ 0.5;
#X obj 151 192 t a a;
#X text 229 309 z;
#X obj 101 350 mtx_atan2;
#X obj 192 388 mtx_size;
#X floatatom 192 409 5 0 0 0 - - -;
#X floatatom 241 410 5 0 0 0 - - -;
#X obj 178 328 mtx_.^ 0.5;
#X connect 0 0 2 1;
#X connect 1 0 11 0;
#X connect 1 0 21 1;
#X connect 2 0 6 0;
#X connect 5 0 17 0;
#X connect 7 0 18 0;
#X connect 8 0 7 0;
#X connect 9 0 7 1;
#X connect 9 0 25 0;
#X connect 10 0 9 0;
#X connect 11 0 9 1;
#X connect 13 0 0 1;
#X connect 13 0 22 0;
#X connect 14 0 19 0;
#X connect 15 0 16 1;
#X connect 15 0 13 1;
#X connect 16 0 8 0;
#X connect 17 0 16 0;
#X connect 17 1 14 0;
#X connect 17 2 1 0;
#X connect 17 3 15 0;
#X connect 18 0 2 0;
#X connect 19 0 21 0;
#X connect 19 1 10 0;
#X connect 21 0 0 0;
#X connect 22 0 23 0;
#X connect 22 1 24 0;
#X connect 25 0 13 0;