Determing Number of Measures

*To*: mathgroup at smc.vnet.net*Subject*: [mg112921] Determing Number of Measures*From*: BenT <brtubb at pdmusic.org>*Date*: Wed, 6 Oct 2010 03:14:34 -0400 (EDT)

The code listed below is intended for Demonstration Project to determine the number of measures required for any duration (seconds within one day) for any common [numerator/denominator] time signature variations using an "absolute" (quarter note based) Beats Per Minute value. I cannot find the faults in this [Mathematica 7] code, either in its output formatting or its formulas. Can anyone help? Manipulate[ts=3600hours+60minutes+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[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"}} ] The use of the variable "sd" is for a scaling "rule base" factor for computing the "absolute" number of quarter note beats per measure.