下面展示一些单个音节代码程序。
fs=44100;t=0: 1/fs: 0.5;p=69；la = sin(2*pi*440*2^((p-69)/12)*t); sound(la, fs)
下面展示一些播放小星星代码程序。
clcclearfs=44100;t=0:1/fs:0.5;% 60 62 64 65 67 69 71 73 基本是音阶加一，值加2的规律% do re mi fa sol la xi doyue0=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之间没有半音，故加1yue5=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);endfunction f = fre(p)f=440*2^((p-69)/12);end
