fuzzy_g.m

The neuro-fuzzy software for identification and data analysis has been implemented in the MATLAB lan

		'Style',		'text'				,...
		'String',		'Max No of rules:'		,...
		'BackGroundColor',	[.5,.5,.5]			,...
		'Position',		[310,200,155,18]);
set(comp_max_txt,'visible','off');

comp_max=comp_min+1;
comp_max_sli=uicontrol(window,...
		'Style',		'slider'								,...
		'BackGroundColor',	[.5,.5,.5]								,...
		'Min',			2									,...
		'Max',			41									,...
		'Value',		comp_max								,...
		'CallBack',		['c=get(comp_max_sli,''Value'');'					,...
					 'comp_max=comp_max+sign(c-comp_max);'					,...
					 'if comp_max<comp_min+1,'						,...
						'comp_max=comp_min+1;'						,...
					 'end,'									,...
					 'set(comp_max_sli,''Value'',comp_max);'				,...
					 'set(comp_max_cur,''String'',num2str(get(comp_max_sli,''Value'')))']	,...	 
		'Position',		[310,180,175,18]);
set(comp_max_sli,'visible','off');

comp_max_cur=uicontrol(window,...
		'Style',		'text'					,...
		'BackGroundColor',	[.8,.8,.8]				,...
		'String',		num2str(get(comp_max_sli,'Value'))	,...
		'Position',		[465,200,20,16]);
set(comp_max_cur,'visible','off');

				

comp_frame=uicontrol(window,...
		'Style',		'frame'			,...	
		'BackGroundColor',	[.5,.5,.5]		,...
		'Position',		[305,175,185,50]);
set(comp_frame,'visible','on');


comp_txt=uicontrol(window,...
		'Style',		'text'			,...
		'String',		'No of rules:'		,...
		'BackGroundColor',	[.5,.5,.5]		,...
		'Position',		[310,200,155,18]);
set(comp_txt,'visible','on');

comp=comp_min;
comp_sli=uicontrol(window,...
		'Style',		'slider'							,...
		'BackGroundColor',	[.5,.5,.5]							,...
		'Min',			1								,...
		'Max',			40								,...
		'Value',		comp								,...
		'CallBack',		['c=get(comp_sli,''Value'');'					,...
					 'comp=comp+sign(c-comp);'					,...
					 'set(comp_sli,''Value'',comp);'				,...
					 'set(comp_cur,''String'',num2str(get(comp_sli,''Value'')));']	,...
		'Position',		[310,180,175,18]);
set(comp_sli,'visible','on');

comp_cur=uicontrol(window,...
		'Style',		'text'					,...
		'BackGroundColor',	[.8,.8,.8]				,...
		'String',		num2str(get(comp_sli,'Value'))		,...
		'Position',		[465,200,20,16]);
set(comp_cur,'visible','on');

uicontrol(window,...
		'Style',		'frame'			,...	
		'BackGroundColor',	[.5,.5,.5]		,...
		'Position',		[5,105,240,65]);

uicontrol(window,...
		'Style',		'text'			,...
		'String',		'Membership Functions:'	,...
		'BackGroundColor',	[.5,.5,.5]		,...
		'Position',		[10,150,220,18]);

memb_fun='gaussian';

fun1=uicontrol(window,...
		'Style',		'radio'				,...
		'String',		'Gaussian'			,...
		'Value',		1				,...
		'BackGroundColor',	[.5,.5,.5]			,...	
		'CallBack',		['set(fun1,''value'',1),'	,...
					'set(fun2,''value'',0),'	,...
					'memb_fun=''gaussian'';']	,...
		'Position',		[10,110,110,25]);
set(fun1,'visible','on'),

fun2=uicontrol(window,...
		'Style',		'radio'				,...
		'String',		'Triangular'			,...
		'Value',		0				,...
		'BackGroundColor',	[.5,.5,.5]			,...	
		'CallBack',		['set(fun1,''value'',0),'	,...
					'set(fun2,''value'',1),'	,...
					'memb_fun=''triangular'';']	,...
		'Position',		[130,110,110,25]);
set(fun2,'visible','on'),

uicontrol(window,...
		'Style',		'frame'			,...	
		'BackGroundColor',	[.5,.5,.5]		,...	
		'Position',		[250,105,240,65]);

uicontrol(window,...
		'Style',		'text'			,...
		'String',		'Architecture:'		,...
		'BackGroundColor',	[.5,.5,.5]		,...
		'Position',		[255,150,220,18]);

arch='comb';
arch1=uicontrol(window,...
		'Style',		'radio'				,...
		'String',		'Combined'			,...
		'Value',		1				,...
		'BackGroundColor',	[.5,.5,.5]			,...	
		'CallBack',		['set(arch1,''value'',1),'	,...
					'set(arch2,''value'',0),'	,...
					'arch=''comb'';']		,...
		'Position',		[255,110,110,25]);
set(arch1,'visible','on'),

arch2=uicontrol(window,...
		'Style',		'radio'				,...
		'String',		'Weigthed'			,...
		'Value',		0				,...
		'BackGroundColor',	[.5,.5,.5]			,...	
		'CallBack',		['set(arch1,''value'',0),'	,...
					'set(arch2,''value'',1),'	,...
					'arch=''weigthed'';']		,...
		'Position',		[375,110,110,25]);
set(arch2,'visible','on'),


uicontrol(window,...
		'Style',		'frame'			,...	
		'BackGroundColor',	[.5,.5,.5]		,...
		'Position',		[5,35,240,65]);

uicontrol(window,...
		'Style',		'text'				,...
		'String',		'Format of the Consequences:'	,...
		'BackGroundColor',	[.5,.5,.5],...
		'Position',		[10,80,220,18]);

format_out='linear';
out1=uicontrol(window,...
		'Style',		'radio'				,...
		'String',		'Linear'			,...
		'Value',		1				,...
		'BackGroundColor',	[.5,.5,.5]			,...	
		'CallBack',		['set(out1,''value'',1),'	,...
					'set(out2,''value'',0),'	,...
					'format_out=''linear'';']	,...
		'Position',		[10,40,110,25]);
set(out1,'visible','on'),

out2=uicontrol(window,...
		'Style',		'radio'				,...
		'String',		'Constant'			,...
		'Value',		0				,...
		'BackGroundColor',	[.5,.5,.5]			,...	
		'CallBack',		['set(out1,''value'',0),'	,...
					'set(out2,''value'',1),'	,...
					'format_out=''constant'';']	,...
		'Position',		[130,40,110,25]);
set(out2,'visible','on')


uicontrol(window,...
		'Style',		'frame'			,...	
		'BackGroundColor',	[.5,.5,.5]		,...
		'Position',		[250,35,240,65]);

uicontrol(window,...
		'Style',		'text'			,...
		'String',		'Output of the model:'	,...
		'BackGroundColor',	[.5,.5,.5]		,...
		'Position',		[255,75,220,18]);

model_bias='no_bias';
bias1=uicontrol(window,...
		'Style',		'radio'				,...
		'String',		'No Bias'			,...
		'Value',		1				,...
		'BackGroundColor',	[.5,.5,.5]			,...	
		'CallBack',		['set(bias1,''value'',1),'	,...
					'set(bias2,''value'',0),'	,...
					'model_bias=''no_bias'';']	,...
		'Position',		[255,40,110,25]);
set(bias1,'visible','on'),

bias2=uicontrol(window,...
		'Style',		'radio'				,...
		'String',		'Bias'				,...
		'Value',		0				,...
		'BackGroundColor',	[.5,.5,.5]			,...	
		'CallBack',		['set(bias1,''value'',0),'	,...
					'set(bias2,''value'',1),'	,...
					'model_bias=''bias'';']		,...
		'Position',		[375,40,110,25]);
set(bias2,'visible','on'),


init_frame=uicontrol(window,...
		'Style',		'frame'			,...	
		'BackGroundColor',	[.5,.5,.5]		,...
		'Position',		[495,65,240,65]);
set(init_frame,'visible','on');

init_txt=uicontrol(window,...
		'Style',		'text'			,...
		'String',		'Initialization:'	,...
		'BackGroundColor',	[.5,.5,.5]		,...
		'Position',		[500,110,220,18]);
set(init_txt,'visible','on');

init='HFC';
init1=uicontrol(window,...
		'Style',		'radio'				,...
		'String',		'HFC'				,...
		'Value',		1				,...
		'BackGroundColor',	[.5,.5,.5]			,...	
		'CallBack',		['set(init1,''value'',1),'	,...
					'set(init2,''value'',0),'	,...
					'init=''HFC'';']	,...
		'Position',		[500,70,110,25]);
set(init1,'visible','on');

init2=uicontrol(window,...
		'Style',		'radio'				,...
		'String',		'k_mean'			,...
		'Value',		0				,...
		'BackGroundColor',	[.5,.5,.5]			,...	
		'CallBack',		['set(init1,''value'',0),'	,...
					'set(init2,''value'',1),'	,...
					'init=''k_mean'';']		,...
		'Position',		[620,70,110,25]);
set(init2,'visible','on');







uicontrol(window,...
		'Style',		'frame'		,...	
		'BackGroundColor',	[.5,.5,.5]	,...
		'Position',		[5,175,295,95]);

pr='one_mod';
pr1=uicontrol(window,...
		'Style',		'radio'						,...
		'String',		'Train one model of given complexity'		,...
		'Value',		1						,...
		'BackGroundColor',	[.5,.5,.5]					,...	
		'CallBack',		['set(pr1,''value'',1),'			,...
					'set(pr2,''value'',0),'				,...
					'set(pr3,''value'',0),'				,...
					'pr=''one_mod'';'				,...
					'set(true_ok,''visible'',''off'');'		,...
					'set(getdata,''visible'',''on'');'		,...
					'set(getmodel,''visible'',''off'');'		,...
					'set(getinputs,''visible'',''off'');'		,...
					'set(fun1,''visible'',''on''),'			,...
					'set(fun2,''visible'',''on''),'			,...
					'set(arch1,''visible'',''on''),'		,...
					'set(arch2,''visible'',''on''),'		,...
					'set(out1,''visible'',''on''),'			,...
					'set(out2,''visible'',''on''),'			,...
					'set(bias1,''visible'',''on''),'		,...
					'set(bias2,''visible'',''on''),'		,...
					'set(init_frame,''visible'',''on'');'		,...
					'set(init_txt,''visible'',''on'');'		,...
					'set(init1,''visible'',''on'');'		,...
					'set(init2,''visible'',''on'');'		,...
					'set(err_hist_butt,''visible'',''off'');'	,...
					'set(err_comp_butt,''visible'',''off'');'	,...
					'set(mod_par_butt,''visible'',''on'');'  	,...
					'set(mod_hist_butt,''visible'',''on'');' 	,...
					'set(pred_butt,''visible'',''off'');'		,...
					'set(X_sli,''visible'',''off'');'	 	,...
					'set(X_cur,''visible'',''off'');'	 	,...
					'set(X_txt,''visible'',''off'');'	 	,...
					'set(X_frame,''visible'',''off'');'		,...
					'set(comp_sli,''visible'',''on'');'		,...
					'set(comp_cur,''visible'',''on'');'		,...
					'set(comp_txt,''visible'',''on'');'		,...
					'set(comp_frame,''visible'',''on'');'		,...
					'set(comp_min_sli,''visible'',''off'');'	,...
					'set(comp_min_cur,''visible'',''off'');'	,...
					'set(comp_min_txt,''visible'',''off'');'	,...
					'set(comp_minmax_frame,''visible'',''off'');'	,...
					'set(comp_max_sli,''visible'',''off'');'	,...
					'set(comp_max_cur,''visible'',''off'');'	,...
					'set(comp_max_txt,''visible'',''off'');']     	,...
		'Position',		[10,240,285,25]);

pr2=uicontrol(window,...
		'Style',		'radio'						,...
		'String',		'Evaluate an existing model'			,...
		'Value',		0						,...
		'BackGroundColor',	[.5,.5,.5]					,...	
		'CallBack',		['set(pr1,''value'',0),'			,...
					'set(pr2,''value'',1),'				,...
					'set(pr3,''value'',0),'				,...
					'pr=''evaluate'';'				,...
					'set(true_ok,''visible'',''off'');'		,...
					'set(getdata,''visible'',''off'');'		,...
					'set(getmodel,''visible'',''on'');'		,...
					'set(getinputs,''visible'',''on'');'		,...
					'set(fun1,''visible'',''on''),'			,...
					'set(fun2,''visible'',''on''),'			,...
					'set(arch1,''visible'',''on''),'		,...
					'set(arch2,''visible'',''on''),'		,...
					'set(out1,''visible'',''on''),'			,...
					'set(out2,''visible'',''on''),'			,...
					'set(bias1,''visible'',''on''),'		,...
					'set(bias2,''visible'',''on''),'		,...
					'set(init_frame,''visible'',''off'');'		,...
					'set(init_txt,''visible'',''off'');'		,...
					'set(init1,''visible'',''off'');'		,...
					'set(init2,''visible'',''off'');'		,...
					'set(err_hist_butt,''visible'',''off'');'	,...
					'set(err_comp_butt,''visible'',''off'');'	,...
					'set(mod_par_butt,''visible'',''off'');'  	,...
					'set(mod_hist_butt,''visible'',''off'');' 	,...
					'set(pred_butt,''visible'',''on'');'		,...
					'set(X_sli,''visible'',''off'');'	 	,...
					'set(X_cur,''visible'',''off'');'	 	,...
					'set(X_txt,''visible'',''off'');'	 	,...
					'set(X_frame,''visible'',''off'');'		,...
					'set(comp_sli,''visible'',''off'');'		,...
					'set(comp_cur,''visible'',''on'');'		,...
					'set(comp_txt,''visible'',''on'');'		,...
					'set(comp_frame,''visible'',''on'');'		,...
					'set(comp_min_sli,''visible'',''off'');'	,...
					'set(comp_min_cur,''visible'',''off'');'	,...
					'set(comp_min_txt,''visible'',''off'');'	,...
					'set(comp_minmax_frame,''visible'',''off'');'	,...
					'set(comp_max_sli,''visible'',''off'');'	,...
					'set(comp_max_cur,''visible'',''off'');'	,...
					'set(comp_max_txt,''visible'',''off'');']     	,...
		'Position',		[10,210,285,25]);

pr3=uicontrol(window,...
		'Style',		'radio'						,...
		'String',		'Search for the best complexity'		,...
		'Value',		0						,...
		'BackGroundColor',	[.5,.5,.5]					,...	
		'CallBack',		['set(pr1,''value'',0),'			,...
					'set(pr2,''value'',0),'				,...
					'set(pr3,''value'',1),'				,...
					'pr=''comp_err'';'				,...
					'set(true_ok,''visible'',''off'');'		,...
					'set(getdata,''visible'',''on'');'		,...
					'set(getmodel,''visible'',''off'');'		,...
					'set(getinputs,''visible'',''off'');'		,...
					'set(fun1,''visible'',''on''),'			,...
					'set(fun2,''visible'',''on''),'			,...
					'set(arch1,''visible'',''on''),'		,...
					'set(arch2,''visible'',''on''),'		,...
					'set(out1,''visible'',''on''),'			,...
					'set(out2,''visible'',''on''),'			,...
					'set(bias1,''visible'',''on''),'		,...
					'set(bias2,''visible'',''on''),'		,...
					'set(init_frame,''visible'',''on'');'		,...
					'set(init_txt,''visible'',''on'');'		,...
					'set(init1,''visible'',''on'');'		,...
					'set(init2,''visible'',''on'');'		,...
					'set(err_hist_butt,''visible'',''on'');' 	,...
					'set(err_comp_butt,''visible'',''on'');' 	,...
					'set(mod_par_butt,''visible'',''off'');' 	,...
					'set(mod_hist_butt,''visible'',''off'');'	,...
					'set(pred_butt,''visible'',''off'');'		,...
					'set(X_frame,''visible'',''on'');'	 	,...
					'set(X_sli,''visible'',''on'');'	 	,...
					'set(X_cur,''visible'',''on'');'	 	,...
					'set(X_txt,''visible'',''on'');'		,...
					'set(comp_sli,''visible'',''off'');'		,...
					'set(comp_cur,''visible'',''off'');'		,...
					'set(comp_txt,''visible'',''off'');'		,...
					'set(comp_frame,''visible'',''off'');'		,...
					'set(comp_min_sli,''visible'',''on'');'		,...
					'set(comp_min_cur,''visible'',''on'');'		,...
					'set(comp_min_txt,''visible'',''on'');'		,...
					'set(comp_max_sli,''visible'',''on'');'		,...
					'set(comp_max_cur,''visible'',''on'');'		,...
					'set(comp_max_txt,''visible'',''on'');'		,...
					'set(comp_minmax_frame,''visible'',''on'');']  	,...
		'Position',		[10,180,285,25]);