ga_inp.m

王小平《遗传算法——理论、应用与软件实现》随书光盘

function [data,data_loaded] = da_inp
%
%
%
% Displays a file dialog box and
% loads the specified file into
% memory.
%
% data=0 if the loading procedure
% was unsuccesful or interupted
%

[df_name df_path]=uigetfile('*.dat','Please select a data file to load');

%df_path='/tmp_mnt/home/cragsted/u03/n09sp/gaprogs_c/';

%df_name='as_bicc1.dat';
%
% Shorten path name
%
[D L]=size(df_path);
df_path=num2str(df_path(:,1:L-1));

if df_name ~= 0
	%
	%
	% Change into the relevant directory
	%

	eval(['cd ' num2str(df_path)]);
	
	%
	% Load the data file
	%
	df_name=lower(df_name);
	eval(['load ' num2str(df_name)]);
	
	%
	% Strip out the .dat file extension
	%
	[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
	
	%
	% Copy this into the variable called
	% data
	%
	[D L]=size(df_name);
%	if L ~= 4 
		eval(['data = ' num2str(df_name) ';']);
		eval(['clear ' num2str(df_name) ]);
%
	data_loaded=1;
%	
 end