calculatestatusequation.m

大量遗传算法实现程序

end
T_SimulationData.Position(1).x8=x8;
setappdata( handles.CalculateStatusEquation, 'T_SimulationData', T_SimulationData ) ;
% --------------------------------------------------------------------------
function  edit9_Callback( h )
       
handles = guidata( h ) ;
% get the T_SimulationData .
T_SimulationData = getappdata( handles.CalculateStatusEquation, 'T_SimulationData' ) ;
x9 = str2double(get(handles.edit9, 'String'));
if isnan(x9)
    set(handles.edit9, 'String', 0);
    errordlg('Input must be a number','Error');
end
T_SimulationData.Position(1).x9=x9;
setappdata( handles.CalculateStatusEquation, 'T_SimulationData', T_SimulationData ) ;
% --------------------------------------------------------------------------
function  edit10_Callback( h )
       
handles = guidata( h ) ;
% get the T_SimulationData .
T_SimulationData = getappdata( handles.CalculateStatusEquation, 'T_SimulationData' ) ;
x10 = str2double(get(handles.edit10, 'String'));
if isnan(x10)
    set(handles.edit10, 'String', 0);
    errordlg('Input must be a number','Error');
end
T_SimulationData.Position(1).x10=x10;
setappdata( handles.CalculateStatusEquation, 'T_SimulationData', T_SimulationData ) ;

% --------------------------------------------------------------------------
function  edit11_Callback( h )
       
handles = guidata( h ) ;
% get the T_SimulationData .
T_SimulationData = getappdata( handles.CalculateStatusEquation, 'T_SimulationData' ) ;
x11 = str2double(get(handles.edit11, 'String'));
if isnan(x11)
    set(handles.edit11, 'String', 0);
    errordlg('Input must be a number','Error');
end
T_SimulationData.Position(1).x11=x11;
setappdata( handles.CalculateStatusEquation, 'T_SimulationData', T_SimulationData ) ;

% --------------------------------------------------------------------------
function  edit12_Callback( h )
       
handles = guidata( h ) ;
% get the T_SimulationData .
T_SimulationData = getappdata( handles.CalculateStatusEquation, 'T_SimulationData' ) ;
x12 = str2double(get(handles.edit12, 'String'));
if isnan(x12)
    set(handles.edit12, 'String', 0);
    errordlg('Input must be a number','Error');
end
T_SimulationData.Position(1).x12=x12;
setappdata( handles.CalculateStatusEquation, 'T_SimulationData', T_SimulationData ) ;
% --------------------------------------------------------------------------
function  edit13_Callback( h )
       
handles = guidata( h ) ;
% get the T_SimulationData .
T_SimulationData = getappdata( handles.CalculateStatusEquation, 'T_SimulationData' ) ;
Jiaodu = str2double(get(handles.edit13, 'String'));
if isnan(Jiaodu)
    set(handles.edit13, 'String', 0);
    errordlg('Input must be a number','Error');
end
T_SimulationData.Jiaodu=Jiaodu;
setappdata( handles.CalculateStatusEquation, 'T_SimulationData', T_SimulationData ) ;
% --------------------------------------------------------------------------
function  edit14_Callback( h )
       
handles = guidata( h ) ;
% get the T_SimulationData .
T_SimulationData = getappdata( handles.CalculateStatusEquation, 'T_SimulationData' ) ;
Sudu = str2double(get(handles.edit14, 'String'));
if isnan(Sudu)
    set(handles.edit14, 'String', 0);
    errordlg('Input must be a number','Error');
end
T_SimulationData.Sudu=Sudu;
setappdata( handles.CalculateStatusEquation, 'T_SimulationData', T_SimulationData ) ;
% --------------------------------------------------------------------------
function  edit15_Callback( h )
       
handles = guidata( h ) ;
% get the T_SimulationData .
T_SimulationData = getappdata( handles.CalculateStatusEquation, 'T_SimulationData' ) ;
Zhongliang = str2double(get(handles.edit15, 'String'));
if isnan(Zhongliang)
    set(handles.edit15, 'String', 0);
    errordlg('Input must be a number','Error');
end
T_SimulationData.Zhongliang=Zhongliang;
setappdata( handles.CalculateStatusEquation, 'T_SimulationData', T_SimulationData ) ;
% --------------------------------------------------------------------------
function  edit16_Callback( h )
       
handles = guidata( h ) ;
% get the T_SimulationData .
T_SimulationData = getappdata( handles.CalculateStatusEquation, 'T_SimulationData' ) ;
Zhijing = str2double(get(handles.edit16, 'String'));
if isnan(Zhijing)
    set(handles.edit16, 'String', 0);
    errordlg('Input must be a number','Error');
end
T_SimulationData.Zhijing=Zhijing;
setappdata( handles.CalculateStatusEquation, 'T_SimulationData', T_SimulationData ) ;
% --------------------------------------------------------------------------
function  edit17_Callback( h )
       
handles = guidata( h ) ;
% get the T_SimulationData .
T_SimulationData = getappdata( handles.CalculateStatusEquation, 'T_SimulationData' ) ;
Julidizuo = str2double(get(handles.edit17, 'String'));
if isnan(Julidizuo)
    set(handles.edit17, 'String', 0);
    errordlg('Input must be a number','Error');
end
T_SimulationData.Julidizuo = Julidizuo;
setappdata( handles.CalculateStatusEquation, 'T_SimulationData', T_SimulationData ) ;
% --------------------------------------------------------------------------
function  DisplayEquation_Callback( h )
       
handles = guidata( h ) ;


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

DisplayEquationABMatrix( T_SimulationData ) ;
% --------------------------------------------------------------------------
% --------------------------------------------------------------------------
function  SaveResult_Callback( h )
       
handles = guidata( h ) ;


PromptString = '保存结果文件.' ;
MessageString = '保存结果文件成功。 ' ;

[ FileName , PathName ] = uiputfile( {'*.fig','结果文件(*.fig)'}, PromptString ) ;


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

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


if strcmp( lower( FileName ), 'figuremenubar' )
    warndlg( '不能覆盖系统文件：FigureMenuBar.fig。', '警告', 'modal' ) ;
    return ;    
    
elseif strcmp( lower( FileName ), 'figuretoolbar' ) ;
    warndlg( '不能覆盖系统文件：FigureToolBar.fig。', '警告', 'modal' ) ;
    return ;    
else
end


% save the result  file .
hgsave( handles.ax_plot, SaveFile ) ;


msgbox( MessageString ) ;
%-------------------------------------------------------------

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.CalculateStatusEquation, '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.CalculateStatusEquation, '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.CalculateStatusEquation, 'T_SimulationData' ) ;

% return the wizard figure .
T_youhua( T_SimulationData ) ;


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


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

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

% open the next figure .

if isempty( T_SimulationData )
    T_SimulationData = T_youhua( 'Get_DefaultT_SimulationData' ) ;    
    % save the data .
    setappdata( handles.CalculateStatusEquation, 'T_SimulationData', T_SimulationData ) ;
end


Youhua( T_SimulationData ) ;

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