#N canvas 272 47 774 504 12;
#X msg 76 27 400;
#X obj 36 67 +;
#X floatatom 22 29 5 0 400 0 - - -;
#X obj 98 202 output~;
#X obj 56 -1 loadbang;
#X obj 98 149 +~;
#X obj 143 112 osc~;
#X obj 55 112 osc~;
#X floatatom 28 144 5 0 0 0 - - -;
#N canvas 0 0 450 300 graph2 0;
#X array Dissonance 400 float 1;
#A 0 0 0.283876 0 0.283876 0.593065 0.670588 0.401005 0.794292 0.670588
0.794292 0.915706 0.842451 0.963121 0.915706 0.963121 0.996552 0.978744
0.999533 0.996552 0.999533 0.982945 0.97307 0.996471 0.948373 0.933989
0.97307 0.902097 0.933989 0.867095 0.848765 0.830037 0.902097 0.791777
0.772415 0.830037 0.733586 0.714239 0.695006 0.772415 0.657049 0.695006
0.620005 0.601894 0.657049 0.566603 0.601894 0.566603 0.516217 0.549455
0.516217 0.500144 0.454171 0.439604 0.425416 0.411606 0.398172 0.38511
0.372416 0.360086 0.348115 0.336497 0.325227 0.314297 0.303701 0.293433
0.283484 0.273849 0.26452 0.255488 0.246748 0.238291 0.222197 0 0.207149
0 0.193086 0 0.17372 0 0 0.167697 0.16188 0.150837 0 0.140541 0 0.135659
0.130945 0.126396 0.122004 0.117766 0.113675 0.109728 0.102242 0 0.0986955
0.0952732 0.0887851 0 0.0857113 0.0827457 0.0798847 0.0771245 0.0744617
0.0718928 0.0694145 0.0670237 0.0624922 0 0.058275 0 0.0562773 0.0543501
0.0506973 0 0.0489668 0.0472973 0.0456866 0.0441326 0.0411867 0 0.039791
0.0384442 0.0371448 0.0358908 0.0346809 0.0323865 0 0.0312992 0.0302498
0.0292371 0.0282596 0.0273162 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
0 0 0 0 0 0 0 0 0 0;
#X coords 0 1 400 0 200 140 1;
#X restore 369 228 graph;
#X obj 200 214 tabwrite Dissonance;
#X obj 219 91 expr 2.5*abs($f1-$f2)/(0.108*$f1+24.7)*exp(1-2.5*abs($f1-$f2)/(0.108*$f1+24.7))
;
#X connect 0 0 1 1;
#X connect 0 0 6 0;
#X connect 0 0 11 1;
#X connect 1 0 7 0;
#X connect 1 0 8 0;
#X connect 1 0 11 0;
#X connect 2 0 1 0;
#X connect 2 0 10 1;
#X connect 4 0 0 0;
#X connect 4 0 2 0;
#X connect 5 0 3 2;
#X connect 5 0 3 3;
#X connect 6 0 5 1;
#X connect 7 0 5 0;
#X connect 11 0 10 0;