MathGroup Archive 2010

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

Search the Archive

Determing Number of Measures


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.


  • Prev by Date: Re: How to apply a list of functions
  • Next by Date: Astronomical Data Accuracy
  • Previous by thread: Mathematica crashes
  • Next by thread: Superscripts in strings change color to gray