[程序分享] [MATLAB] The bright eleven - Old Boys 老男孩 [推广有奖]

7关注
91粉丝

VIP

已卖：1980份资源

学科带头人

91%

还不是VIP/贵宾

威望: 0 级
论坛币: 14447 个
通用积分: 1962.5650
学术水平: 1119 点
热心指数: 1167 点
信用等级: 1061 点
经验: 8523 点
帖子: 1629
精华: 1
在线时间: 2494 小时
注册时间: 2010-10-10
最后登录: 2026-1-21

楼主

niuniuyiwan

发表于 2015-7-10 08:16:32 |AI写论文

是否 +2 论坛币

k人参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

本贴转自：http://blog.renren.com/share/251000425/13114716344

The bright eleven - Old Boys 老男孩

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% 最近看到大家分享各种matlab版的音乐，卡农、最炫民族风等等
% 巧的是08级种子班大三上学期的《数字信号处理》课程设计正是一个简易的音乐合成器
% 通过乐谱文件合成音乐
% 以下即是
% 筷子兄弟——《老男孩》
% 的播放程序
% 运行方法：
% 将以下代码保存为oldboy.m，在matlab中找到该文件所在目录，直接命令行运行oldboy
% 注：程序中的乐谱由本班金晓龙同学提供
% just for fun~
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%% oldboy.m %%%
% 主程序
% 课设中的做法是：读取音乐乐谱，并合成音乐，保存在文件中
% 这里为图方便，直接把乐谱写死在程序中了
function oldboy
%load('old_boy.mat'); %读取乐谱文件，歌曲《老男孩》
fs = 11025; % the frequency of sampling
bpm = 120; % beats per minute
beats_per_second = bpm/60; % beats per second
seconds_per_beat = 1/beats_per_second; % seconds per beat
seconds_per_pulse = seconds_per_beat / 4; % seconds per pulse
% 获取音乐的键值和节拍长度
% mymusic.keys = theVoices(1).noteNumbers;
% mymusic.durations = theVoices(1).durations * seconds_per_pulse;
mymusic.keys = [47,47,47,47,47,49,47,45,44,49,51,52,51,47,0,47,47,49,40,40,42,44,47,0,47,45,47,44,42,40,42,47,47,47,47,47,49,47,45,44,49,51,52,51,47,0,47,47,49,40,40,42,44,47,0,47,45,47,44,42,40,40,52,51,49,51,52,54,56,51,47,47,49,56,56,54,52,52,52,51,49,51,52,54,56,51,47,47,49,56,56,54,52,52,0,52,52,59,59,59,59,59,51,51,47,47,59,59,59,61,59,52,52,52,54,56,54,57,56,56,54,57,56,56,54,57,56,59,0,52,52,59,59,59,59,59,51,51,47,47,59,59,59,61,59,52,52,52,54,56,54,57,56,56,54,52,51,52];
mymusic.durations = [0.500000000000000,0.250000000000000,0.750000000000000,0.500000000000000,0.500000000000000,0.500000000000000,0.500000000000000,0.500000000000000,0.500000000000000,0.500000000000000,0.750000000000000,0.250000000000000,0.500000000000000,0.500000000000000,0.500000000000000,0.250000000000000,0.250000000000000,0.500000000000000,0.500000000000000,0.750000000000000,0.250000000000000,0.500000000000000,0.500000000000000,0.750000000000000,0.250000000000000,0.750000000000000,0.250000000000000,0.250000000000000,0.250000000000000,0.500000000000000,2,0.500000000000000,0.250000000000000,0.750000000000000,0.500000000000000,0.500000000000000,0.500000000000000,0.500000000000000,0.500000000000000,0.500000000000000,0.500000000000000,0.750000000000000,0.250000000000000,0.500000000000000,0.500000000000000,0.500000000000000,0.250000000000000,0.250000000000000,0.500000000000000,0.500000000000000,0.750000000000000,0.250000000000000,0.500000000000000,0.500000000000000,0.750000000000000,0.250000000000000,0.750000000000000,0.250000000000000,0.250000000000000,0.250000000000000,0.500000000000000,2,0.500000000000000,0.500000000000000,0.500000000000000,0.500000000000000,0.500000000000000,0.250000000000000,0.500000000000000,1,0.250000000000000,0.250000000000000,0.500000000000000,0.500000000000000,0.250000000000000,0.250000000000000,0.500000000000000,1,0.500000000000000,0.500000000000000,0.500000000000000,0.250000000000000,0.750000000000000,0.500000000000000,0.500000000000000,1,0.250000000000000,0.250000000000000,0.500000000000000,0.500000000000000,0.250000000000000,0.500000000000000,0.500000000000000,1,0.500000000000000,0.250000000000000,0.250000000000000,0.500000000000000,0.250000000000000,0.750000000000000,0.500000000000000,0.500000000000000,0.250000000000000,0.750000000000000,0.250000000000000,0.250000000000000,0.500000000000000,0.250000000000000,0.750000000000000,0.500000000000000,0.500000000000000,0.250000000000000,0.750000000000000,0.250000000000000,0.250000000000000,0.500000000000000,0.250000000000000,0.750000000000000,0.500000000000000,0.500000000000000,0.250000000000000,0.750000000000000,0.500000000000000,0.500000000000000,0.250000000000000,0.750000000000000,0.500000000000000,1,0.500000000000000,0.250000000000000,0.250000000000000,0.500000000000000,0.250000000000000,0.750000000000000,0.500000000000000,0.500000000000000,0.250000000000000,0.750000000000000,0.250000000000000,0.250000000000000,0.500000000000000,0.250000000000000,0.750000000000000,0.500000000000000,0.500000000000000,0.250000000000000,0.750000000000000,0.250000000000000,0.250000000000000,0.500000000000000,0.250000000000000,0.750000000000000,0.500000000000000,0.500000000000000,0.500000000000000,0.500000000000000,0.500000000000000,3];
xx = zeros(1, floor(sum(mymusic.durations)+1)*fs + length(mymusic.keys)); %输出正弦波
n1 = 1;
for kk = 1:length(mymusic.keys)
keynum = mymusic.keys(kk);
tone = key2note(1, keynum, mymusic.durations(kk), fs); %根据一个音符的keynum和持续时间生成正弦波
n2 = n1 + length(tone) - 1;
xx(n1:n2) = xx(n1:n2) + tone; %将各个音符拼接为连续的音乐
n1 = n2 + 1;
end
%wavwrite(xx, fs, 'old_boy.wav'); %写入到文件old_boy.wav里面
soundsc(xx, fs);
%%% key2note.m %%%
% 根据钢琴键盘的键值合成正弦信号
function xx = key2note(X, keynum, dur, fs)
% KEY2NOTE Produce a sinusoidal waveform corresponding to a
% given piano key number
%
% usage: xx = key2note(X, keynum, dur)
%
% xx = the output sinusoidal waveform
% X = complex amplitude for the sinusoid, X = A*exp(j*phi).
% keynum = the piano keyboard number of the desired note
% dur = the duration (in seconds) of the output note
% fs = the frequency of sampling
%
% fs = 11025; %-- or use 8000Hz
tt = 0:(1/fs):dur;
freq = 440*2^((keynum-49)/12); %<== 将按键值转换为对应的发声频率
%adsr = 1;
adsr = ADSR(dur, fs);
xx = adsr .* real(X*exp(j*2*pi*freq*tt));
%%% ADSR.m %%%
% 根据每个音符的频率和持续时间生成ADSR序列。
function adsr = ADSR(dur, fs)
% usage: X = ADSR(dur, fs)
%
% fs = the frequency of sampling
% dur = the duration (in seconds) of the output note
%
ts = 0:(1/fs):dur;
xxx = [0 4/15*dur 3/15*dur 12.5/15*dur dur];
yyy = [0 6/15*dur 1/3*dur 2/12*dur 0];
adsr = interp1(xxx ,yyy, ts);