function res = stats_show(exp, print_figures)
	%  stats_show(experiment_data, print_figures)
	% 
	% Displays figures from data read by "stats_read".
	% If print_figures is true, EPS figures are created.
	%
	% Example usage:
	% >> exp_aces_fts1 = stats_read('aces','fts1')
	% >> stats_show(exp_aces_fts1, false)

	prefix = sprintf('%s - %s', exp.dataset, exp.algo);
	file_prefix = sprintf('stats_%s_%s', exp.dataset, exp.algo);
	font_size = 9;
	fsize = [8 4];
	
	x_axis_label = 'distance traveled (m)';
	
	f = create_figure(fsize); hold on;
	for i=1:size(exp.raw,2)
		r = exp.raw{i};
		fancy_plot(r.traveled_distance, r.prob);
	end
	h1=xlabel(x_axis_label);
	h2=title(sprintf('%s - probability', prefix));
	set_font_size([h1 h2 gca], font_size);
	
	if print_figures
		print('-depsc2', sprintf('%s_prob.eps',file_prefix));
	end
	
	f = create_figure(fsize); hold on;
	for i=1:size(exp.raw,2)
		r = exp.raw{i};
		fancy_plot(r.traveled_distance, r.entropy);
	end
	h1=xlabel(x_axis_label);
	h2=title(sprintf('%s - entropy', prefix));
	set_font_size([h1 h2 gca], font_size);

	if print_figures
		print('-depsc2', sprintf('%s_entropy.eps',file_prefix));
	end

	f = create_figure(fsize); hold on;
	for i=1:size(exp.raw,2)
		r = exp.raw{i};
		fancy_plot(r.traveled_distance, log(r.prob));
	end
	h1=xlabel(x_axis_label);
	h2=title(sprintf('%s - score', prefix));
	set_font_size([h1 h2 gca], font_size);

	if print_figures
		print('-depsc2', sprintf('%s_score.eps',file_prefix));
	end


	f = create_figure(fsize); hold on;
	for i=1:size(exp.raw,2)
		r = exp.raw{i};
		fancy_plot(r.traveled_distance, r.dist);
	end
	h1=xlabel(x_axis_label);
	h2=ylabel('distance (m)');
	h3=title(sprintf('%s - distance', prefix));
	set_font_size([h1 h2 h3 gca], font_size);
	
	if print_figures
		print('-depsc2', sprintf('%s_dist.eps',file_prefix));
	end



	f = create_figure(fsize); hold on;
	for i=1:size(exp.raw,2)
		r = exp.raw{i};
		fancy_plot(r.time, r.cpu);
	end
	% Set lower to 0
	current = axis; current(3)=0;
	axis(current);
	h1=xlabel('time of processing (s)');
	h2=ylabel('CPU time used');
	h3=title(sprintf('%s - time vs. CPU time', prefix));
	set_font_size([h1 h2 h3 gca], font_size);
	
	if print_figures
		print('-depsc2', sprintf('%s_cpu.eps',file_prefix));
	end


function h = set_line_style(h)
%	set(h, 'linewidth', 2);
	
function h = set_font_size(hs, size)
	for i=1:numel(hs)
	h=hs(i);
	set(h, 'fontunits', 'points');
	set(h, 'fontsize', size);
	set(h, 'fontname', 'Times');
	end

function f = create_figure(fsize)
	f=figure;
	set(f,'Units','centimeters'); 
	set(f,'Position',[0 0 fsize]); 
	set(f,'PaperUnits','centimeters'); 
	set(f,'PaperPosition',[0 0 fsize]); 
	set(f,'PaperSize', fsize);

function fancy_plot(xdata, ydata)
	h = plot(xdata, ydata, '-'); 
	set(h, 'color', 'k');
	set(h, 'linewidth', 1);
	h = plot(xdata, ydata, '.'); 
	set(h, 'MarkerSize', 10)
	set(h, 'color', 'r');