#N canvas 32 75 1166 633 12;
#X declare -lib iemmatrix;
#X obj 317 398 mtx_plot 400 200;
#X obj 317 251 mtx_meshgrid;
#X obj 413 226 mtx_linspace;
#X obj 317 227 mtx_linspace;
#X obj 315 128 loadbang;
#X obj 412 274 mtx_:;
#X obj 317 274 mtx_:;
#X obj 318 298 mtx_concat col;
#X obj 318 322 mtx_./ 57.3;
#X obj 555 298 mtx_size;
#X obj 555 322 pack;
#X obj 76 510 mtx;
#X msg 555 347 size \$1 \$2;
#X obj 76 539 mtx_abs;
#X obj 36 409 mtx_*;
#X obj 318 370 mtx_transpose;
#X obj 36 479 list split 3;
#X obj 36 153 mtx_transpose;
#X obj 36 349 mtx;
#X obj 107 265 mtx_size;
#X obj 107 287 pack;
#X msg 107 309 size 1 \$2;
#X obj 36 251 mtx_sum;
#X obj 36 225 t a a;
#X obj 36 306 list;
#X obj 36 443 mtx_./ 1;
#X floatatom 672 136 5 0 0 0 - - - 0;
#X obj 672 160 / 57.2958;
#X obj 672 185 pack f f f;
#X floatatom 776 160 5 0 0 0 - - - 0;
#X obj 776 184 / 57.2958;
#X obj 776 209 t b f;
#X floatatom 884 186 5 0 0 0 - - - 0;
#X obj 884 210 / 57.2958;
#X obj 884 235 t b f;
#X obj 36 379 mtx_*;
#X msg 36 129 matrix 3 2 0 90 90 90 0 0;
#X obj 36 177 mtx_./ 57.2958;
#X obj 317 178 t b b;
#X obj 315 153 t b b;
#X msg 317 203 -180 180 60;
#X msg 413 202 0 180 30;
#X text 774 139 beta (Rotation around y-Axis);
#X obj 672 306 t b a;
#X obj 36 201 mtx_spherical_harmonics 7 N3D4PI;
#X obj 318 346 mtx_spherical_harmonics 7 N3D4PI;
#X obj 672 264 mtx_spherical_harmonics_rotator 7;
#X obj 219 268 mtx_eye 64;
#X text 671 112 alpha (First rotation around z-Axis);
#X text 882 163 gamma (Second rotation around z-Axis);
#X text 533 160 conversion deg->rad;
#X text 34 25 Computes Wigner-D matrix to rotate spherical harmonics. The function receives a list containing the alpha \, beta \, and gamma parameters (in rad) for a ZYZ rotation around the Euler angles., f 129;
#X text 34 104 Initialize Cartesian Base (X \, Y \, Z);
#X text 312 105 Zylindrical grid for plotting;
#X text 866 79 Rotation parameters;
#X text 763 330 Initial rotation sequence: R_0 = R_z(alpha)R_y(beta)R_z(gamma);
#N canvas 429 253 494 171 META 0;
#X text 12 85 OUTLET_0 matrix;
#X text 12 25 LICENSE GPL-2+;
#X text 12 65 INLET_0 matrix;
#X text 12 6 KEYWORDS control matrix math;
#X obj 13 150 declare -lib iemmatrix;
#X text 12 44 DESCRIPTION compute rotation matrix for spherical harmonics;
#X text 12 105 AUTHOR Thomas Röck;
#X restore 1051 16 pd META;
#X connect 1 0 6 0;
#X connect 1 1 5 0;
#X connect 1 1 9 0;
#X connect 2 0 1 1;
#X connect 3 0 1 0;
#X connect 4 0 39 0;
#X connect 5 0 7 1;
#X connect 6 0 7 0;
#X connect 7 0 8 0;
#X connect 8 0 45 0;
#X connect 9 0 10 0;
#X connect 9 1 10 1;
#X connect 10 0 12 0;
#X connect 11 0 13 0;
#X connect 12 0 11 0;
#X connect 13 0 0 0;
#X connect 14 0 25 0;
#X connect 15 0 14 1;
#X connect 16 1 11 0;
#X connect 17 0 37 0;
#X connect 18 0 35 0;
#X connect 19 0 20 0;
#X connect 19 1 20 1;
#X connect 19 1 25 1;
#X connect 20 0 21 0;
#X connect 21 0 18 0;
#X connect 22 0 24 0;
#X connect 23 0 22 0;
#X connect 23 1 19 0;
#X connect 24 0 18 0;
#X connect 25 0 16 0;
#X connect 26 0 27 0;
#X connect 27 0 28 0;
#X connect 28 0 46 0;
#X connect 29 0 30 0;
#X connect 30 0 31 0;
#X connect 31 0 28 0;
#X connect 31 1 28 1;
#X connect 32 0 33 0;
#X connect 33 0 34 0;
#X connect 34 0 28 0;
#X connect 34 1 28 2;
#X connect 35 0 14 0;
#X connect 36 0 17 0;
#X connect 37 0 44 0;
#X connect 38 0 40 0;
#X connect 38 1 41 0;
#X connect 39 0 36 0;
#X connect 39 1 38 0;
#X connect 39 1 47 0;
#X connect 40 0 3 0;
#X connect 41 0 2 0;
#X connect 43 0 36 0;
#X connect 43 1 35 1;
#X connect 44 0 23 0;
#X connect 45 0 15 0;
#X connect 46 0 43 0;
#X connect 47 0 35 1;
