#N canvas 276 123 849 390 10;
#X obj 247 206 mtx_* 0.5;
#N canvas 0 0 450 300 (subpatch) 0;
#X array phon_curve 31 float 1;
#A 0 83.0956 69.3994 57.9927 48.4958 40.591 34.0127 28.5391 23.985
20.1961 17.0438 14.4208 12.2374 10.4185 8.90086 7.62984 6.55604 5.62926
4.78645 3.92454 2.8461 1.20451 -1.26109 -3.41784 -1.95161 2.02311 3.88731
6.19619 12.1587 27.3273 65.5882 161.827;
#X coords 0 120 30 0 200 140 1;
#X restore 36 187 graph;
#N canvas 0 0 450 300 mtx2tablemsg 0;
#X obj 155 57 inlet;
#X obj 220 253 outlet;
#X obj 157 79 list split 3;
#X obj 198 98 t l l;
#X obj 232 141 change;
#X msg 235 164 resize \$1;
#X obj 198 218 list prepend 0;
#X obj 230 119 list length;
#X connect 0 0 2 0;
#X connect 2 1 3 0;
#X connect 3 0 6 0;
#X connect 3 1 7 0;
#X connect 4 0 5 0;
#X connect 5 0 1 0;
#X connect 6 0 1 0;
#X connect 7 0 4 0;
#X restore 247 230 pd mtx2tablemsg;
#X obj 356 210 loadbang;
#X obj 247 165 mtx_rmstodb;
#X obj 247 125 mtx_logspace;
#X text 30 331 20;
#X text 70 331 80;
#X text 105 331 340;
#X msg 247 103 20 20000 31;
#X text 144 331 1360;
#X text 186 331 5440;
#X text 226 331 21760;
#X msg 356 230 bounds 0 120 30 0 \, xticks 0 1 3 \, yticks 0 20 1 \,
ylabel 0 0 20 40 60 80 100 120;
#X floatatom 246 48 5 0 0 0 - - -;
#X obj 247 66 t b f f;
#X obj 413 142 - 100;
#X obj 247 186 mtx_+ -100;
#X text 290 47 dial Phon-curve;
#X obj 247 275 s phon_curve;
#X text 482 26 part of iemmatrix;
#X text 469 113 inletA: row/col frequency vector;
#X text 469 131 inletB: phon value;
#X text 470 155 outletA: row/col vector with phone curve at specified
frequencies;
#X text 385 258 note: the "0" phon curve corresponds to the absolute
threshold of hearing;
#X text 44 32 [mtx_phon_curve];
#X obj 247 145 mtx_phon_curve 0;
#X connect 0 0 2 0;
#X connect 2 0 19 0;
#X connect 3 0 13 0;
#X connect 4 0 17 0;
#X connect 5 0 26 0;
#X connect 9 0 5 0;
#X connect 13 0 19 0;
#X connect 14 0 15 0;
#X connect 15 0 9 0;
#X connect 15 1 26 1;
#X connect 15 2 16 0;
#X connect 16 0 17 1;
#X connect 17 0 0 0;
#X connect 26 0 4 0;