#N canvas 263 0 849 390 10; #N canvas 0 0 450 300 (subpatch) 0; #X array phon_curve 31 float 1; #A 0 91.9955 79.14 68.4519 59.5683 52.1864 46.0531 40.9579 36.7252 33.2091 30.2881 27.861 25.8434 24.1648 22.7658 21.5949 20.6057 19.7503 18.9676 18.1564 17.1207 15.5152 13.0798 10.9486 12.4363 16.429 18.3084 20.63 26.6031 41.7807 80.0491 176.294; #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 365 208 loadbang; #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 365 228 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 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 391 263 note: the "0" phon curve corresponds to the absolute threshold of hearing; #X text 44 32 [mtx_phon_curve]; #X text 480 345 Franz Zotter \, 2007; #X obj 247 145 mtx_phon_curve 0; #X text 470 155 outletA: row/col vector with phone curve at specified frequencies in dB; #X connect 1 0 15 0; #X connect 2 0 11 0; #X connect 3 0 22 0; #X connect 7 0 3 0; #X connect 11 0 15 0; #X connect 12 0 13 0; #X connect 13 0 7 0; #X connect 13 1 22 1; #X connect 22 0 1 0;