mfinput.m

MATLAB语言实现的模糊控制

frmPos=[0.37 0.48 0.18 0.5];
f_5=uicontrol('style','frame','position',frmPos,'background',[0.3 0.3 0.3],'foreground','Yellow');



x = (-7:1:7)';
nb = trimf(x, [-8 -7 -4]);
nm = trimf(x, [-6 -4 -2]);
ns = trimf(x, [-4 -2 0]);
zo = trimf(x, [-2 0 2]);
ps = trimf(x, [0 2 4]);
pm = trimf(x, [2 4 6]);
pb = trimf(x, [4 7 8]);
inmf=[nb nm ns zo ps pm pb];
outmf=[nb nm ns zo ps pm pb];
inmftri=[-8 -7 -4;-6 -4 -2;-4 -2 0;-2 0 2;0 2 4;2 4 6;4 7 8];
outmftri=[-8 -7 -4;-6 -4 -2;-4 -2 0;-2 0 2;0 2 4;2 4 6;4 7 8];
r_in=uicontrol(gcf,'style','radio','position',[0.41,0.92,0.1,0.05],'string','△e,e隶属函数');%r_in
set(r_in,'value',get(r_in,'Max'));
temstr='inmf';
set(r_in,'callback',[...
         'set(r_in,''value'',get(r_in,''Max''));',...
         'set(r_out,''value'',get(r_out,''Min''));',...
         'nb=inmf(:,1);',...
         'nm=inmf(:,2);',...
         'ns=inmf(:,3);',...
         'zo=inmf(:,4);',...
         'ps=inmf(:,5);',...
         'pm=inmf(:,6);',...
         'pb=inmf(:,7);',...
         'temstr=''inmf'';',...
         'plot(x, [nb nm ns zo ps pm pb]);',...
        'set(gca,''XColor'',''white'',''YColor'',''white'');',...
     ]);
r_out=uicontrol(gcf,'style','radio','position',[0.41,0.86,0.1,0.05],'string','u隶属函数');%r_out
set(r_out,'callback',[...
         'set(r_in,''value'',get(r_in,''Min''));',...
         'set(r_out,''value'',get(r_out,''Max''));',...
         'nb=outmf(:,1);',...
         'nm=outmf(:,2);',...
         'ns=outmf(:,3);',...
         'zo=outmf(:,4);',...
         'ps=outmf(:,5);',...
         'pm=outmf(:,6);',...
         'pb=outmf(:,7);',...
         'temstr=''outmf'';',...
         'plot(x, [nb nm ns zo ps pm pb]);',...
        'set(gca,''XColor'',''white'',''YColor'',''white'');',...
     ]);

subplot(222), plot(x, [nb nm ns zo ps pm pb]);
set(gca,'XColor','white','YColor','white');

labelBottom=0.8;
labelLeft = 0.385;
labelPos = [labelLeft labelBottom 0.04 0.03];
textPos = [labelLeft+0.05 labelBottom 0.1 0.03];
t_nb = uicontrol('Style','text','Position',labelPos,'string','nb','BackgroundColor',[0.3 0.3 0.3],'ForegroundColor','white');%t_nb
e_nb= uicontrol( 'Style','edit','Position',textPos,'string','[-8 -7 -4]');%e_nb
set(e_nb,'callback',['nb=trimf(x,str2num(get(e_nb,''string'')));',...
        'plot(x, [nb nm ns zo ps pm pb]);',...
        'eval(strrep(''mf(:,1)=nb;'',''mf'',temstr));',...
        'eval(strrep(''mftri(:,1)=str2num(get(e_nb,''string''));'',''mf'',temstr));',...
        'set(gca,''XColor'',''white'',''YColor'',''white'');']);

labelBottom=0.75;
labelPos = [labelLeft labelBottom 0.04 0.03];
textPos = [labelLeft+0.05 labelBottom 0.1 0.03];
t_nm = uicontrol('Style','text','Position',labelPos,'string','nm','BackgroundColor',[0.3 0.3 0.3],'ForegroundColor','white');%t_nm
e_nm= uicontrol( 'Style','edit','Position',textPos,'String','[-6 -4 -2]');%e_nm
set(e_nm,'callback',['nm=trimf(x,str2num(get(e_nm,''string'')));',...
        'plot(x, [nb nm ns zo ps pm pb]);',...
        'eval(strrep(''mf(:,2)=nm;'',''mf'',temstr));',...
        'eval(strrep(''mftri(:,2)=str2num(get(e_nm,''string''));'',''mf'',temstr));',...
        'set(gca,''XColor'',''white'',''YColor'',''white'');']);

labelBottom=0.7;
labelPos = [labelLeft labelBottom 0.04 0.03];
textPos = [labelLeft+0.05 labelBottom 0.1 0.03];
t_ns = uicontrol('Style','text','Position',labelPos,'string','ns','BackgroundColor',[0.3 0.3 0.3],'ForegroundColor','white');%t_ns
e_ns= uicontrol( 'Style','edit','Position',textPos,'String','[-4 -2 -0]');
set(e_ns,'callback',['ns=trimf(x,str2num(get(e_ns,''string'')));',...
        'plot(x, [nb nm ns zo ps pm pb]);',...
        'eval(strrep(''mf(:,3)=ns;'',''mf'',temstr));',...
        'eval(strrep(''mftri(:,3)=str2num(get(e_ns,''string''));'',''mf'',temstr));',...
        'set(gca,''XColor'',''white'',''YColor'',''white'');']);

labelBottom=0.65;
labelPos = [labelLeft labelBottom 0.04 0.03];
textPos = [labelLeft+0.05 labelBottom 0.1 0.03];
t_zo = uicontrol('Style','text','Position',labelPos,'string','zo','BackgroundColor',[0.3 0.3 0.3],'ForegroundColor','white');
e_zo= uicontrol( 'Style','edit','Position',textPos,'String','[-2 0 2]');
set(e_zo,'callback',['zo=trimf(x,str2num(get(e_zo,''string'')));',...
        'plot(x, [nb nm ns zo ps pm pb]);',...
        'eval(strrep(''mf(:,4)=zo;'',''mf'',temstr));',...
        'eval(strrep(''mftri(:,4)=str2num(get(e_zo,''string''));'',''mf'',temstr));',...
        'set(gca,''XColor'',''white'',''YColor'',''white'');']);

labelBottom=0.6;
labelPos = [labelLeft labelBottom 0.04 0.03];
textPos = [labelLeft+0.05 labelBottom 0.1 0.03];
t_ps = uicontrol('Style','text','Position',labelPos,'string','ps','BackgroundColor',[0.3 0.3 0.3],'ForegroundColor','white');
e_ps= uicontrol( 'Style','edit','Position',textPos,'String','[0 2 4]');
set(e_ps,'callback',['ps=trimf(x,str2num(get(e_ps,''string'')));',...
        'plot(x, [nb nm ns zo ps pm pb]);',...
        'eval(strrep(''mf(:,5)=ps;'',''mf'',temstr));',...
        'eval(strrep(''mftri(:,5)=str2num(get(e_ps,''string''));'',''mf'',temstr));',...
        'set(gca,''XColor'',''white'',''YColor'',''white'');']);

labelBottom=0.55;
labelPos = [labelLeft labelBottom 0.04 0.03];
textPos = [labelLeft+0.05 labelBottom 0.1 0.03];
t_pm = uicontrol('Style','text','Position',labelPos,'string','pm','BackgroundColor',[0.3 0.3 0.3],'ForegroundColor','white');
e_pm= uicontrol( 'Style','edit','Position',textPos,'String','[2 4 6]');
set(e_pm,'callback',['pm=trimf(x,str2num(get(e_pm,''string'')));',...
        'plot(x, [nb nm ns zo ps pm pb]);',...
        'eval(strrep(''mf(:,6)=pm;'',''mf'',temstr));',...
        'eval(strrep(''mftri(:,6)=str2num(get(e_pm,''string''));'',''mf'',temstr));',...
        'set(gca,''XColor'',''white'',''YColor'',''white'');']);

labelBottom=0.5;
labelPos = [labelLeft labelBottom 0.04 0.03];
textPos = [labelLeft+0.05 labelBottom 0.1 0.03];
t_pb = uicontrol('Style','text','Position',labelPos,'string','pb','BackgroundColor',[0.3 0.3 0.3],'ForegroundColor','white');
e_pb= uicontrol( 'Style','edit','Position',textPos,'String','[4 7 8]');
set(e_pb,'callback',['pb=trimf(x,str2num(get(e_pb,''string'')));',...
        'plot(x, [nb nm ns zo ps pm pb]);',...
        'eval(strrep(''mf(:,7)=pb;'',''mf'',temstr));',...
        'eval(strrep(''mftri(:,7)=str2num(get(e_pb,''string''));'',''mf'',temstr));',...
        'set(gca,''XColor'',''white'',''YColor'',''white'');']);


labelBottom=0.4;
frmPos=[0.37 labelBottom-spacing 0.59 0.07];
f_6=uicontrol('style','frame','position',frmPos,'background',[0.3 0.3 0.3],'foreground','Yellow');
labelPos = [labelLeft labelBottom 0.04 0.03];
textPos = [labelLeft+0.05 labelBottom 0.5 0.03];
t_rule = uicontrol('Style','text','Position',labelPos,'string','rule','BackgroundColor',[0.3 0.3 0.3],'ForegroundColor','white');
e_rule= uicontrol('Style','edit','Position',textPos,'String','[2 0 2 5 3 7 2;6 7 2 6 3 5 4;5 3 1 5 7 5 4;0 5 1 5 6 3 2;2 3 1 6 6 6 3;2 4 6 0 3 1 0;3 0 5 7 5 3 4]');

labelBottom=0.3;
frmPos=[0.37 labelBottom-spacing 0.59 0.07];
f_7=uicontrol('style','frame','position',frmPos,'background',[0.3 0.3 0.3],'foreground','Yellow');
labelPos = [labelLeft labelBottom 0.09 0.03];
textPos = [labelLeft+0.08 labelBottom 0.1 0.03];
t_k1 = uicontrol('Style','text','Position',labelPos,'string','k1取值范围','BackgroundColor',[0.3 0.3 0.3],'ForegroundColor','white');
e_k1= uicontrol('Style','edit','Position',textPos,'String','[0 3]');
labelPos = [labelLeft+0.18 labelBottom 0.09 0.03];
textPos = [labelLeft+0.26 labelBottom 0.1 0.03];
t_k2 = uicontrol('Style','text','Position',labelPos,'string','k2取值范围','BackgroundColor',[0.3 0.3 0.3],'ForegroundColor','white');
e_k2= uicontrol('Style','edit','Position',textPos,'String','[0 3]');
labelPos = [labelLeft+0.36 labelBottom 0.09 0.03];
textPos = [labelLeft+0.44 labelBottom 0.1 0.03];
t_k3 = uicontrol('Style','text','Position',labelPos,'string','k3取值范围','BackgroundColor',[0.3 0.3 0.3],'ForegroundColor','white');
e_k3= uicontrol('Style','edit','Position',textPos,'String','[0 3]');
set(e_k1,'enable','off','string','[2 2]');
set(e_k2,'enable','off','string','[2 2]');
set(e_k3,'enable','off','string','[2 2]');