#{
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