settinginput.m

来自「这是一个遗传算法的优化软件」· M 代码 · 共 49 行

if order==1
    strsysiden='ganlsysiden';
elseif order==2
    strsysiden='galsysiden';
    MX=str2num(get(e_gsm1,'string'));
    MinX(1)=MX(1);MaxX(1)=MX(2);
    MX=str2num(get(e_gsm2,'string'));
    MinX(2)=MX(1);MaxX(2)=MX(2);
    MX=str2num(get(e_gsn1,'string'));
    MinX(3)=MX(1);MaxX(3)=MX(2);
    MX=str2num(get(e_gsn2,'string'));
    MinX(4)=MX(1);MaxX(4)=MX(2);
    MX=str2num(get(e_gszh,'string')); 
    MinX(5)=MX(1);MaxX(5)=MX(2);
    pa_num=5;
    clear MX
else
    strsysiden='galsysiden';
    MX=str2num(get(e_gsm1,'string'));
    MinX(1)=MX(1);MaxX(1)=MX(2);
    MX=str2num(get(e_gsm2,'string'));
    MinX(2)=MX(1);MaxX(2)=MX(2);
    MX=str2num(get(e_gsm3,'string'));
    MinX(3)=MX(1);MaxX(3)=MX(2);
    MX=str2num(get(e_gsn1,'string'));
    MinX(4)=MX(1);MaxX(4)=MX(2);
    MX=str2num(get(e_gsn2,'string'));
    MinX(5)=MX(1);MaxX(5)=MX(2);
    MX=str2num(get(e_gsn3,'string'));
    MinX(6)=MX(1);MaxX(6)=MX(2);
    MX=str2num(get(e_gszh,'string'));
    MinX(7)=MX(1);MaxX(7)=MX(2);
    pa_num=7;
    clear MX
end



if rstyle==1
    rin=str2num(get(e_rin,'string'))*ones(1,100);
elseif rstyle==2
    
    rin=str2num(get(e_rin,'string'))*[0:1:100];
else
    fpath=get(e_rin,'string');
    fin=fopen(fpath,'r');
    rin=str2num(char(fread(fin))');
    fclose(fout);
end