简单获取钢琴 88 个键的音高频率值

来源:转载


procedure TForm1.Button1Click(Sender: TObject);var i: Integer; f: Double;begin f := 440/2/2/2/2; for i := 0 to 87 do begin Memo1.Lines.Add(Format('%.3f', [f])); f := f * 1.0594630944; end;end;{*********27.50029.13530.86832.70334.64836.70838.89141.20343.65446.24948.99951.91355.00058.27061.73565.40669.29673.41677.78282.40787.30792.49997.999103.826110.000116.541123.471130.813138.591146.832155.563164.814174.614184.997195.998207.652220.000233.082246.942261.626277.183293.665311.127329.628349.228369.994391.995415.305440.000466.164493.883523.251554.365587.330622.254659.255698.456739.989783.991830.609880.000932.328987.7671046.5021108.7311174.6591244.5081318.5101396.9131479.9781567.9821661.2191760.0001864.6551975.5332093.0052217.4612349.3182489.0162637.0202793.8262959.9553135.9633322.4383520.0003729.3103951.0664186.009**********}


分享给朋友:
您可能感兴趣的文章:
随机阅读: