【Matlab】用程序制作简单音乐

• 下面展示一些 单个音节代码程序。

fs=44100;
t=0: 1/fs: 0.5;
p=69；
la = sin(2*pi*440*2^((p-69)/12)*t); 
sound(la, fs)

• 下面展示一些 播放小星星代码程序。

clc
clear
fs=44100;
t=0:1/fs:0.5;
% 60 62 64 65 67 69 71 73  基本是音阶加一，值加2的规律
% do  re mi  fa sol  la xi  do

yue0=key(0, 2, fs);   %这个是停顿的一节拍，下面都是音节
yue_5=key(54, 2, fs);%这部分是低音
yue_6=key(56, 2, fs);
yue_7=key(58, 2, fs);
yue1=key(60, 2, fs); %中音
yue2=key(62, 2, fs); 
yue3=key(64, 2, fs);
yue4=key(65, 2, fs);  %3和4之间没有半音，故加1
yue5=key(67, 2, fs);
yue6=key(69, 2, fs);
yue7=key(71, 2, fs);
yue11=key(73, 2, fs);  %高音

%这里输入乐谱，1155665就是一闪一闪亮晶晶，以此类推
part1=[yue1 yue1 yue5 yue5 yue6 yue6 yue5 yue0];
part2=[yue4 yue4 yue3 yue3 yue2 yue2 yue1 yue0];
part3=[yue5 yue5 yue4 yue4 yue3 yue3 yue2 yue0];

music=[part1 part2 part3 part3 part1 part2];
sound(music,fs)
% pause(0.5)
% sound(music,fs) %这两行不注释的话可以实现和声效果哟(*^_^*)

function g=key(p, n, fs)
t=0 : 1/fs : 2/n;
g=sin(2*pi* fre(p) *t);
end
function f = fre(p)
f=440*2^((p-69)/12);
end