%This script file is used only when the user wants to look at the raw .cp data files to make
%sure that data was actually collected


%Get parameter's from user's interactive window
set(greg,'Checked','off');
set(gxlog,'Checked','off');
set(gylog,'Checked','off');
set(grlog,'Checked','off');
datafilesnum = str2num(get(filenum2,'String'));
datapatho = get(filepatho2,'String');
datapathc = get(filepathc2,'String');
datafiles = get(filedata2,'String');
if strcmp(get(o3000,'Checked'),'on'),
	NPTS = 3000;
else
	NPTS = 6000;
end


tau  = 0.01:.01:NPTS*.01;     
for i=1:datafilesnum,		%Loop through datafiles: load .cp files, call to plotgr.m script file to plot what is requested accordingly
		figure;
		data = strtok(datafiles);
		load([datapatho,data,'.cp'])
		datafiles = strrep(datafiles,strtok(datafiles),' ');
	temp = eval(data);		
	X = temp(:,1);			
	Y = temp(:,2);				
	X = X';				
	Y = Y';
	R = X + Y;
	plotgr;
	title(data);
end