Math & Music, The Great Collaboration

Paul Burdick, New England Conservatory of Music

John Kiehl, Soundtrack Recording Studios

There is some kind of overlap between mathematics and music, but also some kind of difference.

Show[Graphics[{AbsoluteThickness[2],RGBColor[0,0,0],Circle[{8,-2},14],RGBColor[1,1,1],Disk[{0,5},8],Disk[{20,0},8],Disk[{5,-15},8],RGBColor[0,0,0],Text["Production",{0,5}],Text["Perception",{20,0}],Text["Reflection",{5,-15}],Arrow[{{16,9.5},{18.1,7.6}}],Arrow[{{-6,-1.5},{-5.9,-0.5}}],Arrow[{{14.1,-14.7},{13.1,-15.1}}]}],Frame->False,Background->RGBColor[0.7,0.8,0.7],TextStyle->{FontSlant->"Italic",FontSize->42},ImageSize->600]

Show[Graphics[{AbsoluteThickness[2],RGBColor[0.57,0.58,0.57],Circle[{8,-2},14],RGBColor[0.7,0.88,0.77],Disk[{0,5},8],Disk[{20,0},8],Disk[{5,-15},8],RGBColor[0,0,0],Text["Meaning",{8,-2}]}],Frame->False,Background->RGBColor[0.7,0.8,0.7],TextStyle->{FontSlant->"Italic",FontSize->62},ImageSize->600]

Plot[Table[Sin[a x],{a,1,6}],{x,0,4π},Filling->Axis,ImageSize->{800,400},AspectRatio->0.5]

Show[Graphics[
{Text["Math",{75,550}],Text["Music",{800,550}],Text["1",{90,370}],Text["2",{265,370}],Text["3",{440,370}],Text["4",{615,370}],Text["5",{790,370}],
RGBColor[1,1,1],Table[Rectangle[{x+10,400},{x+170,490}],{x,0,800,175}]


}],Frame->False,Background->RGBColor[0.7,0.8,0.7],TextStyle->{FontSlant->"Italic",FontSize->42},PlotRange->{{0,900},{0,600}},ImageSize->{840,560}]

c5={10,10};c1={-11,10};
Show[Graphics[{

AbsoluteThickness[2],RGBColor[0,0,0],Circle[c5,2],
RGBColor[1,1,1],Disk[c5+{-1,2},1],
RGBColor[1,0.79,0.79],Disk[c5+{2,0},{2,1}],
RGBColor[1,1,1],Disk[c5+{-1,-1},1],
RGBColor[0,0,0],Text["P",c5+{-1,2}],Text["P",c5+{2,0}],Text["R",c5+{-1,-1}],

AbsoluteThickness[2],RGBColor[0,0,0],Circle[c1,2],
RGBColor[1,1,1],Disk[c1+{-1,2},1],
RGBColor[1,1,1],Disk[c1+{2,0},1],
RGBColor[1,0.79,0.79],Disk[c1+{-1,-1},{2,1}],
RGBColor[0,0,0],Text["P",c1+{-1,2}],Text["P",c1+{2,0}],Text["R",c1+{-1,-1}],

Text["Math",c1+{-1,4}],Text["Music",c5+{1,4}],
Text[StyleForm["Conceptually",FontSize->16,FontWeight->"Bold"],c1+{0,-4}],
Text[StyleForm["Grounded",FontSize->16,FontWeight->"Bold"],c1+{0,-5}],
Text[StyleForm["Perceptually",FontSize->16,FontWeight->"Bold"],c5+{0,-4}],
Text[StyleForm["Grounded",FontSize->16,FontWeight->"Bold"],c5+{0,-5}]

}],




PlotRange->15,Frame->False,Background->RGBColor[0.7,0.8,0.7],TextStyle->{FontSlant->"Italic",FontSize->42},ImageSize->800,AspectRatio->Automatic]

c5={10,10};c1={-11,10};c4={-5,10};c2={4,10};
Show[Graphics[{

AbsoluteThickness[2],RGBColor[0,0,0],Circle[c5,2],
RGBColor[1,1,1],Disk[c5+{-1,2},1],
RGBColor[1,0.79,0.79],Disk[c5+{2,0},{2,1}],
RGBColor[1,1,1],Disk[c5+{-1,-1},1],
RGBColor[0,0,0],Text["Pr",c5+{-1,2}],Text["Pe",c5+{2,0}],Text["R",c5+{-1,-1}],

AbsoluteThickness[2],RGBColor[0,0,0],Circle[c4,2],
RGBColor[1,1,1],Disk[c4+{-1,2},1],
RGBColor[1,1,1],Disk[c4+{2,0},1],
RGBColor[0.5,0.5,1.],Disk[c4+{-1,-1},1],
RGBColor[0,0,0],Text["Pr",c4+{-1,2}],Text["Pe",c4+{2,0}],Text["R",c4+{-1,-1}],

AbsoluteThickness[2],RGBColor[0,0,0],Circle[c2,2],
RGBColor[1,1,1],Disk[c2+{-1,2},1],
RGBColor[1,1,1],Disk[c2+{2,0},1],
RGBColor[0.5,0.5,1.],Disk[c2+{-1,-1},1],
RGBColor[0,0,0],Text["Pr",c2+{-1,2}],Text["Pe",c2+{2,0}],Text["R",c2+{-1,-1}],

AbsoluteThickness[2],RGBColor[0,0,0],Circle[c1,2],
RGBColor[1,1,1],Disk[c1+{-1,2},1],
RGBColor[1,1,1],Disk[c1+{2,0},1],
RGBColor[1,0.79,0.79],Disk[c1+{-1,-1},{2,1}],
RGBColor[0,0,0],Text["Pr",c1+{-1,2}],Text["Pe",c1+{2,0}],Text["R",c1+{-1,-1}],

Text["Math",c1+{-1,4}],Text["Music",c5+{1,4}],
Text["1",c1-{0,5}],Text["4",c2-{0,5}],Text["2",c4-{0,5}],Text["5",c5-{0,5}]
}],


PlotRange->15,Frame->False,Background->RGBColor[0.7,0.8,0.7],TextStyle->{FontSlant->"Italic",FontSize->42},ImageSize->800,AspectRatio->Automatic]

c5={10,10};c1={-11,10};c4={-5,10};c2={4,10};c3={0,5};
Show[Graphics[{

AbsoluteThickness[2],RGBColor[0,0,0],Circle[c5,2],
RGBColor[1,1,1],Disk[c5+{-1,2},1],
RGBColor[1,0.79,0.79],Disk[c5+{2,0},{2,1}],
RGBColor[1,1,1],Disk[c5+{-1,-1},1],
RGBColor[0,0,0],Text["Pr",c5+{-1,2}],Text["Pe",c5+{2,0}],Text["R",c5+{-1,-1}],

AbsoluteThickness[2],RGBColor[0,0,0],Circle[c4,2],
RGBColor[1,1,1],Disk[c4+{-1,2},1],
RGBColor[1,1,1],Disk[c4+{2,0},1],
RGBColor[0.5,0.5,1.],Disk[c4+{-1,-1},1],
RGBColor[0,0,0],Text["Pr",c4+{-1,2}],Text["Pe",c4+{2,0}],Text["R",c4+{-1,-1}],

AbsoluteThickness[2],RGBColor[0,0,0],Circle[c3,2],
RGBColor[1,1,0.5],Disk[c3+{-1,2},1],
RGBColor[1,1,1],Disk[c3+{2,0},1],
RGBColor[1,1,1],Disk[c3+{-1,-1},1],
RGBColor[0,0,0],Text["Pr",c3+{-1,2}],Text["Pe",c3+{2,0}],Text["R",c3+{-1,-1}],

AbsoluteThickness[2],RGBColor[0,0,0],Circle[c2,2],
RGBColor[1,1,1],Disk[c2+{-1,2},1],
RGBColor[1,1,1],Disk[c2+{2,0},1],
RGBColor[0.5,0.5,1.],Disk[c2+{-1,-1},1],
RGBColor[0,0,0],Text["Pr",c2+{-1,2}],Text["Pe",c2+{2,0}],Text["R",c2+{-1,-1}],

AbsoluteThickness[2],RGBColor[0,0,0],Circle[c1,2],
RGBColor[1,1,1],Disk[c1+{-1,2},1],
RGBColor[1,1,1],Disk[c1+{2,0},1],
RGBColor[1,0.79,0.79],Disk[c1+{-1,-1},{2,1}],
RGBColor[0,0,0],Text["Pr",c1+{-1,2}],Text["Pe",c1+{2,0}],Text["R",c1+{-1,-1}],

Text["Math",c1+{-1,4}],Text["Music",c5+{1,4}],
Text["1",c1-{0,5}],Text["4",c2-{0,5}],Text["2",c4-{0,5}],Text["5",c5-{0,5}],Text["3",c3-{0,4}],

Text[StyleForm["Markov Chain",FontSize->22,FontWeight->"Bold"],{-5,0}],
Text[StyleForm["Harmony",FontSize->22,FontWeight->"Bold"],{5,0}],

Text[StyleForm["Chomsky Grammers",FontSize->20,FontWeight->"Bold"],{-5,-2}],
Text[StyleForm["Shenker",FontSize->22,FontWeight->"Bold"],{5,-2}],

Text[StyleForm["L-Systems",FontSize->22,FontWeight->"Bold"],{-5,-4}],
Text[StyleForm["Schoenberg",FontSize->22,FontWeight->"Bold"],{5,-4}]
}],


PlotRange->15,Frame->False,Background->RGBColor[0.7,0.8,0.7],TextStyle->{FontSlant->"Italic",FontSize->42},ImageSize->800,AspectRatio->Automatic]

Show[Graphics[
{Text["Math",{75,550}],Text["Music",{800,550}],Text["1",{90,370}],Text["2",{790,370}],
RGBColor[1,1,1],Table[Rectangle[{x+10,400},{x+170,490}],{x,0,800,175*4}],
RGBColor[0,0,0],Text[StyleForm["Thinking",FontSize->16,FontWeight->"Bold"],{790,480}],
Text[StyleForm["In",FontSize->16,FontWeight->"Bold"],{790,460}],
Text[StyleForm["Sound",FontSize->16,FontWeight->"Bold"],{790,440}],
Text[StyleForm["Thinking",FontSize->16,FontWeight->"Bold"],{90,480}],
Text[StyleForm["In",FontSize->16,FontWeight->"Bold"],{90,460}],
Text[StyleForm["Numbers",FontSize->16,FontWeight->"Bold"],{90,440}],
Text[StyleForm["Conceptually",FontSize->16,FontWeight->"Bold"],{90,340}],
Text[StyleForm["Grounded",FontSize->16,FontWeight->"Bold"],{90,320}],
Text[StyleForm["Perceptually",FontSize->16,FontWeight->"Bold"],{790,340}],
Text[StyleForm["Grounded",FontSize->16,FontWeight->"Bold"],{790,320}],
Text[StyleForm["Activity in Boxes 1 & 2 feels VERY similar;",FontSize->28,FontWeight->"Bold"],{450,240}],
Text[StyleForm["so we want to put them together.",FontSize->28,FontWeight->"Bold"],{450,200}],
Text[StyleForm["\"Music is the mind counting,     ",FontSize->22,FontSlant->"Plain",FontWeight->"Bold"],{420,100}],
Text[StyleForm["     without knowing it's counting.\"",FontSize->22,FontSlant->"Plain",FontWeight->"Bold"],{470,80}],
Text[StyleForm["--Leibnitz",FontSize->22,FontSlant->"Italic",FontWeight->"Plain"],{750,50}]




}],Frame->False,Background->RGBColor[0.7,0.8,0.7],TextStyle->{FontSlant->"Italic",FontSize->42},PlotRange->{{0,900},{0,600}},ImageSize->{840,560}]

Show[Graphics[
{Text["Math",{75,550}],Text["Music",{800,550}],Text["1",{90,370}],Text["2",{440,370}],Text["3",{790,370}],
RGBColor[1,1,1],Table[Rectangle[{x+10,400},{x+170,490}],{x,0,800,350}],
RGBColor[0,0,0],Text[StyleForm["Thinking",FontSize->16,FontWeight->"Bold"],{790,480}],
Text[StyleForm["In",FontSize->16,FontWeight->"Bold"],{790,460}],
Text[StyleForm["Sound",FontSize->16,FontWeight->"Bold"],{790,440}],
Text[StyleForm["Thinking",FontSize->16,FontWeight->"Bold"],{90,480}],
Text[StyleForm["In",FontSize->16,FontWeight->"Bold"],{90,460}],
Text[StyleForm["Numbers",FontSize->16,FontWeight->"Bold"],{90,440}],

Text[StyleForm["Nieve",FontSize->16,FontWeight->"Bold"],{440,480}],
Text[StyleForm["Mapping",FontSize->16,FontWeight->"Bold"],{440,460}],

Text[StyleForm["Conceptually",FontSize->16,FontWeight->"Bold"],{90,340}],
Text[StyleForm["Grounded",FontSize->16,FontWeight->"Bold"],{90,320}],
Text[StyleForm["Perceptually",FontSize->16,FontWeight->"Bold"],{790,340}],
Text[StyleForm["Grounded",FontSize->16,FontWeight->"Bold"],{790,320}],
Text[StyleForm["A noticing of an intuitive rhyme.",FontSize->28,FontWeight->"Bold"],{450,200}],
Text[StyleForm["If we follow that impulse ... ?",FontSize->28,FontWeight->"Bold"],{450,100}]




}],Frame->False,Background->RGBColor[0.7,0.8,0.7],TextStyle->{FontSlant->"Italic",FontSize->42},PlotRange->{{0,900},{0,600}},ImageSize->{840,560}]

Show[Graphics[
{Text["Math",{75,550}],Text["Music",{800,550}],Text["1",{90,370}],Text["2",{265,370}],Text["3",{440,370}],Text["4",{615,370}],Text["5",{790,370}],

RGBColor[0,0,0],AbsoluteThickness[3],Circle[{700,440},{40,80}],Arrow[{{690,520},{670,490}}],Arrow[{{725,380},{735,400}}],
Circle[{175,440},{40,80}],Arrow[{{690-525,520},{670-525,490}}],Arrow[{{725-525,380},{735-525,400}}],
RGBColor[1,1,1],Table[Rectangle[{x+10,400},{x+170,490}],{x,0,800,175}],

RGBColor[0,0,0],Text[StyleForm["Thinking",FontSize->16,FontWeight->"Bold"],{790,480}],
Text[StyleForm["In",FontSize->16,FontWeight->"Bold"],{790,460}],
Text[StyleForm["Sound",FontSize->16,FontWeight->"Bold"],{790,440}],
Text[StyleForm["Thinking About",FontSize->16,FontWeight->"Bold"],{615,480}],
Text[StyleForm["Thinking",FontSize->16,FontWeight->"Bold"],{615,460}],
Text[StyleForm["In",FontSize->16,FontWeight->"Bold"],{615,440}],
Text[StyleForm["Sound",FontSize->16,FontWeight->"Bold"],{615,420}],

Text[StyleForm["Thinking",FontSize->16,FontWeight->"Bold"],{90,480}],
Text[StyleForm["In",FontSize->16,FontWeight->"Bold"],{90,460}],
Text[StyleForm["Numbers",FontSize->16,FontWeight->"Bold"],{90,440}],
Text[StyleForm["Thinking About",FontSize->16,FontWeight->"Bold"],{265,480}],
Text[StyleForm["Thinking",FontSize->16,FontWeight->"Bold"],{265,460}],
Text[StyleForm["In",FontSize->16,FontWeight->"Bold"],{265,440}],
Text[StyleForm["Numbers",FontSize->16,FontWeight->"Bold"],{265,420}],

Text[StyleForm["Conceptually",FontSize->16,FontWeight->"Bold"],{90,340}],
Text[StyleForm["Grounded",FontSize->16,FontWeight->"Bold"],{90,320}],
Text[StyleForm["Perceptually",FontSize->16,FontWeight->"Bold"],{790,340}],
Text[StyleForm["Grounded",FontSize->16,FontWeight->"Bold"],{790,320}],
Text[StyleForm["Overt Criterion Of Success ?",FontSize->42,FontWeight->"Bold"],{450,260}],
Text[StyleForm["Proof/",FontSize->18,FontWeight->"Bold"],{90,200}],
Text[StyleForm["Inevitability",FontSize->18,FontWeight->"Bold"],{90,180}],
Text[StyleForm["Taste/",FontSize->18,FontWeight->"Bold"],{790,200}],
Text[StyleForm["Appeal",FontSize->18,FontWeight->"Bold"],{790,180}],
Text[StyleForm["The Holy Grail:",FontSize->42,FontWeight->"Bold"],{450,120}],
Text[StyleForm["Taste (Beauty) reinforces Proof -- Proof reinforces Taste",FontSize->20,FontWeight->"Bold"],{450,60}]




}],Frame->False,Background->RGBColor[0.7,0.8,0.7],TextStyle->{FontSlant->"Italic",FontSize->42},PlotRange->{{0,900},{0,600}},ImageSize->{840,560}]

Show[Graphics[
{Text["Math",{75,550}],Text["Music",{800,550}],Text["1",{90,370}],Text["2",{265,370}],Text["3",{440,370}],Text["4",{615,370}],Text["5",{790,370}],

RGBColor[0,0,0],AbsoluteThickness[3],Circle[{700,440},{40,80}],Arrow[{{690,520},{670,490}}],Arrow[{{725,380},{735,400}}],
Circle[{175,440},{40,80}],Arrow[{{690-525,520},{670-525,490}}],Arrow[{{725-525,380},{735-525,400}}],
RGBColor[1,1,1],Table[Rectangle[{x+10,400},{x+170,490}],{x,0,800,175}],

RGBColor[0,0,0],Text[StyleForm["Thinking",FontSize->16,FontWeight->"Bold"],{790,480}],
Text[StyleForm["In",FontSize->16,FontWeight->"Bold"],{790,460}],
Text[StyleForm["Sound",FontSize->16,FontWeight->"Bold"],{790,440}],
Text[StyleForm["Thinking About",FontSize->16,FontWeight->"Bold"],{615,480}],
Text[StyleForm["Thinking",FontSize->16,FontWeight->"Bold"],{615,460}],
Text[StyleForm["In",FontSize->16,FontWeight->"Bold"],{615,440}],
Text[StyleForm["Sound",FontSize->16,FontWeight->"Bold"],{615,420}],

Text[StyleForm["Thinking",FontSize->16,FontWeight->"Bold"],{90,480}],
Text[StyleForm["In",FontSize->16,FontWeight->"Bold"],{90,460}],
Text[StyleForm["Numbers",FontSize->16,FontWeight->"Bold"],{90,440}],
Text[StyleForm["Thinking About",FontSize->16,FontWeight->"Bold"],{265,480}],
Text[StyleForm["Thinking",FontSize->16,FontWeight->"Bold"],{265,460}],
Text[StyleForm["In",FontSize->16,FontWeight->"Bold"],{265,440}],
Text[StyleForm["Numbers",FontSize->16,FontWeight->"Bold"],{265,420}],

Text[StyleForm["Conceptually",FontSize->16,FontWeight->"Bold"],{90,340}],
Text[StyleForm["Grounded",FontSize->16,FontWeight->"Bold"],{90,320}],
Text[StyleForm["Perceptually",FontSize->16,FontWeight->"Bold"],{790,340}],
Text[StyleForm["Grounded",FontSize->16,FontWeight->"Bold"],{790,320}],
Text[StyleForm["First Question",FontSize->42,FontWeight->"Bold"],{450,300}],
Text[StyleForm["Must it be?",FontSize->22,FontWeight->"Bold"],{175,260}],
Text[StyleForm["Does it taste good?",FontSize->22,FontWeight->"Bold"],{700,260}],
Text[StyleForm["Second Question",FontSize->42,FontWeight->"Bold"],{450,200}],
Text[StyleForm["Do I wish to look at it that way?",FontSize->20,FontWeight->"Bold"],{225,160}],
Text[StyleForm["Is it carved in stone?",FontSize->22,FontWeight->"Bold"],{700,160}],
Text[StyleForm["Aspiration",FontSize->42,FontWeight->"Bold"],{450,100}],
Text[StyleForm["Beauty",FontSize->22,FontWeight->"Bold"],{225,80}],
Text[StyleForm["Inevitability",FontSize->22,FontWeight->"Bold"],{700,80}]


}],Frame->False,Background->RGBColor[0.7,0.8,0.7],TextStyle->{FontSlant->"Italic",FontSize->42},PlotRange->{{0,900},{0,600}},ImageSize->{840,560}]