Foro - Perl en Español

por **lis** » 2011-06-10 12:25 @559

Hola amigos del foro. Nuevamente recurro a ustedes para que me ayuden. Les cuento, tengo exactamente 347 archivos de 151x71 (extensión .dat). Tengo que concatenarlos en una matriz tridimensional por lo que quedaría así: 151x71x347. Utilizo el siguiente script de Perl "llamando" a Octave siguiendo el primer ejemplo de este link http://www.mathworks.com/products/matlab/demos.html?file=/products/demos/shipping/matlab/nddemo.html

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
 
my %hash;
my $i = 1;
 
while ($data = </home/lis/Escritorio/QS/DATOS/u/*.dat>) {
 
    if ($i) {
        $hash{$data} = $i;
    }
    $i++;
 
if ($hash{$data} >=2 ){
 
open (OC, ">archivo.m");
print OC "clear all;\n"; 
print OC "U = load ('/home/lis/Escritorio/QS/DATOS/u/200509011108_u.dat');\n";
print OC "b = load ('$data');\n";
print OC "U(:,:,$hash{$data}) = b;\n";
print OC "save comp_U.mat U '-mat';\n";
close(OC);
system "(octave -q archivo.m)";
}
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

El primer arreglo, es decir 151x71x1, lo hace bien, pero en los otros solo quedan ceros. Por favor, ayúdenme a ver dónde está mi error. Muchísimas gracias.

Lis.

#!/usr/bin/perl
use strict;
use warnings;
 
open (OC, ">archivo.m");
print OC "clear all;\n";
 
my ($primero, @resto) = </home/lis/Escritorio/QS/DATOS/u/*.dat>;
 
print OC "U = load ('$primero');\n";
 
my $i = 2;
 
for my $fichero (@resto) {
    print OC "b = load ('$fichero');\n";
    print OC "U(:,:,$i) = b;\n";
    $i++;
}
 
print OC "save comp_U.mat U '-mat';\n";
close(OC);
 
system "octave -q archivo.m";
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

De todas maneras... Octave debería de tener alguna instrucción para realizar esto de forma automática...

por **lis** » 2011-06-11 12:54 @579

Nuevamente muchas gracias Explorer.

Foro - Perl en Español

Matriz 3D con Octave

Matriz 3D con Octave

Publicidad

Re: Matriz 3D con Octave

Re: Matriz 3D con Octave

¿Quién está conectado?