ga_init.m

遗传算法的matlab程序集（内有很多问题的具体解决程序）

clear all
close all;
data_comb=0;
output_var=[];
main=figure('Number','Off','Name','遗传程序设计','Menubar','None','Resize','off',...
        'Units','Pixels','Position',[0 0 636 455]);
datitle_rb = uicontrol(main,'Style','Push','BackgroundColor',[0 0 1],'ForegroundColor','y',...
        'units','Pixels','Position',[50 390 500 25],'String','遗传程序设计');
datinn_rb = uicontrol(main,...
        'Style','Push',...
        'BackgroundColor',[0 0 1],...
        'ForegroundColor','y',...
        'units','Pixels',...
        'Position',[50 365 500 25],...
        'String','从文件中调出数据:   ',...
        'Callback',[...
        'if get(datinn_rb,''string'')==''从文件中调出数据:   '';',...
        'set(datinn_rb,''string'',''数据正在调用中，稍候'');',...
        '[data data_loaded]=ga_inp;',...
                'if data_loaded == 1;',...
                '[D L]=size(data);',...
                'set(datinn_rb,''string'',''数据调出成功！'');',...
                'set(datinn_rb,''enable'',''off'');',...
                'end;',...      
        'end;']);
% 选择I/O结合 
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;'...
                'close(gcf);',...
                '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组合....'];