不協和音の実例 - SonofSamlawのブログ

REM ド２６２ Hz
REM ド# ２７７
REM レ２９４
REM レ♯ ３１１
REM ミ３３０
REM ファ３４９
REM ファ♯ ３７０
REM ソ３９２
REM ソ♯ ４１５
REM ラ４４０
REM ラ♯ ４６６
REM シ４９４
REM ド５２４

■協和音

ドレ♯　不完全協和音

https://youtu.be/YfqXjz1Xio0?t=214

ドミ　不完全協和音

https://youtu.be/YfqXjz1Xio0?t=217

ドファ　完全協和音

https://youtu.be/YfqXjz1Xio0?t=220

ドソ　完全協和音

https://youtu.be/YfqXjz1Xio0?t=223

ドソ♯　不完全協和音

https://youtu.be/YfqXjz1Xio0?t=226

ドラ　不完全協和音

https://youtu.be/YfqXjz1Xio0?t=229

■不協和音

ドド＃

https://youtu.be/YfqXjz1Xio0?t=276

ドレ

https://youtu.be/YfqXjz1Xio0?t=279

ドソ♭

https://youtu.be/YfqXjz1Xio0?t=282

ドラ♯

https://youtu.be/YfqXjz1Xio0?t=285

ドシ

https://youtu.be/YfqXjz1Xio0?t=288

■プログラム

DIM v(100000),v1(100000),v2(100000),v3(100000)
DIM vv(100000),vvv(100000),vvvv(100000),d(100000)

LET n=1000

LET f1=262
LET f2=494

LET f3=396

LET k1=2*PI*f1
LET k2=2*PI*f2
LET k3=2*PI*f3

LET MAX=0
SET WINDOW 0,n,-3,3

FOR i=1 TO n
LET dt=0.0001
LET v1(i)=SIN(k1*dt*i)
LET v2(i)=SIN(k2*dt*i)
LET v3(i)=SIN(k3*dt*i)

LET v(i)=v1(i)+v2(i)
REM LET v(i)=v(i)+v3(i)


NEXT i

FOR I=2 TO n
PLOT LINES: i, v(i);
NEXT I

END