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

MathGroup Archive 2010

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

Search the Archive

Determining the Number of Musical Measures

  • To: mathgroup at smc.vnet.net
  • Subject: [mg114053] Determining the Number of Musical Measures
  • From: BenT <brtubb at pdmusic.org>
  • Date: Mon, 22 Nov 2010 07:37:11 -0500 (EST)

Please consider the following v7 code to determine the number of
musical measures required for playback, given the (1) total time (in
hours, minutes and seconds -- during one day), (2) the Beats Per
Minutes (BPM) [referencing 1/4 note as equal to one beat], and (3) the
time signature's numerator (beats per measure) and its denominator
(duration of note applied to the beat). The formula I'm using is
clearly not correct. Can anyone determine what it should be?

Manipulate[ts = 3600 hours + 60 minutes + seconds;
 sd = tsd /. {2 -> 2, 4 -> 1, 8 -> (1/2), 16 -> (1/4)};
 Column[
  {StringJoin[
    ToString[hours], " hour(s) : ",
    ToString[minutes], " minute(s) : ",
    ToString[seconds], " second(s)"],
   StringJoin[
    "requires ",
    ToString[Round[ts tsn/60/bpm/sd]],
    " measure(s) of ",
    ToString[tsn], "/", ToString[tsd],
    " time using ", ToString[bpm], " (1/4 note) BPM"]}],
 {hours, 0, 23, 1, Appearance -> "Labeled"},
 {{minutes, 1}, 0, 59, 1, Appearance -> "Labeled"},
 {seconds, 0, 59, 1, Appearance -> "Labeled"},
 {{bpm, 60}, 20, 300, .01, Appearance -> "Labeled"},
 {{tsn, 4}, 0, 32, 1, Appearance -> "Labeled"},
 {{tsd, 4}, {2, 4, 8, 16}},
 FrameLabel -> {{"", ""}, {"", "Determing Measures Required"}}
 ]


  • Prev by Date: Function Equivalence of ArcTan and Log
  • Next by Date: Finding shared element in two lists
  • Previous by thread: Function Equivalence of ArcTan and Log
  • Next by thread: Finding shared element in two lists