t_youhua.m

matlab 遗传算法的程序

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



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

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

% open the parameter figure .
% EditParameter( T_SimulationData ) ;
CalculateStatusEquation( T_SimulationData ) ;


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



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


try
    % get the current path .
    CurrentPath = cd ;
    HelpFileName = fullfile( CurrentPath, 'T_SimulationHelp.pdf' ) ;
    
    % open the help file .
    mexrun( HelpFileName ) ;
    
catch
    % get the current path .
    CurrentPath = cd ;
    HelpFileName = fullfile( CurrentPath, 'T_SimulationHelp.doc' ) ;
    
    % open the help file .
    mexrun( HelpFileName ) ;
    
end



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

% open the demo .
T_SoftDemo ;



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


% find if have the same figure, and close it .
OldFigure = findobj( 'type', 'figure', 'Tag', 'AboutT_Simulation' ) ;
if ishandle( OldFigure )
    close( OldFigure ) ;
end

% init the variables .
FigureWidth = 250 ;
FigureHeight = 220 ;
TabSpace = 10 ;
TextHeight = 20 ;

% generate a new figure .
FigureHandle = figure( 'Visible', 'off' ) ;
set( FigureHandle, 'Units' , 'pixels', 'Position', [150  150  FigureWidth  FigureHeight], ...
    'Name', '关于', 'Tag', 'AboutT_Simulation', 'FileName' , '' ,...
    'MenuBar' , 'none', 'NumberTitle' , 'off' ,...
    'Resize', 'off', 'windowstyle', 'normal', 'Visible', 'off' ) ;
movegui( FigureHandle, 'center' )


% generate the axes to plot lines .
AxesHandle = axes( 'Parent', FigureHandle, 'Units' , 'normalized' ,  ...
    'Position', [0 0 1 1], 'Visible', 'off', ...
    'Xlim', [0  FigureWidth], 'Ylim', [0  FigureHeight] ) ;

% get the color of the figure .
FigureColor = get( FigureHandle, 'Color' ) ;
% reset the default value of the uicontrols .
set(FigureHandle,'defaultuicontrolunits','normalized');
set(FigureHandle,'defaultuicontrolfontname','隶书');
set(FigureHandle,'defaultuicontrolBackgroundColor', FigureColor );



% -----------------------------------------------------------------------------
% define the first frame .
FrameXPos = TabSpace * 2 ;
FrameWidth = FigureWidth - TabSpace * 4  ;
FrameHeight = FigureHeight - TabSpace * 8 ;
FrameYPos = FigureHeight - FrameHeight - TabSpace * 2 ;
Frame1Position = [FrameXPos  FrameYPos  FrameWidth  FrameHeight] ;
% generate a frame .
TitleHandle = uicontrol(FigureHandle,'style','frame', 'Units','pixels',...
    'position',Frame1Position  );


TextXPos = Frame1Position(1) + TabSpace  ;
TextYPos = Frame1Position(2) + TabSpace ;
TextWidth = Frame1Position(3) - TabSpace * 2 ;
TextHeight = Frame1Position(4) - TabSpace * 2 ;
TextPosition = [TextXPos  TextYPos  TextWidth  TextHeight] ;
% subtitle:
TextHandle = uicontrol(FigureHandle, 'Style','text', 'Units','pixels',...
    'position',TextPosition, 'Horizontal','left',...
    'string', {['  《T型自卸汽车优化分析软件》是一个完全由matlab实现的软件。']}, 'fontsize',13 );


ButtonWidth = 80 ;
ButtonHeight = 25 ;
ButtonXPos = FigureWidth - ButtonWidth - TabSpace * 3 ;
ButtonYPos = TabSpace * 2 ;;
ButtonPosition = [ButtonXPos  ButtonYPos  ButtonWidth  ButtonHeight] ;
% generate the pushbutton: Close .
ButtonHandle = uicontrol( 'Parent', FigureHandle, 'Units', 'Pixels', 'Position', ButtonPosition, ...
    'Style', 'pushbutton', 'string', '关闭', 'Fontsize',12, 'Callback', ['close(gcbf) ;'] ) ;


% display the figure .
set( FigureHandle, 'Visible', 'on' ) ;


%--------------------------------------------

function micintro %制作动画

authorzname='欢迎使用';               
MatlabCentral='作者：崔林林 ';
url='[e-mail]';
                                            %这三个显示的内容可以改变的

ax=axes(...
    'layer','bottom','units','norm',...
    'position',[0 0 1 1],...
    'xtick',[],'ytick',[],...
    'color',[0.8 0.8 1]...
    );

h1=letterzoom(authorzname,0.7,0.3,0.7,0.1,'k');       %letterzoom为设置位置及颜色
h2=letterzoom(MatlabCentral,0.55,0.15,0.85,0.12,'k');
h3=letterzoom(url,0.4,0.1,0.9,0.04,'b');               
pause(1.5)
s=get(gcf,'userdata');
%sound(s.y1,s.fs)
scatterletters([h1 h2 h3])
delete(ax)


function scatterletters(h)
n=length(h);
finalx=rand(1,n)-0.5;
finaly=rand(1,n)-0.5;
finalx=finalx+0.5.*sign(finalx)+0.5;
finaly=finaly+0.5.*sign(finaly)+0.5;
stepz=20;
for j=1:n,
    pos=get(h(j),'pos');
    x=pos(1); y=pos(2);
    d(j,:)=[(finalx(j)-x)/stepz (finaly(j)-y)/stepz];
end
moveletters(h,d,stepz)

function h=letterzoom(string,height,xleft,xright,fontsize,color);    %letterzoom为设置位置及颜色
n=length(string);
finalx=linspace(xleft,xright,n);
finaly=finalx.*0+height;
stepz=20;
for j=1:n,
    x=rand;
    y=rand;
    if x<0.5,x=x-0.5;else x=x+0.5;end              %设置位置
    if y<0.5,y=y-0.5;else y=y+0.5;end
    h(j)=text(x,y,string(j),...
        'fontunits','normalized',...
        'fontsize',fontsize,...
        'color',color,...
        'fontname','Courier New',...
        'fontweight','bold',...
        'HorizontalAlignment','center',...
        'erasemode','xor');
    d(j,:)=[(finalx(j)-x)/stepz (finaly(j)-y)/stepz];
end
axis([0 1 0 1]);
moveletters(h,d,stepz);

function moveletters(h,d,stepz)  %片头字体的移动
n=length(h);
for j=1:stepz,
    for k=1:n,
        currentPos=get(h(k),'position');
        currentPos(1:2)=currentPos(1:2)+d(k,:);
        set(h(k),'position',currentPos)
    end
    pause(1/stepz)
end
%--------------------------------------------------------------------------

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


% find if have the same figure, and close it .
OldFigure = findobj( 'type', 'figure', 'Tag', 'hfig' ) ;
if ishandle( OldFigure )
    close( OldFigure ) ;
end

try 

hfig=figure('position',[700 100 250 250]); ; 
set(hfig,'NumberTitle','off'); 
set(hfig,'name','显示当前时间的表'); 
set(hfig,'MenuBar','none'); 
set(hfig,'color',[0.5 0.7 0.3]) 
A=linspace(0,6.3,1000); 
x1=8*cos(A); 
y1=8*sin(A); 

x2=7*cos(A); 
y2=7*sin(A); 
plot(x1,y1,'b','linewidth',1.4) 
hold on 
plot(x2,y2,'b','linewidth',3.5) 
fill(0.4*cos(A),0.4*sin(A),'r'); 
axis off 

axis([-10 10 -10 10]) 
axis equal 
set(gca,'position',[[0.13 0.05 0.775 0.815]]) 
title(date,'fontsize',18) 
for k=1:12; 
    xk=9*cos(-2*pi/12*k+pi/2); 
    yk=9*sin(-2*pi/12*k+pi/2); 
    plot([xk/9*8 xk/9*7],[yk/9*8 yk/9*7],'color',[0.3 0.8 0.9]) 
% if k 
    h=text(xk,yk,num2str(k),'fontsize',16,'color',... 
        [0.9 0.3 0.8],'HorizontalAlignment','center'); 
end 
% 计算时针位置 
ti=clock; 
th=-(ti(4)+ti(5)/60+ti(6)/3600)/12*2*pi+pi/2; 
xh3=4.0*cos(th); 
yh3=4.0*sin(th); 
xh2=xh3/2+0.5*cos(th-pi/2); 
yh2=yh3/2+0.5*sin(th-pi/2); 
xh4=xh3/2-0.5*cos(th-pi/2); 
yh4=yh3/2-0.5*sin(th-pi/2); 
hh=fill([0 xh2 xh3 xh4 0],[0 yh2 yh3 yh4 0],[0.6 0.5 0.3]); 

% 计算分针位置 
tm=-(ti(5)+ti(6)/60)/60*2*pi+pi/2; 
xm3=6.0*cos(tm); 
ym3=6.0*sin(tm); 
xm2=xm3/2+0.5*cos(tm-pi/2); 
ym2=ym3/2+0.5*sin(tm-pi/2); 
xm4=xm3/2-0.5*cos(tm-pi/2); 
ym4=ym3/2-0.5*sin(tm-pi/2); 
hm=fill([0 xm2 xm3 xm4 0],[0 ym2 ym3 ym4 0],[0.6 0.5 0.3]); 
% 计算秒针位置 
ts=-(ti(6))/60*2*pi+pi/2; 
hs=plot([0 7*cos(ts)],[0 7*sin(ts)],... 
    'color',[0.6 0.5 0.3],'linewidth',3); 
set(gcf,'doublebuffer','on'); 
k=1; 
while k<6; 
    ti=clock; 
    % 计算时针位置 
    th=-(ti(4)+ti(5)/60+ti(6)/3600)/12*2*pi+pi/2; 
    xh3=4.0*cos(th); 
    yh3=4.0*sin(th); 
    xh2=xh3/2+0.5*cos(th-pi/2); 
    yh2=yh3/2+0.5*sin(th-pi/2); 

    xh4=xh3/2-0.5*cos(th-pi/2); 
    yh4=yh3/2-0.5*sin(th-pi/2); 
    set(hh,'XData',[0 xh2 xh3 xh4 0],'YData',[0 yh2 yh3 yh4 0]) 

    % 计算分针位置 
    tm=-(ti(5)+ti(6)/60)/60*2*pi+pi/2; 
    xm3=6.0*cos(tm); 
    ym3=6.0*sin(tm); 
    xm2=xm3/2+0.5*cos(tm-pi/2); 
    ym2=ym3/2+0.5*sin(tm-pi/2); 
    xm4=xm3/2-0.5*cos(tm-pi/2); 
    ym4=ym3/2-0.5*sin(tm-pi/2); 
    set(hm,'XData',[0 xm2 xm3 xm4 0],'YData',[0 ym2 ym3 ym4 0]) 
    % 计算秒针位置 
    ts=-(ti(6))/60*2*pi+pi/2; 
    set(hs,'XData',[0 7*cos(ts)],'YData',[0 7*sin(ts)]) 
    drawnow; 
    pause(0.09) 
end 

catch 
end