Musical scale: Difference between revisions
Content added Content deleted
(→{{header|EasyLang}}: add Emacs Lisp) |
(→{{header|Locomotive Basic}}: round frequency to two decimal places) |
||
| Line 725: | Line 725: | ||
110 f=440*(2^((n-10)/12)) |
110 f=440*(2^((n-10)/12)) |
||
120 p=round(62500/f) |
120 p=round(62500/f) |
||
130 print mid$("cdefgabc",note,1),f,p |
130 print mid$("cdefgabc",note,1),round(f,2),p |
||
140 sound 1,p,100 |
140 sound 1,p,100 |
||
150 return |
150 return |
||