editsets.m

为了下载东西

               'end; set(hlstLinTyp,''Value'',2); plotsets(CurrentUniverse,CurrentSet);',...
               'clear htxtBrkPt hlstLinTyp; '];


cmdUniv     = ['global Universe CurrentUniverse CurrentBrkPt CurrentSet PosSets VelSets OutSets;', ...
               'hlstUniv = findobj(''Tag'',''lstSetsUniv''); ',...
               'hlstSets = findobj(''Tag'',''lstSetsSets''); ',...
               'hlstBrkPts = findobj(''Tag'',''lstSetsBrkPts''); ',...
               'htxtBrkPt = findobj(''Tag'',''txtSetsBrkPt''); ',...
               'hlstLinTyp = findobj(''Tag'',''lstSetsLinTyp''); ',...
               'if Universe==1, ', ...
               '   PosSets = CurrentUniverse; ', ...
               'elseif Universe==2, ', ...
               '   VelSets = CurrentUniverse; ', ...
               'elseif Universe==3, ', ...
               '   OutSets = CurrentUniverse; ', ...
               'end; ', ...
               'Universe = get(hlstUniv,''Value'');', ...
               'if Universe==1, ', ...
               '   set(hlstSets,''String'','' ISL | ISM | ISR ''); ', ...
               '   CurrentUniverse=PosSets; ', ...
               '   CurrentSet = 1;', ...
               '   set(hlstLinTyp,''Enable'',''on'',''Value'',PosSets(1,5)+1); ', ...
               '   set(hlstBrkPts,''Enable'',''on''); ', ...
               '   set(htxtBrkPt,''String'',num2str(CurrentUniverse(CurrentSet,CurrentBrkPt))); ', ...
               'elseif Universe==2, ', ...
               '   set(hlstSets,''String'','' MVL | SST | MVR ''); ', ...
               '   CurrentUniverse=VelSets; ', ...
               '   CurrentSet = 1;', ...
               '   set(hlstLinTyp,''Enable'',''on'',''Value'',VelSets(1,5)+1); ', ...
               '   set(hlstBrkPts,''Enable'',''on''); ', ...
               '   set(htxtBrkPt,''String'',num2str(CurrentUniverse(CurrentSet,CurrentBrkPt))); ', ...
               'elseif Universe==3, ', ...
               '   set(hlstSets,''String'','' PHL | PSL | OOO | PSR | PHR ''); ', ...
               '   CurrentUniverse=OutSets; ', ...
               '   CurrentSet = 1;', ...
               '   set(hlstLinTyp,''Enable'',''off'',''Value'',2); ', ...
               '   set(hlstBrkPts,''Enable'',''off''); ', ...
               '   set(htxtBrkPt,''String'',num2str(CurrentUniverse(CurrentSet))); ', ...
               'end; plotsets(CurrentUniverse,get(hlstSets,''Value''));',...
               'clear hlstUniv hlstSets hlstBrkPts htxtBrkPt hlstLinTyp; '];


cmdSets     = ['global Universe CurrentUniverse CurrentSet CurrentBrkPt;', ...
               'hlstSets = findobj(''Tag'',''lstSetsSets''); ',...
               'hlstBrkPts = findobj(''Tag'',''lstSetsBrkPts''); ',...
               'htxtBrkPt = findobj(''Tag'',''txtSetsBrkPt''); ',...
               'hlstLinTyp = findobj(''Tag'',''lstSetsLinTyp''); ',...
               'CurrentSet = get(hlstSets,''Value'');', ...
               'CurrentBrkPt = 1;', ...
               'set(hlstBrkPts,''Value'',CurrentBrkPt); ', ...
               'if Universe~=3,', ...
               '   set(hlstLinTyp,''Value'',CurrentUniverse(CurrentSet,5)+1); ', ...
               '   set(htxtBrkPt,''String'',num2str(CurrentUniverse(CurrentSet,CurrentBrkPt))); ', ...
               'else ' ,...
               '   set(htxtBrkPt,''String'',num2str(CurrentUniverse(CurrentSet))); ', ...
               'end; plotsets(CurrentUniverse,CurrentSet);',...
               'clear hlstSets hlstBrkPts htxtBrkPt hlstLinTyp; '];


cmdBrkPts   = ['global CurrentUniverse CurrentSet CurrentBrkPt; ', ...
               'hlstBrkPts = findobj(''Tag'',''lstSetsBrkPts''); ',...
               'htxtBrkPt = findobj(''Tag'',''txtSetsBrkPt''); ',...
               'CurrentBrkPt = get(hlstBrkPts,''Value''); ', ...
               'set(htxtBrkPt,''String'',num2str(CurrentUniverse(CurrentSet,CurrentBrkPt)));',...
               'clear hlstBrkPts htxtBrkPt; '];


cmdBrkPt    = ['global CurrentUniverse CurrentSet CurrentBrkPt Universe; ', ...
               'htxtBrkPt = findobj(''Tag'',''txtSetsBrkPt''); ',...
               'Xbreak = str2num(get(htxtBrkPt,''String'')); ', ...
               'if ~isempty(Xbreak), ', ...
               '   if Universe~=3, ', ...
               '      CurrentUniverse(CurrentSet,CurrentBrkPt) = Xbreak; ', ...
               '      CurrentUniverse(CurrentSet,1) = min(CurrentUniverse(CurrentSet,1),CurrentUniverse(CurrentSet,2));',...
               '      CurrentUniverse(CurrentSet,4) = max(CurrentUniverse(CurrentSet,3),CurrentUniverse(CurrentSet,4));',...               
               '      set(htxtBrkPt,''String'',CurrentUniverse(CurrentSet,CurrentBrkPt)); ', ...               
               '   else ', ...
               '      CurrentUniverse(CurrentSet) = Xbreak; ', ...
               '      set(htxtBrkPt,''String'',num2str(Xbreak)); ',...
               '   end; ', ...
               '   plotsets(CurrentUniverse,CurrentSet);', ...
               'else ', ...
               '   if Universe~=3, ', ...
               '      set(htxtBrkPt,''String'',CurrentUniverse(CurrentSet,CurrentBrkPt)); ', ...
               '   else ', ...
               '      set(htxtBrkPt,''String'',CurrentUniverse(CurrentSet)); ', ...
               '   end; ', ...
               'end;  clear htxtBrkPt Xbreak;'];


cmdLinTyp   = ['global CurrentUniverse CurrentSet Universe;', ...
               'hlstLinTyp = findobj(''Tag'',''lstSetsLinTyp''); ',...
               'if Universe~=3, ',...
               '   CurrentUniverse(CurrentSet,5) = get(hlstLinTyp,''Value'')-1; ', ...
               'end; plotsets(CurrentUniverse,CurrentSet); clear hlstLinTyp'];


%##############################################################################
%
%  INITIALIZE AND GET A HANDLE TO THE WINDOW, COMMAND BUTTONS, LIST BOXES AND EDITBOXES.
%
h = figure('Visible','off','NumberTitle','off','MenuBar','none', ...
           'Name','Edit Membership Functions','Position',posWindow, ...
           'Resize','off','Color',[.75 .75 .75], 'Tag','wndSetsMain');
axes('Position',[0.07 0.25 0.68 0.65],'FontSize',10);
uicontrol('Style','pushbutton','Units','pixels','Enable','on', ...
    'Position',posOK,'String','OK','Callback',cmdOK,'Tag','btnSetsOK' );
uicontrol('Style','pushbutton','Units','pixels','Enable','on', ...
    'Position',posCancel,'String','Cancel','Callback',cmdCancel,'Tag','btnSetsCancel' );
uicontrol('Style','pushbutton','Units','pixels','Enable','on', ...
    'Position',posDefault,'String','Default Sets','Callback',cmdDefault,'Tag','btnSetsDefault' );
uicontrol('Style','pushbutton','Units','pixels','Enable','on', ...
    'Position',posMouse,'String','Mouse Input','Callback',cmdMouse,'Tag','btnSetsMouse');
uicontrol('Style','pushbutton','Units','pixels','Enable','on', ...
    'Position',posMirror,'String','Mirror LR','Callback',cmdMirror,'Tag','btnSetsMirror' );

uicontrol('Style','popup','BackgroundColor','w','Position',posUniv,...
          'String',strUniv,'Callback',cmdUniv,'Tag','lstSetsUniv' );
uicontrol('Style','popup','BackgroundColor','w','Position',posSets,...
          'String',strSets,'Callback',cmdSets,'Tag','lstSetsSets' );
uicontrol('Style','popup','BackgroundColor','w','Position',posBrkPts,...
          'String',strBrkPts,'Callback',cmdBrkPts,'Tag','lstSetsBrkPts');
uicontrol('Style','edit','BackgroundColor','White', ...
          'String',num2str(CurrentUniverse(CurrentSet,CurrentBrkPt)),...
          'Position',posBrkPt,'Callback',cmdBrkPt,'Tag','txtSetsBrkPt');
uicontrol('Style','popup','BackgroundColor','w','Position',posLinTyp,...
          'String',strLinTyp,'Callback',cmdLinTyp,'Tag','lstSetsLinTyp',...
          'Value',CurrentUniverse(CurrentSet,size(CurrentUniverse,2))+1 );


%##############################################################################
%
%  DISPLAY WINDOW AND PLOT CURRENTLY SELECTED FUZZY SETS
%
set(h,'Visible','on');
plotsets(CurrentUniverse,CurrentSet);