function [x]=draw_result(traceinfo,best_one,pareto,Opt)
global user_stop
gen = traceinfo(:,1)';
best_fit = traceinfo(:,2)';
mean_fit = traceinfo(:,3)';
var_fit = traceinfo(:,4)';
n = size(gen,2);
inc_fit = [best_fit(1),(best_fit(2:1:n) - best_fit(1,1:1:(n-1)))]  // calculate the fitness increase

xset("window",10);
if (Opt(1) == 1),xbasc();end;		// clear screen

a = [];
b = [];
if (Opt(2) == 1)					// whether draw mean fitness
	a = [a; mean_fit];
	b = strcat([b 'mean fitness'],'@');
end;
if (Opt(3) == 1)					// whether draw best fitness
	a = [a; best_fit];
	b = strcat([b 'best fitness'],'@');
end;
if (Opt(4) == 1)					// whether draw fitness variance
	a = [a; var_fit];
	b = strcat([b 'fit variance'],'@');
end;
if (Opt(5) == 1)					// whether draw fitness increase
	a = [a; inc_fit];
	b = strcat([b 'fit increase'],'@');
end;

plot2d(gen',a',style=[1,2,3,4],leg=b);		// draw the lines

x = TK_GetVar('user_stop');					// check whether user stop
x = eval(x);
endfunction