http://www.hirax.net

<< Graphics`Graphics`

BaseFreq = 11;

BaseFreqList = Table[BaseFreq*(2^i), {i, 0, 11}]

BarChart[
      BaseFreqList, 
BarOrientation -> 
        Horizontal, 
Frame -> 
        True, 
PlotRange -> 
        All, 
GridLines -> Automatic]

BaseTone[h_] := Sin[BaseFreq*h*Pi*t/10000]

BaseToneList[h_] := 
      Apply[Plus, 
        Table[Sin[BaseFreqList[[i]]*h*2*Pi*t/50000], {i, 1, 
            12}]]

AverageTone[h_] := BaseTone[((((2^(1/12))))^h)]

AverageToneList[h_] := BaseToneList[((((2^(1/12))))^h)]

Tone = {0, 2, 4, 5, 7, 9, 11, 12};

N[Table[440*(2^((i/8))), {i, 8}]]

BarChart[%, 
BarOrientation -> 
        Horizontal, 
Frame -> 
        True, 
PlotRange -> 
        All, 
GridLines -> Automatic]

BarChart[
      Tone, 
BarOrientation -> 
        Horizontal, 
Frame -> 
        True, 
PlotRange -> 
        All, 
GridLines -> Automatic]

ToneList = 
        Table[Table[AverageTone[Tone[[i]]], {t, 10000}], {i, 1, 
            8}];

ToneList = 
        Table[Table[AverageToneList[Tone[[i]]], {t, 5000}], {i, 1, 
            7}];

ListPlot[Take[Flatten[ToneList], 1000]]

ListPlay[
      Flatten[ToneList], 
SampleRate -> 
        50000, 
PlayRange -> All]