Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2013

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

Search the Archive

Programming Fail

  • To: mathgroup at smc.vnet.net
  • Subject: [mg132019] Programming Fail
  • From: Dean Rosenthal <deanrosenthal at gmail.com>
  • Date: Sun, 17 Nov 2013 18:22:15 -0500 (EST)
  • Delivered-to: l-mathgroup@mail-archive0.wolfram.com
  • Delivered-to: l-mathgroup@wolfram.com
  • Delivered-to: mathgroup-outx@smc.vnet.net
  • Delivered-to: mathgroup-newsendx@smc.vnet.net

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