yichuan.m

大量遗传算法实现程序

    'position',TextPosition,'Horizontal','left',...
    'string', '本软件的目标函数是非线性，不连续的函数。因此，该优化软件采用matlab的ga工具箱。遗传算法使用目标函数（适应度）这一信息进行搜索，而不需要导数等其他信息。遗传算法不能求得极小点,只能求得较小点。因此,遗传算法结束后,将自动对所求得点进行pattern search,得到最优点.', 'fontsize',13 );

FrameXPos = TabSpace * 2 +30;
FrameWidth = (FigureWidth - TabSpace * 6) * 0.5+200 ;
FrameHeight = 180 ;
FrameYPos = TitlePosition(2) - FrameHeight - TabSpace * 2-210 ;
Frame1Position = [FrameXPos  FrameYPos  FrameWidth  FrameHeight] ;
% generate a frame .
TitleHandle = uicontrol(FigureHandle,'style','frame', 'Units','pixels',...
    'position',Frame1Position  );


TextXPos = Frame1Position(1) + 15 ;
TextYPos = Frame1Position(2) + Frame1Position(4) - 12 ;
TextWidth = 80 ;
TextPosition = [TextXPos  TextYPos  TextWidth  TextHeight] ;

SubtitleHandle = uicontrol(FigureHandle, 'Style','text', 'Units','pixels',...
    'position',TextPosition,'Horizontal','center',...
    'string', '参数输入', 'fontsize',13 );

TextXPos = Frame1Position(1) + 15 +20;
TextYPos = Frame1Position(2) + Frame1Position(4) -  150;
TextWidth = 450 ;
TextPosition = [TextXPos  TextYPos  TextWidth  120] ;

SubtitleHandle = uicontrol(FigureHandle, 'Style','text', 'Units','pixels',...
    'position',TextPosition,'Horizontal','left',...
    'string', '遗传算法是一种基于生物自然选择遗传机理的随机搜索方法,该软件只对种群进行调整,其他均按matlab7.0的ga工具箱的默认参数', 'fontsize',13 );
Text1 = uicontrol(FigureHandle,'style','text', 'Units','pixels',...
    'position',[80 90 80 30] ,'Horizontal','center',...
'string', '种群大小', 'fontsize',13 );
edit1 = uicontrol(FigureHandle, 'Style', 'edit', 'Units','pixels',...
        'position', [230 90 80 25], 'Horizontal','center', 'BackgroundColor', [1 1 1], ...
        'Tag','edit1' , ...
        'String', 0, 'FontSize',13, ...
        'Callback', ['yichuan(''edit1_Callback'',gcbo)'] ) ;


% define the parameters of the buttons .
ButtonString = { '上一步'; '导入'; '保存'; '优化' } ; 
ButtonTag = { 'PreviousButton'; 'LoadButton'; 'SaveButton'; 'NextButton' } ;
ButtonCallback = { ['yichuan(''PreviousButton_Callback'',gcbo)']; ...
        ['yichuan(''LoadData_Callback'',gcbo)']; ...
        ['yichuan(''SaveData_Callback'',gcbo)']; ...
        ['yichuan(''NextButton_Callback'',gcbo)'] } ;

ButtonWidth = 80 ;
ButtonHeight = 25 ;
ButtonXPos = FigureWidth - ButtonWidth * 4 - TabSpace * 6 ;
ButtonYPos = TabSpace * 2 ;;
ButtonPosition = [ButtonXPos  ButtonYPos  ButtonWidth  ButtonHeight] ;
for num = 1: 4
    TempButtonPosition = ButtonPosition ;
    TempButtonPosition(1) = TempButtonPosition(1) + (num - 1) * (ButtonWidth + TabSpace) ;
    % generate the pushbutton: OK .
    ButtonHandle = uicontrol( 'Parent', FigureHandle, 'Units', 'Pixels', 'Position', TempButtonPosition, ...
        'Style', 'pushbutton', 'Tag',ButtonTag{num}, 'string', ButtonString{num}, 'Fontsize',12, ...
        'Callback', ButtonCallback{num} ) ;
    
end


handles = guihandles( FigureHandle ) ;
guidata( FigureHandle, handles ) ;




% --------------------------------------------------------------------------
function  init_FigureContent( h )
       
handles = guidata( h ) ;
% get the T_SimulationData .

T_SimulationData = getappdata( handles.yichuan, 'T_SimulationData' ) ;
if isempty( T_SimulationData )
    T_SimulationData = T_youhua( 'Get_DefaultT_SimulationData' ) ;    
    % save the data .
    setappdata( handles.yichuan, 'T_SimulationData', T_SimulationData ) ;
end
set(handles.edit1,'string',T_SimulationData.size);




%-------------------------------------------------------------
% --------------------------------------------------------------------------
function  edit1_Callback( h )
       
handles = guidata( h ) ;
% get the T_SimulationData .
T_SimulationData = getappdata( handles.yichuan, 'T_SimulationData' ) ;
size = str2double(get(handles.edit1, 'String'));
if isnan(size)
    set(handles.edit1, 'String', 0);
    errordlg('Input must be a number','Error');
end
T_SimulationData.size=size;
setappdata( handles.yichuan, 'T_SimulationData', T_SimulationData ) ;
%---------------------------------------------------------------

function  LoadData_Callback( h )
       
handles = guidata( h ) ;


PromptString = '选择数据文件.' ;
WarningString1 = '文件格式出错。 ' ;
WarningString2 = '选择的文件不是正确的数据文件。 ' ;


[ FileName , PathName ] = uigetfile( {'*.mat','数据文件(*.mat)'}, PromptString ) ;


if FileName == 0
    return ;    
else
    
    [TempPathName, FileName, FileTypeName, Version] = fileparts( FileName ) ;

    if ~strcmp( FileTypeName, '.mat' ) ;
        warndlg( WarningString1, '警告', 'modal' ) ;
        return ;
    end
    SaveFile = fullfile( PathName, [FileName, FileTypeName, Version] ) ;
end

T_SimulationData = [] ;
try
    load( SaveFile, 'T_SimulationData' ) ;
catch
end

if isempty( T_SimulationData ) | ~isstruct( T_SimulationData );
 
    
    warndlg( WarningString1, '警告', 'modal' ) ;
    return ;
end


% save the data .
setappdata( handles.yichuan, 'T_SimulationData', T_SimulationData ) ;

% display the new data .
init_FigureContent( h ) ;




% --------------------------------------------------------------------------
function  SaveData_Callback( h )
       
handles = guidata( h ) ;

% get the T_SimulationData .
T_SimulationData = getappdata( handles.yichuan, 'T_SimulationData' ) ;


PromptString = '保存数据文件.' ;
MessageString = '保存数据文件成功。 ' ;

[ FileName , PathName ] = uiputfile( {'*.mat','数据文件(*.mat)'}, PromptString ) ;


if FileName == 0
    return ;    
else
    
    [TempPathName, FileName, FileTypeName, Version] = fileparts( FileName ) ;

    if ~strcmp( FileTypeName, '.mat' ) ;
        FileTypeName = '.mat' ;
    else
    end
    SaveFile = fullfile( PathName, [FileName, FileTypeName, Version] ) ;
end

% save the result  file .
save( SaveFile, 'T_SimulationData' ) ;


msgbox( MessageString ) ;




% --------------------------------------------------------------------------
function  PreviousButton_Callback( h )
       
handles = guidata( h ) ;

% get the T_SimulationData .
T_SimulationData = getappdata( handles.yichuan, 'T_SimulationData' ) ;

% return the wizard figure .
Youhua( T_SimulationData ) ;


% close the current figure .
pause(0) ;
close( handles.yichuan ) ;


% --------------------------------------------------------------------------
function  NextButton_Callback( h )
       
handles = guidata( h ) ;
% 将鼠标设为等待。

set( handles.yichuan, 'Pointer', 'watch' ) ;

% get the T_SimulationData .
T_SimulationData = getappdata( handles.yichuan, 'T_SimulationData' ) ;

% open the next figure .

if isempty( T_SimulationData )
    T_SimulationData = T_youhua( 'Get_DefaultT_SimulationData' ) ;    
    % save the data .
    setappdata( handles.yichuan, 'T_SimulationData', T_SimulationData ) ;
end
% ================================================
%  在这里加上的优化模块，并且输出结果。
 T_SimulationData = myyouhua( T_SimulationData ) ;
 
% ================================================
% ================================================
%  在这里加上的计算模块，并且输出结果。
 T_SimulationData = jisuan( T_SimulationData ) ;
 
% ================================================
xianshi( T_SimulationData ) ;

% close the current figure .
pause(0) ;
close( handles.yichuan ) ;