S.Mustonen, Survon käyttöopas (1992), s. 329
1 * 2 *Musiikin intervalleja eri viritysjärjestelmissä
3 * *GLOBAL* 4 *YSCALE=-1,1 XSCALE=0,30 X=0,30,0.01 5 *SIZE=1164,350 YDIV=50,250,50 XDIV=0,1,0 FRAME=0 6 *....................................................................... 7 *HEADER=Puhdas_kvintti 8 *PLOT Y(X)=(SIN(20*X)+SIN(30*X))/2
/ DEVICE=PS,KVINTTI1.PS 9 *....................................................................... 10 *HEADER=Tasavireinen_kvintti 20*2^(7/12)=29.9661415375 11 *PLOT Y(X)=(SIN(20*X)+SIN(29.96614*X))/2
/ DEVICE=PS,KVINTTI2.PS 12 *....................................................................... 13 *HEADER="Susi"-kvintti_keskisävelvirityksessä 20*128*5^(-11/4)=30.62474 14 *PLOT Y(X)=(SIN(20*X)+SIN(30.62474*X))/2
/ DEVICE=PS,KVINTTI3.PS 15 *....................................................................... 16 *PRINT CUR+1,E
17 % 400 18 - picture KVINTTI1.PS 19 % 370 20 - picture KVINTTI2.PS 21 % 370 22 - picture KVINTTI3.PS 23 E 24 *
Hakemisto | Kuvasto | Edellinen | Seuraava