% *** ---------------------------------------------------------------------------------------- *** %
% ***| Funcion que crea los archivos de salida 'results.txt' y 'results.bmp' con datos de | *** %
% ***| interes del proceso de segmentacion y la imagen segmentada respectivamente | *** %
% *** ---------------------------------------------------------------------------------------- *** %
function crear_resultados(filename,imag,filas,columnas,dist_default,timer,cont_clicks)
date = clock; % Captura del reloj
fid = fopen('results.txt','wt+'); % Apertura del fichero de escritura
% Escribiendo datos en el archivo de texto
fprintf(fid,'\n %d - %d - %d %d:%d:%2.0f',date(3),date(2),date(1),date(4),date(5),date(6));
fprintf(fid,'\n ______________________________________________________________________________________________ \n\n');
fprintf(fid,'\n ****************************** DATA ****************************** \n\n');
fprintf(fid,'\n Original image: %s \n\n Size (px): %d x %d \n',filename,columnas,filas);
fprintf(fid,'\n Marginal distance: %d \n',dist_default);
fprintf(fid,'\n\n ***************************** RESULTS ********************************** \n' );
fprintf(fid,'\n Number of points: %d \n',cont_clicks);
fprintf(fid,'\n Segmentation time: %4.4f seconds \n',timer);
fclose(fid); % Cierre del fichero de escritura
imwrite(imag,'results.bmp'); % Creacion del archivo imagen
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
