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.