www.gusucode.com > 模糊控制工具箱 fuzzy logic toolbox源码程序 > fuzzy/fuzzy/nwfisdlg.m
function mfdlg(action)
%MFDLG Create dialog for generating new fis with data.
% MFDLG(action,fisMatrix,varType,varIndex) will open a dialog
% box for fisMatrix using the default MF type 'trimf'.
% varType and varIndex indicate exactly which variable you
% want to add membership functions to.
% Kelly Liu 1-2-97
% Copyright 1994-2002 The MathWorks, Inc.
% $Revision: 1.9 $ $Date: 2002/04/14 22:22:41 $
if ~isstr(action),
% For initialization, the fis matrix is passed in as the parameter
oldFigNumber=action;
action='#initialize';
end;
if strcmp(action,'#initialize'),
fisType=fis.type;
labelStr='Add membership functions';
popupLabel1='MF type';
popupLabel2='Number of MFs';
%===================================
% Information for all objects
frmColor=192/255*[1 1 1];
btnColor=192/255*[1 1 1];
popupColor=192/255*[1 1 1];
editColor=255/255*[1 1 1];
border=6;
spacing=6;
figPos=get(0,'DefaultFigurePosition');
figPos(3:4)=[360 160];
maxRight=figPos(3);
maxTop=figPos(4);
btnWid=160;
btnHt=23;
%====================================
% The FIGURE
figNumber=figure( ...
'NumberTitle','off', ...
'Color',[0.9 0.9 0.9], ...
'Visible','off', ...
'MenuBar','none', ...
'UserData',fis, ...
'Units','pixels', ...
'Position',figPos, ...
'BackingStore','off');
figPos=get(figNumber,'position');
%====================================
% The MAIN frame
top=maxTop-border;
bottom=border;
right=maxRight-border;
left=border;
frmBorder=spacing;
frmPos=[left-frmBorder bottom-frmBorder ...
right-left+frmBorder*2 top-bottom+frmBorder*2]+[1 1 1 1];
mainFrmHndl=uicontrol( ...
'Style','frame', ...
'Units','pixel', ...
'Position',frmPos, ...
'BackgroundColor',frmColor);
%====================================
% The UPPER frame
top=maxTop-spacing-border;
bottom=border+8*spacing+3*btnHt;
right=maxRight-border-spacing;
left=border+spacing;
frmBorder=spacing;
frmPos=[left-frmBorder bottom-frmBorder ...
right-left+frmBorder*2 top-bottom+frmBorder*2]+[1 0 1 0];
varFrmHndl=uicontrol( ...
'Units','pixel', ...
'Style','frame', ...
'Position',frmPos, ...
'BackgroundColor',frmColor);
varSpacing=(top-bottom-2*btnHt);
%------------------------------------
% The STRING text field
n=1;
labelStr=labelStr;
pos=[left top-btnHt*n-varSpacing*(n-1) right-left btnHt];
uicontrol( ...
'Units','pixel', ...
'Style','text', ...
'BackgroundColor',frmColor, ...
'HorizontalAlignment','left', ...
'Position',pos, ...
'String',labelStr);
%====================================
% The POPUP frame
bottom=border+4*spacing+btnHt;
top=bottom+2*btnHt+spacing;
right=maxRight-border-spacing;
left=border+spacing;
frmBorder=spacing;
frmPos=[left-frmBorder bottom-frmBorder ...
right-left+frmBorder*2 top-bottom+frmBorder*2]+[1 0 1 0];
topFrmHndl=uicontrol( ...
'Style','frame', ...
'Units','pixel', ...
'Position',frmPos, ...
'BackgroundColor',frmColor);
%------------------------------------
% The POPUP text field
labelStr=popupLabel1;
pos=[left top-btnHt btnWid btnHt];
uicontrol( ...
'Units','pixel', ...
'Style','text', ...
'HorizontalAlignment','left', ...
'Position',pos, ...
'BackgroundColor',frmColor, ...
'String',labelStr);
%------------------------------------
% The POPUP field
if strcmp(fisType,'sugeno') & strcmp(varType,'output'),
menuTxt=str2mat(' constant',' linear');
else
menuTxt=str2mat(' trimf',' trapmf',' gbellmf',' gaussmf',' gauss2mf',' pimf');
menuTxt=str2mat(menuTxt,' dsigmf',' psigmf');
end
pos=[right-btnWid top-btnHt btnWid btnHt];
uicontrol( ...
'Units','pixel', ...
'Style','popupmenu', ...
'String',menuTxt, ...
'UserData',varType, ...
'Tag','mftype', ...
'HorizontalAlignment','left', ...
'Position',pos, ...
'BackgroundColor',popupColor);
%------------------------------------
% The POPUP text field
labelStr=popupLabel2;
pos=[left top-2*btnHt-spacing btnWid btnHt];
uicontrol( ...
'Units','pixel', ...
'Style','text', ...
'HorizontalAlignment','left', ...
'Position',pos, ...
'BackgroundColor',frmColor, ...
'String',labelStr);
%------------------------------------
% The POPUP field
menuTxt=str2mat(' 1',' 2',' 3',' 4',' 5',' 6',' 7',' 8',' 9');
pos=[right-btnWid top-2*btnHt-spacing btnWid btnHt];
uicontrol( ...
'Units','pixel', ...
'Style','popupmenu', ...
'String',menuTxt, ...
'Tag','mfnumber', ...
'UserData',varIndex, ...
'Value',3, ...
'HorizontalAlignment','left', ...
'Position',pos, ...
'BackgroundColor',popupColor);
%====================================
% The CLOSE frame
bottom=border+spacing;
top=bottom+btnHt;
right=maxRight-border-spacing;
left=border+spacing;
frmBorder=spacing;
frmPos=[left-frmBorder bottom-frmBorder ...
right-left+frmBorder*2 top-bottom+frmBorder*2]+[1 0 1 0];
clsFrmHndl=uicontrol( ...
'Style','frame', ...
'Units','pixel', ...
'Position',frmPos, ...
'BackgroundColor',frmColor);
%------------------------------------
% The CANCEL button
labelStr='Cancel';
callbackStr='close(gcf)';
infoHndl=uicontrol( ...
'Style','push', ...
'Position',[left bottom btnWid btnHt], ...
'BackgroundColor',btnColor, ...
'String',labelStr, ...
'Callback',callbackStr);
%------------------------------------
% The OKAY button
labelStr='OK';
callbackStr='mfdlg #okay';
closeHndl=uicontrol( ...
'Style','push', ...
'Position',[right-btnWid bottom btnWid btnHt], ...
'BackgroundColor',btnColor, ...
'String',labelStr, ...
'UserData',oldFigNumber, ...
'Callback',callbackStr);
% Normalize all coordinates
hndlList=findobj(figNumber,'Units','pixels');
set(hndlList,'Units','normalized');
% Uncover the figure
set(figNumber, ...
'Visible','on');
elseif strcmp(action,'#okay'),
figNumber=gcf;
oldFigNumber=get(gco,'UserData');
mfTypeHndl=findobj(figNumber,'Tag','mftype');
mfNumHndl=findobj(figNumber,'Tag','mfnumber');
mfTypeList=get(mfTypeHndl,'String');
mfTypeVal=get(mfTypeHndl,'Value');
varType=get(mfTypeHndl,'UserData');
mfType=deblank(mfTypeList(mfTypeVal,:));
mfType=fliplr(deblank(fliplr(mfType)));
mfNum=get(mfNumHndl,'Value');
varIndex=get(mfNumHndl,'UserData');
fis=get(figNumber,'UserData');
fisType=fis.type;
varRange=eval(['fis.' varType '(' num2str(varIndex) ').range']);
if strcmp(fisType,'sugeno') & strcmp(varType,'output'),
% Handle sugeno case
if mfNum==1,
mfParams=mean(varRange);
mfName='mf1';
if strcmp(mfType, 'constant')
fis=addmf(fis,varType,varIndex,mfName,'constant',mfParams);
elseif strcmp(mfType,'linear'),
in_n=length(fis.input);
mfParams1(1:in_n)=0;
mfParams1(in_n+1)=mfParams;
fis=addmf(fis,varType,varIndex,mfName,'linear',mfParams1);
end
else
halfWidth=diff(varRange)/(mfNum-1);
for count=1:mfNum,
a=(count-1)*halfWidth+varRange(1);
mfParams=a;
mfName=['mf' num2str(count)];
if strcmp(mfType, 'constant')
fis=addmf(fis,varType,varIndex,mfName,'constant',mfParams);
elseif strcmp(mfType,'linear'),
in_n=length(fis.input);
mfParams1(1:in_n)=0;
mfParams1(in_n+1)=mfParams;
fis=addmf(fis,varType,varIndex,mfName,'linear',mfParams1);
end
end
end
else
% This is an input or a mamdani output
if mfNum==1,
tol=1e-3*(varRange(2)-varRange(1));
mfParams=mf2mf([varRange(1) mean(varRange) varRange(2)],'trimf',mfType,tol);
mfName='mf1';
fis=addmf(fis,varType,varIndex,mfName,mfType,mfParams);
else
halfWidth=diff(varRange)/(mfNum-1);
for count=1:mfNum,
b=(count-1)*halfWidth+varRange(1);
a=b-halfWidth;
c=b+halfWidth;
tol=1e-3*(varRange(2)-varRange(1));
mfParams=mf2mf([a b c],'trimf',mfType,tol);
mfName=['mf' num2str(count)];
fis=addmf(fis,varType,varIndex,mfName,mfType,mfParams);
end
end
end
close(figNumber);
figure(oldFigNumber);
% Push the change onto the undo stack and update all related GUI tools
pushundo(oldFigNumber,fis);
updtfis(oldFigNumber,fis,[]);
mfedit('#update',varType,varIndex)
end