ga_inp.m

遗传算法的matlab程序集（内有很多问题的具体解决程序）

function [data,data_loaded] = da_inp
% 显示一个文件对话框调出指定的文件进入内存
% 若调入不成功则data=0
[df_name df_path]=uigetfile('*.dat','请选择一个数据文件调入');
%df_path='i:\mat\';
%df_name='test.dat';
[D L]=size(df_path);
df_path=num2str(df_path(:,1:L-1));
if df_name ~= 0
%切换到有关目录
eval(['cd ' num2str(df_path)]);
%调入数据文件 
df_name=lower(df_name);
eval(['load ' num2str(df_name)]);
% 去掉.dat 文件扩展名 
[D L]=size(df_name);
if L >= 5
if num2str(df_name(L-3:L)) == '.dat'
df_name=df_name(1:L-4);
end
end
[D L]=size(df_name);
%若 L ~= 4 
eval(['data = ' num2str(df_name) ';']);
eval(['clear ' num2str(df_name) ]);
data_loaded=1;
end