% split_audio.m
%
% produces two mono .wav files from a stereo .wav file

[in_file, in_path] = uigetfile('*.wav', 'Select Audio Input File');
[l_out_file, l_out_path] = uiputfile('*.wav', 'Select Left Channel Output File');
[r_out_file, r_out_path] = uiputfile('*.wav', 'Select Right Channel Output File');

audio = wavread([in_path in_file],N);     % import audio to be split

disp('writing right channel output file...');
wavwrite(audio(:,2),Fs,[r_out_path r_out_file]);  % write out left result

disp('writing left channel output file...');
wavwrite(audio(:,1),Fs,[l_out_path l_out_file]);  % write out left result

disp('done.');