📄 anfisedit.m
字号:
end
switch thisstr
case 'Grid partition'
set(genHndl, 'String', 'Generate FIS ...');
case 'Sub. clustering'
set(genHndl, 'String', 'Generate FIS ...');
otherwise
set(genHndl, 'String', 'Load ...');
end
case '#radiotest'
curHndl=gco;
set(curHndl, 'Value', get(curHndl, 'max'));
radioHndl=findobj(gcbf, 'Tag', 'test');
for i=1:length(radioHndl)
if radioHndl(i)~=curHndl
set(radioHndl(i), 'Value', 0);
end
end
case '#help'
figNumber=watchon;
helpwin(mfilename)
watchoff(figNumber)
end; % if strcmp(action, ...
% End of function anfisedit
%==================================================
function LocalEnableBtns(fis)
% control the enable property for buttons, based on whether training data/mf/rule
% has already set
figNumber = gcbf;
startHndl = findobj(figNumber, 'Tag', 'startbtn');
if ~isfield(fis, 'trndata')| isempty(fis.trndata)| isempty(fis.input(1).mf)
%| isempty(fis.input(1).mf)|...
% ~isfield(fis, 'rule') | isempty(fis.rule)
set(startHndl, 'Enable', 'off');
else
set(startHndl, 'Enable', 'on');
end
%genHndl = findobj(gcf, 'Tag', 'genfis');
%if ~isfield(fis, 'trndata')| isempty(fis.trndata(1))
% set(genHndl, 'Enable', 'off');
%else
% set(genHndl, 'Enable', 'on');
%end
plotHndl = findobj(figNumber, 'Tag', 'plotstrc');
testHndl = findobj(figNumber, 'Tag', 'testbtn');
if isfield(fis,'input') & (isempty(fis.input(1).mf) | ~isfield(fis, 'rule') | isempty(fis.rule))
set(plotHndl, 'Enable', 'off');
set(testHndl, 'Enable', 'off');
else
set(plotHndl, 'Enable', 'on');
set(testHndl, 'Enable', 'on');
end
%==================================================
function uiHandle=LocalBuildUi(uiPos, uiStyle, uiCallback, promptStr, uiTag)
% build uicontrol
uiHandle=uicontrol( ...
'Style',uiStyle, ...
'HorizontalAlignment','left', ...
'BackgroundColor',[.75 .75 .75], ...
'Units','normalized', ...
'Max',20, ...
'Position',uiPos, ...
'Callback',uiCallback, ...
'Tag', uiTag, ...
'String',promptStr);
%==================================================
function frmHandle=LocalBuildFrmTxt(frmPos, txtStr, uiStyle, txtTag)
% Build frame and label with an edge
%frmColor=192/255*[1 1 1];
frmColor=[.75 .75 .75];
frmHandle=uicontrol( ...
'Style', uiStyle, ...
'Units','normalized', ...
'Position',frmPos, ...
'HorizontalAlignment', 'left',...
'BackgroundColor',frmColor, ...
'String', txtStr, ...
'Tag', txtTag);
% 'ForegroundColor',[1 1 1], ... %generates an edge
%==================================================
function btHandle=LocalBuildBtns(thisstyle, btnNumber, labelStr, callbackStr, uiTag)
% build buttons or check boxes so they easily aline on the right
labelColor=[0.75 0.75 0.75];
top=0.953;
left=0.825;
btnWid=0.15;
btnHt=0.05;
bottom=0.032;
% Spacing between the button and the next command's label
spacing=0.03;
yPos=top-(btnNumber-1)*(btnHt+spacing);
if strcmp(labelStr, 'Close')==1
yPos= bottom;
elseif strcmp(labelStr, 'Info')==1
yPos= bottom+btnHt+spacing;
else
yPos=top-(btnNumber-1)*(btnHt+spacing)-btnHt;
end
% Generic button information
btnPos=[left yPos btnWid btnHt];
btHandle=uicontrol( ...
'Style',thisstyle, ...
'Units','normalized', ...
'Position',btnPos, ...
'String',labelStr, ...
'Tag', uiTag, ...
'Callback',callbackStr);
%==================================================
function LocalStructureBtnCallback(eventSrc, eventdata)
% Plots initial anfis structure, can only be called when Structure button is enabled,
% therefore no need to check for existing figure. eventSrc is Structure btn hndl
% Get the default figure position at the root level
default_pos = get(0,'DefaultFigurePosition');
% The main figure is the parent of the Structure button which issued this callback
MainFigHndl = get(eventSrc,'Parent');
SubFigHndl=figure('Name', 'Anfis Model Structure',...
'Position', default_pos + [40 -40 0 0], ...
'Unit', 'normal',...
'NumberTitle','off',...
'HandleVisibility','callback',...
'Color', [.75 .75 .75],...
'MenuBar','none', ...
'DefaultTextFontSize',8+2*isunix, ...
'DeleteFcn',{@LocalCloseSubFigCallback eventSrc}, ...
'DockControls', 'off');
% Create the axis where the structure will be drawn
AxesHndl = axes('Parent',SubFigHndl,'Visible','off', ...
'Position', [0.01 0.132 0.975 0.82], ...
'XLimMode', 'Manual', ...
'Xlim', [-0.30 1.22], 'Ylim', [0 1.0]);
% Create status bar and Help/Close frames
uicontrol('Parent',SubFigHndl,'Style', 'frame',...
'Unit', 'normal',...
'BackgroundColor',[0.75 0.75 0.75], ...
'Position', [.01 .0218 .45 .073]);
uicontrol('Parent',SubFigHndl,'Style', 'frame',...
'Unit', 'normal',...
'BackgroundColor',[0.75 0.75 0.75], ...
'Position', [.47 .0218 .52 .073]);
uicontrol('Parent',SubFigHndl,'Style', 'text',...
'Unit', 'normal',...
'Position', [.02 .025 .4 .05],...
'BackgroundColor',[0.75 0.75 0.75], ...
'FontSize',get(SubFigHndl,'DefaultTextFontSize'), ...
'HorizontalAlignment','Left', ...
'String', 'Click on each node to see detailed information');
% Create Help and Close buttons
helpHndl=LocalBuildBtns('pushbutton', 0, 'Close', 'anfisedit #help', 'help');
pos=get(helpHndl, 'Position');
pos(1)=pos(1)-.17;
set(helpHndl, 'Position', pos, 'String', 'Help');
uicontrol('Parent',SubFigHndl,'Style', 'pushbutton',...
'Unit', 'normal',...
'Position', [0.825 0.032 0.15 0.05],...
'Callback', 'close(gcbf)', 'String', 'Close');
% Create the update button
UpDateBtnHndl = uicontrol('Parent',SubFigHndl,'Style', 'pushbutton',...
'Unit', 'normal',...
'Position', [0.825-2*0.17 0.032 0.15 0.05],...
'String', 'Update', ...
'CallBack',{@LocalUpDateStructure MainFigHndl AxesHndl});
% Create a listener to close the Structure GUI when the main figure is closed
listener = handle.listener(MainFigHndl, 'ObjectBeingDestroyed', ...
{@LocalCloseMainFigCallback SubFigHndl});
% Store the listener
set(SubFigHndl, 'UserData', listener);
% Disable the main figure Structure button
set(eventSrc,'Enable','off');
% Call the Local function to draw the structure on the axis
LocalUpDateStructure(UpDateBtnHndl, [], MainFigHndl, AxesHndl);
%==================================================
function LocalUpDateStructure(eventSrc, eventData, MainFigHndl, AxesHndl)
% Redraw the anfis structure on the figure when the update button is pressed
% If the Structure has already been drawn delete it and redraw
kids = get(AxesHndl,'Children');
delete(kids(ishandle(kids)));
SubFigHndl = get(eventSrc,'Parent');
% The FIS is stored in the UserData of the main figure
fis=get(MainFigHndl, 'UserData');
fis=fis{1};
% Create a text box to show node information during mouse button down on object
TextHndl=uicontrol('Parent',SubFigHndl,'Style', 'text', 'Unit', 'norm',...
'Visible', 'off',...
'Fontsize',8 + 2*isunix, ...
'BackGroundColor',[1 1 .6]);
% Give a text label to each node
text([-0.25 -0.029 0.43 0.63 1.06], [1.01 1.01 1.01 1.01 1.01], ...
{'input', 'inputmf', 'rule', 'outputmf', 'output'}, ...
'Parent',AxesHndl,'Fontsize',get(SubFigHndl,'DefaultTextFontSize'));
%======== calculate input nodes and input mfs
% The input node centres are first calculated then plotted later to ensure correct layering
instep=1/(length(fis.input)+1);
outstep=1/(length(fis.output)+1);
theta=0:pi/5:2*pi;
r= 0.02;
rsin=r*sin(theta);
rcos=r*cos(theta);
numin = length(fis.input);
total_nummf = 0;
for id = 1:numin
nummf(id) = length(fis.input(id).mf);
total_nummf = total_nummf + nummf(id);
end
mfstep = 1/(total_nummf + numin);
for id = 1:numin
total_mf_block = 0;
for jid = numin:-1:id + 1
mf_block(jid) = (nummf(jid) + 1)*mfstep;
total_mf_block = total_mf_block + mf_block(jid);
end
% Calculate the input node centres
input_node_ctr(id) = total_mf_block + (nummf(id) + 1)*mfstep/2;
for kid = 1:nummf(id)
% Calculate the input mf node centres
inputmf_node_ctr(id,kid) = total_mf_block + mfstep*(nummf(id)+1-kid);
end
end
%=========rules and output mfs
rulestep=length(fis.rule)+1;
% Plot the connections from output mf nodes to the weighted sum output nodes
for i=1:length(fis.output)
for j=1:length(fis.rule)
line([0.7 0.9], [(rulestep-j)/rulestep outstep*i], [-1 -1], 'color', 'black','Parent',AxesHndl);
end
end
% Plot the connections from the input mf nodes to the rule nodes
for id = 1:length(fis.rule)
conn = fis.rule(id).connection;
numa = length(fis.rule(id).antecedent);
y_pos_rule = (rulestep-id)/rulestep;
for jid = 1:numa
ruleindex=fis.rule(id).antecedent(jid);
if ruleindex~=0
if ruleindex < 0
thiscolor = 'green';
InfoTxt = 'Not True';
else
thiscolor = 'black';
InfoTxt = 'True';
end
mfstep=instep/(nummf(jid)+1);
% Plot the connections between the inputmf nodes and the rule nodes
LineHndl = line([0.0 0.45], ...
[inputmf_node_ctr(jid,abs(ruleindex)) y_pos_rule], [-1 -1], ...
'Color', char(thiscolor),'Parent',AxesHndl, ...
'ButtonDownFcn', {@LocalMouseBtnDown TextHndl InfoTxt});
end
end
% Plot the connections from the rule nodes to the output mf nodes
line([0.45 0.7], [y_pos_rule y_pos_rule], [-1 -1], 'color', 'black','Parent',AxesHndl);
% Draw the rule nodes
xcircle=r*sin(theta)+0.45;
ycircle=r*cos(theta)+y_pos_rule;
zcircle = ones(length(ycircle));
% rulecolor = AND OR
rulecolor={'blue', 'red'};
thiscolor = rulecolor{conn};
InfoTxt = ['Rule ' sprintf('%i',id)];
patch(xcircle, ycircle, 'w',...
'ButtonDownFcn', {@LocalMouseBtnDown TextHndl InfoTxt},...
'FaceColor',thiscolor, ...
'Parent',AxesHndl);
% Draw the outputmf nodes
xcircle=xcircle+0.25;
InfoTxt = ['Output MF ' sprintf('%i',fis.rule(id).consequent(1))];
patch(xcircle, ycircle, 'w',...
'ButtonDownFcn', {@LocalMouseBtnDown TextHndl InfoTxt},...
'Parent',AxesHndl);
end
% Plot the input mf nodes
for id = 1:numin
for kid = 1:nummf(id)
xcircle = rsin - 0.0;
ycircle = rcos + inputmf_node_ctr(id,kid);
zcircle = 10*ones(length(ycircle));
% Plot the connections between the inputmf nodes and the rule nodes
line([-0.2 0.0], [input_node_ctr(id) inputmf_node_ctr(id,kid)], [-1 -1], 'Parent',AxesHndl,'color', 'black');
InfoTxt = ['Input ' sprintf('%i',id) ',' ' MF ' fis.input(id).mf(kid).name];
patch(xcircle, ycircle, zcircle, 'w',...
'ButtonDownFcn', {@LocalMouseBtnDown TextHndl InfoTxt},...
'Parent',AxesHndl);
end
% Plot the input nodes
xcircle = rsin - 0.2;
ycircle = rcos + input_node_ctr(id);
InfoTxt = ['Input ' sprintf('%i',id)];
patch(xcircle, ycircle, 'black', ...
'ButtonDownFcn', {@LocalMouseBtnDown TextHndl InfoTxt}, ...
'Parent',AxesHndl);
end
%=====output nodes
line([0.9 1.1], [outstep outstep], 'color', 'black','Parent',AxesHndl);
for id=1:length(fis.output)
xcircle=rsin+0.9;
ycircle=rcos+outstep*id;
InfoTxt = ['Aggregated Output ' sprintf('%i',id)];
patch(xcircle, ycircle, zcircle, 'w',...
'ButtonDownFcn', {@LocalMouseBtnDown TextHndl InfoTxt},...
'Parent',AxesHndl);
end
%=======normalize and dividing node
xcircle=rsin+1.1;
ycircle=rcos+outstep;
InfoTxt = ['Output'];
patch(xcircle, ycircle, 'black',...
'ButtonDownFcn', {@LocalMouseBtnDown TextHndl InfoTxt},...
'Parent',AxesHndl);
%============== create a custom legend ===============
line([0.90 1.22 1.22 0.90 0.90],[0.0 0.0 0.2 0.2 0.0], 'Parent',AxesHndl,'Color','black');
text([0.94 1.12 1.12 1.12], [0.16 0.115 0.07 0.025], ...
{'Logical Operations', 'and', 'or', 'not'}, ...
'Fontsize',get(SubFigHndl,'DefaultTextFontSize'),'Parent',AxesHndl);
% Create the blue AND circle, the red OR circle and the green NOT line
xcircle=r*sin(theta)+1.; ycircle=r*cos(theta)+0.12; patch(xcircle, ycircle,'blue','Parent',AxesHndl);
xcircle=r*sin(theta)+1.; ycircle=r*cos(theta)+0.07; patch(xcircle, ycircle,'red','Parent',AxesHndl);
line([0.95 1.05],[0.03 0.03],'LineWidth',1,'Color','green','Parent',AxesHndl);
%==================================================
function LocalCloseMainFigCallback(eventSrc, eventData, SubFigHndl)
% A listener callback when the main figure window is closed
delete(SubFigHndl);
%==================================================
function LocalCloseSubFigCallback(eventSrc, eventData, StrctBtnHndl)
% Operates when the Structure diagram sub-figure is closed
set(StrctBtnHndl,'Enable','on');
%==================================================
function LocalMouseBtnDown(eventSrc, eventData, TextHndl, InfoTxt)
% Operates when user button downs on objects in the Anfis Model Structure window.
% eventSrc is the hndl of the object where the btn down event occurred
AxesHndl = get(eventSrc,'Parent');
FigHndl = get(AxesHndl,'Parent');
CP = get(FigHndl,'CurrentPoint');
switch get(eventSrc,'Type');
case 'line'
set(eventSrc,'LineWidth',4);
case 'patch'
set(TextHndl, ...
'String', InfoTxt, ...
'Visible', 'on');
ex = get(TextHndl,'Extent');
set(TextHndl,'Position',[CP(1,1) CP(1,2) ex(3) ex(4)]);
end
% Reset the sub-figure window btn up function, and pass the text hndl and the selected object hndl
set(FigHndl,'WindowButtonUpFcn',{@LocalWindowBtnUpFcn TextHndl eventSrc});
%==================================================
function LocalWindowBtnUpFcn(eventSrc, eventData, varargin)
% Operates when the Window Button Up occurs, varargin = [ TextHndl objHndl ]
switch get(varargin{2},'Type');
case 'line'
set(varargin{2},'LineWidth',0.5);
case 'patch'
set(varargin{1},'Visible','off');
end
% Reset the sub-figure window btn up function to do nothing
set(eventSrc,'WindowButtonUpFcn', ' ');
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -