for i = 1:7;
tX = 0:1/Fs:1;
f = out(i);
SineZ{i} = sin(2*pi*f*tX);
end
Wave = cell2mat(SineZ);
t_p = linspace(0, length(Wave), length(Wave));
MyOPfiltCREATE=filter(LPfiltX,Wave);
soundsc(MyOPfiltCREATE,Fs);
function btSAVEWAV_Callback(hObject, eventdata, handles)
global isMELODY;
global Wave;
global Fs;
global answer;
global Folder_Path;
global MyOPfiltCREATE;
answer{1} = get(handles.edit1note,'String');
answer{2} = get(handles.edit2note,'String');
answer{3} = get(handles.edit3note,'String');
answer{4} = get(handles.edit4note,'String');
answer{5} = get(handles.edit5note,'String');
answer{6} = get(handles.edit6note,'String');
answer{7} = get(handles.edit7note,'String');
Answer_List = answer{1};
for i = 2:7
Answer_List = strcat(Answer_List, answer{i});
end
Answer_List = strcat('DASP_TestTones_', Answer_List);
SaveWav_Fullname = strcat(Folder_Path,Answer_List);
if isempty(MyOPfiltCREATE)
msgbox('No Audio Data..');
return;
else
MySaveMelody = audiowrite(SaveWav_Fullname,MyOPfiltCREATE,Fs);
end