calculatestatusequation.m

大量遗传算法实现程序

edit3 = uicontrol(FigureHandle, 'Style', 'edit', 'Units','pixels',...
        'position', [TextXPos(1) TextYPos(3) TextWidth TextHeight], 'Horizontal','center', 'BackgroundColor', [1 1 1], ...
        'Tag','edit3' , ...
        'String', 0, 'FontSize',11, ...
        'Callback', ['CalculateStatusEquation(''edit3_Callback'',gcbo)'] ) ;
edit4 = uicontrol(FigureHandle, 'Style', 'edit', 'Units','pixels',...
        'position', [TextXPos(1) TextYPos(4) TextWidth TextHeight], 'Horizontal','center', 'BackgroundColor', [1 1 1], ...
        'Tag','edit4' , ...
        'String', 0, 'FontSize',11, ...
        'Callback', ['CalculateStatusEquation(''edit4_Callback'',gcbo)'] ) ;
edit5 = uicontrol(FigureHandle, 'Style', 'edit', 'Units','pixels',...
        'position', [TextXPos(1) TextYPos(5) TextWidth TextHeight], 'Horizontal','center', 'BackgroundColor', [1 1 1], ...
        'Tag','edit5' , ...
        'String', 0, 'FontSize',11, ...
        'Callback', ['CalculateStatusEquation(''edit5_Callback'',gcbo)'] ) ;
edit6 = uicontrol(FigureHandle, 'Style', 'edit', 'Units','pixels',...
        'position', [TextXPos(1) TextYPos(6) TextWidth TextHeight], 'Horizontal','center', 'BackgroundColor', [1 1 1], ...
        'Tag','edit6' , ...
        'String', 0, 'FontSize',11, ...
        'Callback', ['CalculateStatusEquation(''edit6_Callback'',gcbo)'] ) ;
edit7 = uicontrol(FigureHandle, 'Style', 'edit', 'Units','pixels',...
        'position', [TextXPos(2) TextYPos(1) TextWidth TextHeight], 'Horizontal','center', 'BackgroundColor', [1 1 1], ...
        'Tag','edit7' , ...
        'String', 0, 'FontSize',11, ...
        'Callback', ['CalculateStatusEquation(''edit7_Callback'',gcbo)'] ) ;
edit8 = uicontrol(FigureHandle, 'Style', 'edit', 'Units','pixels',...
        'position', [TextXPos(2) TextYPos(2) TextWidth TextHeight], 'Horizontal','center', 'BackgroundColor', [1 1 1], ...
        'Tag','edit8' , ...
        'String', 0, 'FontSize',11, ...
        'Callback', ['CalculateStatusEquation(''edit8_Callback'',gcbo)'] ) ;
edit9 = uicontrol(FigureHandle, 'Style', 'edit', 'Units','pixels',...
        'position', [TextXPos(2) TextYPos(3) TextWidth TextHeight], 'Horizontal','center', 'BackgroundColor', [1 1 1], ...
        'Tag','edit9' , ...
        'String', 0, 'FontSize',11, ...
        'Callback', ['CalculateStatusEquation(''edit9_Callback'',gcbo)'] ) ;
edit10 = uicontrol(FigureHandle, 'Style', 'edit', 'Units','pixels',...
        'position', [TextXPos(2) TextYPos(4) TextWidth TextHeight], 'Horizontal','center', 'BackgroundColor', [1 1 1], ...
        'Tag','edit10' , ...
        'String', 0, 'FontSize',11, ...
        'Callback', ['CalculateStatusEquation(''edit10_Callback'',gcbo)'] ) ;
edit11 = uicontrol(FigureHandle, 'Style', 'edit', 'Units','pixels',...
        'position', [TextXPos(2) TextYPos(5) TextWidth TextHeight], 'Horizontal','center', 'BackgroundColor', [1 1 1], ...
        'Tag','edit11' , ...
        'String', 0, 'FontSize',11, ...
        'Callback', ['CalculateStatusEquation(''edit11_Callback'',gcbo)'] ) ;
edit12 = uicontrol(FigureHandle, 'Style', 'edit', 'Units','pixels',...
        'position', [TextXPos(2) TextYPos(6) TextWidth TextHeight], 'Horizontal','center', 'BackgroundColor', [1 1 1], ...
        'Tag','edit12' , ...
        'FontSize',11, ...
        'Callback', ['CalculateStatusEquation(''edit12_Callback'',gcbo)'] ) ;    
edit13 = uicontrol(FigureHandle, 'Style', 'edit', 'Units','pixels',...
        'position', [TextXPos(1)+80 185 80 TextHeight], 'Horizontal','center', 'BackgroundColor', [1 1 1], ...
        'Tag','edit13' , ...
        'String', 0, 'FontSize',11, ...
        'Callback', ['CalculateStatusEquation(''edit13_Callback'',gcbo)'] ) ;   
edit14 = uicontrol(FigureHandle, 'Style', 'edit', 'Units','pixels',...
        'position', [TextXPos(1)+80 155 80 TextHeight], 'Horizontal','center', 'BackgroundColor', [1 1 1], ...
        'Tag','edit14' , ...
        'String', 0, 'FontSize',11, ...
        'Callback', ['CalculateStatusEquation(''edit14_Callback'',gcbo)'] ) ; 
edit15 = uicontrol(FigureHandle, 'Style', 'edit', 'Units','pixels',...
        'position', [TextXPos(1)+80 125 80 TextHeight], 'Horizontal','center', 'BackgroundColor', [1 1 1], ...
        'Tag','edit15' , ...
        'String', 0, 'FontSize',11, ...
        'Callback', ['CalculateStatusEquation(''edit15_Callback'',gcbo)'] ) ; 
edit16 = uicontrol(FigureHandle, 'Style', 'edit', 'Units','pixels',...
        'position', [TextXPos(1)+80 95 80 TextHeight], 'Horizontal','center', 'BackgroundColor', [1 1 1], ...
        'Tag','edit16' , ...
        'String', 0, 'FontSize',11, ...
        'Callback', ['CalculateStatusEquation(''edit16_Callback'',gcbo)'] ) ; 
edit17 = uicontrol(FigureHandle, 'Style', 'edit', 'Units','pixels',...
        'position', [TextXPos(1)+80 65 80 TextHeight], 'Horizontal','center', 'BackgroundColor', [1 1 1], ...
        'Tag','edit17' , ...
        'String', 0, 'FontSize',11, ...
        'Callback', ['CalculateStatusEquation(''edit17_Callback'',gcbo)'] ) ; 
% define the second frame .
FrameXPos = Frame1Position(1) + Frame1Position(3) + TabSpace * 2 ;
FrameWidth = (FigureWidth - TabSpace * 6) * 0.5 ;
FrameHeight = 250 ;
FrameYPos = TitlePosition(2) - FrameHeight - TabSpace * 2 ;
Frame2Position = [FrameXPos  FrameYPos  FrameWidth  FrameHeight] ;

% load the picture data .
TextXPos = Frame2Position(1) + 15 ;
TextYPos = Frame2Position(2) + Frame2Position(4) - 35 ;
TextWidth = 90 ;
TextPosition = [TextXPos  TextYPos  TextWidth  TextHeight] ;
% subtitle: 数学模型
SubtitleHandle = uicontrol(FigureHandle, 'Style','text', 'Units','pixels',...
    'position',TextPosition,'Horizontal','center',...
    'string', '数学模型', 'fontsize',13 );

% define the string of the button .
TextString = { '显示数学模型:';  } ;
ButtonString = { '显示'; } ;
ButtonTag = {  'DisplayEquation';  } ;
ButtonCallback = { ['CalculateStatusEquation(''DisplayEquation_Callback'',gcbo)'] } ;

% get the position of explain text .
TextXPos = Frame2Position(1) + TabSpace * 1.5 ;
TextYPos = Frame2Position(2) + 5-100 ;
TextWidth = 120 ;
TextPosition = [TextXPos  TextYPos  TextWidth  TextHeight] ;
% generate the text .
TextHandle = uicontrol(FigureHandle, 'style', 'text', 'Units','pixels',...
    'position', TextPosition, 'Horizontal','left', 'FontSize', 12,...
    'String', TextString{1} );


% get the position of buttons .
ButtonXPos = TextPosition(1) + TextPosition(3) + TabSpace ;
ButtonYPos = TextPosition(2) + 5 ;
ButtonWidth = 70 ;
ButtonPosition = [ButtonXPos  ButtonYPos  ButtonWidth  TextHeight] ;

% generate the button .
ButtonHandle = uicontrol(FigureHandle, 'style', 'pushbutton', 'Units','pixels',...
    'position', ButtonPosition, 'String', ButtonString{1}, ...
    'Tag', ButtonTag{1}, 'FontSize',11, 'Callback', ButtonCallback{1} );
% load the picture data .
ImageCData = imread( 'Tｔ.bmp', 'BMP' ) ;
for num1 = 1:3
    ImageCData(:,:,num1) = flipud( ImageCData(:,:,num1) ) ;
end

ImageXPos = TabSpace * 2.5 ;
ImageYPos = TabSpace * 2.5 ;
ImageWidth = 350 ;
ImageHeight = 200 ;
ImageXData = ImageXPos + [0  ImageWidth] ;
ImageYData = ImageYPos + [0  ImageHeight] ;
% generate a image to display picture .
MovieImageHandle = image( 'Parent', AxesHandle, ...
    'XData', [380 660], 'YData', [160 400], ...
    'Cdata', ImageCData ) ;
% define the parameters of the buttons .
ButtonString = { '上一步'; '导入'; '保存'; '下一步' } ; 
ButtonTag = { 'PreviousButton'; 'LoadButton'; 'SaveButton'; 'NextButton' } ;
ButtonCallback = { ['CalculateStatusEquation(''PreviousButton_Callback'',gcbo)']; ...
        ['CalculateStatusEquation(''LoadData_Callback'',gcbo)']; ...
        ['CalculateStatusEquation(''SaveData_Callback'',gcbo)']; ...
        ['CalculateStatusEquation(''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.CalculateStatusEquation, 'T_SimulationData' ) ;
if isempty( T_SimulationData )
    T_SimulationData = T_youhua( 'Get_DefaultT_SimulationData' ) ;    
    % save the data .
    setappdata( handles.CalculateStatusEquation, 'T_SimulationData', T_SimulationData ) ;
end
set(handles.edit1,'string',T_SimulationData.Position(1).x1);
set(handles.edit2,'string',T_SimulationData.Position(1).x2);
set(handles.edit3,'string',T_SimulationData.Position(1).x3);
set(handles.edit4,'string',T_SimulationData.Position(1).x4);
set(handles.edit5,'string',T_SimulationData.Position(1).x5);
set(handles.edit6,'string',T_SimulationData.Position(1).x6);
set(handles.edit7,'string',T_SimulationData.Position(1).x7);
set(handles.edit8,'string',T_SimulationData.Position(1).x8);
set(handles.edit9,'string',T_SimulationData.Position(1).x9);
set(handles.edit10,'string',T_SimulationData.Position(1).x10);
set(handles.edit11,'string',T_SimulationData.Position(1).x11);
set(handles.edit12,'string',T_SimulationData.Position(1).x12);
set(handles.edit13,'string',T_SimulationData.Jiaodu);
set(handles.edit14,'string',T_SimulationData.Sudu);
set(handles.edit15,'string',T_SimulationData.Zhongliang);
set(handles.edit16,'string',T_SimulationData.Zhijing);
set(handles.edit17,'string',T_SimulationData.Julidizuo);


% --------------------------------------------------------------------------
function  edit1_Callback( h )
       
handles = guidata( h ) ;
% get the T_SimulationData .
T_SimulationData = getappdata( handles.CalculateStatusEquation, 'T_SimulationData' ) ;
x1 = str2double(get(handles.edit1, 'String'));
if isnan(x1)
    set(handles.edit1, 'String', 0);
    errordlg('Input must be a number','Error');
end
T_SimulationData.Position(1).x1=x1;
setappdata( handles.CalculateStatusEquation, 'T_SimulationData', T_SimulationData ) ;
% --------------------------------------------------------------------------
function  edit2_Callback( h )
       
handles = guidata( h ) ;
% get the T_SimulationData .
T_SimulationData = getappdata( handles.CalculateStatusEquation, 'T_SimulationData' ) ;
x2 = str2double(get(handles.edit2, 'String'));
if isnan(x2)
    set(handles.edit2, 'String', 0);
    errordlg('Input must be a number','Error');
end
T_SimulationData.Position(1).x2=x2;
setappdata( handles.CalculateStatusEquation, 'T_SimulationData', T_SimulationData ) ;


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

function  edit4_Callback( h )
       
handles = guidata( h ) ;
% get the T_SimulationData .
T_SimulationData = getappdata( handles.CalculateStatusEquation, 'T_SimulationData' ) ;
x4 = str2double(get(handles.edit4, 'String'));
if isnan(x4)
    set(handles.edit4, 'String', 0);
    errordlg('Input must be a number','Error');
end
T_SimulationData.Position(1).x4=x4;
setappdata( handles.CalculateStatusEquation, 'T_SimulationData', T_SimulationData ) ;
% --------------------------------------------------------------------------
function  edit5_Callback( h )
       
handles = guidata( h ) ;
% get the T_SimulationData .
T_SimulationData = getappdata( handles.CalculateStatusEquation, 'T_SimulationData' ) ;
x5= str2double(get(handles.edit5, 'String'));
if isnan(x5)
    set(handles.edit5, 'String', 0);
    errordlg('Input must be a number','Error');
end
T_SimulationData.Position(1).x5=x5;
setappdata( handles.CalculateStatusEquation, 'T_SimulationData', T_SimulationData ) ;
% --------------------------------------------------------------------------

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

% --------------------------------------------------------------------------
function  edit7_Callback( h )
       
handles = guidata( h ) ;
% get the T_SimulationData .
T_SimulationData = getappdata( handles.CalculateStatusEquation, 'T_SimulationData' ) ;
x7 = str2double(get(handles.edit7, 'String'));
if isnan(x7)
    set(handles.edit7, 'String', 0);
    errordlg('Input must be a number','Error');
end
T_SimulationData.Position(1).x7=x7;
setappdata( handles.CalculateStatusEquation, 'T_SimulationData', T_SimulationData ) ;
% --------------------------------------------------------------------------
function  edit8_Callback( h )
       
handles = guidata( h ) ;
% get the T_SimulationData .
T_SimulationData = getappdata( handles.CalculateStatusEquation, 'T_SimulationData' ) ;
x8 = str2double(get(handles.edit8, 'String'));
if isnan(x8)
    set(handles.edit8, 'String', 0);
    errordlg('Input must be a number','Error');