%?化蝶
clear?all;clc;
freq=8000;
T=1/freq;
pattime=1;
note1=0:T:2*pattime;
note2=0:T:1*pattime;
note3=0:T:1.5*pattime;
note4=0:T:0.75*pattime;
note8=0:T:0.5*pattime;
note16=0:T:0.25*pattime;
note_1=349.23;
note_2=392;
note_3=440;
note_5=523.25;
note_6=587.33;
note_7=659.25;
note_5b=261.63;
note_6b=293.66;
note_7b=329.63;
note_1p=698.46;
note_2p=783.99;

amp=[1?0.01?0.02]‘;
n=length（amp）;
freq_note=[note_5note_5note_6...
????note_2...
????note_1note_1note_6b...
????note_2...
????note_5note_5...
????note_6note_1pnote_6note_5...
????note_1note_1note_6b...
????note_2...
????note_5note_2...
????note_1note_7bnote_6b...
????note_5bnote_5...
????note_2note_3note_2...
????note_1note_1note_6b...
????note_2note_3note_2note_1...
????note_2note_1note_7bnote_6b...
????note_5b...
????note_5b0...
????note_5note_2...
????note_1note_7bnote_6b...
????note_5bnote_5...
????note_2note_3note_2...
????note_1note_1note_6b...
????note_2note_3note_2note_1...
????note_2pnote_1pnote_7note_6...
????note_5...
????note_50];

length_note=[length（note2）length（note8）length（note8）...?%音符節拍長度數組
length（note1）...
length（note2）length（note8）length（note8）...
length（note1）...
length（note2）length（note2）...
length（note8）length（note8）length（note8）length（note8）...
length（note2）length（note8）length（note8）...
length（note1）...
length（note2）length（note2）...
length（note2）length（note8）length（note8）...
length（note2）length（note2）...
length（note2）length（note8）length（note8）...
length（note2）length（note8）length（note8）...
length（note8）length（note8）length（note8）length（note8）...
length（note8）length（note8）length（note8）length（note8）...
length（note1）...
length（note2）length（note2）...
length（note2）length（note2）...
length（note2）length（note8）length（note8）...
length（note2）length（note2）...
length（note2）length（note8）length（note8）...
length（note2）length（note8）length（note8）...
length（note8）length（note8）length（note8）length（note8）...
length（note8）length（note8）length（note8）length（note8）...
length（note1）...
length（note2）length（note2）];

freq=[];
for?i=1:length（length_note）
freq=[freq;freq_note（i）*ones（length_note（i）1）];
end
note=[];
for?i=1:length（length_note）?%音符節拍數組
if?length_note（i）==（1*pattime/T+1）
note=[note[0:T:1*pattime]];
elseif?length_note（i）==（0.5*pattime/T+1）
note=[note[0:T:0.5*pattime]];
elseif?length_note（i）==（2*pattime/T+1）
note=[note[0:T:2*pattime]];
elseif?length_note（i）==（1.5*pattime/T+1）
note=[note[0:T:1.5*pattime]];
elseif?length_note（i）==（0.75*pattime/T+1）
note=[note[0:T:0.75*pattime]];
else
note=[note[0:T:0.25*pattime]];
end
end
shape1=[];
for?i=1:length（length_note）
shape1=[shape1;shape_env1（length_note（i））‘];
end
wave=sin（2*pi*（freq.*note‘）*[1:n]）*amp.*shape1;
wave=wave‘;
sound（wave8000）;

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----
?????目錄???????????0??2017-03-22?21:38??musicgui6\
?????文件???????25252??2017-03-19?13:46??musicgui6\bofang.jpg
?????文件????????2944??2017-03-07?16:09??musicgui6\dongfanghong.m
?????文件??????322732??2017-03-22?17:00??musicgui6\example.mat
?????文件????????2918??2017-03-20?17:40??musicgui6\huadie.m
?????文件???????62520??2017-03-13?12:04??musicgui6\musicgui.mat
?????文件???????15295??2017-03-22?21:38??musicgui6\musicgui6.fig
?????文件???????42829??2017-03-22?21:38??musicgui6\musicgui6.m
?????文件?????????649??2017-03-13?12:33??musicgui6\Rhythm.m
?????文件???????12973??2017-03-18?10:14??musicgui6\shape_env3.m
?????文件????????2962??2017-03-09?13:46??musicgui6\shape_env_electronicorgan.m
?????文件????????8080??2017-03-09?13:35??musicgui6\shape_env_flute.m
?????文件????????3257??2017-03-09?12:39??musicgui6\shape_env_guitar.m
?????文件????????3299??2017-03-15?16:30??musicgui6\shape_env_guitar1.m
?????文件????????2391??2017-03-16?20:10??musicgui6\shape_env_guitar2.m
?????文件???????13658??2017-03-16?19:51??musicgui6\shape_env_kouqin1.m
?????文件????????3173??2017-03-09?12:10??musicgui6\shape_env_piano.m
?????文件???????12553??2017-03-15?16:24??musicgui6\shape_env_piano1.m
?????文件???????16203??2017-03-15?16:38??musicgui6\shape_env_piano2.m
?????文件????????3120??2017-03-09?12:46??musicgui6\shape_env_saxophone.m
?????文件????????4075??2017-03-16?19:56??musicgui6\shape_env_saxphone1.m
?????文件????????3800??2017-03-16?19:58??musicgui6\shape_env_saxphone2.m
?????文件????????9590??2017-03-09?13:28??musicgui6\shape_env_trumpet.m
?????文件????????6089??2017-03-09?13:02??musicgui6\shape_env_violin.m
?????文件???????25274??2017-03-19?14:05??musicgui6\shengcheng.jpg
?????文件????????3728??2017-03-13?08:47??musicgui6\SoundVolume.m
?????文件???????92697??2017-03-19?13:13??musicgui6\zhujiemian.jpg
?????文件?????2911676??2016-01-30?15:46??musicgui6\石進?-?夜的鋼琴曲四.mp3
?????文件???????13214??2017-03-18?10:17??musicgui6\諧波.docx
?????文件????????2164??2017-03-18?14:13??musicgui6\諧波比例?（1）.docx?-?快捷方式.lnk