遗传算法和长短期记忆的自动旋律生成附matlab代码 上传.zip

clc clear close all %% I=fileread('tomjerry.abc'); [s,e]=regexp(I,'[TMXLQPIHKORNS%][^*\n]+\n'); for i=1:numel(s) I(s(i):e(i))=' '; end [s,e]=regexp(I,'B:[^*\n]+\n'); for i=1:numel(s) I(s(i):e(i))=' '; end [s,e]=regexp(I,'A:[^*\n]+\n'); for i=1:numel(s) I(s(i):e(i))=' '; end [s,e]=regexp(I,'Z:[^*\n]+\n'); for i=1:numel(s) I(s(i):e(i))=' '; end [s,e]=regexp(I,'C:[^*\n]+\n'); for i=1:numel(s) I(s(i):e(i))=' '; end idxspace=regexp(I,' '); I(idxspace)=[]; s=strfind(I,'Z:JackCampin*www.campin.me.uk*2009'); for i=1:numel(s) I(s(i):s(i)+numel('Z:JackCampin*www.campin.me.uk*2009'))=' '; end idxspace=regexp(I,' '); I(idxspace)=[]; idx=regexp(I,'\|'); I(idx)=[]; idx=regexp(I,'\:'); I(idx)=[]; idx=regexp(I,'\('); I(idx)=[]; idx=regexp(I,'\)'); I(idx)=[]; idx=regexp(I,'\{'); I(idx)=[]; idx=regexp(I,'\}'); I(idx)=[]; idx=regexp(I,'\['); I(idx)=[]; idx=regexp(I,'\]'); I(idx)=[]; idx=regexp(I,'\n'); I(idx)=[]; idx=regexp(I,'='); I(idx)=[]; I Notes={'A','B','C','D','E','F','G','a','b','c','d','e','f','g','z'}; melody=[]; for i=1:numel(I)-2 for note=1:15 accidental=3; if I(i)=='^' accidental=1; i=i+1; elseif I(i)=='_' accidental=2; i=i+1; end if I(i)==Notes{note} melody=[melody,accidental,note]; if I(i+1)=='>' melody=[melody,9]; i=i+1; elseif I(i+1)=='<' melody=[melody,10]; i=i+1; elseif I(i+1)=='/' if I(i+2)=='2' melody=[melody,1]; i=i+2; elseif I(i+2)=='3' melody=[melody,2]; i=i+2; elseif I(i+2)=='4' melody=[melody,3]; i=i+2; else melody=[melody,1]; i=i+1; end elseif I(i+1)=='2' melody=[melody,4]; i=i+1; elseif I(i+1)=='3' melody=[melody,5]; i=i+1; elseif I(i+1)=='4' melody=[melody,6]; i=i+1; elseif I(i+1)==',' melody=[melody,7]; i=i+1; elseif I(i+1)=='''' melody=[melody,8]; i=i+1; else melody=[melody,11]; end end end end save('melody.mat','melody') for i=1:15 NoteProb(i)=sum(i==melody(2:3:end))/numel(melody)*3; end NoteProb for i=1:3 BeforeProb(i)=sum(i==melody(1:3:end))/numel(melody)*3; end BeforeProb for i=1:11 AfterProb(i)=sum(i==melody(3:3:end))/numel(melody)*3; end AfterProb