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