Re: Using "/@" Effectively

*To*: mathgroup at smc.vnet.net*Subject*: [mg104315] Re: [mg104292] Using "/@" Effectively*From*: Mauricio Esteban Cuak <cuak2000 at gmail.com>*Date*: Tue, 27 Oct 2009 04:59:38 -0500 (EST)*References*: <200910260425.XAA18594@smc.vnet.net>

I though this should work, but it's taken too long on my cpu and I don't know why... maybe I don't understand how Play and Sound work f1 = (Play[ Sin [miditofreq [ #[[1]] ]* 2 =F0 t ], {t, 0, #[[2]]}, SampleRate -> 44100, SampleDepth -> 16 ] ) &; Sound[f1 /@ {{0, 1}, {5, 0.5}, {7, 0.5}, {12, 1}}, {0,3}, SoundVolume -> .5] 2009/10/26 BenT <brtubb at pdmusic.org> > Given: > > $Version > "7.0 for Microsoft Windows (32-bit) (January 30, 2009)" > > miditofreq[n_Integer] := (440./64) 2^((n + 3)/12); > > and > > melody[p_Integer, d_Real] := > Play[Sin[miditofreq[p] 2 \[Pi] t], {t, 0, d}, SampleRate -> 44100, > SampleDepth -> 16] > > I want to be able to use a list of pitch and duration values for a > melody, and use it like the following, but cannot determine the method > to Map them properly, as in this (non-working) attempt: > > Sound[melody[#1, #2] & /@ {{0, 1}, {5, 0.5}, {7, 0.5}, {12, 1}}, {0, > 3}, SoundVolume -> .5] > > Can anyone show me the correct (or even a better) way to do so? > > > >

**References**:**Using "/@" Effectively***From:*BenT <brtubb@pdmusic.org>