da_pcorb.m

王小平老师的遗传算法-理论应用与软件实现的源代码（matlab

%
% Set the ButtonDownFcn for these axes
%
set(ax1,'ButtonDownFcn',[
	'set(text2,''visible'',''on'');',...
	'set(text3,''visible'',''on'');',...
	'set(text2,''string'',''SELECT A VARIABLE'');',...
	'[x,y]=ginput(1);',...
	'c=pcs(x,ceil(get(sl1,''value'')));',...
	'set(text3,''string'',[''Correlation coefficient = '' num2str(c)]);',...
	'set(text2,''string'',[''Selected variable ='' num2str(round(x))]);']);