Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2010

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

Search the Archive

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.


  • 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