[b]このワークシートは[url=https://www.geogebra.org/m/twxxx3yq]Math by Code[/url]の一部です。[br][br]アプレット、背景、実装の順に見ていきましょう。[br][/b][br]今まで、コードと音階を、そのあとで周波数と音の波を学んだね。[br][br]今回は、周波数と音階をつなぐために、音律の歴史を振り返ってみよう。

音階を具体的にどんな周波数の階段にするかというのが音律というものだ。[br]その始まりに来るのがピタゴラス教団。[br][br][b][size=150]＜ピタゴラス律＞[br][/size][/b][br]ピタゴラス教団は、音楽と数学と鍛錬を日課とする[br]宗教団体だったという説がある。[br]音楽も数学も鍛錬も、心身が世界との調和・共鳴を感じることにつながる[br]それを共通点として見れば、その説もうなづける。[br][br]世界は「数の調和」でできていて欲しいものだ。[br][br]音楽の領域では、[br][br][color=#0000ff][b][size=150]弦の真ん中で押さえてひくとオクターブ上、[br]弦の３分の２に短くすると、CがGの音（完全５度上）[br]になることを見つけていた。[br][/size][/b][/color][br]ピタゴラス音律の秘密をさぐろう。[br]半音あがると音程を１プラスとして、[br]Cを０スタートとして７つの白鍵を数値化してみよう。[br]すると、C,D,E,F,G,A,B≡0,2,4,5,7,9,11(mod12)と分類できる。[br]CがGになると、[b][color=#0000ff]音程は7－０＝7増える。（完全５度上）[/color][/b][br]このことは、スタートをどこにしても成り立ってほしい。[br]弦楽器では弦の長さが[math]\frac{2}{3}[/math]に短くなると、周波数は逆数倍になる。[br]ルール１．P０基準から完全5度上のP７は剰余が７増える。[br]　　　　　(周波数は[math]\frac{3}{2}[/math]＝[b]1.5[/b]倍する。[b][size=150]P0⇒P7[/size][/b]とかこう。）[br]ルール２．剰余を７を増やして12を超えるときは、12－7＝5ひく。[br]　　　　　(周波数を[math]\frac{3}{2}×\frac{1}{2}=\frac{3}{4}[/math]倍。[size=150][b]P0→P[sub]-5[/sub][/b][/size]）を繰り返してみよう。[br][br]5→ 0 ⇒ 7→ 2 ⇒ 9 → 4 ⇒ 11[br]F→ C⇒ G→ D ⇒A→ E ⇒Bから、[br]C⇒→D⇒→E⇒→⇒→⇒→⇒F→⇒G→⇒A→⇒B[br]全音上に動くと、2=7-5だから、⇒→のセットで周波数があがるから、[math]\frac{3}{2}\times\frac{3}{4}=\frac{9}{8}[/math] =1.125倍上になる。[br]まとめると、C=1なら、G=1.5、D=[math]\frac{9}{8}[/math]=1.125、A=[math]\frac{9}{8}\times\frac{3}{2}=\frac{27}{16}[/math] =1.6875、E=[math]\frac{27}{16}\times\frac{3}{4}=\frac{81}{64}[/math]＝1.265625 、[br]B=[math]\frac{81}{64}\times\frac{3}{2}=\frac{243}{128}[/math] =1.8984375[br]F→Cが[math]\frac{3}{4}[/math] 倍して１だから、Fは1÷[math]\frac{3}{4}=\frac{4}{3}[/math][br][br]しかし、Eから順に上げていく方法でFに行こうとすると大変なことになる。[br]半音上のEからFに上げるには1＋12＝13半音上げると考えることもできる。[br]⇒→⇒→⇒→⇒つまり、7-5+7-5+7-5+7=13あがることで、13-12=1あげられる。[math]\frac{9}{8}\times\frac{9}{8}\times\frac{9}{8}\times\frac{3}{2}=\frac{2187}{1024}[/math] [br]しかし、これでは、周波数が2倍近く上がってしまうから、周波数を半分にしよう。[br][br][math]\frac{2187}{1024}\times\frac{1}{2}=\frac{2187}{2048}[/math] つまり、Fの音は[math]\frac{4}{3}[/math] でもあるから多義的になってしまう。[br][br]あまり美しい感じはしないですね。[br]ピタゴラス律の功績は、何と言っても[b]完全5度（[/b]美しさと[b]単純さ）[/b]の発見です。[br][br]以上から、[br][color=#0000ff][b]　C[/b]：D　　：[b]E　 [/b]：F　　　　：[b]G　 [/b]：A ：B ：C[br]＝[b]1[/b]：1.125：[b]1.265625[/b]：1.33333....：[b]１.５：[/b]1.6875：1.8984375：[b]２[/b][/color]

[b][size=150]＜純正律＞[/size][/b][br][br]CDEFGABCの音程差を12半音階でみると、[br]全全半全全全半だね。[br][br]Cから「数える」とC自身は１個目だから１度。[br]Cから３番目のEが３度（音程は全全）。[br]Cから５番目のGが完全５度（音程は全全半全）[br]C,E,GはコードCメジャーの構成音になっている。[br]周波数比を[b][color=#0000ff]基準：長３度：完全５度＝４：５：６[/color][/b]とするのが「純正律」[br]完全５度上が[math]\frac{3}{2}[/math]＝[b]1.5[/b]倍の周波数になるというのはピタゴラス音階と同じですが、[br]長３度（全全）はちがう。[br]ピタゴラス音階で全音が[math]\frac{9}{8}[/math]だったので全全は[math]\frac{9}{8}\times\frac{9}{8}=\frac{81}{64}[/math] 倍になり、64: 81=4 : 81/16= [b][color=#0000ff]4 ： 5.0625　[br]純正律では４：５になる。長３度は微妙にちがうね。[/color][/b][br][br]この連比を他の音名にもあてはめてみよう。[br]C=１として、周波数が何倍かをまとめてみよう。[br]Cを基準とするとき、4の2倍が８だから、C,E,G,Cの周波数比＝4：5：6：8＝1: 1.25 :[b] 1.5[/b] : 2[br]Fを基準とするとき、6の半分が3だから、C,F,A,Cの周波数比＝3：4：5：6＝1:1.33333... : 1.666666...: 2 [br]Gを基準にするとき、G,B,Dの周波数比＝4:5:6＝1.5: 1.5÷4×5：1.5×1.5=1.5: 7.5/4: 4.5/2= 1.5: 1.875: 2.25[br] 　　　　　　　　　だから、G=1.5にすると、D:G:Bの周波数比＝2.25/2: 1.5: 1.875=1.125 : 1.5 : 1.875[br][color=#0000ff]以上から、[br][b]　C[/b]：D　　：[b]E　[/b]：F　　　　：[b]G　　[/b]：A ：B：C[br]＝[b]1[/b]：1.125：[b]1.25[/b]：1.33333....：[b]１.５：[/b]1.6666....：1.875：[b]２[/b][/color]

[b][size=150]＜平均律＞[/size][/b][br][br]平均律はとっても数学的な定義だ。[br]y=sin(220 *2 π x)(A3音)に対して[br]周波数（１秒間の山の数）が2倍のy=sin(440 *2 π x)が１オクターブ上のA4音でした。[br]半音あがると周波数がｒ倍になるとしたら、[br][b][color=#0000ff]１２半音あがり周波数がｒの12乗倍になると１オクターブ上、つまり、2倍になるはず。[br][/color][/b][br][math]r^{12}[/math]＝2とすると、r=[math]\sqrt[12]{2}[/math]=[math]2^{\frac{1}{12}}[/math]=1.0594630943592953[br]から、[br]初項がA3=220で等比がｒの等比数列。これで、「平均律」の出来上がりだね。[br][br]１２個の音名をnotename=[C,C#,D,D#,E,　F,F#,G,G#,A,A#,B]を単位円の頂点に配置してみよう。[br]平均律では、円周（または、中心角）を12等分する。[br]音名が１つ進むと、周波数を角度に換算すると360度÷12＝30度増えるということになるね。[br]複素数e^i2πk/12で音名を表すと、[br]num=[0,1,2,3,4,5,6,7,8,9,10,11,12,13,......]を12で割った剰余が、notenameが1対1に対応するね。[br]中央C3の周波数は130.813 Hz（１秒間の振動数）と言われている。[br]円を1周すると、周波数は2倍になる。[br][br][color=#0000ff]num=0に対して、freq0=130.813とすると、複素数e^0で、名前はnotename[0]="C"。[br]num=1に対して、freq1=freq0*rとなり、複素数e^1で、名前はnotename[1]="C#"。[br]num=kに対して、freqk=freq0*r^kで、複素数e^i2πk/12、名前はnotename[k]。[br]num=12には、freq12=freq0*r^12=freq0*2で、複素数e^0,名前はnotename[0]="C"。[br][/color][br]つまり、基本周波数をC3のfreq0にすると、半音をｋ回上ると、周波数は(ｒのｋ乗)倍になる。[br]複素数の番号がｋ増え、単位円上の角度はReal軸にあるC３から30ｋ（度）左に進むということだ。[br]とても美しい。[br][br]C,E,Gの3和音、コードCでの周波数はC3が基準周波数の倍率で１表示すると、[br][br]・平均律では[br]Eの音程は全全上で、周波数は[b]r^4[/b]=1.259921倍 ( R軸から30×4=120度左にある）[br]Gの音程は全全半全上で、[b]r^7[/b]=1.4983（R軸から30×7=210度左にある）[br][br]他の音律ではどうだろうか。[br][br]・ピタゴラス律では[br]CからEに.[math]\frac{9}{8}\times\frac{9}{8}=\frac{81}{64}[/math] =[b]1.265625倍[/b]の周波数で、平均律の[b]1.259921[/b]より高め、[br]（r^x=1.059463^x=1.265625の解はx=log(1.265625)/log(1.059463)=4.0782だから、[br]R軸から30×4.0782＝122.346度左にある。）[br]CからGには計算しなくても[b]1.5[/b]倍だから、平均律の[b]1.4983[/b]より高めだ。[br]（r^x=1.5の解はx=log(1.5)/log(1.059463)=7.02だから、R軸から30×7.02=210.6度左）[br][br]・純正律では[br]Eが[b]1.25[/b]でどれよりも低めで、[br]Gは[b]1.5[/b]でピタゴラスと同じく高めの方。[br](r^x=1.25の解はx=log(1.25)/log(1.059463)=3.86314から、R軸から30×3.86314＝115.8942度左）[br]かなり低い音だ。[br][br]平均律で楽器が調整されているとしたら、移調しても周波数の構造が一様性が成り立っているので、[br]響きは変わらないというメリットがあります。そして、通常は平均律で調律します。[br]ハード的には、フレットのあるギターは平均律で音がでるようにできてます。[br][br]しかし、響きの点からしたら、平均律はピタゴラスや純正律より比が複雑だから、うなりの原因になるということです。ピタゴラス律からしたら、暗い感じになってます。純正律のEが一番比が単純ですから、[br]響きもきれいでしょう。[br]フレットレスのベースとか、音律機能のついたDAWアプリなら、[br]純正律の美しい響きが体験できるかもしれません。

[color=#9900ff][b][size=150][u]質問：３つの音律をgeogebraで実装するにはどうしたらよいでしょうか。[/u][/size][/b][/color][br][br]・ピタゴラス音律[br]「[b]A４の周波数＝440[/b]」を使って作ることができます。[br]半音階という意味でクロマチックの周波数の13個の数列をC0～C12とします。[br]そのうち、Cメジャースケールのchroma ={C0,C2,C4,C5,C7,C9,C11,C12} を作ることをゴールにしましょう。[br]A4はこの数列ではC9ですから、[br]C9=440とします。[br]Cの番号が＋７でp=3/2倍、Cの番号が－５でq=3/2*1/2倍。[br]5→ 0 ⇒ 7→ 2 ⇒ 9 → 4 ⇒ 11[br]F→ C⇒ G→ D ⇒A→ E ⇒B[br]9-5=4, 4+7=11だから、C4=C9×q, C11=C4×p[br]同様にして、5-5=0, 0+7=7,7-5=2, 2+7=9だから、C9から C2,C7,C0,C5が逆算できる。[br][b]C0=[/b][b]260.740740740740[/b]になる。[br]以下のコードをボタンの「クリックして」にスクリプト記述にgegebraスクリプトとして[br]貼り付ければよいね。[br]//=============================[br][b][color=#0000ff]p = 3/2[br]q= 3/2 * 1/2[br][br]C9 = 440[br]C4= C9 * q[br]C11 = C4 *p[br]C2= C9 / p[br]C7 =C2 / q[br]C0 =C7 / p[br]C5 =C0 / q[br]C12=C0 * 2[br]chroma ={C0,C2,C4,C5,C7,C9,C11,C12} [br][/color][/b]//=============================[br]C,D,E,F,G,A,B,Cのボタンに、[br]たとえば、最初のCなら次のスクリプトを「クリックして」に貼り付ければよいね。[br][b][color=#0000ff]PlaySound(sin(chroma(1) 2Pi x), 0, 1)[/color][/b][br]音律の実装[br][br]・純正律[br][b]C4=[/b][b]260.740740740740[/b]になる。[br]これをA0として、A0に対する比率をかけていけばいいね。[br][b]　C[/b]：D　　 ：[b]E　[/b]：F　　　　 ：[b]G　　[/b]：A ：B[br]＝[b]1[/b]：1.125=9/8：[b]1.25[/b]：1.33333....=4/3：[b]１.５ ：[/b]1.6666...=5/3：1.875=15/8から、[br]//=========================[br][b]A0 = 260.740740740740[br]A02= A0 * 10/9[br]A04 =A0 * 1.25[br]A05= A0 * 4/3[br]A07= A0 * 1.5[br]A09 = A0 * 5/3[br]A11 = A0 * 15/8[br]A12 = A0 * 2 [br][/b]chroma ={A0,A02,A04,A05,A07,A09,A11,A12} [br]//=============================[br][br]・平均律[br]スタートをA3の周波数=220とすると、シンプルになるね。[br]//===========================================[br]r=1.0594630943592953[br]A0=220[br]A01=A0 * r[br]A02= A01 * r[br]A03 =A02 * r[br]A04 =A03 * r[br]A05= A04 * r[br]A06 =A05 * r[br]A07= A06 * r[br]A08= A07 * r[br]A09 = A08 * r[br]A10 = A09 * r[br]A11 = A10 * r[br]A12 = A11 * r [br]chroma ={A0,A01, A02,A03, A04,A05,A06,A07,A08,A09,A10,A11,A12} [br]//===========================================[br]

[color=#9900ff][b][size=150][u]質問：音律のちがいをGeogebraで視覚化するにはどうしたらよいでしょうか。[br][/u][/size][/b][/color][br]たとえば、先に平均律を単位円周上の１２点で表しましょう。[br]その同じ円周上に、純正律を表す点を打ちたいですね。[br]まず、平均律の12点は複素平面でe^(i 2 pi n/12) (n=0...11)と定義できるね。[br]Real軸にあるn=0のときの点（音名C）から[b][color=#0000ff]ｋ個すすむ点の音は（r^k）倍の周波数[/color][/b]になる。[br]番号を表すはずの変数ｋを連続数として意味づけしましょう。[br]そうして作ったのが、冒頭の上から５番目のアプレットです。[br]だから、[b][color=#0000ff]周波数の倍がｙとなるｋはy=r^kの解だから、ｋ＝logry=log(y)/log(r)で求められる[/color][/b]はずだね。[br][br]rp＝{[b]1,[/b]1.125,[b]1.25,[/b]1.33333,[b]１.５,[/b]1.6666,　1.875}として、[br]r=2^(1/12)とするとき、[br][b]j=Zip(log(p)/log(r), p, rp)[br][/b]とすることで、[br][b]倍率数列rpから、円周を12とするときの進む大きさ数列j[/b]がでる。[br][br]これをkの置き換えるだけで、純正律の点が作れるね。[br]Zip(e^(i 2 pi n/12, n, j)が純正律の点だ。[br][br]本当に、オイラーとガウスは偉大だ。感謝します。

[u][b][size=150][color=#9900ff]質問：鍵盤ではなく、弦楽器イメージで音律を体験できるアプリはどうやったら作れますか。[br][/color][/size][/b][/u][br]6本の開放弦のギターをイメージします。[br]それをスライダーで表しましょう。[br]左端が０、右端が10です。それを画面に合わせます。[br]合わせ方は、スライダーの設定の幅の数値を変えることで微調整しましょう。[br]上からｎ本目のスライダーの値をstnとします。[br]an=1-stn/10は、第ｎ弦の右端からの位置の割合(周期）を表しますね。[br]bn=1/anは、第ｎ弦の開放弦に対する周波数の倍率を表します。[br]fnが第ｎ弦の開放弦の周波数としたら、[br]第ｎ弦のスライダーの更新情報（onUpdate)のスクリプト記述をgeogebraで、[br]sin( 2pai fn bn x, 0, 1)とすれば、音がでるはずです。[br][br]ギターのフレットは５フレット目と12フレット目と17フレット目が大切です。[br]これらは平均律で、r[sup]12[/sup]＝[size=100]２の解r= [/size][size=100][math]\sqrt[12]{2}=[/math] 1.059463を利用すると、[br][/size]bai=[r**k for k in range(18)] [br]これが周波数の倍率だ。[br]fle=[10*(1-1/x) for x in bai]　[br]これが、右端からｍフレット目のｘ座標になるね。[br]小数第２位を四捨五入すると、[br]flet=[int(x*10+0.5)/10 for x in fle]=[br][0.0, [br]0.6, 1.1, 1.6, 2.1, 2.5,[br]2.9, 3.3, 3.7, 4.1, 4.4, 4.7, 5.0,[br]5.3, 5.5, 5.8, 6.0, 6.3][br][br]これをフレットを押さえる目安にできるように画面にテキストとしてはりつけておこう。[br]次はいよいよ発音のしくみ。[br]1弦：329.63 Hz (E)[br]2弦：246.94 Hz (B)[br]3弦：196.00 Hz (G)[br]4弦：146.83 Hz (D)[br]5弦：110.00 Hz (A)[br]6弦：82.41 Hz (E)[br]という計算結果を流用します。[br]だから、[br]fn={329.63, 246.94, 196.00, 146.83 ,110.00, 82.41 }[br]数式に入れましょう。たとえば、3弦の更新情報はsin( 2pai fn(3) b3 x, 0, 1)とします。[br][br]チャレンジテーマをテキストで表示しておこう。[br]１．１オクターブ上の音を出そう。[br]２．完全４度上（５フレット）の音を出そう。[br]２．完全５度上（７フレット）の音を出そう。[br][br]解答がわかるように、フレットの表示／非表示の切り替えができるようにセグメントを準備しよう。[br]l1=zip((k,0),k,flet)[br]l2=zip((k,4),k,flet)[br]l3=zip(segment(a,b),a,l1,b,l2)がフレットになります。