#{
Scrip que lee conjunto de archivo de datos (.txt , .dat) y los exporta
de un paraguazo . Para esto se almacena el nombre de estos
archivos en un arraglo ( string ) station, sobre el cual se aplican las
operaciones posteriores
#}
station = ls('*.dat');
N = size(station,1); # numero de filas del array station
for i=1:N ;
mser = load(station(i,:)); # cargamos archivos
vser = reshape(mser,[],1); # transformamos matriz mser a vector columna vser
D(:,i) = vser; # almacenamos vector vser en una matriz D
endfor