ga_init2.m

来自「用MATLAB实现遗传算法中的好多问题」· M 代码 · 共 74 行

main=figure('Number','Off',...
        'Name','遗传算法 GA For MATLAB',...
        'Menubar','None',...
        'Resize','off',...
        'Units','Pixels',...
        'Position',[2 2 636 455]);
datitle_rb = uicontrol(main,...
        'Style','Push',...
        'BackgroundColor',[0 0 1],...
        'ForegroundColor','y',...
        'units','Pixels',...
        'Position',[50 3790 500 25],...
        'String','遗传算法');
datinn_rb = uicontrol(main,...
        'enable','off',...
        'Style','Push',...
        'BackgroundColor',[0 0 1],...
        'ForegroundColor','y',...
        'units','Pixels',...
        'Position',[50 365 500 25],...
        'String','数据调出成功！');
datwho_rb = uicontrol(main,...
        'Style','Push',...
        'BackgroundColor',[0 0 1],...
        'ForegroundColor','y',...
        'units','Pixels',...
        'Position',[50 340 250 25],...
        'String','选择I/O数据组合',...
        'Callback',[...
        'if data_loaded == 1;',...
                'ga_selec;',...
                'data_comb=1;',...
        'else;',...
          'dialog(''style'',''error'',''replace'',''on'',''resize'',''off'',''name'',''Error'',''Textstring'',e2);',...
        'end;']);
datlok_rb = uicontrol(main,...
        'Style','Push',...
        'BackgroundColor',[0 0 1],...
        'ForegroundColor','y',...
        'units','Pixels',...
        'Position',[300 340 250 25],...
        'String','数据图示',...
        'Callback',[...
                'if data_loaded == 1;',...
                'ga_view1;',...
                'gobck;',...
                'else;',...
                'dialog(''style'',''error'',''replace'',''on'',''resize'',''off'',''name'',''Error'',''Textstring'',e1);',...           
                'end;']);
gainit_rb = uicontrol(main,...
        'Style','Push',...
        'BackgroundColor',[0 0 1],...
        'ForegroundColor','y',...
        'units','Pixels',...
        'Position',[50 315 250 25],...
        'String','初始化GA',...
        'Callback',[...
        'if data_loaded == 1 & data_comb == 1 & sum(output_var) > 0;'...
                'ga_ini;',...
        'else;',...
                'dialog(''style'',''error'',''replace'',''on'',''resize'',''off'',''name'',''Error'',''Textstring'',e3);',...   
        'end;']);

closebtn=uicontrol(gcf,'Style','Push',...
        'Position',[300 315 250 25],...
        'String','关闭',...
        'Callback',[...
        'close(gcf);',...
        'clear all;']);

e1=['         您未调入数据....'];    
e2=['         您未调入数据....'];    
e3=['         您未调入数据或者未选择I/O组合....'];