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"}}
]