da_save.m

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

function [data_saved]=da_save(data)

%
% da_save.m
%
% USEAGE:
%
% [data_saved]=da_save(data);
%
% Displays a standard windows dialogue box and asks for
% a file name to save the data file to.
% The data file as modified by filtering etc etc is
% then saved as a plain ASCII file
%

[df_name df_path]=uiputfile('*.dat','Please select a file name');

if df_name ~= 0