MathGroup Archive 2013

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

Search the Archive

Programming Fail


Hi:

My question is going to take all of you about a split second to answer.
 Sadly, programming is something I seem to be congenitally incapable of
teaching myself and doing well.  I usually just cut and paste specifics
into prewritten algorithms.

If you do this

pitchMap = {1 -> {"C4", "D4"}, 2 -> "D4", 3 -> "E4", 4 -> "F4", 5 -> "G4"};

Sound[Thread[SoundNote[Flatten[IntegerPartitions[5]] /. pitchMap]]]


You get a music player and can play the result.


If you do this:


A = NestList[
  StringReplace[#, {"0" -> "2", "2" -> "12", "1" -> "23", "3" -> "45",
     "4" -> "56"}] &, "0", 7]

pitchMap = {0 -> "B4", 1 -> "C4", 2 -> "D4", 3 -> "E4", 4 -> "F4", 5 ->
"G4",
   6 -> "A4"};

Sound[Thread[SoundNote[Flatten[A]] /. pitchMap]]]


You get nothing, just output.  See what I did there?  I substituted,
because that's what you do if you don't know how to program!  On the face
of things, I can't see why it wouldn't work, but I've wasted at least an
hour going through documentation and Googling and trying different
approaches.  I'm not a programmer and I can't seem to teach myself how to
do this, ideas?


Thanks,


Dean




  • Prev by Date: Re: Plot InverseSurvivalFunction
  • Next by Date: Re: TeXForm
  • Previous by thread: Implementation of Discrete Spherical Harmonic Transforms with Mathematica?
  • Next by thread: Re: Programming Fail