Hi Chuckk, I've been working in sensory dissonance and maybe you will find interesting the patch I'm attaching. It's a modified version of Plomp & Levelt dissonance curves for sinewaves.
Bye...
Julian Villegas
University of Aizu Synthetic Worlds Laboratory Aizu - Wakamatsu Fukushima Japan 965 - 8580
Me pregunto de un modo pensativo Que significa ser colombiano? No se le respondi. Es un acto de fe JLB.
Ring'em or ping'em. Make PC-to-phone calls as low as 1¢/min with Yahoo! Messenger with Voice.
#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;