Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2009

[Date Index] [Thread Index] [Author Index]

Search the Archive

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?
>
>
>
>



  • Prev by Date: old vs new(V7) BarChart3D
  • Next by Date: Re: Calculating a given total using only given specific
  • Previous by thread: Using "/@" Effectively
  • Next by thread: Re: Using "/@" Effectively