da_pcorb.m

来自「王小平《遗传算法——理论、应用与软件实现》随书光盘」· M 代码 · 共 13 行

%
% 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))]);']);