[PD] Re: OT- FFT and human auditory cortex (Chuckk Hubbard)

Chuckk Hubbard badmuthahubbard at gmail.com
Thu May 25 17:36:30 CEST 2006


This is interesting, but I don't quite comprehend.  Shouldn't there be
a dip at 600/400, for the 3/2 ratio?  Here's Harry Partch's version:
http://users.rcn.com/dante.interport/bride.html
If that's the same thing you mean.

On 5/25/06, Julian Villegas <julovi at yahoo.com> wrote:
> 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;
>
>
> _______________________________________________
> PD-list at iem.at mailing list
> UNSUBSCRIBE and account-management ->
> http://lists.puredata.info/listinfo/pd-list
>
>
>


-- 
"Far and away the best prize that life has to offer is the chance to
work hard at work worth doing."
-Theodore Roosevelt




More information about the Pd-list mailing list