?? ofuzzy.m
字號:
%delete(f_1);
set(f_1,'visible','off');
%set(m_1ctrlt,'visible','off');
set(gcf,'defaultuicontrolunits','normalized');
H=axes('unit','normalized','position',[0,0,1,1],'visible','off');
%全局設置
top=0.98;
bottom=0.1;
left=0.01;
right=0.95;
textHeight = 0.03;
textWidth = 0.12;
labelWidth= 0.13;
radioWidth=0.25;
spacing=0.02;
%ga 參數
labelBottom=top-textHeight-spacing;
labelLeft = left+0.05;
frmPos=[left+0.03 labelBottom-4*textHeight-5*spacing 0.29 5*textHeight+6*spacing];
f_2=uicontrol('style','frame','position',frmPos,'background',[0.3 0.3 0.3],'foreground','Yellow');
labelPos = [labelLeft labelBottom labelWidth textHeight];
t_1 = uicontrol( ...
'Style','text', ...
'Units','normalized', ...
'Position',labelPos, ...
'Horiz','left', ...
'String','變異概率', ...
'Interruptible','off', ...
'BackgroundColor',[0.3 0.3 0.3], ...
'ForegroundColor','white',...
'TooltipString','Sampling Frequency');
%text(0.1,0.95,'變異概率:','fontsize',10);
textPos = [labelLeft+labelWidth labelBottom textWidth textHeight];
e_pmutation= uicontrol( ...
'Style','edit', ...
'Units','normalized', ...
'Position',textPos, ...
'Horiz','center', ...
'Background','white', ...
'Foreground','black', ...
'String','0.015','Userdata',0.015);
labelBottom=top-2*textHeight-2*spacing;
labelPos = [labelLeft labelBottom labelWidth textHeight];
t_2 = uicontrol( ...
'Style','text', ...
'Units','normalized', ...
'Position',labelPos, ...
'Horiz','left', ...
'String','交叉概率', ...
'Interruptible','off', ...
'BackgroundColor',[0.3 0.3 0.3], ...
'ForegroundColor','white');
%text(0.1,0.85,'交叉概率:','fontsize',10);
textPos = [labelLeft+labelWidth labelBottom textWidth textHeight];
e_pcross=uicontrol( ...
'Style','edit', ...
'Units','normalized', ...
'Position',textPos, ...
'Horiz','center', ...
'Background','white', ...
'Foreground','black', ...
'String','0.1','Userdata',0.1);
%uicontrol(gcf,'style','edit','background','white',...
% 'position',[0.25,0.825,0.15,0.05],'string','0.1');
labelBottom=top-3*textHeight-3*spacing;
labelPos = [labelLeft labelBottom labelWidth textHeight];
t_3 = uicontrol( ...
'Style','text', ...
'Units','normalized', ...
'Position',labelPos, ...
'Horiz','left', ...
'String','最大世代數', ...
'Interruptible','off', ...
'BackgroundColor',[0.3 0.3 0.3], ...
'ForegroundColor','white');
%text(0.1,0.75,'最大世代數:','fontsize',10);
textPos = [labelLeft+labelWidth labelBottom textWidth textHeight];
e_maxgen=uicontrol( ...
'Style','edit', ...
'Units','normalized', ...
'Position',textPos, ...
'Horiz','center', ...
'Background','white', ...
'Foreground','black', ...
'String','50','Userdata',50);
%uicontrol(gcf,'style','edit','background','white',...
% 'position',[0.25,0.725,0.15,0.05],'string','50');
labelBottom=top-4*textHeight-4*spacing;
labelPos = [labelLeft labelBottom labelWidth textHeight];
t_4 = uicontrol( ...
'Style','text', ...
'Units','normalized', ...
'Position',labelPos, ...
'Horiz','left', ...
'String','染色體長度', ...
'Interruptible','off', ...
'BackgroundColor',[0.3 0.3 0.3], ...
'ForegroundColor','white');
%text(0.1,0.65,'染色體長度:','fontsize',10);
textPos = [labelLeft+labelWidth labelBottom textWidth textHeight];
e_lchrom=uicontrol( ...
'Style','edit', ...
'Units','normalized', ...
'Position',textPos, ...
'Horiz','center', ...
'Background','white', ...
'Foreground','black', ...
'String','8','Userdata',8);
%uicontrol(gcf,'style','edit','background','white',...
% 'position',[0.25,0.625,0.15,0.05],'string','8');
labelBottom=top-5*textHeight-5*spacing;
labelPos = [labelLeft labelBottom labelWidth textHeight];
t_5 = uicontrol( ...
'Style','text', ...
'Units','normalized', ...
'Position',labelPos, ...
'Horiz','left', ...
'String','種群大小', ...
'Interruptible','off', ...
'BackgroundColor',[0.3 0.3 0.3], ...
'ForegroundColor','white');
%text(0.1,0.55,'種群大小:','fontsize',10);
textPos = [labelLeft+labelWidth labelBottom textWidth textHeight];
e_popsize=uicontrol( ...
'Style','edit', ...
'Units','normalized', ...
'Position',textPos, ...
'Horiz','center', ...
'Background','white', ...
'Foreground','black', ...
'String','20','Userdata',20);
%參數選擇
str_fuzzy='gafrule';
set(e_lchrom,'enable','off'),
labelBottom=top-6*textHeight-8*spacing;
labelPos = [labelLeft labelBottom radioWidth textHeight];
frmPos=[left+0.03 labelBottom-2*textHeight-3*spacing 0.29 3*textHeight+4*spacing];
f_3=uicontrol('style','frame','position',frmPos,'background',[0.3 0.3 0.3],'foreground','Yellow');
r_oprule=uicontrol(gcf,'style','radio','string','模糊規則優化 ','position',labelPos);
set(r_oprule,'value',get(r_oprule,'Max'));
set(r_oprule,'callback',[...
'set(r_oprule,''value'',get(r_oprule,''Max'')),',...
'set(r_opmemb,''value'',get(r_opmemb,''Min'')),',...
'set(r_oprm,''value'',get(r_oprm,''Min'')),',...
'set(e_lchrom,''enable'',''off''),',...
'set(e_k1,''enable'',''off'',''string'',''[2 2]''),',...
'set(e_k2,''enable'',''off'',''string'',''[2 2]''),',...
'set(e_k3,''enable'',''off'',''string'',''[2 2]''),',...
'str_fuzzy=''gafrule'';',...
]);
labelBottom=top-7*textHeight-9*spacing;
labelPos = [labelLeft labelBottom radioWidth textHeight];
r_opmemb=uicontrol(gcf,'style','radio','string','隸屬函數優化','position',labelPos);
set(r_opmemb,'callback',[...
'set(r_oprule,''value'',get(r_oprule,''Min'')),',...
'set(r_opmemb,''value'',get(r_opmemb,''Max'')),',...
'set(r_oprm,''value'',get(r_oprm,''Min'')),',...
'set(e_lchrom,''enable'',''on''),',...
'set(e_k1,''enable'',''off'',''string'',''[2 2]''),',...
'set(e_k2,''enable'',''off'',''string'',''[2 2]''),',...
'set(e_k3,''enable'',''off'',''string'',''[2 2]''),',...
'str_fuzzy=''gafmf'';',...
]);
labelBottom=top-8*textHeight-10*spacing;
labelPos = [labelLeft labelBottom radioWidth textHeight];
r_oprm=uicontrol(gcf,'style','radio','string','模糊規則及隸屬函數同時優化','position',labelPos);
set(r_oprm,'callback',[...
'set(r_oprule,''value'',get(r_oprule,''Min'')),',...
'set(r_opmemb,''value'',get(r_opmemb,''Min'')),',...
'set(r_oprm,''value'',get(r_oprm,''Max'')),',...
'set(e_lchrom,''enable'',''on''),',...
'set(e_k1,''enable'',''on'',''string'',''[0 3]''),',...
'set(e_k2,''enable'',''on'',''string'',''[0 3]''),',...
'set(e_k3,''enable'',''on'',''string'',''[0 3]''),',...
'str_fuzzy=''gaf'';',...
]);
%對象參數
%text(0.6,0.86,'對象級別:','fontsize',10);
labelBottom=top-9*textHeight-13*spacing;
frmPos=[left+0.03 labelBottom-6*textHeight-6*spacing 0.29 7*textHeight+7*spacing];
f_4=uicontrol('style','frame','position',frmPos,'background',[0.3 0.3 0.3],'foreground','Yellow');
labelPos = [labelLeft labelBottom radioWidth textHeight];
r_order1=uicontrol(gcf,'style','radio','string','一階系統 ',...
'position',labelPos);
set(r_order1,'value',get(r_order1,'Max'));
order=1;differ='yout(tt)=-den(2)*y_1+num(2)*u_1;';
set(r_order1,'callback',['order=1;',...
'differ=''yout(tt)=-den(2)*y_1+num(2)*u_1;'';',...
'set(r_order1,''value'',get(r_order1,''Max'')),',...
'set(r_order2,''value'',get(r_order2,''Min'')),',...
'set(r_order3,''value'',get(r_order3,''Min'')),',...
'set(e_gs,''string'',''[0 1],[1 -1]''),',...
]);
labelBottom=top-10*textHeight-14*spacing;
labelPos = [labelLeft labelBottom radioWidth textHeight];
r_order2=uicontrol(gcf,'style','radio','string','二階系統 ',...
'position',labelPos);
set(r_order2,'callback',[...
'differ=''yout(tt)=-den(2)*y_1-den(3)*y_2+num(2)*u_1+num(3)*u_2;'';',...
'order=2;set(r_order2,''value'',get(r_order2,''Max'')),',...
'set(r_order1,''value'',get(r_order1,''Min'')),',...
'set(r_order3,''value'',get(r_order3,''Min'')),',...
'set(e_gs,''string'',''[0 0 400],[1 50 0]''),',...
]);
labelBottom=top-11*textHeight-15*spacing;
labelPos = [labelLeft labelBottom radioWidth textHeight];
r_order3=uicontrol(gcf,'style','radio','string','三階系統 ',...
'position',labelPos);
set(r_order3,'callback',[...
'differ=''yout(tt)=-den(2)*y_1-den(3)*y_2-den(4)*y_3+num(2)*u_1+num(3)*u_2+num(4)*u_3;'';',...
'order=3;set(r_order3,''value'',get(r_order3,''Max'')),',...
'set(r_order1,''value'',get(r_order1,''Min'')),',...
'set(r_order2,''value'',get(r_order2,''Min'')),',...
'set(e_gs,''string'',''[0 5 25 30],[1 6 10 8]''),',...
]);
labelBottom=top-12*textHeight-16*spacing;
labelPos = [labelLeft labelBottom labelWidth textHeight];
t_9 = uicontrol( ...
'Style','text', ...
'Units','normalized', ...
'Position',labelPos, ...
'Horiz','left', ...
'String','對象傳遞函數', ...
'Interruptible','off', ...
'BackgroundColor',[0.3 0.3 0.3], ...
'ForegroundColor','white');
%text(0.6,0.7,'對象傳遞函數:','fontsize',10);
textPos = [labelLeft+labelWidth labelBottom textWidth textHeight];
e_gs=uicontrol( ...
'Style','edit', ...
'Units','normalized', ...
'Position',textPos, ...
'Horiz','center', ...
'Background','white', ...
'Foreground','black', ...
'String','[0 1],[1 -1]');
%e_gs=uicontrol(gcf,'style','edit','background','white',...
% 'position',[0.78,0.675,0.15,0.05],'string','1,[1 -1]');
labelBottom=top-14*textHeight-17*spacing;
labelPos = [labelLeft labelBottom 0.25 2*textHeight];
t_11 = uicontrol(...
'Style','text', ...
'Units','normalized', ...
'Position',labelPos, ...
'Horiz','left', ...
'String',char(' 注:若對象傳遞函數為(a*s^2+b*s+c)/(d*s^2+e*s+f)',' 則輸入[a b c],[d e f]'), ...
'Interruptible','off', ...
'BackgroundColor',[0.3 0.3 0.3], ...
'ForegroundColor','white');
labelBottom=top-15*textHeight-18*spacing;
labelPos = [labelLeft labelBottom labelWidth textHeight];
t_10 = uicontrol( ...
'Style','text', ...
'Units','normalized', ...
'Position',labelPos, ...
'Horiz','left', ...
'String','采樣周期(s)', ...
'Interruptible','off', ...
'BackgroundColor',[0.3 0.3 0.3], ...
'ForegroundColor','white');
%text(0.6,0.6,'采樣周期(s):','fontsize',10);
textPos = [labelLeft+labelWidth labelBottom textWidth textHeight];
e_ts=uicontrol( ...
'Style','edit', ...
'Units','normalized', ...
'Position',textPos, ...
'Horiz','center', ...
'Background','white', ...
'Foreground','black', ...
'String','0.001');
%e_ts=uicontrol(gcf,'style','edit','background','white',...
% 'position',[0.78,0.575,0.15,0.05],'string','0.001');
mfinput
b_1ok=uicontrol(gcf,'style','push','unit','normalized',...
'position',[0.4,0.04,0.1,0.05],'string','確定參數');
set(b_1ok,'callback',[...
'pmutation=str2num(get(e_pmutation,''string''));',...
'pcross=str2num(get(e_pcross,''string''));',...
'maxgen=str2num(get(e_maxgen,''string''));',...
'lchrom=str2num(get(e_lchrom,''string''));',...
'popsize=str2num(get(e_popsize,''string''));',...
'kpr=str2num(get(e_k1,''string''));',...
'mink(1)=kpr(1);',...
'maxk(1)=kpr(2);',...
'kir=str2num(get(e_k2,''string''));',...
'mink(2)=kir(1);',...
'maxk(2)=kir(2);',...
'kdr=str2num(get(e_k3,''string''));',...
'mink(3)=kdr(1);',...
'maxk(3)=kdr(2);',...
'ts=str2num(get(e_ts,''string''));',...
'z=str2num(get(e_gs,''string''));',...
'gs=tf(z(1:order+1),[z(order+2:end)]);',...
'rule=str2num(get(e_rule,''string''));',...
'delete(b_1ok,e_gs,e_ts,r_order1,r_order2,r_order3);',...
'delete(b_1pid,b_2ann,b_3f,f_2,f_3,f_4,f_5,f_6,f_7);',...
'delete(e_pmutation,e_pcross,e_maxgen,e_lchrom,e_popsize);',...
'delete(t_1,t_2,t_3,t_4,t_5,t_9,t_10,t_11);',...
'delete(r_oprule,r_opmemb,r_oprm,gca);',...
'delete(r_in,r_out,t_nb,t_nm,t_ns,t_zo,t_ps,t_pm,t_pb,e_nb,e_nm,e_ns,e_zo,e_ps,e_pm,e_pb,t_rule,e_rule);',...
'delete(t_k1,t_k2,t_k3,e_k1,e_k2,e_k3);',...
'eval(str_fuzzy)',...
]);
b_2back=uicontrol(gcf,'style','push','unit','normalized',...
'position',[0.55,0.04,0.1,0.05],'string','返回');
set(b_2back,'callback','gaop');
set(b_2back,'background','green');
set(b_1ok,'background','green');?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -